0 'FYLDOS.220	(c)1990 Wilson Van Alst
1 'v1.0		  All rights reserved.
2 'Appends TDD2 file info to AAATDD.DO
3 MAXFILES=2:DEFSTRA-F:DEFINTG-Y:E=CHR$(27):F=SPACE$(10):S=-1878:OPEN"COM:98N1DNN"FOROUTPUTAS1:OPEN"AAATDD"FORAPPENDAS2:FORI=-1936TO-1896:READR:POKEI,R:Q=Q+R:NEXT:IFQ-4615THENPRINT"Bad Data!":END
4 PRINT@85,E"KDisk Name: ";:LINEINPUTD:IFD=""THENMAXFILES=1:MENUELSEFORI=0TO1:B="ZZ"+CHR$(64*I)+CHR$(26)+SPACE$(24)+"F":PRINT#1,BCHR$(1)CHR$(158-64*I):IFVAL(D)THEND="#"+D:GOTO6ELSE6
5 PRINT@175,E"p "F:PRINT#1,BCHR$(2)CHR$(157-64*I)
6 V=VARPTR(F):CALL-1936,,PEEK(V+1)+256*PEEK(V+2):IFASC(F)THENPRINT#2,F;USING" #####  \      \:#";PEEK(S+1)+256*PEEK(S+2),D,I:GOTO5ELSENEXT:PRINT#2,USING" \      \ #,##### Free";D+STRING$(7,"."),1280*PEEK(S):BEEP:PRINT@175,E"q<CR> to Quit":GOTO4
7 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