10 CODE=7*4096:VARS=5*4096+6*256:GR=PEEK(CODE+3)+PEEK(CODE+4)*256
12 AC=PEEK(36862)-1:GOSUB1100:GOSUB1200:SYSCODE,3
15 PRINT"[155][194]ITTE WARTEN !"
16 PRINT"[211]TRUKTUREN WERDEN ENTPACKT !":SYSCODE,6,3
18 PRINT"[160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
19 PRINT"[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]":GOSUB2000
20 SYSCODE,6,3:SYSCODE,3:PRINT"[206]AME[194]ERUF[199]EHALT[204].:[209].:"
22 PRINT"----------------------------------------"
39 PRINT""TAB(15)"[197]NTLASSEN":SYSCODE,6,3:POKE2,0
50 CL=PEEK(2):IFCL=0THEN50
55 POKE2,0:IFCL=17THEN3500
70 IFCL>1ANDCL<12THEN3000
110 IFCL=99THENSYSCODE,1,"L.ANSTELL",8
140 GOTO50
1100 REM
1110 RT=PEEK(VARS+7+1+(PEEK(VARS+1)-1)*67):RB=VARS+7+67*4+11+RT*16:AX=PEEK(RB+0)
1150 BX=PEEK(RB+1):CX=PEEK(RB+2):DX=PEEK(RB+3):EX=PEEK(RB+4):RETURN
1200 REM
1210 W=GR+17+AC*31+(PEEK(VARS+2)-1)*31*6:AZ=PEEK(W+0):BZ=PEEK(W+1):CZ=PEEK(W+2)
1250 DZ=PEEK(W+3):EZ=PEEK(W+4):FZ=PEEK(W+5):GZ=PEEK(W+6):HZ=PEEK(W+7):IZ=PEEK(W+8)
1310 JZ=PEEK(W+9):BB=VARS+7+4*67+5*16+32*16:AY=0:FORX=0TO9
1331 IFPEEK(BB+PEEK(W+X)*7)=1THENAY=AY+1
1332 NEXT:BY=0:FORX=0TO9:IFPEEK(BB+PEEK(W+X)*7)=2THENBY=BY+1
1342 NEXT:CY=0:FORX=0TO9:IFPEEK(BB+PEEK(W+X)*7)=3THENCY=CY+1
1352 NEXT:DY=0:FORX=0TO9:IFPEEK(BB+PEEK(W+X)*7)=4THENDY=DY+1
1362 NEXT:EY=0:FORX=0TO9:IFPEEK(BB+PEEK(W+X)*7)=5THENEY=EY+1
1372 NEXT:RETURN
2000 REM
2010 W=GR+17+AC*31+(PEEK(VARS+2)-1)*31*6:BB=VARS+7+4*67+5*16+32*16:DIMXB(10)
2022 DIMXV(10):DIMXN(10):DIMXG(10):DIMXL(10):DIMXQ(10):FORX=0TO9:IFPEEK(W+X)=255THEN2100
2040 XB(X)=PEEK(BB+PEEK(W+X)*7):XG(X)=PEEK(BB+1+PEEK(W+X)*7)*100
2060 XV(X)=PEEK(BB+2+PEEK(W+X)*7):XN(X)=PEEK(BB+3+PEEK(W+X)*7)
2080 XQ(X)=PEEK(BB+4+PEEK(W+X)*7):XL(X)=PEEK(BB+5+PEEK(W+X)*7)
2100 NEXTX:FORX=0TO9:FORI=0TO6:POKE1224+X*40+I,PEEK(VARS+355+I+XV(X)*8):NEXTI:NEXTX:FORX=0TO9
2160 FORI=0TO3:POKE1232+X*40+I,PEEK(VARS+611+I+XN(X)*8):NEXTI:NEXTX:PRINT"";:FORX=0TO9
2195 PRINT"";:ZG=PEEK(VARS+7+4*67+5*16+7):IFZG=1THEN2230
2220 IFXB(X)=1THENPRINTTAB(13)"[203]OCH[157][157][157][157]";
2221 IFXB(X)=2THENPRINTTAB(13)"[199]EHILFE[157][157][157][157][157][157][157]";
2222 IFXB(X)=3THENPRINTTAB(13)"[203]ELLNER[157][157][157][157][157][157][157]";
2223 IFXB(X)=4THENPRINTTAB(13)"[208]UTZMANN[157][157][157][157][157][157][157][157]";
2224 IFXB(X)=5THENPRINTTAB(13)"[193]USFAHRER[157][157][157][157][157][157][157][157][157]";
2225 GOTO2240
2230 IFXB(X)=1THENPRINTTAB(13)"[203]*CHIN[157][157][157][157][157][157]";
2231 IFXB(X)=2THENPRINTTAB(13)"[199]EHILFIN[157][157][157][157][157][157][157][157]";
2232 IFXB(X)=3THENPRINTTAB(13)"[203]ELLNERIN[157][157][157][157][157][157][157][157][157]";
2233 IFXB(X)=4THENPRINTTAB(13)"[208]UTZFRAU[157][157][157][157][157][157][157][157]";
2234 IFXB(X)=5THENPRINTTAB(13)"[193]USFAHRERIN[157][157][157][157][157][157][157][157][157][157][157]";
2240 NEXT:PRINT"";:FORX=0TO9
2275 IFXG(X)<1000THENPRINT"";:GOTO2290
2280 PRINTXG(X)"[196][205][157][157][157][157][157][157][157][157]";
2290 NEXTX:FORX=0TO9:POKE211,32:POKE214,4+X:PRINT"":POKE211,32:POKE214,4+X:PRINTXL(X)
2331 POKE211,36:POKE214,4+X:PRINTXQ(X):NEXTX:PRINT"";:FORX=0TO9
2370 PRINT"%%";:NEXTX:FORX=0TO9
2400 IFPEEK(W+X)<>255THEN2430
2410 SYSCODE,4,3,0,(X+5):SYSCODE,7,96,40,1
2430 NEXT:RETURN
3000 SYSCODE,4,3,0,(WW+5):SYSCODE,7,32,40,1:SYSCODE,4,8,0,(CL+3)
3015 SYSCODE,7,32,40,1:WW=CL-2:GOTO50
3500 REM
3510 W=GR+17+AC*31+(PEEK(VARS+2)-1)*31*6:POKEW+WW,255:SYSCODE,3
3530 SYSCODE,4,3,0,(WW+5):SYSCODE,7,96,40,1:SYSCODE,6,3:GOTO50