0 'Club 100 Library - 415/939-1246 BBS,    937-5039 Newsletter, 932-8856 Voice
1 'DIRECT.BA by GHB 8/16/86
2 'Revised by Robert Benson 2/1/88.
3 'Displayes files on disk using the TDD without the aid of a operating system, on the original TDD set the dip switchs 1-4 to off.
4 'Though written for the original TDD it will work with the TDD2 if you change "ZZ" to "FF" in line 23 only but it will not read the second directory.
10 CLS:CLEAR1000:MAXFILES=2:ONERRORGOTO20:DEFSTRA-H:DEFINTI-X:O=12:X=0:Y=1:DIMB(40),C(O,40),D(O+1),U(O),V(40),H(40),HH(1),Q(O,40)
11 HH(0)="(No)":HH(1)="(Yes)":R=0:SP$="_":FS$=CHR$(17)+CHR$(28):G="COM:98N1DNN"
12 PRINT@130,"Reading";:GOSUB22:GOSUB23:K=0:L=1:M=6:R=0:GOSUB24:GOSUB16:IFKTHEN15
13 L=2:M=5:FORI=1TO39:IFKTHEN15
14 GOSUB24:GOSUB16:NEXTI
15 CLOSE:IFI=0THEN32ELSEGOTO28
16 A=INPUT$(11,1):IFLEFT$(A,2)<>FS$THENE="Disk I/O Error":GOTO33
17 IFASC(MID$(A,3,1))=0THENK=1:RETURN
18 R=R+1:B(R)=RIGHT$(A,9):V(R)=-1:A=INPUT$(20,1):V(R)=ASC(MID$(A,17))*256+ASC(MID$(A,18))
19 Z=1-Z:PRINT@149,CHR$(147+Z);:RETURN
20 IFERR<>54THEN31
21 CLOSE:GOSUB22:RESUME19
22 OPENGFORINPUTAS1:OPENGFOROUTPUTAS2:RETURN
23 PRINT#2,CHR$(7)CHR$(0)"ZZ"CHR$(7)CHR$(0)CHR$(24)CHR$(13);:RETURN
24 FORJ=1TO9:NEXTJ
25 PRINT#2,CHR$(5)"ZZ"CHR$(0)CHR$(26)CHR$(1);
26 PRINT#2,";DIS SP/CONT"CHR$(13)CHR$(10)"ERRL1"CHR$(9);
27 PRINT#2,"CALF"CHR$(L)CHR$(M);:RETURN
28 BEEP:CLS:FORI=1TOR:PRINT" "B(I);:IFI=28THENPRINT"    ooo MORE ooo        ooo MORE ooo   ";:GOSUB30:PRINT"":NEXTIELSENEXTI
29 GOSUB30:MAXFILES=1:FORA=63067TO63071:READB:POKEA,B:NEXT:DATA77,55,73,49,69:MENU
30 A=INKEY$:IFA=""THEN30ELSERETURN
31 BEEP:PRINT@130,"Error"ERR"in line"ERL:END
32 E="No Files Found"
33 BEEP:CLS:PRINT@133,E:FORZ=1TO900:NEXTZ:MENU
34 STOP