home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_10_1986_Transactor_Publishing.d64 / superkey.bas (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  42 lines
  1. 10 rem* superkey *
  2. 20 rem* software driver for ext. keypad
  3. 30 :
  4. 40 fori=49152to49266:readda:ck=ck+da:pokei,da:nexti:fori=49267to49281:readda
  5. 50 pokei,da:nexti:ifck<>14190thenprint"error in data statements":end
  6. 60 print"superkey now in memory $c000 to $c081":print"sys 49152 to activate"
  7. 70 print"sys 49155 to deactivate":end
  8. 80 :
  9. 1000 data  76,  18, 192, 120, 173, 112, 192, 141
  10. 1010 data  20,   3, 173, 113, 192, 141,  21,   3
  11. 1020 data  88,  96, 120, 173,  20,   3, 141, 112
  12. 1030 data 192, 173,  21,   3, 141, 113, 192, 169
  13. 1040 data  47, 141,  20,   3, 169, 192, 141,  21
  14. 1050 data   3, 169,  16, 133, 254,  88,  96, 173
  15. 1060 data 137,   2, 197, 198, 240,  57, 169,  15
  16. 1070 data 141,   2, 220, 160,   0, 140,   0, 220
  17. 1080 data 173,   0, 220,  41,  16, 208,  28, 196
  18. 1090 data 254, 208,   8, 198, 253, 208,  27, 169
  19. 1100 data   4, 208,   2, 169,  20, 133, 253, 185
  20. 1110 data 114, 192, 166, 198, 157, 119,   2, 230
  21. 1120 data 198, 208,   5, 200, 192,  16, 208, 213
  22. 1130 data 132, 254, 169, 255, 141,   2, 220,  76
  23. 1140 data  49, 234
  24. 1150 :
  25. 1160 rem* key definitions follow *
  26. 1200 data 48:rem key #0
  27. 1210 data 49:rem key #1
  28. 1220 data 50:rem key #2
  29. 1230 data 51:rem key #3
  30. 1240 data 52:rem key #4
  31. 1250 data 53:rem key #5
  32. 1260 data 54:rem key #6
  33. 1270 data 55:rem key #7
  34. 1280 data 56:rem key #8
  35. 1290 data 57:rem key #9
  36. 1300 data 65:rem key #10
  37. 1310 data 66:rem key #11
  38. 1320 data 67:rem key #12
  39. 1330 data 68:rem key #13
  40. 1340 data 69:rem key #14
  41. 1350 data 70:rem key #15
  42.