home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 May / 1990-05.d64 / progpage1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  987b  |  34 lines
  1. 5 print"[147]":poke53280,6:poke53281,6
  2. 10 print"alpha-lock shifts only the alphabetic"
  3. 15 print"keys on the keyboard. press shift-ctrl"
  4. 20 print"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 alpha lock decode table
  25. 300 data 13,13,29,136,133,134,135,17
  26. 310 data 51,215,193,52,218,211,197,1
  27. 320 data 53,210,196,54,195,198,212,216
  28. 330 data 55,217,199,56,194,200,213,214
  29. 340 data 57,201,202,48,205,203,207,206
  30. 350 data 43,208,204,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,209,3
  33. 380 data 255
  34.