home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 July / 64er_Magazin_87-07_1987_Markt__Technik_de.d64 / tasten-change (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  69 lines
  1. 10 poke53265,11:poke56576,peek(56576)and252:poke53272,56:poke648,204:poke788,52
  2. 20 ifa=2then120
  3. 30 ifa=0thena=1:load"m-code",8,1
  4. 40 sys49152+3
  5. 50 dim be(63):poke53281,12:print"[147]"::poke53281,0:az=63
  6. 60 for i=0toaz:readbe(i):be(i)=55296+be(i):next
  7. 70 dim st$(6):st$(0)="normal":st$(1)="shift ":st$(2)="cbm   "
  8. 80 st$(3)=st$(1):st$(4)="ctrl  ":st$(6)=st$(2)
  9. 90 dim sh(6):sh(0)=49152+6:sh(1)=49152+13:sh(2)=49152+20:sh(3)=49152+13
  10. 100 sh(4)=49152+27:sh(5)=49152+6:sh(6)=49152+20
  11. 110 ifa=1thena=2:load"t5",8,1
  12. 120 ze=214:sp=211:crsrset=58732
  13. 130 print"":gosub410
  14. 140 gosub540:pokeze,20:pokesp,0:sys crsrset:poke198,0
  15. 150 if ta=255 then 230
  16. 160 pokeze,20:pokesp,0:syscrrsrset:poke198,0
  17. 170 print"alter [215]ert :"w
  18. 180 input"neuer [215]ert ";w
  19. 190 poke51962+ta+sh*65,w
  20. 200 pokebe(ta),1:gosub410
  21. 210 print" ok !!!           "
  22. 220 syssh(sh):goto140
  23. 230 pokeze,15:pokesp,0:syscrsrset:sh=0
  24. 240 print"f1[146] [212]asten [ndern"
  25. 250 print"f3[146] [212]asten speichern"
  26. 260 print"f5[146] [212]asten laden"
  27. 270 print"f7[146] *** [197]nde ***"
  28. 280 poke198,0:wait198,1:getx$
  29. 290 ifx$="[133]"then130
  30. 300 ifx$="[135]"thena=1:goto110
  31. 310 ifx$="[136]"then370
  32. 320 ifx$<>"[134]"then260
  33. 330 print"[212]asten werden gespeichert !"
  34. 340 open15,8,15,"s0:t5(alt)":print#15,"r0:t5(alt)=0:t5":close15
  35. 350 sys49152
  36. 360 gosub410:print" ok !!":goto230
  37. 370 poke56576,peek(56576)or3:poke53272,21:poke648,4
  38. 380 print"[147]load"chr$(34)"0:lader"chr$(34)",8"
  39. 390 print"run":poke788,49
  40. 400 poke631,19:poke632,13:poke633,13:poke198,3:end
  41. 410 poke53265,11:print"[147]"st$(sh)""
  42. 420 print"[176][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][178][192][174] [176][192][174]"
  43. 430 print"[168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168]"
  44. 440 print"[171][192][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][192][179] [171][192][179]"
  45. 450 print"[168]  [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168]  [168] [168] [168]"
  46. 460 print"[171][192][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][192][192][179] [171][192][179]"
  47. 470 print"[168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168]   [168] [168] [168]"
  48. 480 print"[171][192][166][192][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][178][177][192][166][192][178][192][179] [171][192][179]"
  49. 490 print"[168] [168]  [168] [168] [168] [168] [168] [168] [168] [168] [168] [168] [168]  [168] [168] [168] [168] [168]"
  50. 500 print"[173][192][177][192][192][177][192][166][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][177][192][166][192][192][177][192][177][192][189] [173][192][189]"
  51. 510 print"       [168]                 [168]"
  52. 520 print"       [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  53. 530 syssh(sh):poke53265,27:return
  54. 540 sh=peek(653):ifsh=7thenta=255:return
  55. 550 ifsa<>sh then sys sh(sh):print""st$(sh)
  56. 560 sa=sh:ta=peek(203):ifta=64then 540
  57. 570 ifsh<>0 then sh=log(sh)/log(2)+1
  58. 580 pokebe(ta),7
  59. 590 w=peek(51962+ta+sh*65)
  60. 600 return
  61. 610 data 191,349,431,435,195,275,355,429
  62. 620 data 167,246,325,169,406,327,248,403
  63. 630 data 171,250,329,173,410,331,252,408
  64. 640 data 175,254,333,177,414,335,256,412
  65. 650 data 179,258,337,181,418,339,260,416
  66. 660 data 183,262,341,185,422,343,264,420
  67. 670 data 187,266,345,189,426,347,268,424
  68. 680 data 163,161,241,165,497,401,244,321
  69.