CMD NATIVE TREE2d INITIALIZE VARIABLESHi TB=TAB VARIABLEQnTB²0os SH$=SUBDIRECTORY HEADERzxSH$²""} RH$=ROOT HEADER›‚RH$²""¶‡ N$=FILENAME VARIABLEÀŒN$²""â‘ NB$=BUILD FILENAME VARIABLEí–NB$²""› FT=FILETYPE VARIABLE FT²06¥ SC=SUBDIR DEPTH COUNTER ROOT=0?ªSC²0f¯ K$=KEY VARIABLE FOR GET ROUTINESp´K$²""¹ EN$=ERROR NUMBER VARIABLE›¾EN$²""¹à ET$=ERROR TYPE VARIABLEÄÈET$²""ä× D=DEVICE POLLING VARIABLEìÜD²0á PN%=PARTITION NUMBER VARIABLEæPN%²17ë TP$=GET FILE TYPE BYTEBðTP$²""[õ TY$=FILE TYPE NAMEpú X=LOOP COUNTERxÿX²0Ž SK=SKIP PARENT?— SK²0· MP$=NAME OF PARENT HEADERÂMP$²""Ý" PROGRAM NAME MARQUEE '™"“ CMD NATIVE TREE ’ BY RANDY HARRIS", POLL DEVICES;1™"DEVICES PRESENT ..."T6 OPEN ERROR CHANNELa@ D²8¤30nJŸ15,D,15vT 15…^‹ST³±0§370Œh™D—r‚:‰400¬| GETKEY ROUTINEÁ¡ùK$:‹ K$²""§385džŽÛ CHOOSE DEVICEø•™" ";8 š…"‘ENTER DRIVE #8-30";D1 ¤‹D³8 ° D±30 §™"‘‘‘":‰405s ®Ÿ15,D,15: 15:‹ST³±0§™" DEVICE NOT PRESENT! ’":™"‘‘‘‘‘":‰400Ž ô GET PARTITION NUMBER˜ þ™"“";Ç …"‘ ENTER PARTITION NUMBER (1-254) ’";PN$è ‹ Å(PN$)³1 ° Å(PN$)±254§‰500!Ÿ15,D,15:˜15,"CP"ªPN$!&„15,EN$,ET$: 15/!+™" ";ET$;" ’ ";PN$D!0‹ EN$³±"02"§‰520_!X BEGIN DIRECTORY TREEu!]HS²0:DN²0:™:™"";!bŸ15,D,15:˜15,"CD//" !lŸ1,D,0,"$:*=B"«!v 2000¼!€N$²"":NB$²""È!Š¡#1,NB$Ü!‹ST³±0§ 1:‰3000ð!‘‹NB$³±Ç(34)§650 "”¡#1,NB$:‹ST³±0§ 1‰3000*"ž‹NB$³±Ç(34)§N$²N$ªNB$:‰660B">‹DN²0§™N$:DN²1:‰640U"? SKIP PARENT?e"@‹ SK²0 §836‚"A‹ SK²1 ¯ MP$(SC)³±N$§640¦"B‹ MP$(SC)²N$ ¯ SK²1 § SK²0:‰640¸"C HEADER SKIPÌ"D‹HS²1§HS²0:‰640Ü"E‹SC±0§5000þ"H™£SC¬5)"«À ";N$: 1:4000:‰620#Ð ERROR READER!#Ú„15,EN$,ET$I#ä‹EN$³±"00"§™" ";ET$;" ’": 1: 15:€O#îŽg#¸ CHECK ROOT/PARENTz# ‹SC²0§ 1: 15:€‰#Ì ˜15,"CD:_"“#Ö 2000¤#à SC²SC«1:SK²1­#ê ‰620¿#  GOTO SUBDIRÛ#ªMP$(SC)²N$:SC²SCª1:HS²1ì#´˜15,"CD:"ªN$ö#¾2000ü#ÈŽ$ˆ VERTICAL LINE GENERATOR'$’ V²1¤SC5$œ™"Ý ";;$¦‚A$°Ž