100 POKE53280,0:POKE53281,0:INPUT"STUFE";S:PRINT"[147]"TAB(10)"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
110 PRINT"[195][195][195][174]  ";S:FORT=1TO20:PRINTTAB(10);"[194][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][194]":NEXTT
130 PRINTTAB(10)"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]":FORZ=1TOS:X=INT(RND(0)*15)
140 Y=INT(RND(0)*15):GOSUB2010:NEXTZ:X=1:Y=1
210 COL=X+Y*40+55347:POKECOL,6:POKECOL+205,6:GETA$:IFA$=""THEN 210
220 IFA$="_"THENFORL=40TO800STEP40:FORK=0TO19:IFPEEK(1035+L+K)=86THEN210
230 IFA$="_"THENNEXTK,L:PRINT"[147]GEWONNEN MIT";O;"ZUEGEN!":END
235 IFA$=""ANDX<14THENX=X+1
240 IFA$="[157]"ANDX>0THENX=X-1
250 IFA$=""ANDY<14THENY=Y+1
260 IFA$="[145]"ANDY>0THENY=Y-1
270 IFA$=" "THENO=O+1:GOSUB2010:PRINTO;" ZUEGE[145]":GOTO210
280 IFPEEK(COL-54272)=90THENPOKECOL,1
285 IFPEEK(COL-54272)=86THENPOKECOL,14
290 IFPEEK(COL-54067)=90THENPOKECOL+205,1:GOTO210
295 IFPEEK(COL-54067)=86THENPOKECOL+205,14:GOTO210
2010 FOR A=0 TO 200 STEP 40:FORB=0TO5:PPO=A+B+X+Y*40+1075
2040 IF PEEK(PPO)=90 THEN POKE54272+PPO,14:POKE PPO,86:GOTO2060
2050 POKE54272+PPO,1:POKEPPO,90
2060 NEXTB,A:RETURN