home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / usertastatur (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  85 lines
  1. 100 rem"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  2. 110 [143]"(NULL)userport und funktionstasten (NULL)
  3. 120 rem"[221]belegung fuer den c 64   von [221]
  4. 130 [143]"(NULL)martin kloss   duesseldorf   (NULL)
  5. 140 rem"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]
  6. 150 [143]"(NULL)nn,mm  :laufvariable         (NULL)
  7. 160 rem"[221]q1,q2  :read,aenderungsvar.  [221]
  8. 170 [143]"(NULL)q1$,q2$:loesch,antwortvar.   (NULL)
  9. 180 rem"[221]q2$( ) :befehlsfeld          [221]
  10. 190 [143]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<
  11. 200 rem"[221]anschluss einer tastatur mit [221]
  12. 210 [143]"(NULL)4*5 matrix am userport       (NULL)
  13. 220 rem"[221]4 zeilen auf pb0-pb3         [221]
  14. 230 [143]"(NULL)5 spalten auf pb4-pb7 u. pa2 (NULL)
  15. 240 rem"[221]20 programmierbare tasten    [221]
  16. 250 [143]"-tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan<
  17. 260 rem"[221]belegung der funktionstasten [221]
  18. 270 [143]"(NULL)mit strings bis 9 byte laenge(NULL)
  19. 280 rem"[221]frei programmierbar          [221]
  20. 290 [143]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  21. 300 print"[147]"spc(10)"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  22. 310 printspc(10)" userporttastatur "
  23. 320 printspc(10)"                  "
  24. 330 printspc(10)" by martin kloss  "
  25. 340 printspc(10)"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  26. 350 b=0:fornn=49152to49527:reada:b=b+a:pokenn,a:nextnn:sys49152
  27. 360 ifb<>43253thenprintspc(10)"dataerror ":stop
  28. 370 fornn=0to7:readq2$(nn):nextnn:print"[147]":q1$="[145]*                 "
  29. 380 printspc(5)"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  30. 390 printspc(5)" funktionstastenbelegung "
  31. 400 printspc(5)"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  32. 410 printspc(5)"jetzige belegung"
  33. 420 fornn=0to7:readq1:printspc(5)"f"q1"   "q2$(nn):nextnn
  34. 430 gosub670
  35. 440 ifq3$<>"j"thenpoke58,255:goto530
  36. 450 print"[147]":fornn=0to7:readq1
  37. 460 printspc(3)"funktionstaste "q1" "q2$(nn):print"[145]"tab(20);
  38. 470 inputq2$(nn):iflen(q2$(nn))>9thenprinttab(20)q1$:print"[145]"tab(20);:goto470
  39. 480 next nn
  40. 490 printspc(3)"eingaben korrekt (j)";:inputq3$:ifq3$<>"j"then run
  41. 500 q2=49420:fornn=0to7:formm=1tolen(q2$(nn))
  42. 510 pokeq2+mm,asc(mid$(q2$(nn),mm,1)):nextmm
  43. 520 formm=len(q2$(nn))+1to9:pokeq2+mm,0:nextmm:q2=q2+10:nextnn:poke58,255
  44. 530 print"[147]"spc(5)"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  45. 540 printspc(5)"  tastaturblockbelegung  "
  46. 550 printspc(5)"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  47. 560 gosub670:ifq3$<>"j"then680
  48. 570 printspc(5)"bitte taste die geaendert               werden soll druecken"
  49. 580 q2=peek(49402):ifq2=239then580
  50. 590 q3=peek(49501+q2):printspc(5)"taste belegt mit chr$("q3") ";:
  51. 600 ifq3<128andq3>32thenprint" = "chr$(q3);
  52. 610 ifpeek(49404)=q3thengetq3$:goto610
  53. 620 print:fornn=0to20:getq3$:next
  54. 630 printspc(5)"welchen asc 2 wert soll die":input"     taste erhalten";q3$
  55. 640 ifval(q3$)>255thenprintspc(5)"kein asc 2 zeichen ":goto630
  56. 650 poke(49501+q2),val(q3$)
  57. 660 printspc(3)"weitere[145][157][157][157][157]";:goto560
  58. 670 printspc(5)"aenderung erwuenscht (j)";:inputq3$:return
  59. 680 print"[147]"spc(5)"soll die geaenderte version als         maschienenprogramm"
  60. 690 printspc(5)"auf disk abgespeichert werden";:inputq3$:ifq3$<>"j"thenend
  61. 700 printspc(5)"dateiname ";:inputq3$
  62. 710 open8,8,1,"@:"+q3$+",p,w"
  63. 720 print#8,chr$(0);:print#8,chr$(192);
  64. 730 fornn=49152to49527:print#8,chr$(peek(nn));:nextnn:close8:end
  65. 740 data120,169,15,141,3,221,173,2,221,9,4,141,2,221,169,219,141,0,3,169
  66. 750 data192,141,1,3,169,36,141,20,3,169,192,141,21,3,88,96,36,157,16,48,169
  67. 760 data133,141,248,192,165,215,141,247,192,173,247,192,205,248,192,240,12
  68. 770 data238,248,192,173,248,192,201,141,240,20,208,236,56,173,247,192,233
  69. 780 data133,10,170,189,254,192,168,189,253,192,32,30,171,169,254,141,250
  70. 790 data192,162,4,56,169,0,141,251,192,173,250,192,141,1,221,173,1,221,205
  71. 800 data1,221,208,248,141,249,192,24,160,4,14,249,192,144,35,136,208,248
  72. 810 data169,4,141,251,192,173,0,221,41,4,240,20,169,0,141,251,192,56,46,250
  73. 820 data192,202,208,198,169,0,141,252,192,76,49,234,142,249,192,140,250,192
  74. 830 data173,251,192,109,250,192,141,250,192,174,249,192,240,15,173,250,192
  75. 840 data105,5,141,250,192,206,249,192,208,238,240,236,174,250,192,189,93
  76. 850 data193,205,252,192,240,207,141,252,192,170,32,33,235,24,144,197,176
  77. 860 data195,120,169,15,141,3,221,173,2,221,9,4,141,2,221,169,36,141,20,3
  78. 870 data169,192,141,21,3,88,76,139,227,69,141,112,239,0,0,13,193,23,193,33
  79. 880 data193,43,193,53,193,63,193,73,193,83,193,82,85,78,0,0,0,0,0,0,0,76
  80. 890 data73,83,84,0,0,0,0,0,0,76,79,65,68,0,0,0,0,0,0,68,65,84,65,0,0,0,0
  81. 900 data0,0,86,69,82,73,70,89,0,0,0,0,83,65,86,69,0,0,0,0,0,0,67,76,79,83
  82. 910 data69,0,0,0,0,0,79,80,69,78,0,0,0,0,0,0,85,86,87,88,89,90,20,44,48,69
  83. 920 data67,49,50,51,70,13,52,53,54,46,66,55,56,57,65,68,0,run,list,load,data
  84. 930 dataverify,save,close,open,1,3,5,7,2,4,6,8,1,3,5,7,2,4,6,8
  85.