home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 August / 1984-08.d64 / string search 1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  1.2 KB  |  29 lines
  1. 10 rem*****************   basic loader for **     string search  ***********************
  2. 100 print"[147]   string searcher"
  3. 110 print"one moment please"
  4. 120 tp=peek(55)+256*peek(56)
  5. 130 tp=tp-186:h=int((tp)/256):l=tp-h*256:poke55,l:poke56,h
  6. 140 in=peek(55)+256*peek(56):forc=in to in+185:readi:pokec,i:ck=ck+i:next:
  7. 150 ifck<>26449 then print"error in data":end
  8. 160 rem****************** string search data**********************
  9. 180 data 160,17,185,216,0,153,60,3,136,208
  10. 190 data 247,160,9,177,45,133,217,200,177,45
  11. 200 data 133,218,200,177,45,133,219,24,160,2
  12. 210 data 177,47,101,47,105,7,133,220,200,177
  13. 220 data 47,101,48,133,221,160,0,24,165,47
  14. 230 data 105,7,133,224,165,48,105,0,133,225
  15. 240 data 169,0,240,12,160,17,185,60,3,153
  16. 250 data 216,0,136,208,247,96,24,165,224,105
  17. 260 data 3,133,224,165,225,105,0,133,225,160
  18. 270 data 0,177,224,153,229,0,200,192,3,208
  19. 280 data 246,24,165,220,105,2,133,220,165,221
  20. 290 data 105,0,133,221,165,229,240,202,208,2
  21. 300 data 240,210,162,0,134,227,134,226,24,165
  22. 310 data 217,197,226,240,31,24,165,229,197,227
  23. 320 data 144,37,164,226,177,218,164,227,209,230
  24. 330 data 208,6,230,227,230,226,208,226,230,227
  25. 340 data 169,0,133,226,240,218,160,0,169,1
  26. 350 data 145,220,200,169,0,145,220,240,197,160
  27. 360 data 0,152,145,220,240,242
  28. 999 print"done":new
  29.