home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 93 / 64er_Magazin_Sonderheft_93_19xx_Markt__Technik_de_Side_B.d64 / tast.-generator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  84 lines
  1. 1000 rem    tastatur-generator
  2. 1010 rem
  3. 1020 rem 1985 von markus stecher
  4. 1030 rem
  5. 1035 ifa=0thena=1:load"key-progger",8,1
  6. 1040 poke53280,0
  7. 1050 poke53281,0
  8. 1060 sys49152
  9. 1070 sys49152+3
  10. 1080 dimb$(255)
  11. 1090 gosub1700:gosub1740
  12. 1100 print"[147]           tastatur-generator           ";chr$(8)
  13. 1110 poke1,53
  14. 1120 print"welche taste ? ";
  15. 1130 z$=""
  16. 1140 geta$:ifa$=""then1140
  17. 1150 ifa$=chr$(13)then1180
  18. 1160 z$=z$+a$
  19. 1170 goto1140
  20. 1180 z=val(z$)
  21. 1190 printchr$(34);chr$(20);chr$(z)
  22. 1200 b$=b$(z):cr=0
  23. 1210 l=len(b$(z))
  24. 1220 ifright$(b$,1)=chr$(13)thenb$=left$(b$,l-1):cr=1
  25. 1230 print"alte belegung: ";chr$(34);b$;chr$(34);
  26. 1240 ifcrthenprint"+chr$(13)";
  27. 1250 print:print"neue belegung: [221]           [221][157][157][157][157][157][157][157][157][157][157][157][157]";chr$(34);chr$(20);
  28. 1260 poke1,55
  29. 1270 f$=""
  30. 1280 geta$:ifa$=""then1280
  31. 1290 ifa$=chr$(20)thenprint:print"[145][145][145][145]":goto1250
  32. 1300 ifa$=chr$(13)then1370
  33. 1310 ifa$=chr$(141)then1360
  34. 1320 iflen(f$)=10then1280
  35. 1330 printa$;
  36. 1340 f$=f$+a$
  37. 1350 goto1280
  38. 1360 f$=f$+chr$(13)
  39. 1370 iff$=""thenf$=b$(z)
  40. 1380 al$=b$(z)
  41. 1390 b$(z)=f$
  42. 1400 print
  43. 1410 print"bitte waehlen:"
  44. 1420 print"naechste eingabe.............1"
  45. 1430 print"letzte eingabe loeschen......2"
  46. 1440 print"tastaturbelegung speichern...3"
  47. 1450 print"alte belegung herstellen.....4"
  48. 1460 print"ende.........................5"
  49. 1470 geta$:ifa$<"1"ora$>"5"then1470
  50. 1480 onval(a$)goto1490,1500,1520,1610,1660
  51. 1490 goto1100
  52. 1500 b$(z)=al$
  53. 1510 goto1100
  54. 1520 input"[147]name ";n$
  55. 1530 print"<d>isk oder <t>ape ? ";
  56. 1540 getg$:ifg$<>"d"andg$<>"t"then1540
  57. 1550 ga=1
  58. 1560 ifg$="d"thenga=8
  59. 1570 print"bitte warten"
  60. 1580 gosub1780
  61. 1590 sys49152+12,n$,ga
  62. 1600 goto1100
  63. 1610 print"[147]soll wirklich die alte belegung"
  64. 1620 print"hergestellt werden (j/n) ?"
  65. 1630 geta$:ifa$=<>"j"anda$<>"n"then1630
  66. 1640 ifa$="j"thensys49152+9
  67. 1650 goto1100
  68. 1660 print"[147] auf wiedersehen !"
  69. 1670 gosub1780
  70. 1680 poke1,53
  71. 1690 end
  72. 1700 fori=0to255
  73. 1710 #i,str$(i)+chr$(13)
  74. 1720 nexti
  75. 1730 return
  76. 1740 fori=0to255
  77. 1750 b$(i)=chr$(i)
  78. 1760 nexti
  79. 1770 return
  80. 1780 fori=0to255
  81. 1790 #i,b$(i)
  82. 1800 nexti
  83. 1810 return
  84.