1 'TD2DIR.BA by Robert Benson (7/01/90) combines FYLDOS.120/220, all credit for the code goes to Wilson Van Alst
2 'TD2DIR.BA runs on a Model 100/102 or Model 200 and opens and/or appends both TDD2 directories info to DISK$.DO
10 CLS:MAXFILES=2:DEFSTRA-F:DEFINTG-Z:E=CHR$(27):F=SPACE$(10):OPEN"COM:98N1DNN"FOROUTPUTAS1:OPEN"DISK$"FORAPPENDAS2
11 IFPEEK(1)=171THENRESTORE18:Z=4615:T=-1936:S=-1878:FORI=-1936TO-1896ELSERESTORE19:Z=5322:T=-832:S=-788:FORI=-832TO-792
12 READR:POKEI,R:X=X+R:NEXT:IFX<>ZTHENPRINT@136,"Bad Data!":MAXFILES=1:END
13 PRINT@85,E"KDisk Name: ";:LINEINPUTD:IFD=""THENMAXFILES=1:MENU
14 PRINT@160,E"K":FORI=0TO1:B="ZZ"+CHR$(64*I)+CHR$(26)+SPACE$(24)+"F":PRINT#1,BCHR$(1)CHR$(158-64*I):IFVAL(D)THEND="#"+D:GOTO16ELSE16
15 PRINT@175,E"p "F:PRINT#1,BCHR$(2)CHR$(157-64*I)
16 V=VARPTR(F):CALLT,,PEEK(V+1)+256*PEEK(V+2):IFASC(F)THENPRINT#2,F;USING"  #####  \      \:#";PEEK(S+1)+256*PEEK(S+2),D,I:GOTO15ELSENEXT
17 PRINT#2,USING"\       \ #,#####  Free";D+STRING$(8,"."),1280*PEEK(S):BEEP:PRINT@165,E"qPress ENTER by itself to Quit!":GOTO13
18 DATA 205,25,133,205,25,133,14,9,205,25,133,119,35,13,194,120,248,14,16,205,25,133,13,194,131,248,33,172,248,14,4,205,25,133,119,43,13,194,143,248,201
19 DATA 205,126,109,205,126,109,14,9,205,126,109,119,35,13,194,200,252,14,16,205,126,109,13,194,211,252,33,238,252,14,4,205,126,109,119,43,13,194,223,252,201