home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 1 / 64er_Magazin_Sonderheft_01_86-01_19xx_Markt__Technik_de.d64 / key128 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  90 lines
  1. 10 rem key128 v19-10-85
  2. 20 rem von andreas zeller, hanau
  3. 30 :
  4. 40 rem aufgabe: 128er-tasten im
  5. 50 rem          64er-modus bedienen.
  6. 60 :
  7. 70 rem durch aendern der zeile 170
  8. 80 rem kann das programm in beliebige
  9. 90 rem bereiche gelegt werden.
  10. 100 :
  11. 110 rem wenn das programm zusammen mit
  12. 120 rem "fast64" laufen soll, muss
  13. 130 rem 395 poke code+74,44
  14. 140 rem eingefuegt werden.
  15. 150 :
  16. 160 :
  17. 170 code=49152:rem startadresse
  18. 180 :
  19. 190 poke53265,11:poke53296,1
  20. 200 :
  21. 210 dim p(12):forj=0to12:readp:p(j)=code+p:next
  22. 220 :
  23. 230 data 0,74,110,171,195,213,232,233,234,235,236,224,225
  24. 240 :
  25. 250 fori=0to284:readx$
  26. 260 :
  27. 270 rem umwandlung adressen
  28. 280 a$=right$(x$,1):b$=left$(x$,1)
  29. 290 ifa$="+"thenp=p(asc(b$)-65):x=p/256:goto360
  30. 300 ifa$="-"thenp=p(asc(b$)-65):x=(p/256-int(p/256))*256:goto360
  31. 310 :
  32. 320 rem umwandlung hex => dec
  33. 330 :
  34. 340 x=asc(a$)+(a$>"@")*55+(a$<":")*48
  35. 350 x=x+(asc(b$)+(b$>"@")*55+(b$<":")*48)*16
  36. 360 pokecode+i,x:next
  37. 370 :
  38. 380 poke53296,0:poke53265,27
  39. 390 :
  40. 400 print">das programm benutzt den bereich"
  41. 410 print" von"code"-"code+284"."
  42. 420 print
  43. 430 print">tabelle normal ab:"code+237";
  44. 440 [153]"      mit shift ab:"code[170]261".
  45. 450 print
  46. 460 print">tasten an mit: sys"code";"
  47. 470 print"       aus mit: sys"code+80"."
  48. 480 :
  49. 490 :
  50. 500 end
  51. 510 :
  52. 520 :
  53. 530 :
  54. 1000 data  08,48,78,ad,14,03,c9,c-
  55. 1010 data  ad,15,03,e9,c+,f0,0c,ad
  56. 1020 data  14,03,8d,g-,g+,ad,15,03
  57. 1030 data  8d,h-,h+,ad,02,03,c9,b-
  58. 1040 data  ad,03,03,e9,b+,f0,0c,ad
  59. 1050 data  02,03,8d,i-,i+,ad,03,03
  60. 1060 data  8d,j-,j+,a9,c-,8d,14,03
  61. 1070 data  a9,c+,8d,15,03,a9,b-,8d
  62. 1080 data  02,03,a9,b+,8d,03,03,68
  63. 1090 data  28,60,20,a-,a+,6c,i-,i+
  64. 1100 data  08,48,78,ad,g-,g+,8d,14
  65. 1110 data  03,ad,h-,h+,8d,15,03,ad
  66. 1120 data  i-,i+,8d,02,03,ad,j-,j+
  67. 1130 data  8d,03,03,68,28,60,a9,40
  68. 1140 data  85,cb,29,00,8d,2f,d0,09
  69. 1150 data  ff,8d,00,dc,cd,01,dc,f0
  70. 1160 data  42,a0,59,a9,fb,8d,2f,d0
  71. 1170 data  48,ad,01,dc,cd,01,dc,d0
  72. 1180 data  f8,a2,08,0a,b0,02,84,cb
  73. 1190 data  88,c0,41,90,07,ca,d0,f3
  74. 1200 data  68,4a,10,e1,68,ad,8d,02
  75. 1210 data  0a,c9,08,90,02,a9,06,aa
  76. 1220 data  bd,l-,l+,85,f5,bd,m-,m+
  77. 1230 data  85,f6,20,f-,f+,20,e0,ea
  78. 1240 data  20,f-,f+,a9,ff,8d,2f,d0
  79. 1250 data  29,7f,8d,00,dc,a4,cb,8c
  80. 1260 data  k-,k+,6c,g-,g+,a5,c5,ae
  81. 1270 data  k-,k+,8d,k-,k+,86,c5,60
  82. 1280 data  d-,d+,e-,e+,e-,e+,d-,d+
  83. 1290 data  31,ea,83,a4,40
  84. 1300 data  08,38,35,09,32,34,37,31
  85. 1310 data  1b,2b,2d,0a,0d,36,39,33
  86. 1320 data  0e,30,2e,91,11,9d,1d,03
  87. 1330 data  09,38,35,18,32,34,37,31
  88. 1340 data  1b,2b,2d,0a,0d,36,39,33
  89. 1350 data  8e,30,2e,91,11,9d,1d,03
  90.