10 POKE648,32:V=53248:POKEV+21,4:POKEV+32,0:POKEV+33,0:POKEV+41,1:POKE2042,128
20 PRINT"[147]@ @@<@@[191]@@?@[146]A[191]@[146]C[223]@[146]G?@B[191]@@[190][146]@@[190][146]@A[190][146]@A[190][146]@@[191][146]@@[191][146]@A[191]@[146]G";
30 PRINT"[191][146] _[191][184][146][191][191][190][146]?[191][188][191][191][191][146][191][191][190][146]":POKE648,4:POKE8239,224:B=80:IU=13:PRINT"[147]"
40 A$="[144]   [154]   [144]   [154]   [144]   [154]   [144]   [154]   [144]   ":FORI=0TO3:FORJ=0TO2:PRINTTAB(7)A$
50 NEXT:FORJ=0TO2:PRINTTAB(4)A$:NEXT:NEXT:PRINT""TAB(7)"[153]   [157][157][157]   [157][157][157]   [146]"
60 PRINT"[158]ZEITFELDER[157][157][157][157]/64[158][157][157][157][157][157]BEST[157][157][157][157][157]";PEEK(251):FE=1:C=52
70 TI$="000000":S=54272:POKES+24,15:POKES+5,25:POKES+6,68:POKES+1,18
80 POKES+4,0:IFPEEK(56320)=119THENB=B+24:X1=X1+1:IFB>248THENB=248:X1=X1-1:GOTO80
90 IFPEEK(56320)=123THENB=B-24:X1=X1-1:IFB<80THENB=80:X1=X1+1:GOTO80
100 IFPEEK(56320)=126THENC=C-24:Y1=Y1-1:IFC<52THENC=52:Y1=Y1+1:GOTO80
110 IFPEEK(56320)=125THENC=C+24:Y1=Y1+1:IFC>220THENC=220:Y1=Y1-1:GOTO80
120 IFPEEK(56320)=111ANDX1<>XANDX1<X+3ANDX1>X-3ANDY1<>YANDY1>Y-3ANDY1<Y+3THEN140
130 POKEV+4,B:POKEV+5,C:PRINT"";TI$"[157]";FE:IFPEEK(197)<>60THEN80
140 Z=55303+(B-80)/24*3+(C-52)/24*120:IFPEEK(197)=60THENPOKEV+21,0:GOTO190
150 R=X+Y:R1=X1+Y1:IFR1<>R+1ANDR1<>R+3ANDR1<>R-1ANDR1<>R-3THEN80
160 Q1=(PEEK(Z)-5)/16:Q2=(PEEK(Z)-13)/16:IFQ1=INT(Q1)ORQ2=INT(Q2)THEN80
170 POKES+4,17:FE=FE+1:X=X1:Y=Y1:IU=3-IU+15:UI=3-IU+15:FORDA=ZTOZ+2:POKEDA,4
180 POKEDA+40,IU:POKEDA+80,IU:NEXT:POKEMA,UI:POKEMA+1,UI:POKEMA+2,UI:MA=Z:GOTO80
190 IFFE>PEEK(251)THENPOKE251,FE:REM        BY CHRISTIAN WELLENHOFER /1991
200 PRINT"[147]FELDER:"FE"ZEIT:"TI$:INPUT"NEUES SPIEL";G$:IFG$="JA"THENRUN