5 POKE198,0:CLR:POKE53280,0:POKE53281,0:PRINTCHR$(8)CHR$(14)"[147][154]":PA=52224:IK=52256:DIMSP(72),LI$(52),TT$(72),VE$(24),SG(24),GS(24),US(24),VS(24):DIMGT(24),GG(24),PP(24),MP(24),VR$(24),GT$(72),MN$(14):BS=53265
25 DIMTS$(163),VT(163),TA(163),AT(9),TA$(16):DT$="ABCDEFGHIJKLMNOPQRSTUVWXYZ":DT$=DT$+"[193][194][195][196][197][198][199][200][201][202][203][204][205][206][207][208][209][210][211][212][213][214][215][216][217][218].-' ":DIMAF$(16),VF$(8),HF$(4):FORX=1TO72:TT$(X)="--":NEXTX:FORX=1TO16:TA$(X)="--":NEXTX:FORX=1TO8:TV$(X)="--":NEXT
45 FORX=1TO4:TH$(X)="--":NEXTX:FORX=1TO2:TD$(X)="--":TF$(X)="--":NEXT:DE$="0123456789 ":DF$=DE$+DT$+"+():;/=":FORX=1TO24:READVE$(X):VR$(X)=VE$(X):NEXTX:LV=0:FORT=3TO24STEP4:LV=LV+1:XY$(LV)=VE$(T):NEXT:FORT=1TO72:READSP(T):NEXTT:FORX=1TO52:READLI$(X):NEXT
65 FORX=1TO9:README$(X):NEXT:FORX=1TO5:READMN$(X):NEXT
70 PRINT"[147][154]":POKEBS,11:SYSPA,2,16,"[176][192][192][192][192][192][192][174]":SYSPA,3,16,"[221][215][205] '90[221]":SYSPA,4,16,"[173][192][192][192][192][192][192][189]":DEFFNA(X)=(40-LEN(ME$(X)))/2:YA=4:FORX=1TO9:YA=YA+2:SYSPA,YA,FNA(X),ME$(X)
110 NEXTX:SYSPA,24,0,"[159][160][160][160][160][160][160][160]([195])[160]1990[160]BY[160][211]TRESING-[211]OFT[160][160][160][160][160][160][160][146]";:POKEBS,27:YA=6:XA=1:SYSPA,YA,FNA(XA),"[153]"ME$(XA)"[146]"
130 GETA$:IFA$=""THEN130
135 IFA$=""THEN155
140 IFA$="[145]"THEN185
145 IFA$=CHR$(13)THEN215
150 GOTO130
155 SYSPA,YA,FNA(XA),ME$(XA):XA=XA+1:YA=YA+2:IFXA=10THENXA=1:YA=6
175 SYSPA,YA,FNA(XA),"[153]"ME$(XA)"[146]":GOTO130
185 SYSPA,YA,FNA(XA),ME$(XA):XA=XA-1:YA=YA-2:IFXA=0THENXA=9:YA=22
205 SYSPA,YA,FNA(XA),"[153]"ME$(XA)"[146]":GOTO130
215 ONXAGOTO230,1040,1515,1830,2030,2230,2390,2655,3490
230 PRINT"[147]":SYSPA,3,1,"[215]ELCHE [199]RUPPE ([193]-[198]) ?"
240 SYSIK,3,23,1,"ABCDEF",GR$:IFGR$=""THEN240
245 GR=ASC(GR$)-64:IFGR=1THENP2=0:GOTO260
255 P2=6
260 POKEBS,11:SYSPA,1,12,"[153][211]PIELE [199]RUPPE ";CHR$(GR+96):SYSPA,2,12,"[155]---------------":ZZ=0:AA=(12*GR)-11:EE=12*GR:LV=(AA-1)/2:FORX=AATOEESTEP2:LV=LV+1:ZZ=ZZ+3:SYSPA,ZZ,1,LI$(LV):SYSPA,ZZ+1,1,""VE$(SP(X))
295 SYSPA,ZZ+1,14,"-":SYSPA,ZZ+1,16,""VE$(SP(X+1)):SYSPA,ZZ+1,29,TT$(X):SYSPA,ZZ+1,31,":":SYSPA,ZZ+1,33,""TT$(X+1):NEXTX
325 SYSPA,22,0,"[154] [197][154]RGEBNISEINGABE    [196][154]RUCKEN     [212][154]ABELLE [146]";:SYSPA,23,0,"[154]                 [205][154]ENUE                  [146]";:POKEBS,27
335 GETA$:IFA$=""THEN335
340 IFA$="E"THENPRINT"":GOTO365
345 IFA$="T"THEN705
350 IFA$="M"THEN70
355 IFA$="D"THENGOSUB3625:GOTO325
360 GOTO335
365 GOSUB4287:LV=0:ZZ=1:FORX=AATOEESTEP2:ZZ=ZZ+3:LV=LV+1:IFX<=4THEN450
445 GOTO455
450 VR$(SP(X))=VE$(SP(X)):VR$(SP(X+1))=VE$(SP(X+1))
455 IFTT$(X)="--"THENSYSPA,ZZ,29,"  ":SYSPA,ZZ,33,"  "
460 SYSIK,ZZ,29,2,DE$,O1$:IFO1$=""THENTT$(X)="--":TT$(X+1)="--"
470 IFO1$=""THENSYSPA,ZZ,29,TT$(X):SYSPA,ZZ,33,TT$(X+1)
475 IFO1$=""ANDA1<6THENGOTO540
480 IFO1$=""ANDA1=6THEN335
485 TT$(X)=O1$:SYSIK,ZZ,33,2,DE$,O2$:IFO2$=""THENTT$(X)="--":TT$(X+1)="--"
500 IFO2$=""THENSYSPA,ZZ,29,TT$(X):SYSPA,ZZ,33,TT$(X+1)
505 IFO2$=""ANDA1<6THENGOTO540
510 IFO2$=""ANDA1=6THEN335
515 TT$(X+1)=O2$:IFVAL(TT$(X))>VAL(TT$(X+1))THENGOSUB550:GOTO540
530 IFVAL(TT$(X))=VAL(TT$(X+1))THENGOSUB600:GOTO540
535 IFVAL(TT$(X))<VAL(TT$(X+1))THENGOSUB655:GOTO540
540 NEXTX:GOTO335
550 GT(SP(X))=GT(SP(X))+VAL(TT$(X)):GG(SP(X))=GG(SP(X))+VAL(TT$(X+1)):SG(SP(X))=SG(SP(X))+1:GS(SP(X))=GS(SP(X))+1:PP(SP(X))=PP(SP(X))+2:GT(SP(X+1))=GT(SP(X+1))+VAL(TT$(X+1))
575 GG(SP(X+1))=GG(SP(X+1))+VAL(TT$(X)):SG(SP(X+1))=SG(SP(X+1))+1:VS(SP(X+1))=VS(SP(X+1))+1:MP(SP(X+1))=MP(SP(X+1))+2:RETURN
600 GT(SP(X))=GT(SP(X))+VAL(TT$(X)):GG(SP(X))=GG(SP(X))+VAL(TT$(X+1))
610 SG(SP(X))=SG(SP(X))+1:US(SP(X))=US(SP(X))+1:PP(SP(X))=PP(SP(X))+1:MP(SP(X))=MP(SP(X))+1:GT(SP(X+1))=GT(SP(X+1))+VAL(TT$(X+1)):GG(SP(X+1))=GG(SP(X+1))+VAL(TT$(X)):SG(SP(X+1))=SG(SP(X+1))+1
640 US(SP(X+1))=US(SP(X+1))+1:MP(SP(X+1))=MP(SP(X+1))+1:PP(SP(X+1))=PP(SP(X+1))+1:RETURN
655 GT(SP(X))=GT(SP(X))+VAL(TT$(X)):GG(SP(X))=GG(SP(X))+VAL(TT$(X+1)):SG(SP(X))=SG(SP(X))+1:VS(SP(X))=VS(SP(X))+1:MP(SP(X))=MP(SP(X))+2
675 GT(SP(X+1))=GT(SP(X+1))+VAL(TT$(X+1)):GG(SP(X+1))=GG(SP(X+1))+VAL(TT$(X)):SG(SP(X+1))=SG(SP(X+1))+1:GS(SP(X+1))=GS(SP(X+1))+1:PP(SP(X+1))=PP(SP(X+1))+2:RETURN
705 PRINT"[147]":SYSPA,1,10,"[153][212]ABELLE DER [199]RUPPE ";CHR$(GR+96)
710 SYSPA,2,10,"[155]--------------------":PRINT"[205]ANNSCHAFT     [211]  [199] [213] [214]  [212]ORE   [196]   [208]KT.";:PRINT"[155]----------------------------------------";:IFSV(GR)=1THEN915
730 SV(GR)=1:SV(7)=0:FORX=1TO72:GT$(X)=TT$(X):NEXTX:FORT=SP(AA)TOSP(AA+2):FORU=TTOSP(AA+3):QT=GT(T)-GG(T):QU=GT(U)-GG(U):IFPP(U)<PP(T)THEN910
765 IFPP(U)=PP(T)ANDMP(U)>MP(T)THEN910
770 IFPP(U)=PP(T)ANDMP(U)=MP(T)ANDQT>QUTHEN910
775 IFPP(U)=PP(T)ANDMP(U)=MP(T)ANDQT=QUANDGT(U)<GT(T)THEN910
780 IFPP(U)=PP(T)ANDMP(U)=MP(T)ANDQT=QUANDGT(U)=GT(T)THEN790
785 GOTO860
790 FORK=AATOEESTEP2:IFGT$(K)="--"ORGT$(K+1)="--"THENNEXTK
795 IFK=EE+1THEN910
800 IFSP(K)=UANDSP(K+1)=TTHEN804
802 IF(SP(K)=T)AND(SP(K+1)=U)THEN804
803 NEXTK
804 IFVAL(GT$(U))<VAL(GT$(T))THEN910
805 IFVAL(GT$(U))=VAL(GT$(T))AND(SG(U)=3ANDSG(T)=3)THEN815
810 GOTO860
815 IFU=TTHEN860
820 SYSPA,10,1,"[204]OSENTSCHEID !":SYSPA,12,1,"1 - ";VR$(U):SYSPA,14,1,"2 - ";VR$(T)
830 GETA$:IFA$=""THEN830
835 IFA$<"1"ORA$>"2"THEN830
840 IFA$="1"THENSYSPA,10,1,"                  ":SYSPA,12,1,"                 "
845 IFA$="1"THENSYSPA,14,1,"                ":GOTO860
850 IFA$="2"THENSYSPA,10,1,"                  ":SYSPA,12,1,"                 "
855 IFA$="2"THENSYSPA,14,1,"                ":GOTO910
860 ZW$=VR$(T):VR$(T)=VR$(U):VR$(U)=ZW$:ZW=SG(T):SG(T)=SG(U):SG(U)=ZW:ZW=GS(T):GS(T)=GS(U):GS(U)=ZW:ZW=US(T):US(T)=US(U):US(U)=ZW:ZW=VS(T):VS(T)=VS(U):VS(U)=ZW:ZW=GT(T):GT(T)=GT(U):GT(U)=ZW
890 ZW=GG(T):GG(T)=GG(U):GG(U)=ZW:ZW=PP(T):PP(T)=PP(U):PP(U)=ZW:ZW=MP(T):MP(T)=MP(U):MP(U)=ZW
910 NEXTU,T
915 KP=0:ZZ=6:FORX=SP(AA)TOSP(AA+3):KP=KP+1:KP$=RIGHT$(STR$(KP),1)+".":SG$=RIGHT$(STR$(SG(X)),2):GS$=RIGHT$(STR$(GS(X)),2)
935 US$=RIGHT$(STR$(US(X)),2):VS$=RIGHT$(STR$(VS(X)),2):GT$=RIGHT$(STR$(GT(X)),2):GG$=RIGHT$(STR$(GG(X)),2):DY=GT(X)-GG(X):DY$=STR$(DY):IFLEN(DY$)=3ANDSGN(DY)=-1THENDY$=DY$
950 IFLEN(DY$)=3ANDSGN(DY)=1THENDY$="+"+RIGHT$(DY$,2)
955 IFLEN(DY$)=2ANDSGN(DY)=-1THENDY$="- "+RIGHT$(DY$,1)
960 IFLEN(DY$)=2ANDSGN(DY)=1THENDY$="+ "+RIGHT$(DY$,1)
965 IFSGN(DY)=0THENDY$=" "+DY$
970 PP$=RIGHT$(STR$(PP(X)),1):MP$=RIGHT$(STR$(MP(X)),1):ZZ=ZZ+1:SYSPA,ZZ,0,"[158]"KP$;VR$(X);TAB(14);SG$;" ";GS$;US$;VS$;" ";GT$;":";:PRINTGG$;"  ";DY$;"  ";PP$;"-";MP$:NEXTX:FORN=AATOAA+3:IFSG(SP(N))<3THENTB(EE/12)=0:GOTO1005
1000 IFSG(SP(N))=3THENNEXTN:TB(EE/12)=1
1005 SYSPA,22,0,"[154] [205][154]ENUE          [211][154]PIELE          [196][154]RUCKEN [146]";
1010 GETA$:IFA$=""THEN1010
1015 IFA$="M"THEN70
1020 IFA$="D"THENGOSUB3625:GOTO1005
1025 IFA$="S"THENPRINT"[147]":GOTO260
1030 GOTO1010
1040 PRINT"[147]":POKEBS,11:SYSPA,1,FNA(XA),"[153]"ME$(XA):SYSPA,2,FNA(XA)+1,"[155]-------------------":SYSPA,5,0,"[205]ANNSCHAFT     [211]   [212]ORE   [196]   [208]UNKTE":SYSPA,6,0,"[155]------------------------------------"
1062 FORN=1TO6:IFTB(N)=0THENTB=0:GOTO1065
1063 IFTB(N)=1THENNEXTN:TB=1
1065 IFSV(7)=1THEN1400
1070 SV(7)=1:L=0:FORT=3TO24STEP4:L=L+1:XY$(L)=VR$(T):PL(L)=PP(T):MI(L)=MP(T):GE(L)=GT(T):GN(L)=GG(T):GR(L)=T:SL(L)=SG(T):NEXT:FORX=1TO5:FORY=XTO6:DX=GE(X)-GN(X):DY=GE(Y)-GN(Y):IFPL(Y)<PL(X)THEN1195
1085 IFPL(Y)=PL(X)ANDMI(Y)>MI(X)THEN1195
1090 IFPL(Y)=PL(X)ANDMI(Y)=MI(X)ANDDX>DYTHEN1195
1095 IFPL(Y)=PL(X)ANDMI(Y)=MI(X)ANDDX=DYANDGE(Y)<GE(X)THEN1195
1100 IFPL(Y)=PL(X)ANDMI(Y)=MI(X)ANDDX=DYANDGE(Y)=GE(X)THEN1111
1105 GOTO1175
1111 IFTB=0THEN1175
1115 FORT=1TO6:IFSL(T)=3THENNEXTT
1120 IFT<=6ANDSL(T)<3THEN1175
1125 IFX=YTHEN1175
1130 POKEBS,27:SYSPA,10,1,"[204]OSENTSCHEID !":SYSPA,12,1,"1 - ";XY$(Y):SYSPA,14,1,"2 - ";XY$(X)
1140 GETA$:IFA$=""THEN1140
1145 IFA$<"1"ORA$>"2"THEN1140
1150 SYSPA,10,1,"                ":SYSPA,12,1,"                ":SYSPA,14,1,"                ":POKEBS,11:IFA$="1"THEN1175
1165 IFA$="2"THEN1195
1175 ZW$=XY$(X):XY$(X)=XY$(Y):XY$(Y)=ZW$:ZW=GE(X):GE(X)=GE(Y):GE(Y)=ZW:ZW=GN(X):GN(X)=GN(Y):GN(Y)=ZW:ZW=PL(X):PL(X)=PL(Y):PL(Y)=ZW:ZW=MI(X):MI(X)=MI(Y):MI(Y)=ZW:ZW=SL(X):SL(X)=SL(Y):SL(Y)=ZW
1190 ZW=GR(X):GR(X)=GR(Y):GR(Y)=ZW
1195 NEXTY,X:FORX=1TO6:IFSL(X)<3THENAC=0:AH=0:GOTO1400
1205 IFSL(X)=3THENNEXTX:FORT=1TO4:AF(T)=INT((GR(T)/4)+.75):NEXTT:AC=1:GOTO1400
1215 FORX=1TO3:FORY=XTO4:IFAF(Y)<AF(X)THENB=AF(X):AF(X)=AF(Y):AF(Y)=B
1225 NEXTY,X:FORX=1TO4STEP2:AF$=AF$+RIGHT$(STR$(AF(X)),1)+RIGHT$(STR$(AF(X+1)),1):NEXTX:IFAF$="1234"THENGOSUB1330:GOSUB1335:GOSUB1350:GOSUB1365:GOTO1380
1245 IFAF$="1235"THENGOSUB1320:GOSUB1340:GOSUB1355:GOSUB1365:GOTO1380
1250 IFAF$="1236"THENGOSUB1320:GOSUB1340:GOSUB1360:GOSUB1365:GOTO1380
1255 IFAF$="1245"THENGOSUB1320:GOSUB1340:GOSUB1355:GOSUB1370:GOTO1380
1260 IFAF$="1246"THENGOSUB1320:GOSUB1340:GOSUB1360:GOSUB1370:GOTO1380
1265 IFAF$="1256"THENGOSUB1320:GOSUB1340:GOSUB1360:GOSUB1375:GOTO1380
1270 IFAF$="1345"THENGOSUB1330:GOSUB1335:GOSUB1355:GOSUB1365:GOTO1380
1275 IFAF$="1346"THENGOSUB1330:GOSUB1335:GOSUB1360:GOSUB1365:GOTO1380
1280 IFAF$="1356"THENGOSUB1320:GOSUB1345:GOSUB1355:GOSUB1365:GOTO1380
1285 IFAF$="1456"THENGOSUB1320:GOSUB1345:GOSUB1355:GOSUB1370:GOTO1380
1290 IFAF$="2345"THENGOSUB1330:GOSUB1340:GOSUB1355:GOSUB1365:GOTO1380
1295 IFAF$="2346"THENGOSUB1330:GOSUB1340:GOSUB1360:GOSUB1365:GOTO1380
1300 IFAF$="2356"THENGOSUB1325:GOSUB1340:GOSUB1360:GOSUB1375:GOTO1380
1305 IFAF$="2456"THENGOSUB1330:GOSUB1340:GOSUB1360:GOSUB1375:GOTO1380
1310 IFAF$="3456"THENGOSUB1330:GOSUB1345:GOSUB1355:GOSUB1365:GOTO1380
1320 AF$(2)=VR$(3):RETURN
1325 AF$(2)=VR$(11):RETURN
1330 AF$(2)=VR$(15):RETURN
1335 AF$(6)=VR$(3):RETURN
1340 AF$(6)=VR$(7):RETURN
1345 AF$(6)=VR$(23):RETURN
1350 AF$(8)=VR$(7):RETURN
1355 AF$(8)=VR$(19):RETURN
1360 AF$(8)=VR$(23):RETURN
1365 AF$(12)=VR$(11):RETURN
1370 AF$(12)=VR$(15):RETURN
1375 AF$(12)=VR$(19):RETURN
1380 AF$(1)=VR$(5):AF$(3)=VR$(2):AF$(4)=VR$(10):AF$(5)=VR$(9):AF$(7)=VR$(13):AF$(9)=VR$(22):AF$(10)=VR$(6):AF$(11)=VR$(1):AF$(13)=VR$(17):AF$(14)=VR$(14):AF$(15)=VR$(21):AF$(16)=VR$(18)
1391 AH=1:RETURN
1400 ZZ=6:FORX=1TO6:KP$=RIGHT$(STR$(X),1)+".":SG$=RIGHT$(STR$(SL(X)),2):GT$=RIGHT$(STR$(GE(X)),2):GG$=RIGHT$(STR$(GN(X)),2):DY=GE(X)-GN(X):DY$=STR$(DY):IFLEN(DY$)=3ANDSGN(DY)=-1THEN1450
1430 IFLEN(DY$)=3ANDSGN(DY)=1THENDY$="+"+RIGHT$(DY$,2):GOTO1450
1435 IFLEN(DY$)=2ANDSGN(DY)=-1THENDY$="- "+RIGHT$(DY$,1):GOTO1450
1440 IFLEN(DY$)=2ANDSGN(DY)=1THENDY$="+ "+RIGHT$(DY$,1):GOTO1450
1445 IFSGN(DY)=0THENDY$=" "+DY$
1450 PP$=RIGHT$(STR$(PL(X)),1):MP$=RIGHT$(STR$(MI(X)),1):ZZ=ZZ+1:SYSPA,ZZ,0,"[158]"KP$;XY$(X);TAB(14);SG$;"  ";GT$;":";GG$;"  ";DY$;"    ";PP$;:PRINT"-";MP$:NEXTX:POKEBS,27:IFTB=0THEN1485
1471 IFAH=1THEN1485
1475 IFAC=1THENSYSPA,15,0,"[193]CHTELFINALPAARUNGEN WERDEN BERECHNET !"
1480 IFAC=1THENGOSUB1215:FORX=0TO39:SYSPA,15,X," ":NEXTX
1485 SYSPA,22,0,"[154] [205][154]ENUE                          [196][154]RUCKEN [146]";
1490 GETA$:IFA$=""THEN1490
1495 IFA$="M"THEN70
1500 IFA$="D"THENGOSUB3625:GOTO1485
1505 GOTO1490
1515 PT=1
1520 POKEBS,11:PRINT"[147]":IFPT=1THENSYSPA,1,7,"[153][193]CHTELFINALE [211]PIELE 1 - 4"
1530 IFPT=2THENSYSPA,1,7,"[153][193]CHTELFINALE [211]PIELE 5 - 8"
1535 SYSPA,2,7,"[155]-------------------------":IFAC=0ORAH=0THENSYSPA,4,1,"[214]ORRUNDE NICHT ABGESCHLOSSEN !!!"
1545 IFPT=1THENAX=36:ZZ=3
1550 IFPT=2THENAX=40:ZZ=3
1555 IFPT=1THENFORX=1TO8STEP2
1560 IFPT=2THENFORX=9TO16STEP2
1565 ZZ=ZZ+3:AX=AX+1:SYSPA,ZZ,1,LI$(AX):SYSPA,ZZ+1,1,""AF$(X):SYSPA,ZZ+1,14,"-":SYSPA,ZZ+1,16,""AF$(X+1):SYSPA,ZZ+1,29,""TA$(X):SYSPA,ZZ+1,31,":":SYSPA,ZZ+1,33,""TA$(X+1):NEXTX
1600 GOSUB4286:IFPT=1THENSYSPA,23,0,"[154]       [193][154]CHTELFINALE [211]PIELE 5 - 8        [146]";
1610 IFPT=2THENSYSPA,23,0,"[154]       [193][154]CHTELFINALE [211]PIELE 1 - 4        [146]";
1615 GETA$:IFA$=""THEN1615
1620 IFA$="A"ANDPT=1THENPT=2:GOTO1520
1625 IFA$="A"ANDPT=2THENPT=1:GOTO1520
1630 IFA$="E"ANDSV(7)=1ANDAC=1ANDAH=1THENPRINT"":GOTO1650
1635 IFA$="M"THEN70
1640 IFA$="D"THENGOSUB3625:GOTO1600
1645 GOTO1615
1650 GOSUB4291:ZZ=4:IFPT=1THENFORX=1TO8STEP2
1675 IFPT=2THENFORX=9TO16STEP2
1680 ZZ=ZZ+3:IFTA$(X)="--"THENSYSPA,ZZ,29,"  ":SYSPA,ZZ,33,"  "
1690 SYSIK,ZZ,29,2,DE$,O3$:IFO3$=""THENTA$(X)="--":TA$(X+1)="--":SYSPA,ZZ,29,TA$(X)
1700 IFO3$=""THENSYSPA,ZZ,33,TA$(X+1):GOTO1735
1705 TA$(X)=O3$:SYSIK,ZZ,33,2,DE$,O4$:IFO4$=""THENTA$(X+1)="--":TA$(X)="--":SYSPA,ZZ,29,TA$(X)
1720 IFO4$=""THENSYSPA,ZZ,33,TA$(X+1):GOTO1735
1725 TA$(X+1)=O4$:IFTA$(X+1)=TA$(X)THEN1690
1735 NEXTX:IFVAL(TA$(1))>VAL(TA$(2))THENVF$(7)=AF$(1)
1745 IFVAL(TA$(1))<VAL(TA$(2))THENVF$(7)=AF$(2)
1750 IFVAL(TA$(3))>VAL(TA$(4))THENVF$(5)=AF$(3)
1755 IFVAL(TA$(3))<VAL(TA$(4))THENVF$(5)=AF$(4)
1760 IFVAL(TA$(5))>VAL(TA$(6))THENVF$(1)=AF$(5)
1765 IFVAL(TA$(5))<VAL(TA$(6))THENVF$(1)=AF$(6)
1770 IFVAL(TA$(7))>VAL(TA$(8))THENVF$(6)=AF$(7)
1775 IFVAL(TA$(7))<VAL(TA$(8))THENVF$(6)=AF$(8)
1780 IFVAL(TA$(9))>VAL(TA$(10))THENVF$(3)=AF$(9)
1785 IFVAL(TA$(9))<VAL(TA$(10))THENVF$(3)=AF$(10)
1790 IFVAL(TA$(11))>VAL(TA$(12))THENVF$(4)=AF$(11)
1795 IFVAL(TA$(11))<VAL(TA$(12))THENVF$(4)=AF$(12)
1800 IFVAL(TA$(13))>VAL(TA$(14))THENVF$(2)=AF$(13)
1805 IFVAL(TA$(13))<VAL(TA$(14))THENVF$(2)=AF$(14)
1810 IFVAL(TA$(15))>VAL(TA$(16))THENVF$(8)=AF$(15)
1815 IFVAL(TA$(15))<VAL(TA$(16))THENVF$(8)=AF$(16)
1816 FORX=1TO16:IFTA$(X)<>"--"THENNEXTX:AN=1:GOTO1820
1817 IFTA$(X)="--"THENAN=0
1820 GOTO1615
1830 POKEBS,11:PRINT"[147]":SYSPA,1,FNA(XA),"[153]"ME$(XA):SYSPA,2,FNA(XA)+1,"[155]-------------":IFAN=0THENSYSPA,4,1,"[193]CHTELFINALE NICHT ABGESCHLOSSEN !!!"
1850 AX=44:ZZ=3:FORX=1TO8STEP2:ZZ=ZZ+3:AX=AX+1:SYSPA,ZZ,1,LI$(AX):SYSPA,ZZ+1,1,""VF$(X):SYSPA,ZZ+1,14,"-":SYSPA,ZZ+1,16,""VF$(X+1):SYSPA,ZZ+1,29,""TV$(X):SYSPA,ZZ+1,31,":":SYSPA,ZZ+1,33,""TV$(X+1)
1890 NEXTX
1895 GOSUB4286
1900 GETA$:IFA$=""THEN1900
1905 IFA$="E"ANDAN=1THENPRINT"":GOTO1930
1910 IFA$="D"THENGOSUB3625:GOTO1895
1915 IFA$="M"THEN70
1920 GOTO1900
1930 ZZ=4:A1=0:GOSUB4292:FORX=1TO8STEP2:ZZ=ZZ+3:A1=A1+1:IFTV$(X)="--"THENSYSPA,ZZ,29,"  ":SYSPA,ZZ,33,"  "
1955 SYSIK,ZZ,29,2,DE$,O3$:IFO3$=""THENTV$(X)="--":TV$(X+1)="--":SYSPA,ZZ,29,TV$(X)
1965 IFO3$=""THENSYSPA,ZZ,33,TV$(X+1):GOTO2015
1970 TV$(X)=O3$:SYSIK,ZZ,33,2,DE$,O4$:IFO4$=""THENTH$(X+1)="--":TH$(X)="--":SYSPA,ZZ,29,TH$(X)
1985 IFO4$=""THENSYSPA,ZZ,33,TH$(X+1):GOTO2015
1990 TV$(X+1)=O4$:IFTV$(X+1)=TV$(X)THEN1955
2000 IFVAL(TV$(X))=VAL(TV$(X+1))THEN2015
2005 IFVAL(TV$(X))>VAL(TV$(X+1))THENHF$(A1)=VF$(X):GOTO2015
2010 HF$(A1)=VF$(X+1)
2015 NEXTX:FORX=1TO8:IFTV$(X)<>"--"THENNEXTX:VF=1:GOTO2020
2017 IFTV$(X)="--"THENVF=0
2020 GOTO1900
2030 PRINT"[147][154]":POKEBS,11:SYSPA,1,FNA(XA),"[153]"ME$(XA):SYSPA,2,FNA(XA)+1,"[155]----------":IFVF=0THENWM$="":WM=0:SYSPA,4,1,"[214]IERTELFINALE NICHT ABGESCHLOSSEN!"
2050 AX=48:ZZ=3:FORX=1TO4STEP2:ZZ=ZZ+3:AX=AX+1:SYSPA,ZZ,1,LI$(AX):SYSPA,ZZ+1,1,""HF$(X):SYSPA,ZZ+1,14,"-":SYSPA,ZZ+1,16,""HF$(X+1):SYSPA,ZZ+1,29,""TH$(X):SYSPA,ZZ+1,31,":":SYSPA,ZZ+1,33,""TH$(X+1)
2100 NEXTX
2105 GOSUB4286
2110 GETA$:IFA$=""THEN2110
2115 IFA$="E"ANDVF=1THENPRINT"":GOTO2140
2120 IFA$="D"THENGOSUB3625:GOTO2105
2125 IFA$="M"THEN70
2130 GOTO2110
2140 ZZ=4:A1=0:GOSUB4293:FORX=1TO4STEP2:ZZ=ZZ+3:A1=A1+1:IFTH$(X)="--"THENSYSPA,ZZ,29,"  ":SYSPA,ZZ,33,"  "
2165 SYSIK,ZZ,29,2,DE$,O3$:IFO3$=""THENTH$(X)="--":TH$(X+1)="--":SYSPA,ZZ,29,TH$(X)
2175 IFO3$=""THENSYSPA,ZZ,33,TH$(X+1):GOTO2220
2180 TH$(X)=O3$:SYSIK,ZZ,33,2,DE$,O4$:IFO4$=""THENTH$(X+1)="--":TH$(X)="--":SYSPA,ZZ,29,TH$(X)
2195 IFO4$=""THENSYSPA,ZZ,33,TH$(X+1):GOTO2220
2200 TH$(X+1)=O4$:IFTH$(X+1)=TH$(X)THEN2165
2210 IF(VAL(TH$(X)))>(VAL(TH$(X+1)))THENFI$(A1)=HF$(X):PD$(A1)=HF$(X+1)
2215 IF(VAL(TH$(X)))<(VAL(TH$(X+1)))THENFI$(A1)=HF$(X+1):PD$(A1)=HF$(X)
2220 NEXTX:FORX=1TO4:IFTH$(X)<>"--"THENNEXTX:HF=1:GOTO2223
2222 IFTH$(X)="--"THENHF=0
2223 GOTO2110
2230 PRINT"[147][154]":POKEBS,11:SYSPA,1,FNA(XA),"[153]"ME$(XA):SYSPA,2,FNA(XA)+1,"[155]----------------":IFHF=0THENSYSPA,4,1,"[200]ALBFINALE NICHT ABGESCHLOSSEN !!!"
2250 SYSPA,6,1,LI$(51):SYSPA,8,1,""PD$(1):SYSPA,8,14,"-":SYSPA,8,16,""PD$(2):SYSPA,8,29,TD$(1):SYSPA,8,31,":":SYSPA,8,33,""TD$(2)
2285 GOSUB4286
2290 GETA$:IFA$=""THEN2290
2295 IFA$="E"ANDHF=1THENPRINT"":GOTO2315
2300 IFA$="D"THENGOSUB3625:GOTO2285
2305 IFA$="M"THEN70
2310 GOTO2290
2315 IFTD$(1)="--"THENSYSPA,8,29,"  ":SYSPA,8,33,"  "
2320 SYSIK,8,29,2,DE$,O5$:IFO5$=""THENTD$(1)="--":TD$(2)="--":SYSPA,8,29,TD$(1)
2330 IFO5$=""THENSYSPA,8,33,TD$(2):GOTO2290
2335 TD$(1)=O5$:SYSIK,8,33,2,DE$,O6$:IFO6$=""THENTD$(1)="--":TD$(2)="--":SYSPA,8,29,TD$(1)
2350 IFO6$=""THENSYSPA,8,33,TD$(2):GOTO2290
2355 TD$(2)=O6$:IFTD$(1)=TD$(2)THEN2320
2365 IFVAL(TD$(1))>VAL(TD$(2))THENP1$=PD$(1):P2$=PD$(2):GOTO2290
2370 IFVAL(TD$(1))<VAL(TD$(2))THENP1$=PD$(2):P2$=PD$(1):GOTO2290
2390 PRINT"[147][154]":POKEBS,11:SYSPA,1,FNA(XA),"[153]"ME$(XA):SYSPA,2,FNA(XA)+1,"[155]------":IFHF=0THENSYSPA,4,1,"[200]ALBFINALE NICHT ABGESCHLOSSEN !":WM=0:WM$=""
2410 SYSPA,6,1,LI$(52):SYSPA,8,1,""FI$(1):SYSPA,8,14,"-":SYSPA,8,16,""FI$(2):SYSPA,8,29,""TF$(1):SYSPA,8,31,":":SYSPA,8,33,""TF$(2):IFWM=1THENSYSPA,12,11,"[215]ELTMEISTER   1990"
2450 IFWM=1THENSYSPA,13,11,"[155]------------------"
2455 IFWM=1THENSYSPA,15,((40-LEN(WM$))/2),""WM$
2460 GOSUB4286
2465 GETA$:IFA$=""THEN2465
2470 IFA$="E"ANDHF=1THENPRINT"":GOTO2495
2475 IFA$="D"THENGOSUB3625:GOTO2460
2480 IFA$="M"THEN70
2485 GOTO2465
2495 IFTF$(1)="--"THENSYSPA,8,29,"  ":SYSPA,8,33,"  "
2500 SYSIK,8,29,2,DE$,O5$:IFO5$=""THENTF$(1)="--":TF$(2)="--":WM$="":WM=0:GOTO2465
2510 TF$(1)=O5$:SYSIK,8,33,2,DE$,O6$:IFO6$=""THENTF$(1)="--":TF$(2)="--":WM$="":WM=0:GOTO2465
2525 TF$(2)=O6$:IFTF$(2)=TF$(1)THEN2500
2535 IF(VAL(TF$(1))>VAL(TF$(2)))THENWM$=FI$(1):WM=1:GOTO2550
2540 WM$=FI$(2):WM=1
2550 PRINT"[147]":FORK=1TO50:SYSPA,8,10," [215]ELTMEISTER   1990 [146]":FORX=1TO200STEP(K/5):NEXTX:SYSPA,8,10," [215]ELTMEISTER   1990 ":FORX=1TO200STEP(K/5):NEXTX:NEXTK:SYSPA,8,10," [215]ELTMEISTER   1990 ":SYSPA,10,((40-LEN(WM$))/2)-1,"[176]"
2580 SYSPA,11,((40-LEN(WM$))/2)-1,"[221]":SYSPA,12,((40-LEN(WM$))/2)-1,"[173]":SYSPA,10,((40-LEN(WM$))/2)+LEN(WM$),"[174]":SYSPA,11,((40-LEN(WM$))/2)+LEN(WM$),"[221]":SYSPA,12,((40-LEN(WM$))/2)+LEN(WM$),"[189]":FORX=1TOLEN(WM$):SYSPA,10,((40-LEN(WM$))/2)-1+X,"[192]"
2605 SYSPA,12,((40-LEN(WM$))/2)-1+X,"[192]":NEXTX:FORK=1TO50:SYSPA,11,((40-LEN(WM$))/2),""WM$:FORX=1TO200STEP(K/5):NEXTX:SYSPA,11,((40-LEN(WM$))/2),""WM$"[146]":FORX=1TO200STEP(K/5):NEXTX:NEXTK:SYSPA,11,((40-LEN(WM$))/2),WM$:SYSPA,22,0,"[154]                 [205][154]ENUE                  [146]";
2635 GETA$:IFA$=""THEN2635
2640 IFA$<>"M"THEN2635
2645 GOTO70
2655 PRINT"[147]":SYSPA,1,1,"[153][212]ORSCHUETZEN":SYSPA,2,1,"[155]------------":SYSPA,6,1,"[158]1 - [206]EUE [212]ORSCHUETZEN":SYSPA,8,1,"2 - [212]ORSCHUETZENLISTE":SYSPA,22,0,"[154]                 [205][154]ENUE                 [146]";
2680 GETA$:IFA$=""THEN2680
2685 IFA$<"1"ORA$>"2"ANDA$<"M"ORA$>"M"THEN2680
2690 IFA$="1"THEN2715
2695 IFA$="2"ANDAT(1)=0THEN2680
2700 IFA$="2"THEN2865
2705 IFA$="M"THEN70
2715 POKEBS,11:PRINT"[147]":SYSPA,1,1,"[153][206]EUE [212]ORSCHUETZEN":SYSPA,2,1,"[155]-----------------":IFAT+1>162THENSYSPA,5,1,"[203]EIN WEITERER [197]INTRAG MOEGLICH !!!":POKEBS,27
2722 IFAT+1>162THENPOKE198,0:WAIT198,1:GOTO2655
2725 Z1=4:FORX=1TO12:Z1=Z1+1:SYSPA,Z1,1,"[158]"RIGHT$(STR$(X),2);" - ";VE$(X):SYSPA,Z1,20,"[158]"RIGHT$(STR$(X+12),2);" - ";VE$(X+12):NEXTX:POKEBS,27
2750 IFAS=0THENAS=1:AT(AS)=AT(AS)+1:GOTO2765
2755 IFAT(AS)=18THENAS=AS+1:AT(AS)=AT(AS)+1:GOTO2765
2760 AT(AS)=AT(AS)+1
2765 AT=AT+1:SYSPA,18,1,"[158][211]PIELERNAME:":SYSPA,19,14,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][158]":SYSPA,18,14,"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":SYSPA,20,7,"[160][160]"
2775 SYSIK,18,14,17,DT$,TS$:IFTS$=""THEN2775
2780 SYSPA,20,1,"[158][204]AND:":SYSPA,21,7,"[163][163]"
2785 SYSIK,20,7,2,"1234567890",VT$:IFVT$=""THEN2785
2790 IFVAL(VT$)>24THEN2785
2795 IFAS=1THENTS$(AT(AS))=TS$:VT(AT(AS))=VAL(VT$)
2810 IFAS>1THENTS$(AT(AS)+(AS-1)*18)=TS$
2815 IFAS>1THENVT(AT(AS)+(AS-1)*18)=VAL(VT$)
2825 VT$="":TS$="":SYSPA,22,0,"[154] [212][154]ORSCHUETZENLISTE    [205][154]ENUE     [197][154]INGABE [146]";
2835 GETA$:IFA$=""THEN2835
2840 IFA$="T"THEN2865
2845 IFA$="M"THEN70
2850 IFA$="E"THEN2750
2855 GOTO2835
2865 NS=1:NT=1:ZZ=2:AS=INT(AS)
2870 POKEBS,11:PRINT"[147]":SYSPA,1,5,"[212]ORSCHUETZE:":SYSPA,1,23,"[204]AND:":SYSPA,1,35,"[212]ORE:":SYSPA,2,2,"[155]--------------------------------------":FORX=((NS*18)-17)TO((NS-1)*18+AT(NS))
2890 ZZ=ZZ+1:SYSPA,ZZ,1,"[158]"RIGHT$(STR$(X),3)".":SYSPA,ZZ,5,"[153]"TS$(X):SYSPA,ZZ,23,""VE$(VT(X)):SYSPA,ZZ,36,""RIGHT$(STR$(TA(X)),2):NEXTX:SYSPA,21,0,"[154] [198]1/[198]3[154] = [194]LAETTERN    [205][154]ENUE   [211][154]ORTIEREN [146]":SYSPA,22,0," [193][154]ENDERN   [196][154]RUCKEN   [197][154]INGABE   [204][154]OESCHEN [146]"
2930 SYSPA,23,0," [195][210][211][210] UP/DOWN[154] = [210]AUF/[210]UNTER  +/-[154] = [212]ORE [146]";
2935 ZE=3:SP=0
2940 SYSPA,ZE,SP,">[154]":POKEBS,27
2945 GETA$:IFA$=""THEN2945
2950 IFA$=""THEN3430
2955 IFA$="[145]"THEN3445
2960 IFA$="E"THEN2655
2965 IFA$="M"THEN70
2970 IFA$="[133]"ANDAS>1THEN3020
2975 IFA$="[134]"ANDAS>1THEN3040
2980 IFA$="+"THENFL=0:GOTO3055
2985 IFA$="-"THENFL=0:GOTO3075
2990 IFA$="A"THEN3095
2995 IFA$="L"THEN3295
3000 IFA$="S"ANDFL=0THEN3365
3005 IFA$="D"THEN3700
3010 GOTO2945
3020 IFNS+1>9THENNS=1:ZZ=2:NT=(NS-1)*18+1:GOTO2870
3025 IFAT(NS+1)>0THENNS=NS+1:NT=(NS-1)*18+1:ZZ=2:GOTO2870
3030 IF(NS=1ANDAT(NS+1)=0)OR(NS+1>AS)THENNS=1:NT=(NS-1)*18+1:ZZ=2:GOTO2870
3040 IFNS-1>0THENNS=NS-1:NT=(NS-1)*18+1:ZZ=2:GOTO2870
3045 IFNS-1=0THENNS=AS:NT=(NS-1)*18+1:ZZ=2:GOTO2870
3055 IFTA(NT)<99THENTA(NT)=TA(NT)+1:GOTO3065
3060 IFTA(NT)=99THENTA(NT)=0:GOTO3065
3065 SYSPA,ZE,36,"   ":SYSPA,ZE,36,""RIGHT$(STR$(TA(NT)),2):GOTO2945
3075 IFTA(NT)=0THENTA(NT)=99:GOTO3085
3080 IFTA(NT)>0THENTA(NT)=TA(NT)-1:GOTO3085
3085 SYSPA,ZE,36,"   ":SYSPA,ZE,36,""RIGHT$(STR$(TA(NT)),2):GOTO2945
3095 PRINT"[147]":SYSPA,1,1,"[153][203]ORREKTUR":SYSPA,2,1,"[155]---------":SYSPA,5,1,"[158][215]AS SOLL KORRIGIERT WERDEN ?":SYSPA,7,1,"1 - [206]AME":SYSPA,9,1,"2 - [204]AND"
3115 GETA$:IFA$=""THEN3115
3120 IFA$<"1"ORA$>"2"THEN3115
3125 IFA$="1"THEN3140
3130 IFA$="2"THEN3200
3140 PRINT"[147]":SYSPA,1,1,"[153][203]ORREKTUR DES [206]AMENS":SYSPA,2,1,"[155]--------------------":SYSPA,4,1,"[158][193]LTER [206]AME:":SYSPA,4,13,TS$(NT):SYSPA,6,13,"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":SYSPA,6,1,"[206]EUER [206]AME:":SYSPA,7,13,"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
3160 SYSIK,6,13,17,DT$,TS$:IFTS$=""THEN3160
3165 TS$(NT)=TS$:TS$="":SYSPA,22,0,"[154] [212][154]ORSCHUETZENLISTE                [205][154]ENUE [146]";
3175 GETA$:IFA$=""THEN3175
3180 IFA$="T"THEN2865
3185 IFA$="M"THEN70
3190 GOTO3175
3200 POKEBS,11:PRINT"[147]":SYSPA,1,1,"[153][203]ORREKTUR DES [204]ANDES":SYSPA,2,1,"[155]--------------------":Z1=3:FORX=1TO12:Z1=Z1+1:SYSPA,Z1,1,"[158]"RIGHT$(STR$(X),2);" - ";VE$(X):SYSPA,Z1,20,"[158]"RIGHT$(STR$(X+12),2);" - ";VE$(X+12)
3225 NEXTX:SYSPA,18,1,"[158][193]LTES [204]AND:":SYSPA,18,13,VE$(VT(NT)):POKEBS,27:SYSPA,20,1,"[158][206]EUES [204]AND:":SYSPA,21,13,"[163][163]":SYSPA,20,13,"[160][160]"
3245 SYSIK,20,13,2,"1234567890",VT$:IFVT$=""ORVAL(VT$)>24THEN3245
3250 VT(NT)=VAL(VT$):VT$="":SYSPA,22,0,"[154] [212][154]ORSCHUETZENLISTE                [205][154]ENUE [146]";
3270 GETA$:IFA$=""THEN3270
3275 IFA$="T"THEN2865
3280 IFA$="M"THEN70
3285 GOTO3270
3295 PRINT"[147][215]IRKLICH ([202]/[206]) ?"
3300 GETA$:IFA$=""THEN3300
3305 IFA$="J"THEN3320
3310 IFA$="N"THEN2865
3315 GOTO3300
3320 PRINT"[147]":AT=0:FORX=1TO9:AT=AT+AT(X):NEXT:FORX=NTTOAT:TS$(X)=TS$(X+1):VT(X)=VT(X+1):TA(X)=TA(X+1):NEXT:TS$(AT)="":VT(AT)=0:TA(AT)=0:AT=AT-1:IFAT(AS)>1THENAT(AS)=AT(AS)-1:GOTO2865
3350 IFAT(AS)=1THENAS=AS-1:AT(AS+1)=0:IFAS>=1THEN2865
3355 GOTO2655
3365 AT=0:PRINT"[147][158][210]EIHENFOLGE WIRD BERECHNET !":FORX=1TO9:AT=AT+AT(X):NEXT:FORT=1TOAT-1:FORU=TTOAT:IFTA(U)<=TA(T)THEN3410
3390 ZW$=TS$(T):TS$(T)=TS$(U):TS$(U)=ZW$:ZW=VT(T):VT(T)=VT(U):VT(U)=ZW:ZW=TA(T):TA(T)=TA(U):TA(U)=ZW
3410 NEXTU,T:FL=1:IFTF=1THENTF=0:GOTO3700
3420 GOTO2865
3430 IFZE<AT(NS)+2THENSYSPA,ZE,0," ":ZE=ZE+1:NT=NT+1:GOTO2940
3435 IFZE=AT(NS)+2THENSYSPA,ZE,0," ":NT=(NS-1)*18+1:GOTO2935
3445 IFZE>3THENSYSPA,ZE,0," ":ZE=ZE-1:NT=NT-1:GOTO2940
3450 IFZE=3THENSYSPA,ZE,0," ":ZE=AT(NS)+2:NT=AT(NS)+((NS-1)*18):GOTO2940
3490 POKEBS,11:PRINT"[147]":SYSPA,0,14,"[176][192][192][192][192][192][192][192][192][192][174]":SYSPA,1,14,"[221][196]ISKMENUE[221]":SYSPA,2,14,"[173][192][192][192][192][192][192][192][192][192][189]":DEFFNB(X)=(40-LEN(MN$(X)))/2:YA=4:FORX=1TO5:YA=YA+3:SYSPA,YA,FNB(X),MN$(X):NEXTX:SYSPA,24,0,"[159][160][160][160][160][160][160][160]([195])[160]1990[160]BY[160][211]TRESING-[211]OFT[160][160][160][160][160][160][160][146]";:POKEBS,27
3525 YA=7:XA=1:SYSPA,YA,FNB(XA),"[153]"MN$(XA)"[146]"
3535 GETA$:IFA$=""THEN3535
3540 IFA$=""THEN3565
3545 IFA$="[145]"THEN3590
3550 IFA$=CHR$(13)THEN3615
3555 GOTO3535
3565 SYSPA,YA,FNB(XA),MN$(XA):XA=XA+1:YA=YA+3:IFXA=6THENXA=1:YA=7
3580 SYSPA,YA,FNB(XA),"[153]"MN$(XA)"[146]":GOTO3535
3590 SYSPA,YA,FNB(XA),MN$(XA):XA=XA-1:YA=YA-3:IFXA=0THENXA=5:YA=19
3605 SYSPA,YA,FNB(XA),"[153]"MN$(XA)"[146]":GOTO3535
3615 ONXAGOTO3790,3985,4120,4145,70
3625 SYSPA,22,0,"                                        ";:SYSPA,23,0,"                                        ";
3635 SYSPA,22,1,"[158][199]ERAETE-[193]DRESSE (4,5)    ":SYSIK,22,23,1,"45",GA$:GA=VAL(GA$)
3640 IFGA$=""THEN3635
3645 OPENGA,GA:POKE768,61:PRINT#GA:CLOSEGA:POKE768,139:IFST<>0THENSYSPA,22,1,"[196]RUCKER NICHT BETRIEBSBEREIT !!!":POKE198,0:WAIT198,1
3655 IFST<>0THENSYSPA,22,1,"                                ":GOTO70
3665 B=1024:OPENGA,GA,7:PRINT#GA,CHR$(27);"@":FORZ=0TO21:FORS=0TO39:M=B+Z*40+S:X=PEEK(M):IFX>=32ANDX<=63THEN3690
3680 IFX>=64ANDX<=95THENX=X+32:GOTO3690
3685 X=X+64
3690 PRINT#GA,CHR$(X);:NEXTS:PRINT#GA,CHR$(13);:NEXTZ:CLOSEGA:SYSPA,22,1,"                                        ";:RETURN
3700 PRINT"[147]":SYSPA,1,6,"[153][212]ORSCHUETZENLISTE AUSDRUCKEN":SYSPA,2,6,"[155]----------------------------":AT=0
3710 FORX=1TO9:AT=AT+AT(X):NEXT:IFAT=0THENSYSPA,9,1,"[203]EIN [212]ORSCHUETZE EINGETRAGEN !":GOTO4195
3720 GOSUB4225:UE$=CHR$(27)+"-"+CHR$(1):UA$=CHR$(27)+"-"+CHR$(0):OPENGA,GA,7:PRINT#GA:PRINT#GA,UE$;" [212]ORSCHUETZENLISTE";UA$:PRINT#GA,UE$;" [212]ORSCHUETZE:          [204]AND:       [212]ORE:";UA$:FORX=1TOAT:X$=RIGHT$(STR$(X),3)+".":PRINT#GA,X$;TS$(X);
3750 PRINT#GA,CHR$(16)"23";VE$(VT(X));:PRINT#GA,CHR$(16)"36";RIGHT$(STR$(TA(X)),2):NEXTX:CLOSEGA:GOTO2865
3790 PRINT"[147]":SYSPA,1,14,"[153][196]ATEN LADEN":SYSPA,2,14,"[155]-----------":GOSUB4255:GOSUB4287:OPEN2,GA,2,"WM-DATEI'90,S,R":OPEN15,GA,15:INPUT#15,A,B$,C,D:CLOSE15:CLOSE2
3810 IFA<>0THENSYSPA,9,1,"[158]"B$:GOTO4195
3815 OPEN2,GA,2,"WM-DATEI'90,S,R":FORX=1TO72:INPUT#2,TT$(X):NEXT:FORX=1TO24:INPUT#2,VR$(X):INPUT#2,SG(X):INPUT#2,GS(X):INPUT#2,US(X):INPUT#2,VS(X):INPUT#2,GT(X):INPUT#2,GG(X):INPUT#2,PP(X):INPUT#2,MP(X):NEXT:FORX=1TO16:INPUT#2,AF$(X):INPUT#2,TA$(X):NEXT:FORX=1TO8:INPUT#2,VF$(X):INPUT#2,TV$(X):NEXT
3895 FORX=1TO4:INPUT#2,HF$(X):INPUT#2,TH$(X):NEXTX:FORX=1TO2:INPUT#2,PD$(X):INPUT#2,TD$(X):INPUT#2,FI$(X):INPUT#2,TF$(X):NEXT:INPUT#2,WM$:INPUT#2,WM:FORX=1TO7:INPUT#2,SV(X):NEXT:AT=0:FORX=1TO9:INPUT#2,AT(X):NEXT:INPUT#2,AT:AS=AT/18:IFAS-INT(AS)>0THENAS=AS+1
3945 IFAT=0THEN3975
3950 FORX=1TOAT:INPUT#2,TS$(X):INPUT#2,VT(X):INPUT#2,TA(X):NEXTX:INPUT#2,AC:INPUT#2,AH:INPUT#2,AN:INPUT#2,VF:INPUT#2,HF:INPUT#2,TB:FORX=1TO6:INPUT#2,TB(X):NEXT:FORX=1TO6:INPUT#2,XY$(X):INPUT#2,PL(X):INPUT#2,MI(X):INPUT#2,GE(X):INPUT#2,GN(X):INPUT#2,GR(X):INPUT#2,SL(X):NEXTX
3975 CLOSE2:GOTO4195
3985 PRINT"[147]":SYSPA,1,12,"[153][196]ATEN SPEICHERN"
3990 SYSPA,2,12,"[155]---------------":CR$=CHR$(13):GOSUB4255:OPEN1,GA,0,"$":OPEN15,GA,15:INPUT#15,A,B$,C,D:CLOSE1:CLOSE15:IFA<>0THENSYSPA,9,1,"[158]"B$:GOTO4195
4005 OPEN2,GA,2,"WM-DATEI2,S,W":FORX=1TO72:PRINT#2,TT$(X);CR$,:NEXT:FORX=1TO24:PRINT#2,VR$(X);CR$,SG(X);CR$,GS(X);CR$,US(X);CR$,VS(X);CR$,:PRINT#2,GT(X);CR$,GG(X);CR$,PP(X);CR$,MP(X);CR$,:NEXT:FORX=1TO16:PRINT#2,AF$(X);CR$,TA$(X);CR$,:NEXT
4045 FORX=1TO8:PRINT#2,VF$(X);CR$,TV$(X);CR$,:NEXT:FORX=1TO4:PRINT#2,HF$(X);CR$,TH$(X);CR$,:NEXTX:FORX=1TO2:PRINT#2,PD$(X);CR$,TD$(X);CR$,FI$(X);CR$,TF$(X);CR$,:NEXT:PRINT#2,WM$;CR$,WM;CR$,:FORX=1TO7:PRINT#2,SV(X);CR$,:NEXT:AT=0
4075 FORX=1TO9:AT=AT+AT(X):PRINT#2,AT(X);CR$,:NEXT:PRINT#2,AT;CR$,:IFAT=0THEN4105
4090 FORX=1TOAT:PRINT#2,TS$(X);CR$,VT(X);CR$,TA(X);CR$,:NEXT:PRINT#2,AC;CR$,:PRINT#2,AH;CR$,AN;CR$,VF;CR$,HF;CR$,TB;CR$,:FORX=1TO6:PRINT#2,TB(X);CR$,:NEXT:FORX=1TO6:PRINT#2,XY$(X);CR$,PL(X);CR$,MI(X);CR$,GE(X);CR$,GN(X);CR$,
4099 PRINT#2,GR(X);CR$,SL(X);CR$,:NEXTX:CLOSE2
4105 OPEN15,GA,15,"S:WM-DATEI'90":CLOSE15:OPEN15,GA,15,"R:WM-DATEI'90=WM-DATEI2":CLOSE15:GOTO4195
4120 PRINT"[147]":SYSPA,1,15,"[153][196]IRECTORY":SYSPA,2,15,"[155]---------":GOSUB4255:PRINT"[147]":POKE49924,GA:SYS49921:PRINT:PRINT:GOTO4195
4145 PRINT"[147]":SYSPA,1,15,"[153][196]ISKBEFEHL":SYSPA,2,15,"[155]----------":GOSUB4255:SYSPA,6,1,"[158][194]EFEHL:":SYSPA,8,1,">[158][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]<[158]":SYSPA,9,2,"[158][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][163][163][163][163][163][163]"
4175 SYSIK,8,2,37,DF$,BE$:OPEN15,GA,15:PRINT#15,BE$:CLOSE15:OPEN15,GA,15:INPUT#15,A,B$,C,D:CLOSE15:SYSPA,10,1,B$:GOTO4195
4195 SYSPA,22,0,"[154] [196][154]ISKMENUE                        [205][154]ENUE [146]";:POKE198,0
4200 GETC$:IFC$=""THEN4200
4205 IFC$="D"THEN3490
4210 IFC$="M"THEN70
4215 GOTO4200
4225 SYSPA,4,1,"[158][199]ERAETE-[193]DRESSE (4,5) 4":SYSIK,4,23,1,"45",GA$:GA=VAL(GA$):IFGA$=""THEN4225
4235 OPENGA,GA:POKE768,61:PRINT#GA:CLOSEGA:POKE768,139:IFST<>0THENSYSPA,7,1,"[196]RUCKER NICHT BETRIEBSBEREIT !":GOTO4195
4245 RETURN
4255 SYSPA,4,1,"[158][199]ERAETE-[193]DRESSE (8,9) 8":SYSIK,4,23,1,"89",GA$:GA=VAL(GA$):IFGA$=""THEN4255
4265 POKE768,61:POKE144,0:OPEN1,GA,1:CLOSE1:POKE768,139:IFST<>0THENSYSPA,7,1,"[198]LOPPY NICHT BETRIEBSBEREIT !":GOTO4195
4275 OPEN1,GA,0,"$":OPEN15,GA,15:INPUT#15,A,B$,C,D:CLOSE1:CLOSE15:IFA<>0THENSYSPA,9,1,B$:GOTO4195
4285 RETURN
4286 SYSPA,22,0,"[154] [197][154]RGEBNISEINGABE     [196][154]RUCKEN      [205][154]ENUE [146]";:POKEBS,27:RETURN
4287 SV(GR)=0:SV(7)=0:FORX=SP(AA)TOSP(AA+3):VR$(X)=VE$(X):GT(X)=0:GG(X)=0:SG(X)=0:GS(X)=0:US(X)=0:VS(X)=0:PP(X)=0:MP(X)=0:NEXTX:FORX=1TO16:AF$(X)=""
4289 TA$(X)="--":NEXT:AF$="":FORX=1TO6:XY$(X)="":PL(X)=0:MI(X)=0:GE(X)=0:GN(X)=0:SL(X)=0:GR(X)=0:NEXT:AC=0:AH=0:AN=0:TB=0
4291 FORX=1TO8:VF$(X)="":TV$(X)="--":NEXT:VF=0
4292 FORX=1TO4:HF$(X)="":TH$(X)="--":NEXT:HF=0
4293 FORX=1TO2:PD$(X)="":TD$(X)="--":FI$(X)="":TF$(X)="--":NEXT:WM$="":RETURN:DATA "[201]TALIEN"       ,"[207]ESTERREICH","[213][211][193]"         ,"[195][211][211][210]":DATA "[193]RGENTINIEN"   ,"[203]AMERUN"    ,"[213]D[211][211][210]"       ,"[210]UMAENIEN":DATA "[194]RASILIEN"     ,"[211]CHWEDEN"   ,"[195]OSTA [210]ICA"  ,"[211]CHOTTLAND"
4310 DATA "[193]RAB.[197]MIRATE"  ,"[203]OLUMBIEN"  ,"[196]EUTSCHLAND" ,"[202]UGOSLAWIEN":DATA "[194]ELGIEN"       ,"[211]UEDKOREA"  ,"[213]RUGUAY"     ,"[211]PANIEN":DATA "[197]NGLAND"       ,"[201]RLAND"     ,"[200]OLLAND"     ,"[193]EGYPTEN":DATA 1,2,3,4,1,3,2,4,1,4,2,3:DATA 5,6,7,8,5,7,6,8,5,8,6,7
4335 DATA 9,10,11,12,9,11,10,12,9,12,10,11:DATA 13,14,15,16,16,14,15,13,15,14,16,13:DATA 17,18,19,20,17,19,18,20,17,20,18,19:DATA 21,22,23,24,21,23,22,24,21,24,22,23:DATA "[211]AMSTAG,     [158]9.6.'90, 21.00,  [210]OM"
4365 DATA "[211]ONNTAG,    [158]10.6.'90, 17.00,  [198]LORENZ":DATA "[196]ONNERSTAG, [158]14.6.'90, 21.00,  [210]OM":DATA "[198]REITAG,    [158]15.6.'90, 17.00,  [198]LORENZ":DATA "[196]IENSTAG,   [158]19.6.'90, 21.00,  [210]OM":DATA "[196]IENSTAG,   [158]19.6.'90, 21.00,  [198]LORENZ"
4395 DATA "[198]REITAG,     [158]8.6.'90, 18.00,  [205]AILAND":DATA "[211]AMSTAG,     [158]9.6.'90, 17.00,  [194]ARI":DATA "[205]ITTWOCH,   [158]13.6.'90, 21.00,  [206]EAPEL":DATA "[196]ONNERSTAG, [158]14.6.'90, 21.00,  [194]ARI":DATA "[205]ONTAG,     [158]18.6.'90, 21.00,  [206]EAPEL"
4420 DATA "[205]ONTAG,     [158]18.6.'90, 21.00,  [194]ARI":DATA "[211]ONNTAG,    [158]10.6.'90, 21.00,  [212]URIN":DATA "[205]ONTAG,     [158]11.6.'90, 17.00,  [199]ENUA":DATA "[211]AMSTAG,    [158]16.6.'90, 17.00,  [212]URIN":DATA "[211]AMSTAG,    [158]16.6.'90, 21.00,  [199]ENUA"
4450 DATA "[205]ITTWOCH,   [158]20.6.'90, 21.00,  [212]URIN":DATA "[205]ITTWOCH,   [158]20.6.'90, 21.00,  [199]ENUA":DATA "[211]AMSTAG,     [158]9.6.'90, 21.00,  [194]OLOGNA":DATA "[211]ONNTAG,    [158]10.6.'90, 21.00,  [205]AILAND":DATA "[196]ONNERSTAG, [158]14.6.'90, 17.00,  [194]OLOGNA"
4480 DATA "[198]REITAG,    [158]15.6.'90, 21.00,  [205]AILAND":DATA "[196]IENSTAG,   [158]19.6.'90, 17.00,  [205]AILAND":DATA "[196]IENSTAG,   [158]19.6.'90, 17.00,  [194]OLOGNA":DATA "[196]IENSTAG,   [158]12.6.'90, 17.00,  [214]ERONA"
4505 DATA "[205]ITTWOCH,   [158]13.6.'90, 17.00,  [213]DINE":DATA "[211]ONNTAG,    [158]17.6.'90, 21.00,  [214]ERONA":DATA "[211]ONNTAG,    [158]17.6.'90, 21.00,  [213]DINE":DATA "[196]ONNERSTAG, [158]21.6.'90, 17.00,  [214]ERONA":DATA "[196]ONNERSTAG, [158]21.6.'90, 17.00,  [213]DINE"
4535 DATA "[205]ONTAG,     [158]11.6.'90, 21.00,  [195]AGLIARI":DATA "[196]IENSTAG,   [158]12.6.'90, 21.00,  [208]ALERMO":DATA "[211]AMSTAG,    [158]16.6.'90, 21.00,  [195]AGLIARI":DATA "[211]ONNTAG,    [158]17.6.'90, 17.00,  [208]ALERMO"
4555 DATA "[196]ONNERSTAG, [158]21.6.'90, 21.00,  [195]AGLIARI":DATA "[196]ONNERSTAG, [158]21.6.'90, 21.00,  [208]ALERMO":DATA "[211]AMSTAG,    [158]23.6.'90, 17.00,  [206]EAPEL":DATA "[211]AMSTAG,    [158]23.6.'90, 21.00,  [194]ARI":DATA "[211]ONNTAG,    [158]24.6.'90, 17.00,  [212]URIN"
4585 DATA "[211]ONNTAG,    [158]24.6.'90, 21.00,  [205]AILAND":DATA "[205]ONTAG,     [158]25.6.'90, 17.00,  [199]ENUA":DATA "[205]ONTAG,     [158]25.6.'90, 21.00,  [210]OM":DATA "[196]IENSTAG,   [158]26.6.'90, 17.00,  [214]ERONA":DATA "[196]IENSTAG,   [158]26.6.'90, 21.00,  [194]OLOGNA"
4615 DATA "[211]AMSTAG,    [158]30.6.'90, 17.00,  [198]LORENZ":DATA "[211]AMSTAG,    [158]30.6.'90, 21.00,  [210]OM":DATA "[211]ONNTAG,     [158]1.7.'90, 17.00,  [205]AILAND":DATA "[211]ONNTAG,     [158]1.7.'90, 21.00,  [206]EAPEL":DATA "[196]IENSTAG,    [158]3.7.'90, 20.00,  [206]EAPEL"
4645 DATA "[205]ITTWOCH,    [158]4.7.'90, 20.00,  [212]URIN":DATA "[211]AMSTAG,     [158]7.7.'90, 20.00,  [194]ARI":DATA "[211]ONNTAG,     [158]8.7.'90, 20.00,  [210]OM":DATA "[160][199]RUPPEN [193]-[198][160]","[160][212]ABELLE DER [196]RITTEN[160]","[160][193]CHTELFINALE[160]"
4680 DATA " [214]IERTELFINALE[160]","[160][200]ALBFINALE[160]","[160][211]PIEL UM [208]LATZ 3 "," [198]INALE[160]":DATA " [212]ORSCHUETZEN[160]","[160][196]ISKMENUE[160]":DATA "[160][196]ATEN LADEN[160]","[160][196]ATEN SPEICHERN[160]"," [196]IRECTORY[160]":DATA " [196]ISKBEFEHL ","[160][200]AUPTMENUE[160]"