0 DATA FYLDOS.100 (c)1990 Wilson Van Alst
1 'v1.4 All rights reserved.
2 'Appends TDD file info to AAATDD.DO
3 MAXFILES=2:DEFSTRA-F:READB:DEFINTG-Y:FORI=-736TO-696:READR:POKEI,R:Q=Q+R:NEXT:IFQ-4686THENPRINT"Bad Data!":ENDELSEPRINTB:B="ZZ"+CHR$(0)+CHR$(26)+SPACE$(24)+"F":E=CHR$(27):F=SPACE$(10):S=-692:OPEN"COM:98N1D"FOROUTPUTAS1:OPEN"AAATDD"FORAPPENDAS2
4 PRINT@85,E"KDisk Name: ";:LINEINPUTD:IFD=""THENMAXFILES=1:MENUELSEPRINT#1,BCHR$(1)CHR$(158):IFVAL(D)THEND="#"+D:GOTO6ELSE6
5 PRINT@175,E"p "F:PRINT#1,BCHR$(2)CHR$(157)
6 V=VARPTR(F):CALL-736,,PEEK(V+1)+256*PEEK(V+2):IFASC(F)THENPRINT#2,F;USING" #####  \      \";PEEK(S+1)+256*PEEK(S+2),D:GOTO5ELSEPRINT#2,USING" \      \ #,#### Free";D+STRING$(7,"."),1280*PEEK(S):BEEP:PRINT@175,E"q<CR> to Quit":GOTO4
7 DATA205,126,109,205,126,109,14,9,205,126,109,119,35,13,194,40,253,14,16,205,126,109,13,194,51,253,33,78,253,14,4,205,126,109,119,43,13,194,63,253,201