home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / CRC32-MULTI / CRC32-MULTI.a7ae (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  47.5 KB  |  27 lines
  1. 100 DIM F$(1024):ML=49152+6*256
  2. 110 SP$="                   "
  3. 120 PRINT"æ"SP$"æ"
  4. 130 S$="*":INPUT "SEARCH STRING";S$
  5. 140 PRINT"æ"SP$"æ"
  6. 150 FORSS=1TOLEN(S$):POKE ML+2+SS,ASC(MID$(S$,SS,1)):NEXT:POKEML,SS+
  7. 160 SYS49152+1021:N=PEEK(1020)+PEEK(1021)*256:SYS58551
  8. 170 PRINTN"FILES FOUND <PRESS ANY KEY>":ALL=0
  9. 172 POKE198,0:WAIT198,1:GETA$:PRINT"æ"SP$SP$"æ"
  10. 180 FOR X=1TON
  11. 190 LE=LEN(F$(X))
  12. 200 IF LEFT$(F$(X),2)="--"THENPP=PP+1:GOTO340
  13. 210 PRINT"Ü"F$(X)LEFT$(SP$,16-LE)"?";
  14. 220 IF ALL=1ORPAGE=1THEN260
  15. 230 POKE198,0:WAIT198,1:GETA$
  16. 240 IFA$="N"THENPRINT"¥ æ":GOTO340
  17. 250 IFA$="P"THENPAGE=1:PP=X+20:A$=""
  18. 260 PRINT"¥   ";
  19. 270 FORY=1TO LE
  20. 280 POKE 551+Y,ASC(MID$(F$(X),Y,1))
  21. 290 NEXT Y
  22. 300 :
  23. 310 POKE 8,LE
  24. 320 SYS49152
  25. 330 IFPAGE=1THEN IF X=PPTHENPAGE=0:STOP
  26. 340 NEXT X:END
  27.