0 'SECRET.BA v2.0 Gary Sullivan 1 'Modified for the Model 200 CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 CLS:KEYON:L=62133:ONKEYGOSUB21,27,30:LINE(0,0)-(239,39),1,B:LINE(1,1)-(238,38),1,B:PRINT@43,"Gary's SECRET file lister Ver:2.0":PRINT:PRINT@130,"";:INPUT"TANDY 100 or 200 ";Q:CLS:IFQ=100THENL=62133+1797 3 IFQ=200THENL=62133 4 F=1:S=205:S1=200:S2=280:S3=205 5 IFF=21THENBEEP:GOTO2 6 X=PEEK(L):X1=PEEK(L+1):H=L 7 IFZ=0THENN$=INKEY$:PRINT@0,CHR$(27)CHR$(112)" Hit any key ESC to quit F2 = make INvisable F3 = make Visable"CHR$(27)CHR$(113);:IFN$=""GOTO7 8 IFN$=CHR$(27)THENMENU 9 IFN$=CHR$(9)THENCLS:GOTO2 10 IFS>(S3+7)THENS=S3:CLS 11 IFZ=0 ANDX=128THENPRINT@S1,"File is in BASIC":L=L+1:C=X:GOTO19 12 IFZ=0 ANDX=192THENPRINT@S1,"File is in TEXT":L=L+1:C=X:GOTO19 13 IFZ=0 ANDX=160THENPRINT@S1,"File is in MACHINE":L=L+1:C=X:GOTO19 14 IFZ=0 ANDX=0THENPRINT@S1,"File is ERASED":L=L+1:C=X:GOTO19 15 IFZ=0 ANDX=200THENPRINT@S1,"File is a SECRET TEXT file":L=L+1:C=X:GOTO19 16 IFZ=0 ANDX=136THENPRINT@S1,"File is a SECRET BASIC file":L=L+1:C=X:GOTO19 17 IFZ=1THENPRINT@S2,"RAM file #"F"Starts at"(X1*256+X):L=L+2:F=F+1:GOTO19 18 PRINT@S,CHR$(X):L=L+1:S=S+1 19 Z=Z+1:IFZ=10THENZ=0 20 GOTO5 21 INPUT"Unerase what file ";E$:INPUT"What is the starting location ";L:CLS':OPEN E$ FOR OUTPUT AS #1 22 G$=INKEY$:G=PEEK(L):IFG$=CHR$(32)THENGOSUB33 23 IFG$=CHR$(27)THENCLOSE:MENU 24 SOUND1,1:IFG<32THENPRINTG;:L=L+1:GOTO22 25 PRINTCHR$(G);':PRINT #1,CHR$(G); 26 L=L+1:GOTO22'Start of convert to Invisable 27 IFC=128THENPOKE(H-11),136 28 IFC=192THENPOKE(H-11),200 29 SOUND5000,2:CLS:RETURN'Start of convert to Visable 30 IFC=136THENPOKE(H-11),128 31 IFC=200THENPOKE(H-11),192 32 SOUND5000,2:CLS:RETURN 33 PAUSE$=INKEY$:IFPAUSE$=CHR$(32)THENRETURN 34 IFPAUSE$=CHR$(27)THENMENU 35 GOTO33