0 SYS42926
2 POKE56,50:CLR:GOSUB10000:RV$="   " :GOSUB2000:DIMM(3,7)
3 M(1,3)=2:M(2,5)=2:M(2,6)=2:M(2,7)=2 :M(3,0)=2:M(3,1)=2
4 M(3,2)=2:M(3,3)=2:M(3,4)=2:M(3,5)=2:M(3,6)=-1:REM ** SPERREN ZEILE 0-7 = 2
9 GOSUB7000:REM *** CHECK FEM FOR PARAS
10 S=1
90 GOTO 6060:REM ** SEITE S ANZEIGEN
100 IF S=0 THEN S=1
101 RETURN
1999 REM **** SWITCH ON FEM FONT
2000 POKE30755,96:SYS 30720:POKE30755,169:PRINT"[147]"
2030 RETURN
3000 SYS(57812)FI$,8,1:POKE780,0:SYS65493:RETURN
3100 OPEN2,8,15:GOSUB3120:PRINT#2,"S:"+CHR$(AC):IF(AC=65)ANDM(1,1)THENCLOSE2:RETURN
3110 PRINT#2,"C:"+CHR$(AC)+"="+CHR$(AC)+CHR$(AD):CLOSE2:RETURN
3120 PRINT#2,"I":PRINT#2,CHR$(77)+CHR$(45)+CHR$(87)CHR$(1)CHR$(1)CHR$(65);:RETURN
3140 OPEN2,8,15
3150 PRINT#2,"R:"+CHR$(AC)+"="+CHR$(AC)+CHR$(AD):CLOSE2:RETURN
3160 OPEN2,8,15
3170 PRINT#2,"R:"+CHR$(AC)+CHR$(AD)+"="+CHR$(AC):CLOSE2:RETURN
3200 POKE53280,2:GOSUB9000:FL=1
3210 GETA$:IFA$=""GOTO 3210
3220 IF ASC(A$)<> 13 THEN FL=0
3230 POKE53280,0:RETURN
5000 PRINT"[142][155]        [198][197][205]        -   [197]INSTELLUNGEN  [146]   ";
5010 PRINT"     [146][151]                           ";RV$"[155]  [165][146]  ";
5020 PRINT"     [146]  [218][197][201][195][200][197][206][211][193][212][218] :                 [165][146]  ";
5030 PRINT"     [146]                                [165][146]  ";
5040 PRINT"     [146][152]  [1]    [206]ICHT VERFUEGBAR.     [155] [165][146]  ";
5050 PRINT"     [146][152]                               [155] [165][146]  ";
5060 PRINT"     [146][152]  [2]    [206]ICHT VERFUEGBAR.     [155] [165][146]  ";
5070 PRINT"     [146][152]                               [155] [165][146]  ";
5080 PRINT"     [146][152]  [3]    [194]OLD     ( [206]R. 3 )    [155] [165][146]  ";
5090 PRINT"     [146]                                [165][146]  ";
5095 PRINT"     [146][155]  [214]ERSCHIEDENES:                [165][146]  ";
5096 PRINT"     [146][155]                                [165][146]  ";
5100 PRINT"     [146][152]  [5]    [206]ICHT VERFUEGBAR.     [155] [165][146]  ";
5110 PRINT"     [146]                                [165][146]  ";
5120 PRINT"     [146][152]  [6]    [205][193][213][211] ALS [208]FEIL =  [186]   [155] [165][146]  ";
5130 PRINT"     [146]                                [165][146]  ";
5140 PRINT"     [146][152]  [7]    [205][193][213][211][193][194][211][195][200][193][204][212][213][206][199] AKTIV [155] [165][146]  ";
5150 PRINT"     [146]                                [165][146]  ";
5160 PRINT"     [146][152]  [8]    [198][197][205] - [211][195][200][206][197][204][204][193][196][197][210] EIN [155] [165][146]  ";
5190 PRINT"     [146][151][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][155] [165][146]  ";
5200 PRINT"     [146]            [211]EITE 1        [221]>>[221][155] [165][146]  ";
5210 PRINT"     [146][151][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][155] [165][146]  ";
5220 PRINT"    [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][165][146]   ";
5230 PRINT"                           KL-DESIGN [146]  ";
5250 RETURN
5251 PRINT""
5253 PRINT"[151][198][193][210][194][197][206]:                   "
5257 PRINT"[151][ ]    [200]INTERGRUNDF.  ANDERN "
5262 PRINT"[ ]    [210]AHMENFARBE    ANDERN "
5266 PRINT"[ ]    [218]EICHENFARBE   ANDERN "
5267 PRINT"                             "
5268 PRINT"[155]                            "
5269 PRINT"[155][198]^[146][210] [208][210][207][199][210][193][205][205][211][212][193][210][212]:          "
5270 PRINT"[152][7]    [197]INSTELLUNGEN SICHERN"
5282 PRINT"[152][8]    [193][194][194][210][213][195][200]  OHNE [211]ICHERN"
5290 PRINT"[155][221]<<[221]   [211]EITE 3            [152]":RETURN
5299 RETURN
5300 PRINT"[155][196][210][213][195][203][197][210]:[151] (NUR [212]EXTMODUS)[152]"
5301 PRINT"[1]    [195]ENTRONICS - [196]RUCKER?[152]"
5302 PRINT"[2]    [199]ER*[146]TENUMMER     :   "
5303 PRINT"[3]    [211]EKUND*[146]RADRESSE  :   "
5304 PRINT"[4]    [195]HR$-[195]ODE F.KLEIN:   "
5305 PRINT"[5]    [213]MLAUTE VORHANDEN   ?"
5306 PRINT"[151]----   [213]MLAUT - [195]ODES : ----[152] "
5307 PRINT"*[146]:     @:     ^[146]:     (KLEIN) "
5308 PRINT"\:     @[146]:     ^[146]:     \[146]:     "
5309 PRINT"[155][221]<<[221]   [211]EITE 2        [221]>>[221][152]":RETURN
6000 POKE781,UY:POKE782,UX:SYS58636:RETURN
6009 UZ=Z:UV=V:REM *** PARAMETER Z,V = ZEILE 0-
6010 POKE27660+80*(UZ+2),V:RETURN
6016 REM PARAM:Z1= 1 = INPUT!  ROUT.LIEFERT (AK)Z(EPTZEIL
6017 GOTO6024:REM *** __ GET EINSPRUNG
6018 UX=33:UY=4+Z*2:GOSUB6000:GOTO6020
6019 REM ** ^ INPUT BEI Z1=1  !
6020 IF Z1 THEN POKE19,1:INPUTA$:POKE19,0:GOTO6040
6024 GETA$:IFA$=""GOTO 6024
6025 IF A$="+"AND S<3 THEN S=(S+1)AND3:RETURN
6026 IF A$="-"AND S>1 THEN S=(S-1)AND3:RETURN
6027 IF ASC(A$)=13 AND S=3 THEN GOSUB3200:IF FL THEN RETURN
6029 IF VAL(A$)>0 THEN UZ=VAL(A$)-1:GOTO6051
6030 GOTO 6024
6040 IF(VAL(A$)=-1)AND(S=2)AND(UZ=3)THEN6043
6041 REM **** TEIL F.INPUT BEI Z1=1
6042 IF VAL(A$)<0 OR VAL(A$)> 255 THEN 6018
6043 M(S,Z)=VAL(A$)+10:RETURN
6051 IF UZ=8 THEN GOSUB9000:GOTO 6016
6052 IF M(S,UZ)=2 THEN GOSUB9000:GOTO 6016
6053 Z=UZ:RETURN
6054 V=122:GOTO6010
6055 V=32 :GOTO6010
6059 REM *** UPRO   DISPLAY S(EITE)
6060 GOSUB100:ON S GOSUB 5000,5300,5251
6062 FORUZ=0TO7
6070 IF M(S,UZ)=-1 THEN GOSUB6054
6072 IF M(S,UZ)=0  THEN GOSUB6055
6074 NEXT
6075 IF S=2 AND (NOT M(2,0)) THEN GOSUB8000
6080 ON S GOTO 6090,6095,6200
6082 STOP
6090 Z1=0:GOSUB6016:IF S<>1 THEN 6060
6091 IF Z>2 THEN 6094
6092 FORK=0TO2:M(1,K)=0:NEXT:M(1,Z)=-1:GOTO6062: REM *** 1 AUS 3
6094 M(1,Z)=NOT (M(1,Z)):GOTO 6062:REM ** 1 AUS 8
6095 Z1=0:GOSUB6016:IF S<>2 THEN 6060
6096 IF Z=0 THEN M(2,0)=NOT M(2,0):IFM(2,0)THENM(2,4)=0:GOTO6062
6097 IF(Z>0 ANDZ<4)THEN Z1=1:GOSUB6018:IF S<>2 THEN 6060:REM ** 1 AUS 8
6099 IF Z=4 THENM(2,4)=NOT M(2,4):M(2,0)=0:IFM(2,4)THENGOSUB8030:Z1=1:GOSUB8030:Z1=0
6100 GOTO 6062
6200 Z1=0:GOSUB6016:IF S<>3 THEN 6060
6201 IF ASC(A$)=13 THEN 6300
6202 M(3,6)=0:M(3,7)=0:M(3,Z)=-1:REM ** 1 AUS 2
6210 GOTO 6062:REM ** 1 AUS 8
6300 IF M(3,7) THEN SYS 32222
6310 FORK=1TO3:M(2,K)=M(2,K)-10:NEXT
6320 POKE49200,96:IF M(1,7) THEN POKE 49200,162
6325 POKE40168,96:IF M(1,6) THEN POKE 40168,206
6327 AC=65:IF M(1,1) THEN 6335
6330 AD=49:IF M(1,2) THEN AD=50
6335 GOSUB3100
6340 AC=66:AD=49:IF NOT M(1,4) THEN GOSUB3160:GOTO 6345
6342 GOSUB3140
6345 AC=67:AD=49:IF M(1,5) THEN GOSUB3160:GOTO 6350
6347 GOSUB3140
6350 GOTO 10090
6999 REM *** CHECK OUT FEM
7000 M(1,7)=0:IF PEEK(49200)<>96 THEN M(1,7)=-1
7010 M(1,6)=0:IF PEEK(40168)<>96 THEN M(1,6)=-1
7020 M(1,5)=0:IF PEEK(30851)= 128 THEN M(1,5)=-1:REM * HAND /PFEIL
7025 M(1,4)=0:FI$="B":GOSUB10960:IFA$="63"THENM(1,4)=-1:REM * LOAD NEUMUS
7030 M(1,2)=0:IF PEEK(28672)= 198 THEN M(1,2)=-1:REM *  BOLD
7040 M(1,1)=0:IF PEEK(28672)= 99  THEN M(1,1)=-1:REM *  OCR
7045 M(1,0)=0:IF M(1,1)+M(1,2)=0 THEN M(1,0)=-1:REM *  STANDARD
7062 M(2,0)=-PEEK(23465)
7065 M(2,1)=10+PEEK(23071):M(2,2)=10+PEEK(23083)
7070 M(2,3)=9:IFPEEK(23102)=56 THEN M(2,3)=10+PEEK(23107)
7072 M(2,4)=0:IFPEEK(23134)=24 THEN RETURN
7075 FORK=0TO6:M(0,K)=10+PEEK(23264+K):NEXT:M(2,4)=-1
7080 RETURN
8000 REM *** ZI=0 AUSGABE SONST EIN!
8002 FORK=1 TO 3:UX=33:UY=4+K*2:GOSUB6000:PRINTM(2,K)-10:NEXT
8020 IF NOT M(2,4) THEN RETURN
8030 FOR K = 0 TO 2:UY=16:UX=10+K*7:GOSUB6000:GOSUB8070:NEXT
8040 FOR K = 3 TO 6:UY=18:UX=-11+K*7:GOSUB6000:GOSUB8070:NEXT
8060 RETURN
8070 IF Z1 THENPOKE19,1:INPUTA$:POKE19,0:M(0,K)=VAL(A$)+10:RETURN
8080 PRINTM(0,K)-10:RETURN
9000 SI=54272:POKESI+5,1+8*16:POKESI+6,0+8*16:POKESI+1,10:POKESI+24,15
9005 POKESI+4,33
9010 FORK=0 TO 600:NEXT:POKESI+4,32:RETURN
10000 GOSUB10060
10010 GOSUB10950:IFFI$="3.!TEXT DRUCKEN "THEN GOSUB3000:REM LOAD FI$
10020 IF FI$="3.!TEXT DRUCKEN"THEN GOTO 10070
10040 RETURN
10060 RETURN
10070 PRINT" [204]EGEN [211]IE ZUM [211]TART DIESER [193]NPASSUNG  ";
10080 PRINT"  DIE NEUE [205]AGAZINDISKETTE EIN !         ":INPUTA$:RUN
10090 POKE23465,0:REM ** EINSPRUNG
10100 IF NOT M(2,0) THEN 10120
10110 POKE23071,4:POKE23083,7:POKE23134,24:POKE23102,24:POKE23465,1:GOTO10360
10120 REM *** GN
10140 POKE23071,M(2,1)
10150 POKE 23083,M(2,2)
10170 POKE 23102,24:IF M(2,3)< 0 THEN 10190
10180 POKE 23102,56:POKE 23107,M(2,3)
10190 POKE 23134,24:REM CLC, EINZEL OFF
10200 IF M(2,4) THEN GOSUB10240:REM ****UMLAUT - FRAGE !
10210 GOTO10360
10220 REM ** UMLAUTE ABFRAGEN
10240 POKE 23134,56:REM SEC, EINZEL ON!
10340 FOR K=0 TO 6:POKE23264+K,M(0,K)-10:NEXT:REM TABLE3=23264!!!
10350 RETURN
10360 REM
10390 PRINT"[147]     [211]PEICHERN DER [196]RUCKERANPASSUNG!    "
10395 PRINT"[194]ITTE LEGEN [211]IE DAS ANZUPASSENDE":INPUT "[205]AGAZIN JETZT EIN";A$
10400 OPEN1,8,15,"I":PRINT#1,CHR$(77)+CHR$(45)+CHR$(87)CHR$(1)CHR$(1)CHR$(65);
10410 GOSUB10950:REM *** FI$ BESTIMMEN
10420 PRINT#1,"S:"+FI$:CLOSE1
10430 GOSUB10800:IFA$="J"GOTO10390
10440 :
10450 SYS(57812)FI$,8,1
10460 POKE 193,255:POKE194,89:REM         *** $59FF
10470 POKE174,255:POKE175,91:REM            *** $5C00
10480 SYS62957:GOSUB10800:IFA$="J"THEN10450
10490 INPUT"[197]IN WEITERES [205]AGAZIN ANPASSEN (J/N)";A$:IFA$<>"N"THEN 10390
10500 FI$="MC":GOSUB3000:SYS1098:SYS32222
10510 END
10800 OPEN2,8,15
10805 INPUT#2,A$,B$,C$,D$:CLOSE2:IFA$="00"THEN RETURN
10807 PRINT" ";B$" "
10810 INPUT"[206]OCHMALS VERSUCHEN (J/N)";A$:IF A$<>"N"THEN RETURN
10820 PRINT"?[211]PEICHERUNG ABGEBROCHEN":STOP
10950 FI$="3.!TEXT DRUCKEN":GOSUB10960:GOTO10980
10960 OPEN2,8,15:PRINT#2,"R:"+FI$+"="+FI$
10970 INPUT#2,A$,B$,C$,D$:CLOSE2:RETURN
10980 IFB$="FILE EXISTS"THEN11010
10990 FI$=FI$+" ":GOSUB10960:IFA$="63"THEN RETURN
11000 PRINT" [198][197][200][204][197][210]! [146] [196]ISK OHNE [196]RUCKERANPASSUNG!":POKE1023,0:STOP
11010 PRINT"[147][193]CHTUNG!       [194]EIM EINGELEGTEN [205]AGAZIN"
11020 PRINT"HANDELT ES SICH UM EINE AELTERE [193]USGABE."
11030 PRINT"[196]AS FRUEHER VERWENDETE [196]RUCK-[208]ROGRAMM"
11040 PRINT"WURDE DURCH EIN NEUES [208]ROGRAMM ERSETZT!"
11050 PRINT"[196]AHER DARF DIE ALTE '[196][210][213][195][203][197][210][193][206][208][193][211][211][213][206][199]'"
11060 PRINT"NICHT MEHR VERWENDET WERDEN!!!":PRINT"[196]ANKE."
11070 OPEN2,8,15:PRINT#2,"S:DRUCKERANPASSUNG":CLOSE2:RETURN