home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8410.d64
/
usertastatur
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
4KB
|
85 lines
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]
110 [143]"(null)USERPORT UND FUNKTIONSTASTEN (null)
120 REM"[221]BELEGUNG FUER DEN C 64 VON [221]
130 [143]"(null)MARTIN KLOSS DUESSELDORF (null)
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]
150 [143]"(null)NN,MM :LAUFVARIABLE (null)
160 REM"[221]Q1,Q2 :READ,AENDERUNGSVAR. [221]
170 [143]"(null)Q1$,Q2$:LOESCH,ANTWORTVAR. (null)
180 REM"[221]Q2$( ) :BEFEHLSFELD [221]
190 [143]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
200 REM"[221]ANSCHLUSS EINER TASTATUR MIT [221]
210 [143]"(null)4*5 MATRIX AM USERPORT (null)
220 REM"[221]4 ZEILEN AUF PB0-PB3 [221]
230 [143]"(null)5 SPALTEN AUF PB4-PB7 U. PA2 (null)
240 REM"[221]20 PROGRAMMIERBARE TASTEN [221]
250 [143]"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<
260 REM"[221]BELEGUNG DER FUNKTIONSTASTEN [221]
270 [143]"(null)MIT STRINGS BIS 9 BYTE LAENGE(null)
280 REM"[221]FREI PROGRAMMIERBAR [221]
290 [143]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
300 PRINT"[147]"SPC(10)"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
310 PRINTSPC(10)" USERPORTTASTATUR "
320 PRINTSPC(10)" "
330 PRINTSPC(10)" BY MARTIN KLOSS "
340 PRINTSPC(10)"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
350 B=0:FORNN=49152TO49527:READA:B=B+A:POKENN,A:NEXTNN:SYS49152
360 IFB<>43253THENPRINTSPC(10)"DATAERROR ":STOP
370 FORNN=0TO7:READQ2$(NN):NEXTNN:PRINT"[147]":Q1$="[145]* "
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]"
390 PRINTSPC(5)" FUNKTIONSTASTENBELEGUNG "
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]"
410 PRINTSPC(5)"JETZIGE BELEGUNG"
420 FORNN=0TO7:READQ1:PRINTSPC(5)"F"Q1" "Q2$(NN):NEXTNN
430 GOSUB670
440 IFQ3$<>"J"THENPOKE58,255:GOTO530
450 PRINT"[147]":FORNN=0TO7:READQ1
460 PRINTSPC(3)"FUNKTIONSTASTE "Q1" "Q2$(NN):PRINT"[145]"TAB(20);
470 INPUTQ2$(NN):IFLEN(Q2$(NN))>9THENPRINTTAB(20)Q1$:PRINT"[145]"TAB(20);:GOTO470
480 NEXT NN
490 PRINTSPC(3)"EINGABEN KORREKT (J)";:INPUTQ3$:IFQ3$<>"J"THEN RUN
500 Q2=49420:FORNN=0TO7:FORMM=1TOLEN(Q2$(NN))
510 POKEQ2+MM,ASC(MID$(Q2$(NN),MM,1)):NEXTMM
520 FORMM=LEN(Q2$(NN))+1TO9:POKEQ2+MM,0:NEXTMM:Q2=Q2+10:NEXTNN:POKE58,255
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]"
540 PRINTSPC(5)" TASTATURBLOCKBELEGUNG "
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]"
560 GOSUB670:IFQ3$<>"J"THEN680
570 PRINTSPC(5)"BITTE TASTE DIE GEAENDERT WERDEN SOLL DRUECKEN"
580 Q2=PEEK(49402):IFQ2=239THEN580
590 Q3=PEEK(49501+Q2):PRINTSPC(5)"TASTE BELEGT MIT CHR$("Q3") ";:
600 IFQ3<128ANDQ3>32THENPRINT" = "CHR$(Q3);
610 IFPEEK(49404)=Q3THENGETQ3$:GOTO610
620 PRINT:FORNN=0TO20:GETQ3$:NEXT
630 PRINTSPC(5)"WELCHEN ASC 2 WERT SOLL DIE":INPUT" TASTE ERHALTEN";Q3$
640 IFVAL(Q3$)>255THENPRINTSPC(5)"KEIN ASC 2 ZEICHEN ":GOTO630
650 POKE(49501+Q2),VAL(Q3$)
660 PRINTSPC(3)"WEITERE[145][157][157][157][157]";:GOTO560
670 PRINTSPC(5)"AENDERUNG ERWUENSCHT (J)";:INPUTQ3$:RETURN
680 PRINT"[147]"SPC(5)"SOLL DIE GEAENDERTE VERSION ALS MASCHIENENPROGRAMM"
690 PRINTSPC(5)"AUF DISK ABGESPEICHERT WERDEN";:INPUTQ3$:IFQ3$<>"J"THENEND
700 PRINTSPC(5)"DATEINAME ";:INPUTQ3$
710 OPEN8,8,1,"@:"+Q3$+",P,W"
720 PRINT#8,CHR$(0);:PRINT#8,CHR$(192);
730 FORNN=49152TO49527:PRINT#8,CHR$(PEEK(NN));:NEXTNN:CLOSE8:END
740 DATA120,169,15,141,3,221,173,2,221,9,4,141,2,221,169,219,141,0,3,169
750 DATA192,141,1,3,169,36,141,20,3,169,192,141,21,3,88,96,36,157,16,48,169
760 DATA133,141,248,192,165,215,141,247,192,173,247,192,205,248,192,240,12
770 DATA238,248,192,173,248,192,201,141,240,20,208,236,56,173,247,192,233
780 DATA133,10,170,189,254,192,168,189,253,192,32,30,171,169,254,141,250
790 DATA192,162,4,56,169,0,141,251,192,173,250,192,141,1,221,173,1,221,205
800 DATA1,221,208,248,141,249,192,24,160,4,14,249,192,144,35,136,208,248
810 DATA169,4,141,251,192,173,0,221,41,4,240,20,169,0,141,251,192,56,46,250
820 DATA192,202,208,198,169,0,141,252,192,76,49,234,142,249,192,140,250,192
830 DATA173,251,192,109,250,192,141,250,192,174,249,192,240,15,173,250,192
840 DATA105,5,141,250,192,206,249,192,208,238,240,236,174,250,192,189,93
850 DATA193,205,252,192,240,207,141,252,192,170,32,33,235,24,144,197,176
860 DATA195,120,169,15,141,3,221,173,2,221,9,4,141,2,221,169,36,141,20,3
870 DATA169,192,141,21,3,88,76,139,227,69,141,112,239,0,0,13,193,23,193,33
880 DATA193,43,193,53,193,63,193,73,193,83,193,82,85,78,0,0,0,0,0,0,0,76
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
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
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
920 DATA67,49,50,51,70,13,52,53,54,46,66,55,56,57,65,68,0,RUN,LIST,LOAD,DATA
930 DATAVERIFY,SAVE,CLOSE,OPEN,1,3,5,7,2,4,6,8,1,3,5,7,2,4,6,8