home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 December / 1992-12.d64 / spdram.cnvt (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  32 lines
  1. 0 clr
  2. 10 rem copyright 1992 - compute publications intl ltd - all rights reserved
  3. 15 for i=9330 to 9411:reada:pokei,a:b=b+a:nexti
  4. 20 ifb<>7836 then print"error in data statements":stop
  5. 25 rem - insert jmp 9330 ($2472) -
  6. 30 poke2854,114:poke2855,36:poke9070,0
  7. 35 rem - insert wedge at 2665-2670 ($0a69-$0a6e) -
  8. 40 poke2665,76:poke2666,179:poke2667,36:poke2668,234:poke2669,234
  9. 45 rem - return to basic area and save modified speedcript -
  10. 50 poke43,1:poke44,8:poke45,196:poke46,36:save"speedram-64",8
  11. 55 rem - compare acc to ctrl-key values and branch to eight or nine
  12. 60 data 201,25,240,7,201,14,240,16
  13. 65 rem - if no match jump to wedge
  14. 70 data 76,187,36
  15. 75 rem - if eight, lda #8 and jsr to store, print 8 then jump to wedge -
  16. 80 data 169,8,32,151,36,169,56
  17. 85 data 141,39,4,76,187,36
  18. 90 rem - if nine, lda #9 and jsr to store, print 9 then jump to wedge -
  19. 95 data 169,9,32,151,36,169
  20. 100 data 57,141,39,4,76,187,36
  21. 105 rem - store values of eight or nine -
  22. 110 data 141,235,18,141,44
  23. 115 data 19,141,154,20,141,241
  24. 120 data 22,141,79,23,141,223
  25. 125 data 24,141,227,26,141,91
  26. 130 data 27,141,161,27,96
  27. 135 rem - get last device and put on command line -
  28. 140 data 165,186,24,105,48,141,39,4
  29. 145 rem - wedge, insert commands replaced at 2665-2670 and return to 2670 -
  30. 150 data 160,0,140,113,36
  31. 155 data 76,110,10,0
  32.