home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / secret.200 < prev    next >
Text File  |  2006-10-19  |  2KB  |  37 lines
  1. 0 'SECRET.BA  v2.0  Gary Sullivan
  2. 1 'Modified for the Model 200              CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 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
  4. 3 IFQ=200THENL=62133
  5. 4 F=1:S=205:S1=200:S2=280:S3=205
  6. 5 IFF=21THENBEEP:GOTO2
  7. 6 X=PEEK(L):X1=PEEK(L+1):H=L
  8. 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
  9. 8 IFN$=CHR$(27)THENMENU
  10. 9 IFN$=CHR$(9)THENCLS:GOTO2
  11. 10 IFS>(S3+7)THENS=S3:CLS
  12. 11 IFZ=0 ANDX=128THENPRINT@S1,"File          is in BASIC":L=L+1:C=X:GOTO19
  13. 12 IFZ=0 ANDX=192THENPRINT@S1,"File          is in TEXT":L=L+1:C=X:GOTO19
  14. 13 IFZ=0 ANDX=160THENPRINT@S1,"File          is in MACHINE":L=L+1:C=X:GOTO19
  15. 14 IFZ=0 ANDX=0THENPRINT@S1,"File          is ERASED":L=L+1:C=X:GOTO19
  16. 15 IFZ=0 ANDX=200THENPRINT@S1,"File          is a SECRET TEXT file":L=L+1:C=X:GOTO19
  17. 16 IFZ=0 ANDX=136THENPRINT@S1,"File          is a SECRET BASIC file":L=L+1:C=X:GOTO19
  18. 17 IFZ=1THENPRINT@S2,"RAM file #"F"Starts at"(X1*256+X):L=L+2:F=F+1:GOTO19
  19. 18 PRINT@S,CHR$(X):L=L+1:S=S+1
  20. 19 Z=Z+1:IFZ=10THENZ=0
  21. 20 GOTO5
  22. 21 INPUT"Unerase what file ";E$:INPUT"What is the starting location ";L:CLS':OPEN E$ FOR OUTPUT AS #1
  23. 22 G$=INKEY$:G=PEEK(L):IFG$=CHR$(32)THENGOSUB33
  24. 23 IFG$=CHR$(27)THENCLOSE:MENU
  25. 24 SOUND1,1:IFG<32THENPRINTG;:L=L+1:GOTO22
  26. 25 PRINTCHR$(G);':PRINT #1,CHR$(G);
  27. 26 L=L+1:GOTO22'Start of convert to Invisable
  28. 27 IFC=128THENPOKE(H-11),136
  29. 28 IFC=192THENPOKE(H-11),200
  30. 29 SOUND5000,2:CLS:RETURN'Start of convert to Visable
  31. 30 IFC=136THENPOKE(H-11),128
  32. 31 IFC=200THENPOKE(H-11),192
  33. 32 SOUND5000,2:CLS:RETURN
  34. 33 PAUSE$=INKEY$:IFPAUSE$=CHR$(32)THENRETURN
  35. 34 IFPAUSE$=CHR$(27)THENMENU
  36. 35 GOTO33
  37.