0 OPEN1,8,15,"M-W"+CHR$(7)+CHR$(28)+CHR$(1)+CHR$(15):CLOSE1
1 L$="========================================"
2 A(1)=0:A(2)=11:A(3)=12:A(4)=15:A(5)=1:A(6)=15:A(7)=12:A(7)=11:A(8)=0
3 YU$(1)="[174][146]REMDWORT ":YU$(2)="[167][146]EUTSCHES [184][146]ORT ":YU$(3)=YU$(2):FQ=53265
7 DIM FR$(500),D1$(500),D2$(500),SO(500),KO(500):POKE768,145
10 PRINT"[147]";:POKE53280,0:POKE53281,0:REMPOKE788,52:POKE808,225:POKE657,128
20 POKEFQ,11:PRINTCHR$(142)"[147][155]D**************************************C";
30 PRINT"**B[146]                                  A[146]**";
40 PRINT"*B[146]    QR[146]      [176][191][188][172][177][187][165][188][180][162][181][146][155]       QR[146]    A[146]*";
45 PRINT"*C[146]    ST[146]     VON [167][146]IRK [178][146]HNER     ST[146]    D[146]*";
50 PRINT"**C[146]                                  D[146]**";
60 PRINT"A**************************************B[146] "
70 PRINT"==============[178][146]USWAHLMEN@===============";
80 PRINT
90 PRINT"  [161][146]OKABELN EINGEBEN .............. *1[146]*  "
100 PRINT"  [161][146]OKABELN ABFRAGEN .............. *2[146]*  "
110 PRINT"  [161][146]OKABELN @BERPR@FEN ............ *3[146]*  "
120 PRINT"  [182][146]ERNERFOLG ..................... *4[146]*  "
130 PRINT"  [161][146]OKABELN [182][146]ADEN, [163][146]PEICHERN ...... *5[146]*  "
140 PRINT"  [167][146]RUCKEN ........................ *6[146]*  "
150 PRINT"  [170][146]ROGRAMM BEENDEN, [185][146]ILFE ........ *7[146]* ":PRINTL$;
160 PRINT"          + A*([195])*[205][193][199][201][195]*[196][201][211][195]*B[146] +   ";:POKEFQ,27
180 GETA$:IFA$=""THEN180
190 ON VAL(A$) GOTO 1000,2000,6000,7000,4500,11000,3500
200 GOTO 180
1000 POKEFQ,11
1020 PRINT"[147]=========[179][146]EUE [161][146]OKABELN EINGEBEN========="
1050 PRINT"  [179][146]EUE [161][146]OKABELN ................... *1[146]*"
1060 PRINT"  [178][146]LTE [167][146]ATEI VERVOLLST;NDIGEN ..... *2[146]*"
1070 PRINT"  [189][146]EINE [182][146]UST MEHR, DANN ........... *3[146]* ";L$:POKEFQ,27
1080 GETA$:IFA$=""THEN1080
1090 IFVAL(A$)>3ORVAL(A$)<1THEN1080
1095 IFA$="1"THENIFQP=0THENQP=1:GOTO1120
1097 IFA$="1"ANDSO>0THENFORI=1TOZ:SO(I)=0:NEXT
1100 IFA$="1"THENZ=0:QW$="":SO=0:SG=0:GU=0:SE=0:NI=0
1110 IFA$="3"THEN20
1120 Z=Z+1:IFZ>500THEN20
1130 PRINT"[147]============[161][146]OKABELN EINGEBEN===========":VY=0
1135 PRINT"[179][146]R. "Z"[157]*":PRINTTAB(4)"[145]*"
1140 FORI=1TO3:X=0:POKE198,0:PRINT:PRINTYU$(I):PRINT
1150 POKE204,0:GETA$:IFA$=""THEN1150
1154 A=ASC(A$):IFA=58ORA=44ORA=192ORA=42THEN1150
1155 IFA=13THENPRINT" ";:POKE204,1:GOTO1186
1157 IFA=32ORA=186THEN1175
1158 IFA=20THEN1900
1165 IFA>93ANDA<191THEN1150
1167 IFA<39THEN1150
1175 X=X+1:IFX>37THENX=37:GOTO1150
1180 PRINTA$;:QW$=QW$+A$:GOTO1150
1186 IFRIGHT$(QW$,1)=" "THENGOSUB1800
1187 IFQW$=""THENQW$="[144]N[155]"
1188 IF JL=1THENJL=0:FG$=QW$:RETURN
1190 IFI=1THENFR$(Z)=QW$:IFQW$="[144]N[155]"THENZ=Z-1:GOTO20
1192 IFI=2THEND1$(Z)=QW$
1193 IFI=3THEND2$(Z)=QW$
1195 IFI=3THENIFQW$="[144]N[155]"THEND2$(Z)="^"
1197 QW$="":NEXT:NI=NI+1:KO(Z)=1
1198 IFVY=1THEN6200
1199 PRINT:PRINT"      FGHI[146]-[184][146]EITER L[146]-[179][146]OCHMAL O[146]-[190][146]EN@"
1200 PRINT"        *1[146]*-[163][146]ONDERVOKABELSPEICHER"
1210 GETA$:IFA$=""THEN1210
1220 IFA$="N"THENZ=Z-1:NI=NI-1:GOTO1120
1230 IFA$="1"THENIFSO(Z)<1THENSO(Z)=1:SO=1:PRINTTAB(17)"[189][146]LAR!":GOTO1210
1235 IFA$="M"THEN20
1240 GOTO1120
1800 REM
1810 J=0
1820 IFRIGHT$(QW$,1)=" "THENQW$=LEFT$(QW$,LEN(QW$)-1):J=J-1
1830 J=J+1:IFJ>LEN(QW$)THEN1850
1840 GOTO1820
1850 RETURN
1900 IFQW$=""THENGOTO1150
1910 POKE204,1:PRINT"[157]  [157][157]";:QW$=LEFT$(QW$,LEN(QW$)-1):X=X-1:GOTO1150
2000 IFZ>0THEN2010
2001 PRINT"[147]======[189][146]EINE [161][146]OKABELN IM [163][146]PEICHER!======="
2002 FORI=1TO1300:NEXT:GOTO20
2010 POKEFQ,11:PRINT"[147]============[161][146]OKABELN ABFRAGEN===========":KL=0
2020 PRINT" [174][146]REMDWORT - [167][146]EUTSCH .............. *1[146]*"
2030 PRINT" [167][146]EUTSCH - [174][146]REMDWORT .............. *2[146]*"
2035 PRINT" [170][146]ER [171][146]UFALL GEMISCHT .............. *4[146]*"
2040 PRINT" [171][146]UR@CK ZUM [185][146]AUPTMEN@ ............. *5[146]* ";L$
2045 SY=0:GOSUB2400:POKEFQ,27
2050 GETA$:IFA$=""THEN2050
2060 IFA$="1"THENFR=1:GOTO8000
2070 IFA$="2"THENFR=0:GOTO8000
2072 IFA$="4"THENZF=1:GOTO8000
2073 IFA$="3"THENHJ=HJ+1:GOSUB2400
2080 IFA$="5"THEN20
2085 GOTO2050
2090 PRINT"[147]============[161][146]OKABELN ABFRAGEN===========":IFKL=1THEN2101
2100 ZU=INT(RND(1)*Z)+1:IFZU>ZTHEN2100
2101 IFZF=1THENZG=INT(RND(1)*2):IFZG=1THEN2150
2110 IFFR=1THENGOTO2150
2130 PRINT"[167][146]EUTSCHES [184][146]ORT"
2140 PRINTD1$(ZU):PRINT
2145 IFD2$(ZU)<>"^"ANDLEFT$(D2$(ZU),1)<>"("THENPRINTD2$(ZU):PRINT
2147 PRINT"[174][146]REMDWORT":JL=1:X=0:QW$="":GOSUB1150
2148 IFFG$<>FR$(ZU)THENGOTO2350
2149 GOTO2210
2150 PRINT"[174][146]REMDWORT":PRINTFR$(ZU)
2160 PRINT"[167][146]EUTSCH":PRINT:JL=1:X=0:QW$="":GOSUB1150
2170 IFFG$=D1$(ZU)ORFG$=D2$(ZU)THENGW=1:GOTO2200
2190 GOTO2350
2200 IFHJ=1THENIFD2$(ZU)<>"^"ANDLEFT$(D2$(ZU),1)<>"("THENGOTO2250
2210 PRINT:PRINT"=================[166][146]ICHTIG!==============="
2215 FORI=1TO8:POKE53280,A(I):FORJ=1TO22:NEXTJ,I:ZA=-1:GOSUB2500
2220 PRINTFR$(ZU)
2230 PRINT""D1$(ZU)"[155]"
2235 IFD2$(ZU)<>"^"THENPRINT""D2$(ZU)"[155]"
2240 GOTO2310
2250 PRINT:PRINT"[145][145][145][166][146]ICHTIG! "
2260 PRINT"2.[146] [174][146]ORM":JL=1:X=0:QW$="":GOSUB1150
2270 IFFG$=D1$(ZU)ORFG$=D2$(ZU)THEN2300
2280 PRINT:PRINT"[174][146]AST RICHTIG!":PRINT""D1$(ZU)
2285 PRINT""D2$(ZU)"[155]":GOTO2310
2300 PRINT:PRINT"=======[179][146]OCHMAL RICHTIG! [163][146]EHR GUT!=======":GOTO2215
2310 PRINT"    FGHI[146]-[184][146]EITER O[146]-[190][146]EN@ K[146]-[178][146]USDRUCKEN"
2320 GETA$:IFA$=""THEN2320
2325 IFKL=1ANDA$=CHR$(32)THENKL=0:RETURN
2330 IFA$="A"THENJ=2:A=ZU:E=A:GOTO15010
2335 IFA$="M"THENPRINT:GOTO20
2340 GOTO2090
2350 FORI=1TO3:FORJ=0TO15:POKE53270,J:NEXTJ,I:POKE53270,8
2355 PRINT:PRINT"[170][146]ARDON, DAS IST NICHT RICHTIG!":ZA=1:GOSUB2500
2360 GOTO2220
2400 IFHJ>2THENHJ=1
2405 IFHJ=2THEN2420
2410 IFHJ=1THEN2430
2420 PRINT" [178][146]LLE DT. [174][146]ORMEN ...... (JA) (LMNL[146]) *3[146]*":RETURN
2430 PRINT" [178][146]LLE DT. [174][146]ORMEN ...... (JK[146]) (NEIN) *3[146]*":RETURN
2500 KI=KO(ZU):KO(ZU)=KO(ZU)-ZA:IFKO(ZU)<1ORKO(ZU)>4THENKO(ZU)=KI:RETURN
2510 IFKI>KO(ZU)THEN2530
2520 IFKO(ZU)>KITHEN2600
2530 IFKI=4THENSG=SG-1:GU=GU+1
2540 IFKI=3THENGU=GU-1:SE=SE+1
2550 IFKI=2THENSE=SE-1:NI=NI+1
2560 RETURN
2600 IFKI=1THENNI=NI-1:SE=SE+1
2610 IFKI=2THENSE=SE-1:GU=GU+1
2620 IFKI=3THENGU=GU-1:SG=SG+1
2630 RETURN
3500 PRINT"[145]FGHI[146]-[185][146]ILFE  K[146]-[178][146]UFH/REN  O[146]-[190][146]EN@";
3510 GETA$:IFA$=""THEN3510
3520 IFA$="A"THEN4000
3530 IFA$="M"THENPRINT"[145]";:GOTO160
3600 POKEFQ,11:PRINT"[147]============[175][146]ASTATURBELEGUNG============"
3605 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][164][164][164][164][164][164][164]"
3610 PRINT"   1 2 3 4 5 6 7 8 9 0 + - \    OHNE"
3620 PRINT"    Q W E R T Y U I O P @"
3630 PRINT"    A S D F G H J K L   ;       [163][146]HIFT"
3640 PRINT"     Z X C V B N M , . /"
3645 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][164][164][164][164][164][164][164]"
3650 PRINT"               ' ( )"
3660 PRINT"    [209] [215] [197] [210] [212] [217] [213] [201] [207] [208] [186]        MIT"
3670 PRINT"    [193] [211] [196] [198] [199] [200] [202] [203] [204]   ]"
3680 PRINT"     [218] [216] [195] [214] [194] [206] [205] < > ?        [163][146]HIFT"
3685 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][164][164][164][164][164][164][164]"
3690 PRINT"  *1*2*3*4*5*6*7*8*9*0*+*-*\*[146]    [171][146]UM"
3700 PRINT"  [152]*[155]*[209]*[215]*[197]*[210]*[212]*[217]*[213]*[201]*[207]*[208]*@***[152]*[146][155] [161][146]ERGLEICH"
3710 PRINT"  *[193]*[211]*[196]*[198]*[199]*[200]*[202]*[203]*[204]***;*[152]****[146][155]  EINFACHE"
3720 PRINT"  [152]**[155]*[218]*[216]*[195]*[214]*[194]*[206]*[205]*,*.*/*[152]****[146][155]  [175][146]ASTATUR"
3730 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][164][164][164][164][164][164][164]":POKEFQ,27
3800 GET A$:IFA$=""THEN3800
3810 GOTO20
4000 PRINT"[147]   [175][146]SCH@SS BIS ZUM N;CHSTEN MAL !"
4010 FORI=1TO1500:NEXT:SYS64738
4500 POKEFQ,11:PRINT"[147]======[161][146]OKABELN SPEICHERN UND LADEN======"
4510 PRINT" [178][146]BSPEICHERN ...................... *1[146]* "
4520 PRINT" [182][146]ADEN ............................ *2[146]* "
4525 PRINT" [179][146]ACHLADEN (MAX.500[146] [161][146]OK.) ......... *3[146]* "
4530 PRINT" [167][146]IRECTORY ........................ *4[146]* "
4540 PRINT" [171][146]UR@CK ZUM [190][146]EN@ .................. *5[146]* ";L$:POKEFQ,27
4550 GETA$
4560 IFA$="5"THENPRINT:GOTO20
4570 A=VAL(A$)
4575 ONAGOTO5000,5090,5200,10000
4600 GOTO4550
5000 IFZ=0THEN2001
5001 I=1:GOSUB13000
5005 IFI=5THEN20
5010 OPEN2,8,2,"@0:"+NA$+",S,W"
5020 PRINT#2,Z
5031 PRINT#2,SO
5032 PRINT#2,SG
5033 PRINT#2,GU
5034 PRINT#2,SE
5035 PRINT#2,NI
5036 FORI=1TOZ
5040 PRINT#2,FR$(I)
5041 PRINT#2,KO(I)
5042 PRINT#2,D1$(I)
5043 PRINT#2,SO(I)
5044 PRINT#2,D2$(I):NEXT
5070 CLOSE2:GOTO20
5090 I=2:GOSUB13000
5095 IFI=5THEN20
5097 OPEN2,8,2,"0:"+NA$+",S,R"
5100 INPUT#2,Z
5101 INPUT#2,SO
5102 INPUT#2,SG
5103 INPUT#2,GU
5104 INPUT#2,SE
5105 INPUT#2,NI
5110 FORI=1TOZ
5120 INPUT#2,FR$(I)
5121 INPUT#2,KO(I)
5122 INPUT#2,D1$(I)
5123 INPUT#2,SO(I)
5124 INPUT#2,D2$(I):NEXT
5150 CLOSE2:GOTO20
5200 I=3:GOSUB13000
5205 IFI=5THEN20
5210 OPEN2,8,2,"0:"+NA$+",S,R"
5220 INPUT#2,Q:IFZ+Q>500THENCLOSE2:GOTO20
5221 INPUT#2,A:IFA=1THENSO=1
5222 INPUT#2,B:SG=SG+B
5223 INPUT#2,C:GU=GU+C
5224 INPUT#2,D:SE=SE+D
5225 INPUT#2,E:NI=NI+E
5230 FORI=(Z+1)TO(Z+1)+Q
5240 INPUT#2,FR$(I)
5250 INPUT#2,KO(I)
5260 INPUT#2,D1$(I)
5265 INPUT#2,SO(I)
5270 INPUT#2,D2$(I):NEXT
5280 CLOSE2:Z=Z+Q:GOTO20
6000 IFZ=0THEN2001
6005 POKEFQ,11:PRINT"[147]============[161][146]OKABELN ANSEHEN============"
6010 PRINT" [161][146]OKABELN ANSEHEN ................ *1*[146]  "
6020 PRINT" [161][146]OKABEL SUCHEN .................. *2*[146]  "
6030 PRINT" [171][146]UR@CK ZUM [190][146]EN@ ................. *3*[146]  ";L$:POKEFQ,27
6050 GETA$:IFA$=""THEN6050
6060 A=VAL(A$):IFA>0ORA<4THEN6080
6070 GOTO6050
6080 ONAGOTO6090,6300,20
6090 I=0
6100 I=I+1:IFI>ZTHENI=1
6105 GOTO 6200
6110 PRINT"[147]==========[161][146]OKABEL KORRIGIEREN==========="
6115 H=I:FORJ=1TO3:JL=1:PRINT:PRINTYU$(J):PRINT
6116 IFJ=1THENPRINTFR$(H);:X=LEN(FR$(H)):QW$=FR$(H)
6117 IFJ=2THENPRINTD1$(H);:X=LEN(D1$(H)):QW$=D1$(H)
6118 IFJ=3ANDD2$(H)<>"^"THENPRINTD2$(H);:X=LEN(D2$(H)):QW$=D2$(H)
6119 GOSUB1150
6120 IFJ=1THENFR$(H)=QW$
6125 IFJ=2THEND1$(H)=QW$:QW$=""
6127 IFJ=3THEND2$(H)=QW$:IFD2$(H)="[144]N[155]"THEND2$(H)="^"
6128 NEXT:SO(H)=0
6170 PRINT:PRINT"  FGHI[146]-[184][146]EITER *1*[146]-[163][146]ONDERVOKABELSPEICHER"
6180 GETA$:IFA$=""THEN6180
6185 IFA$="1"THENSO(H)=1:I=H:GOTO6200
6190 I=H
6200 POKEFQ,11:PRINT"[147]===========[161][146]OKABELN ANSEHEN============="
6205 PRINT" [161][146]OKABEL [179][146]UMMER "I"[146][157]*":PRINT"[145]"TAB(16)"*"
6207 IFSO(I)=0THENPRINT" [189][146]EIN [163][146]ONDERVOKABEL":GOTO6220
6210 PRINT" [163][146]ONDERVOKABEL!"
6220 PRINT" ";FR$(I)
6230 PRINT" ";D1$(I)
6240 PRINT" ";:WY=0:IFD2$(I)="^"THENPRINT"[151][179][146]ICHTS[155]":WY=1
6241 IF WY<>1THENPRINTD2$(I)
6242 ONKO(I)GOTO6243,6244,6245,6246
6243 PRINT"[151] [161][146]OKABEL NICHT GELERNT.":GOTO6247
6244 PRINT"[152] [161][146]OKABEL SCHLECHT GELERNT.":GOTO6247
6245 PRINT"[155] [161][146]OKABEL GUT GELERNT!":GOTO6247
6246 PRINT" [161][146]OKABEL SUPER GELERNT!"
6247 PRINT"    [155]FGHI[146]-[184][146]EITER P[146]-[189][146]ORREKTUR O[146]-[190][146]EN@"
6248 PRINT"   Y[146]-[184][146]EITER IM [184]ER [163][146]CHRITT X[146]-[182][146]/SCHEN":POKEFQ,27
6249 PRINTTAB(13)"K[146]-[178][146]USDRUCKEN":POKEFQ,27
6250 GETA$:IFA$=""THEN6250
6260 IFA$="K"THENX=I:GOTO6110
6270 IFA$="5"THENI=I+5:GOTO6280
6271 IFA$="A"THENA=I:E=I:J=3:ZU=I:GOTO15010
6275 IFA$="M"THEN20
6276 IFA$="L"THENGOSUB8600
6277 I=I+1
6280 IFI>ZTHENI=1
6285 GOTO6200
6290 GOTO6100
6300 PRINT"[147]=============[161][146]OKABELN SUCHEN============"
6310 PRINT" [220][146]ITTE GEBEN SIE DAS ZU SUCHENDE "
6320 PRINT" [184][146]ORT EIN "
6330 OPEN1,0:PRINT" ";:INPUT#1,SU$:CLOSE1
6340 SY=0:FORI=1TOZ
6350 IFSU$=FR$(I)ORSU$=D1$(I)ORSU$=D2$(I)THENSY=I
6360 NEXT
6370 IFSY>0THENI=SY:GOTO6200
6380 PRINT:PRINT" [168][146]CH HABE NICHTS GEFUNDEN!":FORJ=1TO1600:NEXT:GOTO6000
7000 IFZ=0THEN2001
7005 POKEFQ,11:PRINT"[147]==============[182][146]ERNERFOLG================ "
7010 PRINT"[183][146]ELERNT  [165]";TAB(31)"[165] [178][146]NZAHL"
7015 LI$="         [165]                     [165]"
7020 PRINT"[164][164][164][164][164][164][164][164][164][165]                     [173][164][164][164][164][164][164][164]":PRINTLI$:PRINTLI$
7030 PRINT"SEHR GUT [165]"TAB(31)"[165] "SG"[157][146]*[145]":PRINT TAB(33)"*":PRINTLI$:PRINTLI$
7040 PRINT"     GUT [165]"TAB(31)"[165] "GU"[157][146]*[145]":PRINT TAB(33)"*":PRINTLI$:PRINTLI$
7050 PRINT"SCHLECHT [165]"TAB(31)"[165] "SE"[157][146]*[145]":PRINT TAB(33)"*":PRINTLI$:PRINTLI$
7060 PRINT"   NICHT [165]"TAB(31)"[165] "NI"[157][146]*[145]":PRINT TAB(33)"*":PRINTLI$:PRINTLI$
7070 PRINT"[163][163][163][163][163][163][163][163][163][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][174][176][163][189][163][163][163][163][163][163][163]"
7080 PRINT" [170][146]ROZENT [188][190]  [179][191]   [172][190]   [170][191]  [187][178]  [165] "Z"[157][146]*[145]":PRINTTAB(33)"*"
7090 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][173][164][164][164][164][164][164][164]"
7100 PRINT""
7110 PRINTTAB(9);:ZA=INT((SG/Z)*20):IFZA>0THENFORI=1TOZA:PRINT"[171]";:NEXT
7115 PRINT""
7120 PRINTTAB(9);:ZA=INT((GU/Z)*20):IFZA>0THENFORI=1TOZA:PRINT"[155][171]";:NEXT
7125 PRINT""
7130 PRINTTAB(9);:ZA=INT((SE/Z)*20):IFZA>0THENFORI=1TOZA:PRINT"[152][171]";:NEXT
7135 PRINT""
7140 PRINTTAB(9);:ZA=INT((NI/Z)*20):IFZA>0THENFORI=1TOZA:PRINT"[151][171]";:NEXT
7145 PRINT"[155]      FGHI[146]-[190][146]EN@  *W[146]*-[161][146]OKABELRESET"
7150 POKEFQ,27
7160 GETA$:IFA$=""THEN7160
7170 IFA$="R"THENSG=0:GU=0:SE=0:NI=Z:FORI=1TOZ:KO(I)=1:NEXT:PRINT"[147]":GOTO20
7180 PRINT"[147]":GOTO20
8000 POKEFQ,11:PRINT"[147]";L$
8005 PRINT" [178][146]LLE [161][146]OKABELN .................... *1[146]*"
8010 PRINT" [178][146]LLE AB DEN GUT GELERNTEN ........ *2[146]*"
8020 PRINT" [178][146]LLE AB SCHLECHT GELERNTEN ....... *3[146]*"
8030 PRINT" [178][146]LLE AB NICHT GELERNTEN .......... *4[146]*"
8110 PRINT" [163][146]ONDERVOKABELABFRAGE ............. *5[146]*"
8120 PRINT" [179][146]ACH [166][146]EIHENFOLGE ABFRAGEN ........ *6[146]* ";L$:POKEFQ,27
8130 WAIT198,1:GETA$
8140 IFA$="1"THEN2090
8150 IFA$="2"THENIFGU+SE+NI>0THEN8210
8160 IFA$="3"THENIFSE+NI>0THEN8300
8170 IFA$="4"THENIFNI>0THEN8400
8180 IFA$="5"THENIFSO=1THEN8700
8190 IFA$="6"THEN8500
8200 GOTO8130
8210 IFGU+SE+NI<9THEN8260
8220 ZU=INT(RND(1)*Z)+1:IFZU>ZTHEN8220
8230 IFKO(ZU)<4THENKL=1:GOSUB2090
8240 IFGU+SE+NI>0THEN8210
8250 GOTO20
8260 ZU=ZU+1:IFZU>ZTHENZU=1
8270 GOTO8230
8300 IFSE+NI<8THEN8350
8310 ZU=INT(RND(1)*Z)+1:IFZU>ZTHEN8310
8320 IFKO(ZU)<3THENKL=1:GOSUB2090
8330 IFSE+NI>0THEN8300
8340 GOTO20
8350 ZU=ZU+1:IFZU>ZTHENZU=1
8360 GOTO8320
8400 IFNI<7THEN8450
8410 ZU=INT(RND(1)*Z)+1:IFZU>ZTHEN8410
8420 IFKO(ZU)=1THENKL=1:GOSUB2090
8430 IFNI>0THEN8400
8440 GOTO20
8450 ZU=ZU+1:IFZU>ZTHENZU=1
8460 GOTO8420
8500 ZU=0
8510 ZU=ZU+1:IFZU>ZTHENZU=1
8520 KL=1:GOSUB2090:GOTO8510
8600 IFZ=1THENZ=0:RETURN
8605 FR$(I)=FR$(Z):D1$(I)=D1$(Z):D2$(I)=D2$(Z):Z=Z-1
8610 IFKO(I)=1THENNI=NI-1
8620 IFKO(I)=2THENSE=SE-1
8630 IFKO(I)=3THENGU=GU-1
8640 IFKO(I)=4THENSG=SG-1
8650 RETURN
8700 ZU=ZU+1:IFZU>ZTHENZU=1
8710 IFSO(ZU)=1THENKL=1:GOSUB2090
8720 GOTO8700
10000 PRINTCHR$(14):PRINT"[147][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][196]IRECTORY[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
10020 PRINT"      0";:OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$,A$,A$:X$=CHR$(0)
10030 FORI=1TO 7:GETA$,B$,C$,D$:PRINTTAB(5)A$B$C$D$;:NEXT:PRINT:GETA$,A$,A$,B$
10040 IFSTTHENSYS65484:CLOSE1:GOTO10060
10050 PRINTTAB(5)ASC(A$+X$)+256*ASC(B$+X$);:GOTO10030
10060 PRINT"                <[211][208][193][195][197]> [146]"
10070 GETA$:IFA$=""THEN10070
10080 GOTO20
11000 IFZ=0THEN2001
11005 POKEFQ,11:PRINT"[147]=============[167][146]RUCKERAUSGABE============="
11010 PRINT" [173][146]BUNGSBLATT DRUCKEN .............. *1[146]*"
11020 PRINT" [161][146]OKABELN DRUCKEN ................. *2[146]*"
11030 PRINT" [171][146]UR@CK ZUM [190][146]EN@ .................. *3[146]*":PRINTL$:POKEFQ,27
11040 GETA$:IFA$=""THEN11040
11050 IFVAL(A$)<1ORVAL(A$)>3THEN11040
11060 ONVAL(A$)GOTO11070,15000,20
11070 PRINT" [167][146]EUTSCH-[174][146]REMDWORT - *1*[146]"
11080 PRINT" [174][146]REMDWORT-[167][146]EUTSCH - *2*[146]"
11090 GETA$:IFA$=""THEN11090
11100 IFA$="1"THEN11150
11120 I=0:GOSUB13000
11125 IFA<1ORA>ZORE<1ORE>ZTHEN20
11130 GOSUB11220:FORI=ATOE:PRINT#4,CHR$(17)FR$(I);" :"
11133 PRINT#4,"[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][164][164][164][164][164][164][164][164][164][164][164]";
11134 PRINT#4,CHR$(17)"  [165] ";D1$(I);:IFD2$(I)<>"^"THENPRINT#4,", ";D2$(I);
11139 PRINT#4,:NEXTI
11140 CLOSE4:GOTO20
11150 I=0:GOSUB13000
11155 IFA<1ORA>ZORE<1ORE>ZTHEN20
11160 GOSUB11220:FORI=ATOE:PRINT#4,CHR$(17)D1$(I);:LL=0
11163 IFD2$(I)<>"^"ANDLEFT$(D2$(I),1)<>"("THENPRINT#4,CHR$(17)", "D2$(I):LL=1
11164 IFLL=0THENPRINT#4,
11165 PRINT#4,"[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][164][164][164][164][164][164][164][164][164][164][164]";
11166 PRINT#4,CHR$(17)"  [165] ";FR$(I)
11167 NEXT:CLOSE4:GOTO20
11170 CLOSE4:GOTO20
11220 OPEN4,4:PRINT#4,CHR$(17)" *** [213]EBUNGSBLATT ***  (BEI [180]FALTEN!)"
11225 PRINT#4,:PRINT#4,
11230 RETURN
13000 PRINTCHR$(14):PRINT"[147][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
13010 IFI=1THENB=1:PRINT"[211]PEICHERN[192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
13011 IFI=2THENB=1:PRINT"[204]ADEN[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
13012 IFI=3THENB=1:PRINT"[206]ACHLADEN[192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
13013 IFI=0THENB=2:B$(1)="[214]ON [215]ORT [206]R.":B$(2)="[194]IS [215]ORT [206]R."
13014 IFI=0THENPRINT"[196]RUCKEN[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
13015 IFI>0THENB$(1)="[206]AME DER [196]ATEI:"
13020 FORJ=1TOB
13030 PRINTB$(J):C$=""
13040 GETA$:IFA$=""THEN13040
13050 IFASC(A$)>44ANDASC(A$)<58THEN13080
13060 IFI>0ANDASC(A$)>64ANDASC(A$)<91THEN13080
13070 IFASC(A$)=13THEN13100
13072 IFASC(A$)=32THEN13080
13075 IFASC(A$)=20ANDC$<>""THENC$="":PRINT:PRINT"[145]                 [145]":GOTO13040
13078 GOTO13040
13080 C$=C$+A$:PRINTA$;:IFLEN(C$)>15THEN13100
13090 GOTO13040
13100 PRINT:IFI>0THENI=0:GOTO13200
13110 IFI=0ANDJ=1THENA=VAL(C$):NEXT
13120 E=VAL(C$):RETURN
13200 IFC$=""THENPOKEFQ,11:PRINTCHR$(142):I=5:RETURN
13210 NA$=C$:RETURN
14000 RETURN
15000 I=0:GOSUB 13000
15005 IFA<1ORA>ZORE<1ORE>ZTHEN20
15010 OPEN4,4:FORI=ATOE:PRINT#4,CHR$(17)FR$(I)" .... : ";D1$(I);
15020 IFD2$(I)<>"^"THENPRINT#4,CHR$(17)", ";D2$(I):GOTO15040
15030 PRINT#4,
15040 NEXT:IFJ=2THENJ=0:CLOSE4:GOTO2320
15050 IFJ=3THENCLOSE4:I=ZU:GOTO6250
15060 CLOSE4:GOTO20