home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 May / 1990-05.d64 / progpage3 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  973b  |  34 lines
  1. 5 print"[147][154]":poke53280,14:poke53281,6
  2. 10 print"this program remaps a portion of the"
  3. 15 print"keyboard to a numeric keypad. press"
  4. 20 print"shift-ctrl to activate it."
  5. 100 sa=828
  6. 110 for i=sa to sa+118:read d:poke i,d:next
  7. 120 a1=sa+13:h1=int(a1/256):l1=a1-h1*256
  8. 130 a2=sa+54:h2=int(a2/256):l2=a2-h2*256
  9. 140 a3=sa+55:h3=int(a3/256):l3=a3-h3*256
  10. 150 poke sa+2,l1:poke sa+7,h1
  11. 160 poke sa+28,l2:poke sa+29,h2
  12. 170 poke sa+33,l2:poke sa+34,h2
  13. 180 poke sa+39,l2:poke sa+40,h2
  14. 190 poke sa+44,l3:poke sa+48,h3
  15. 200 sys sa
  16. 210 rem machine code
  17. 220 data 120,169,0,141,143,2,169,0
  18. 230 data 141,144,2,88,96,173,141,2
  19. 240 data 240,20,201,5,208,13,205,142
  20. 250 data 2,240,8,173,0,0,73,255
  21. 260 data 141,0,0,76,72,235,173,0
  22. 270 data 0,240,248,169,0,133,245,169
  23. 280 data 0,133,246,76,224,234,0
  24. 290 rem numeric keypad decode table
  25. 300 data 20,13,29,136,133,134,135,17
  26. 310 data 51,87,65,52,90,83,69,1
  27. 320 data 53,82,68,54,67,70,84,88
  28. 330 data 55,89,71,56,66,72,52,86
  29. 340 data 57,53,49,48,48,50,54,78
  30. 350 data 43,80,51,45,46,58,64,44
  31. 360 data 92,42,59,19,1,61,94,47
  32. 370 data 49,95,4,50,32,2,81,3
  33. 380 data 255
  34.