home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 January / 1995-01b.d64 / save_verify (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  1.1 KB  |  32 lines
  1. 0 rem    save/verify                              by vince tagle
  2. 5 rem    change sa in line 10                    to relocate code
  3. 10 sa=49152:fori=satosa+113:reada:pokei,a:next
  4. 20 s=sa+38:gosub80:pokesa+4,lb:pokesa+5,hb
  5. 30 s=sa+39:gosub80:pokesa+10,lb:pokesa+11,hb:pokesa+31,lb:pokesa+28,hb
  6. 40 s=sa+23:gosub80:pokesa+13,lb:pokesa+18,hb
  7. 45 s=sa+107:gosub80:pokesa+49,lb:pokesa+50,hb:pokesa+95,lb:pokesa+96,hb
  8. 50 s=sa+108:gosub80:pokesa+55,lb:pokesa+56,hb:pokesa+101,lb:pokesa+102,hb
  9. 70 s=sa+82:gosub80:pokesa+58,lb:pokesa+63,hb
  10. 75 s=sa+109:gosub80:pokesa+72,lb:pokesa+73,hb:pokesa+85,lb:pokesa+86,hb
  11. 78 sys sa:print"save/verify patch working":end
  12. 80 hb=int(s/256):lb=s-(hb*256):return
  13. 110 data 173,50,3,141,38,192
  14. 120 data 173,51,3,141,39,192
  15. 130 data 169,23,141,50,3,169
  16. 140 data 192,141,51,3,96,104
  17. 150 data 168,104,170,169,192,72
  18. 160 data 169,39,72,138,72,152
  19. 170 data 72,76,0,0,165,144
  20. 190 data 240,1,96,173,48,3
  21. 200 data 141,107,192,173,49,3
  22. 210 data 141,108,192,169,82,141
  23. 215 data 48,3,169,192,141,49
  24. 220 data 3,162,0,181,183,157
  25. 230 data 109,192,232,224,6,208
  26. 240 data 246,76,101,225,162,0
  27. 250 data 189,109,192,149,183,232
  28. 260 data 224,6,208,246,173,107
  29. 270 data 192,141,48,3,173,108
  30. 280 data 192,141,49,3,76,0
  31. 290 data 0,0,0,0,0,0
  32.