1000 REM    TASTATUR-GENERATOR
1010 REM
1020 REM 1985 VON MARKUS STECHER
1030 REM
1035 IFA=0THENA=1:LOAD"KEY-PROGGER",8,1
1040 POKE53280,0
1050 POKE53281,0
1060 SYS49152
1070 SYS49152+3
1080 DIMB$(255)
1090 GOSUB1700:GOSUB1740
1100 PRINT"[147]           TASTATUR-GENERATOR           ";CHR$(8)
1110 POKE1,53
1120 PRINT"WELCHE TASTE ? ";
1130 Z$=""
1140 GETA$:IFA$=""THEN1140
1150 IFA$=CHR$(13)THEN1180
1160 Z$=Z$+A$
1170 GOTO1140
1180 Z=VAL(Z$)
1190 PRINTCHR$(34);CHR$(20);CHR$(Z)
1200 B$=B$(Z):CR=0
1210 L=LEN(B$(Z))
1220 IFRIGHT$(B$,1)=CHR$(13)THENB$=LEFT$(B$,L-1):CR=1
1230 PRINT"ALTE BELEGUNG: ";CHR$(34);B$;CHR$(34);
1240 IFCRTHENPRINT"+CHR$(13)";
1250 PRINT:PRINT"NEUE BELEGUNG: [221]           [221][157][157][157][157][157][157][157][157][157][157][157][157]";CHR$(34);CHR$(20);
1260 POKE1,55
1270 F$=""
1280 GETA$:IFA$=""THEN1280
1290 IFA$=CHR$(20)THENPRINT:PRINT"[145][145][145][145]":GOTO1250
1300 IFA$=CHR$(13)THEN1370
1310 IFA$=CHR$(141)THEN1360
1320 IFLEN(F$)=10THEN1280
1330 PRINTA$;
1340 F$=F$+A$
1350 GOTO1280
1360 F$=F$+CHR$(13)
1370 IFF$=""THENF$=B$(Z)
1380 AL$=B$(Z)
1390 B$(Z)=F$
1400 PRINT
1410 PRINT"BITTE WAEHLEN:"
1420 PRINT"NAECHSTE EINGABE.............1"
1430 PRINT"LETZTE EINGABE LOESCHEN......2"
1440 PRINT"TASTATURBELEGUNG SPEICHERN...3"
1450 PRINT"ALTE BELEGUNG HERSTELLEN.....4"
1460 PRINT"ENDE.........................5"
1470 GETA$:IFA$<"1"ORA$>"5"THEN1470
1480 ONVAL(A$)GOTO1490,1500,1520,1610,1660
1490 GOTO1100
1500 B$(Z)=AL$
1510 GOTO1100
1520 INPUT"[147]NAME ";N$
1530 PRINT"<D>ISK ODER <T>APE ? ";
1540 GETG$:IFG$<>"D"ANDG$<>"T"THEN1540
1550 GA=1
1560 IFG$="D"THENGA=8
1570 PRINT"BITTE WARTEN"
1580 GOSUB1780
1590 SYS49152+12,N$,GA
1600 GOTO1100
1610 PRINT"[147]SOLL WIRKLICH DIE ALTE BELEGUNG"
1620 PRINT"HERGESTELLT WERDEN (J/N) ?"
1630 GETA$:IFA$=<>"J"ANDA$<>"N"THEN1630
1640 IFA$="J"THENSYS49152+9
1650 GOTO1100
1660 PRINT"[147] AUF WIEDERSEHEN !"
1670 GOSUB1780
1680 POKE1,53
1690 END
1700 FORI=0TO255
1710 #I,STR$(I)+CHR$(13)
1720 NEXTI
1730 RETURN
1740 FORI=0TO255
1750 B$(I)=CHR$(I)
1760 NEXTI
1770 RETURN
1780 FORI=0TO255
1790 #I,B$(I)
1800 NEXTI
1810 RETURN