home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9210a.d64 / strunter (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  997b  |  21 lines
  1. 5 POKE53280,12:POKE53281,15:PRINT"[147][152]  STRUNTER - THE STRING HUNTER     1992 "
  2. 10 PRINT"[145][145]S[151]TANDARD E[151]OR-DECOD.C[151]OMPACT":POKE55368,2:PRINT:N$="[144]NOTHING FOUND"
  3. 12 POKE1096,32:GETA$:IFA$=""THENPOKE1096,63:GOTO12
  4. 13 IFA$="E"THENK=1:POKE55346,14:GOSUB20:GOSUB110
  5. 15 IFA$="C"THENK=1:POKE55357,14:GOSUB20:GOSUB40:GOSUB110
  6. 17 IFA$="S"THENPOKE55336,14:GOSUB20:GOSUB40:GOTO12
  7. 18 RUN
  8. 20 POKE19,64:INPUT"[144]START SEARCH (DEC):";A:PRINT:W=A:INPUT"[144]STOP  SEARCH (DEC):";E:PRINT
  9. 30 INPUT"[144]SEARCH FOR:";A$:PRINT:F=PEEK(51):D=PEEK(52):POKE19,0:L=LEN(A$):DIMV(L):RETURN
  10. 40 PRINT"STANDARD MODE":PRINT"[151]TIME CA.:";INT(((E-A)/1500+0.5));"MIN"
  11. 50 W=W+1:FORQ=1TOL-1:V(Q)=ASC(MID$(A$,Q,1))-ASC(MID$(A$,Q+1,1)):IFW=ETHENPRINTN$:RETURN
  12. 70 G=PEEK(W+Q)-PEEK(W+1+Q):IFG<>V(Q)GOTO50
  13. 75 NEXT:IFW>40930ANDW<40958GOTO50
  14. 80 PRINT:PRINT"[158]FOUND";A$;"AT";W+1:IFK=1THENPRINT"CODE:#";PEEK(2)
  15. 90 GOTO12
  16. 110 PRINT"EOR DECODER":FORM=828TO875:READV:POKEM,V:NEXT:FORI=ATOE:IFPEEK(I)<>73THENNEXT:PRINTN$:END
  17. 140 SYS828:W=A:GOSUB40:SYS828:NEXTI:RETURN
  18. 200 DATA120,160,192,162,0,189,0,16,69,2,157,0,16,202,208,245,238,67,3,238,72
  19. 210 DATA3,136,208,234,169,16,141,67,3,141,72,3,88,162,255,189,232,159,69,2
  20. 220 DATA157,232,159,202,208,245,96 :            MADE BY RAFAEL SCHREIBER
  21.