1 POKE 56,50:CLR
2 IF PEEK(1023)<>123 THEN POKE1023,123:LOAD"3.!TEXT DRUCKEN",8,1
10 DIM UC(6):     PRINTCHR$(14)CHR$(8)
20 PRINT"[147][154]         [196]RUCKERANPASSUNG ([198][197][205])         "
25 PRINT"REV0.2-30.10.90[154]"
30 PRINT"[204]ASSEN [211]IE BITTE DIE [208]ROGRAMMDISKETTE  ";
40 PRINT"        IM [204]AUFWERK LIEGEN               "
50 INPUT"[199]ERAETENUMMER DES [196]RUCKERS  4[157][157][157]";GN:
55 IF GN<4 OR GN>255 THEN PRINT"[145]";:GOTO50
56 POKE23071,GN:PRINT"[203]LEINSCHRIFT EINSCHALTEN:"
57 INPUT"[211]EKUNDAERADRESSE";SA:POKE 23083,SA
58 PRINT"(-1 HEISST: NICHT ERFORDERLICH)[145][145][145][145]":PRINT
59 POKE 23102,24:INPUT"[195]HR$ FUER [203]LEINSCHRIFT   -1[157][157][157][157]";CH: IF CH < 0 THEN 65
60 POKE 23102,56:POKE 23107,CH
65 POKE 23134,24:REM CLC, EINZEL OFF
70 INPUT"[200]AT DER [196]RUCKER [213]MLAUTE (J/N) ";A$:IF A$= "J"THEN GOSUB200
190 GOTO320
199 REM ** UMLAUTE ABFRAGEN
200 PRINT
201 POKE 23134,56:REM SEC, EINZEL ON!
202 PRINT"[147]-> [214]OREINSTELLUNGEN FUER [197]PSON-[196]RUCKER:"
203 INPUT "[195]ODE FUER SCHARFES S225[157][157][157][157][157]";UC(6)
205 INPUT "[195]ODE FUER KLEINES AE132[157][157][157][157][157]";UC(0)
210 INPUT "[195]ODE FUER KLEINES OE148[157][157][157][157][157]";UC(1)
220 INPUT "[195]ODE FUER KLEINES UE129[157][157][157][157][157]";UC(2)
224 PRINT"UND JETZT DIE [199]ROSSBUCHSTABEN:"
230 INPUT "[195]ODE FUER GROSSES AE142[157][157][157][157][157]";UC(3)
240 INPUT "[195]ODE FUER GROSSES OE153[157][157][157][157][157]";UC(4)
250 INPUT "[195]ODE FUER GROSSES UE154[157][157][157][157][157]";UC(5)
260 FOR K=0 TO 6 : POKE 23264+K ,UC(K):NEXT:REM TABLE3=23264!!!
290 RETURN
320 PRINT"[196]RUCKERANPASSUNG DURCHGEFUEHRT."
330 PRINT:INPUT"[193]LLE [197]INGABEN RICHTIG J[146]A / N[146]EIN ";A$
348 IF A$<>"J"THEN RUN
350 PRINT"[147][194]ITTE LEGEN [211]IE DIE ANZUPASSENDE":INPUT "[196]ISKETTE JETZT EIN";A$
400 OPEN1,8,15,"I":PRINT#1,CHR$(77)+CHR$(45)+CHR$(87)CHR$(1)CHR$(1)CHR$(65);
405 PRINT#1,"S:3.!TEXT DRUCKEN":CLOSE1
430 GOSUB6100:IFA$="J"GOTO350
500 :
510 SYS(57812)"3.!TEXT DRUCKEN",8,1
520 POKE 193,255:POKE194,89:REM         *** $59FF
525 POKE174,0:POKE175,91:REM            *** $5B00
530 SYS62957:GOSUB6100:IFA$="J"THEN510
540 INPUT"[197]IN WEITERES [205]AGAZIN ANPASSEN (J/N)";A$:IFA$<>"N"THEN 350
1990 IFPEEK(32222)= 169 THEN SYS32222
2000 END
4000 E=0
4010 FORI=XTOY:M(P,I)=255:NEXT:A$=""
4020 I=X:INPUTA$:GOSUB5000:IFI=X+1ORE=1THEN4050
4030 E=1:PRINT"[203]EIN [197][211][195] ? [211]IND [211]IE SICHER ?"
4040 PRINT"[199]EBEN [211]IE DIE [211]EQUENZ BITTE NOCHMAL EIN!":GOTO4010
4050 IFLEN(A$)=0THENPRINT"[196]A FEHLT DOCH NOCH WAS!":E=0:GOTO4040
4060 GOSUB5200:IFF=1THENPRINT"[213]NERLAUBTE [197]INGABE!":E=0:GOTO4040
4070 IFI=YANDLEN(A$)>0THENPRINT"[199]LAUB' ICH NICHT! [211]EQUENZ ZU LANG!":E=0:GOTO4040
4080 IFLEN(A$)>0THEN4060
4090 RETURN
5000 GOSUB5100:L$=LEFT$(A$,3)
5010 IFL$="[197][211][195]"ORL$="ESC"ORL$="[197]SC"THENM(P,I)=27:I=I+1:A$=MID$(A$,4)
5100 IFLEN(A$)>0THENIFASC(A$)=32THENA$=MID$(A$,2):GOTO5100
5110 RETURN
5200 IFLEN(A$)=0THEN5230
5210 F=0:IFLEFT$(A$,1)="'"THEN5300
5220 IFASC(A$)>47ANDASC(A$)<58THEN5400
5230 F=1:RETURN
5300 A$=MID$(A$,2):A=ASC(A$+CHR$(0))
5310 IFA>64ANDA<91THENA=A+32:GOTO5330
5315 IFA>192ANDA<219THENA=A-128:GOTO5330
5330 M(P,I)=A:I=I+1
5340 IFMID$(A$,2,1)="'"THENA$=MID$(A$,3):GOTO5100
5350 A$="'"+MID$(A$,2):RETURN
5400 L=2
5410 A=ASC(MID$(A$,L)+CHR$(0)):IFA>47ANDA<58THENL=L+1:GOTO5410
5420 A=VAL(LEFT$(A$,L-1)):IFA<0ORA>255THENF=1:PRINT"[218]AHL ZU GROSS.":RETURN
5430 A$=MID$(A$,L):M(P,I)=A:I=I+1:GOTO5100
6100 OPEN1,8,15:INPUT#1,A$,B$,C$,D$
6105 PRINT" "B$" "
6110 CLOSE1:CLOSE2:IF A$="00"THEN RETURN
6210 INPUT"[206]OCHMAL VERSUCHEN (J/N)";A$:IFA$<>"J"ANDA$<>"N"THEN6210
6220 IFA$="J"THEN RETURN
6230 PRINT"? [211]PEICHERUNG ABGEBROCHEN":END
7000 IFQQ=1 GOTO7050
7005 QQ=1:PRINT"[147][199]EBEN [211]IE NUN DIE FOLGENDEN"
7010 PRINT"[211]TEUERSEQUENZEN[146] EIN. [196]ABEI SIND ERLAUBT:";
7020 PRINT"1. [196]AS [218]EICHEN  [197][211][195]"
7030 PRINT"2. [193][211][195][201][201]-[218]EICHEN IN [200]OCHKOMMAS, Z.[194].'[203]'"
7040 PRINT"3. [196]URCH [204]EERZEICHEN GETRENNTE [196]EZIMAL-"
7042 PRINT"   ZAHLEN."
7045 PRINT"   [206][201][195][200][212][146] ERLAUBT:  , UND "CHR$(34)"
7050 [142]