5 DIMLL(5,4,5):CODE=7*4096:VARS=5*4096+6*256
11 GR=PEEK(CODE+3)+PEEK(CODE+4)*256:AC=PEEK(36862)-1:LX=00:LY=5:SYSCODE,3:GOSUB2000
35 GOSUB1200:GOSUB50000:SYSCODE,6,3:POKE2,0
50 CL=PEEK(2):IFCL=0THEN50
55 POKE2,0:IFCL=1THEN6000
71 IFCL=2THEN6010
72 IFCL=3THEN6020
73 IFCL=4THEN6030
74 IFCL=5THEN6040
75 IFCL=6THEN6050
110 IFCL=99THENSYSCODE,1,"L.ANSTELL",8
140 GOTO50
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):GOTO50000
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:BY=0:CY=0:DY=0:EY=0
1330 FORX=0TO9:IFPEEK(W+X)=255THEN1372
1332 IFPEEK(BB+PEEK(W+X)*7)=1THENAY=AY+1
1341 IFPEEK(BB+PEEK(W+X)*7)=2THENBY=BY+1
1351 IFPEEK(BB+PEEK(W+X)*7)=3THENCY=CY+1
1361 IFPEEK(BB+PEEK(W+X)*7)=4THENDY=DY+1
1371 IFPEEK(BB+PEEK(W+X)*7)=5THENEY=EY+1
1372 NEXTX: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(6)
2022 DIMXV(6):DIMXN(6):DIMXG(6):DIMXL(6):DIMXQ(6):DIMXA(6)
2025 FOR X=0TO5
2030 Z=INT(RND(1)*80)
2031 EU=0
2032 IF XA(EU)=Z THEN 2030
2033 EU=EU+1:IF EU<X THEN 2032
2034 XA(X)=Z
2037 XB(X)=PEEK(BB+Z*7):XG(X)=PEEK(BB+1+Z*7)*100:XV(X)=PEEK(BB+2+Z*7)
2070 XN(X)=PEEK(BB+3+Z*7):XQ(X)=PEEK(BB+4+Z*7):XL(X)=PEEK(BB+5+Z*7):NEXTX
2110 X=0:WB=1224:GOSUB5000:X=1:WB=1238:GOSUB5000:X=2:WB=1252:GOSUB5000
2140 X=3:WB=1626:GOSUB5000:X=4:WB=1638:GOSUB5000:X=5:WB=1651:GOSUB5000
2180 X=0:PRINT"";:GOSUB5100:X=1:PRINT"";TAB(14):GOSUB5100
2200 X=2:PRINT"";TAB(28):GOSUB5100:X=3:PRINT"";:GOSUB5100
2220 X=4:PRINT"";TAB(14):GOSUB5100
2230 X=5:PRINT"";TAB(27):GOSUB5100:X=0:PRINT"";:GOSUB5200
2250 X=1:PRINT"";TAB(14):GOSUB5200:X=2:PRINT"";TAB(28):GOSUB5200
2270 X=3:PRINT"";:GOSUB5200
2280 X=4:PRINT"";TAB(14):GOSUB5200
2290 X=5:PRINT"";TAB(27):GOSUB5200:RETURN
3000 REM
3010 SYSCODE,4,8,MX,MY:SYSCODE,7,32,10,6:LX=MX:LY=MY:GOTO50
5000 FORI=0TO6:POKEWB+I,PEEK(VARS+355+I+XV(X)*8):NEXTI:FORI=0TO7
5020 POKEWB+40+I,PEEK(VARS+611+I+XN(X)*8):NEXTI:RETURN
5100 ZG=PEEK(VARS+7+4*67+5*16+7+XV(X)*8):IFZG=1THEN5130
5120 IFXB(X)=1THENPRINT"[203]OCH"
5121 IFXB(X)=2THENPRINT"[199]EHILFE"
5122 IFXB(X)=3THENPRINT"[203]ELLNER"
5123 IFXB(X)=4THENPRINT"[208]UTZMANN"
5124 IFXB(X)=5THENPRINT"[193]USFAHRER"
5125 GOTO5140
5130 IFXB(X)=1THENPRINT"[203]*CHIN"
5131 IFXB(X)=2THENPRINT"[199]EHILFIN"
5132 IFXB(X)=3THENPRINT"[203]ELLNERIN"
5133 IFXB(X)=4THENPRINT"[208]UTZFRAU"
5134 IFXB(X)=5THENPRINT"[198]AHRERIN"
5140 RETURN
5200 PRINT"[204]EIST:"XL(X)"[157]%";:PRINT"[157][157][157][157][157][157][157][157][157][157][209]UAL.:"XQ(X)"[157]%[157][157][157][157][157][157][157][157][157][157][145][145]";
5220 PRINT"[196][205]"XG(X)"[157][160]":RETURN
6000 MX=0:MY=5:GOTO6300
6010 MX=14:MY=5:GOTO6300
6020 MX=28:MY=5:GOTO6300
6030 MX=2:MY=15:GOTO6300
6040 MX=14:MY=15:GOTO6300
6050 MX=27:MY=15:GOTO6300
6100 W=GR+17+AC*31+(PEEK(VARS+2)-1)*31*6:X=0
6120 IFPEEK(W+X)=255THEN6200
6130 X=X+1:IFX<10THEN6120
6150 PRINT"[147]ERROR !!!!!":GOTO6150
6200 POKEW+X,XA(CL-1):XA(CL-1)=255:GOTO3000
6300 REM
6301 IFXB(CL-1)=1THEN6350
6310 IFXB(CL-1)=2THEN6360
6320 IFXB(CL-1)=3THEN6370
6330 IFXB(CL-1)=4THEN6380
6340 IFXB(CL-1)=5THEN6390
6345 PRINT"[147]WHOOPS !":GOTO6345
6346 END
6350 IFAY<AXTHEN6100
6355 GOTO50
6360 IFBY<BXTHEN6100
6365 GOTO50
6370 IFCY<CXTHEN6100
6375 GOTO50
6380 IFDY<DXTHEN6100
6385 GOTO50
6390 IFEY<EXTHEN6100
6395 GOTO50
50000 RESTORE:FORLT=0TO4:FORLR=0TO3:FORLA=0TO4:READLL(LA,LR,LT):NEXTLA,LR,LT
50060 WK=GR+3+AC*31+(PEEK(VARS+2)-1)*31*6:LR=(PEEK(WK)AND15)-1
50080 LT=PEEK(VARS+7+1+(PEEK(VARS+1)-1)*67):AX=LL(0,LR,LT):BX=LL(1,LR,LT)
50110 CX=LL(2,LR,LT):DX=LL(3,LR,LT):EX=LL(4,LR,LT):RETURN:DATA 0,2,0,1,1
60002 DATA 0,3,0,1,1:DATA 0,4,0,2,1:DATA 0,5,0,2,1:DATA 1,1,1,1,1 :DATA 1,2,1,2,1
60013 DATA 1,3,2,2,1:DATA 1,4,2,2,1:DATA 1,1,1,1,1 :DATA 1,1,1,2,1:DATA 1,2,2,2,1
60024 DATA 2,2,2,3,1:DATA 1,1,1,1,1 :DATA 1,2,1,2,1:DATA 2,2,1,2,1:DATA 3,2,2,2,1
60041 DATA 1,1,1,1,1 :DATA 1,1,2,1,1:DATA 2,1,3,2,1:DATA 2,1,4,2,1