home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 January / 1995-01b.d64 / scratch_save (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  1001 b   |  33 lines
  1. 0 rem   scratch&save disk files                  by vince tagle
  2. 5 rem   change sa in line 10                     to relocate code
  3. 10 sa=49152:fori=satosa+131:reada:pokei,a:next
  4. 20 s=sa+111:gosub80:pokesa+4,lb:pokesa+5,hb
  5. 30 s=sa+112:gosub80:pokesa+10,lb:pokesa+11,hb
  6. 40 s=sa+23:gosub80:pokesa+13,lb:pokesa+18,hb
  7. 50 s=sa+116:gosub80:pokesa+72,lb:pokesa+73,hb
  8. 60 s=sa+113:gosub80:pokesa+85,lb:pokesa+87,hb
  9. 70 sys sa:print"scratch & save patch working":end
  10. 80 hb=int(s/256):lb=s-(hb*256):return
  11. 90 data 173,50,3,141,111,192
  12. 100 data 173,51,3,141,112,192
  13. 110 data 169,23,141,50,3,169
  14. 120 data 192,141,51,3,96,162
  15. 130 data 0,181,183,72,232,224
  16. 140 data 6,208,248,169,1,166
  17. 150 data 186,160,15,32,186,255
  18. 160 data 160,1,177,187,201,58
  19. 170 data 208,17,198,183,198,183
  20. 180 data 24,165,187,105,2,133
  21. 190 data 187,165,188,105,0,133
  22. 200 data 188,160,0,177,187,153
  23. 210 data 116,192,200,196,183,208
  24. 220 data 246,165,183,24,105,3
  25. 230 data 162,113,160,192,32,189
  26. 240 data 255,32,192,255,169,1
  27. 250 data 32,195,255,32,204,255
  28. 260 data 162,5,104,149,183,202
  29. 270 data 16,250,76,0,0,83
  30. 280 data 48,58,0,0,0,0
  31. 290 data 0,0,0,0,0,0
  32. 300 data 0,0,0,0,0,0
  33.