home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Playback_04_1992_-_de.d64 / find (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  50 lines
  1. 1 rem find.64
  2. 2 rem by commodore disc/bu
  3. 10 dimhx(75):fori=0to9:hx(48+i)=i:hx(65+i)=i+10:next
  4. 20 fori=49152to49494:readmc$:hi=asc(left$(mc$,1)):lo=asc(right$(mc$,1))
  5. 30 dz=16*hx(hi)+hx(lo):pokei,dz:next
  6. 40 sys49152:new
  7. 100 data 78,a2,00,86,62,a2,bf,86
  8. 101 data 63,a0,ff,a2,37,86,01,b1
  9. 102 data 62,a2,34,86,01,91,62,88
  10. 103 data c0,ff,d0,ef,c6,63,a5,63
  11. 104 data c9,9f,d0,e5,a2,ff,86,63
  12. 105 data a0,ff,a2,37,86,01,b1,62
  13. 106 data a2,34,86,01,91,62,88,c0
  14. 107 data ff,d0,ef,c6,63,a5,63,c9
  15. 108 data df,d0,e5,a2,37,86,01,a9
  16. 109 data 60,8d,12,a7,a9,58,8d,08
  17. 110 data 03,a9,c0,8d,09,03,58,60
  18. 111 data 20,73,00,c9,46,f0,06,20
  19. 112 data 79,00,4c,e7,a7,20,73,00
  20. 113 data c9,49,f0,03,4c,5f,c0,20
  21. 114 data 73,00,c9,4e,f0,03,4c,5f
  22. 115 data c0,20,73,00,c9,44,f0,03
  23. 116 data 4c,5f,c0,20,73,00,20,8d
  24. 117 data c0,20,74,a4,60,c9,22,f0
  25. 118 data 12,a0,00,84,f7,99,58,c1
  26. 119 data c8,20,73,00,d0,f7,99,58
  27. 120 data c1,f0,1c,a9,ff,85,f7,a0
  28. 121 data 01,b1,7a,c9,22,f0,06,99
  29. 122 data 57,c1,c8,d0,f4,a9,00,99
  30. 123 data 57,c1,20,73,00,d0,fb,45
  31. 124 data 2b,85,5f,a5,2c,85,60,a0
  32. 125 data 01,b1,5f,d0,01,60,a2,00
  33. 126 data 86,f8,a0,04,b1,5f,f0,28
  34. 127 data c9,22,d0,06,a9,ff,45,f8
  35. 128 data 85,f8,a5,f7,c5,f8,d0,13
  36. 129 data b1,5f,dd,58,c1,d0,0c,e8
  37. 130 data bd,58,c1,d0,08,20,0f,c1
  38. 131 data 4c,c7,c0,a2,00,c8,d0,d4
  39. 132 data a0,00,b1,5f,aa,c8,b1,5f
  40. 133 data 86,5f,85,60,4c,c7,c0,a9
  41. 134 data 8d,20,d2,ff,a0,02,b1,5f
  42. 135 data aa,c8,84,49,b1,5f,20,cd
  43. 136 data bd,a9,20,20,d2,ff,a4,49
  44. 137 data c8,84,49,84,0f,a9,36,85
  45. 138 data 01,20,03,a7,a9,37,85,01
  46. 139 data 20,87,ea,a5,cb,c9,39,f0
  47. 140 data 04,20,2c,a8,60,20,87,ea
  48. 141 data a5,cb,c9,40,f0,f7,c9,39
  49. 142 data f0,f3,a9,00,85,c6,60
  50.