home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / SEARCHER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.5 KB  |  34 lines
  1. 0 REM       Q-LINK DISK # 105
  2. 1 PRINT"ô":POKE53281,0:POKE53280,0
  3. 3 PRINT"üSTEVE'S DISK HELPERS       S.A.BRETHOUR"
  4. 5 PRINT"├├├├├├├├├├├├├├├├├├├├├├├├├├├├├├├├├├├├├├├├"
  5. 7 PRINT"THIS PROGRAM WILL ENABLE YOU TO LIST THELINES CONTAINING WHATEVER";
  6. 8 PRINT" INFORMATION"
  7. 10 PRINT"YOU WOULD LIKE TO FIND...."
  8. 12 PRINT"THIS COULD BE VARIABLES, WORDS, NUMBERS ETC.."
  9. 14 PRINT"AT THE READY PROMPT LOAD THE PROGRAM YOUWANT TO SEARCH...."
  10. 16 PRINT"ONCE THE PROGRAM IS LOADED TYPE A 0 LINENUMBER. EG 0: THEN WHAT";
  11. 18 PRINT"EVER IT IS TO    FIND";
  12. 20 PRINT"û EG: 0:X$ RETURN AND £SYS49152...."
  13. 22 INPUT"₧PRESS RETURN TO CONTINUE....";A$:IF A$="CHR$" THEN 38
  14. 38 PRINT"ô":PRINT"    LOADING DATA...."
  15. 40 T=49152:FORI=TTOT+150:READA:POKEI,A:CS=CS+A:NEXTI
  16. 50 IFCS<>20528THENPRINT"ERROR IN DATA STATEMENTS":STOP
  17. 55 PRINT"ô"
  18. 60 PRINT"       * £STEVE'S DISK HELPERS *"
  19. 62 PRINT"  "
  20. 65 PRINT"ü NOW LOAD PROGRAM TO SEARCH ÆÖ"
  21. 68 PRINT"THEN 0:(ITEM TO SEARCH) RETURN SYS49152 RETURN¢"
  22. 70 PRINT"  "
  23. 72 FORX=1TO40:PRINT"Ü├¢";:FORT=1TO50:NEXT:NEXT
  24. 100 DATA160,0,177,43,133,251,200,177,43,133,252,160,0,177,251,208
  25. 110 DATA1,200,177,251,208,1,96,160,0,177,251,141,52,3,200,177
  26. 120 DATA251,141,53,3,200,177,251,133,99,200,177,251,133,98,200,24
  27. 130 DATA165,43,105,5,    
  28. 140 DATA55,162,0,193,67,240,4,200,24,144,242,192,0,240,10,136
  29. 150 DATA230,251,208,2,230,252,24,144,242,160,0,177,67,240,8,209
  30. 160 DATA 251,208,218,200,24,144,244,169,35,32,210,255,166,99,165,98
  31. 170 DATA32,205,189,169,32,32,210,255,173,52,3,133,251,173,53,3
  32. 180 DATA133,252,24,144,134
  33. 190 DATA173,230,159,141,19,3,173,231,159,141,19,3,169,128,32,144,255,0
  34.