home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 149 / 149.d81 / search.basic (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  338b  |  20 lines
  1. 0 rem -- text search (52296) --
  2. 10 x=peek(14274):x=x*256:y=peek(14275):y=y+x:x=peek(14273)
  3. 20 x=x*y:x=x+16385:y=x+y:a=peek(14276):y=y-a:l=a-1:c=peek(14277)
  4. 30 fori=xtoy
  5. 40 b=peek(i):f=0
  6. 50 ifb=cthen100
  7. 60 iff=1then200
  8. 70 next
  9. 80 goto200
  10. 100 f=1
  11. 110 ifa=1then200
  12. 120 forj=1tol
  13. 130 d=14277+j:d=peek(d):b=i+j:b=peek(b)
  14. 140 ifb=dthen160
  15. 150 f=0:j=l
  16. 160 next
  17. 170 goto60
  18. 200 poke14272,f
  19. 210 end
  20.