home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 84xx / 8410.d64 / usertastatur (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.