home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / montor.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  24 lines
  1. 0 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 '"MONTOR.BA" Examine/Change a            Specified File; Phil Wheeler            - 10/13/86; Based on                    LOOKIT.BAS  by Joel Hassell
  3. 2 DEFINTR-V:CLEAR256:POKE63056,128:MAXFILES=1:HX$="0123456789ABCDEF":CC=0:CT=0:CLS:E$=CHR$(27):GOTO18
  4. 3 CLS:PRINTE$"p"G$E$"q"
  5. 4 IFI<0THENI=I+65536ELSEIFI>65535THENI=I-65536
  6. 5 K=I:IFK>32767THENK=K-65536
  7. 6 FORR=1TO4:PRINTMID$(HX$,(INT(K/16^(4-R))AND15)+1,1);:NEXT:AX$="":FORK=ITOI+7:R=PEEK(K):PRINT" "MID$(HX$,R/16+1,1);MID$(HX$,(RAND15)+1,1);:IFR<32THENR=46
  8. 7 AX$=AX$+CHR$(R):NEXT:PRINT" "AX$;:IFCT<>0THENCT=CT-1:GOTO12
  9. 8 PRINT@CSRLIN*40+6+CC*3,"";:I$=INPUT$(1):IFI$>CHR$(96)THENI$=CHR$(ASC(I$)-32)
  10. 9 IFINSTR(1,HX$,I$)THENPOKEI+CC,(PEEK(I+CC)AND15)*16+INSTR(1,HX$,I$)-1:PRINT@CSRLIN*40,"";:GOTO4
  11. 10 T=ASC(I$):IFT=20ORT=23THENCT=7:I=I+192*(T=23):T=30
  12. 11 IFT=2ORT=26THENCT=7:I=I-192*(T=26):T=31
  13. 12 IFT=30THENI=I-8:IFCSRLIN=0THENPRINTE$"L";:GOTO4ELSEPRINT@(CSRLIN-1)*40,"";:GOTO4
  14. 13 IFT=31THENI=I+8:PRINT:GOTO4
  15. 14 IFT=28THENCC=CC+1:IFCC>7THENCC=0:I=I+8:PRINT:GOTO4
  16. 15 IFT=29THENCC=CC-1:IFCC<0THENCC=7:T=30:GOTO12
  17. 16 IFI$=E$THEN1
  18. 17 GOTO8
  19. 18 PRINT@40,E$"pMONTOR.100 -- File Examine/Change"E$"q";
  20. 19 F$="":PRINT@120,E$"pFile to Examine"E$"q <CR to End>";:INPUTF$:IFF$=""THENPOKE63056,0:MENUELSE:B=INSTR(F$,"."):IFB=0ORLEN(MID$(F$,B+1,2))<>2THENBEEP:PRINT@120,E$"pFULL file Name, Please!     "E$"q";:FORK=1TO500:NEXT:GOTO19
  21. 20 FORK=1TOLEN(F$):X=ASC(MID$(F$,K,1)):IFX>96ANDX<123THENMID$(F$,K,1)=CHR$(X-32):NEXTELSENEXT
  22. 21 H$="":FORK=1TOB-1:H$=H$+MID$(F$,K,1):NEXT:H$=H$+SPACE$(7-B)+RIGHT$(F$,2):FORA=63842TO64129STEP11:G$="":FORK=3TO10:G$=G$+CHR$(PEEK(A+K)):NEXT:IFG$=H$ANDPEEK(A)<>0THENI=PEEK(A+1)+256*PEEK(A+2):GOTO3ELSENEXT
  23. 22 BEEP:PRINT@120,E$"pFile Not Found; Try Again!  "E$"q";:FORK=1TO500:NEXT:GOTO19
  24.