5 DIMC(11):FORT=1TO11:READC(T):NEXT:Z=54272:POKEZ+24,15:POKEZ+6,255:POKEZ+1,5
9 POKE53280,0:POKE53281,0:PRINT"[147] [152]JHS":FORT=1TO20:PRINT"             [200][144][186][186][186][186][186][186][186][186][186][186][146][212]":NEXT
20 FORT=1TO39:PRINT"[183]";:NEXT:PRINT:PRINT"[156]STEINE :";S:DEFFNX(U)=55296+13+X+Y*40:DIMA(11,21)
21 V=3:Y=20:FORX=1TO10:C=C(INT(11*RND(1))+1):A(X,Y)=C:POKEFNX(I),C:NEXT
30 O=RND(-TI):X=INT(10*RND(1))+1:C=INT(11*RND(1))+1:Y=1:C=C(C)
40 J=PEEK(56320):POKEFNX(X),0:IFJ=119 ANDX<10 AND A(X+1,Y+1)=0THENX=X+1
50 IFJ=123ANDX>1 ANDA(X-1,Y+1)=0THENX=X-1
60 POKEZ+4,33:FORN=0TO9:NEXT:POKEZ+4,127:Y=Y+1:IFA(X,Y+1)<>0THEN80
70 IFY<20THENPOKEFNX(X),C:FORN=1TO50-W:NEXT:GOTO40
80 A(X,Y)=C:H=0:IFA(X,18)=0 THEN111
90 FORT=YTOY+2:IFA(X,T)=CTHENH=H+1
100 NEXT:T=Y:IFH<3THEN111
110 L=L+1:FORY=TTOT+2:A(X,Y)=0:POKEFNX(X),0:NEXT
111 IFH<3THENPOKEFNX(I),C
112 T=Y:FORI=1TO8:G=0:FORN=0TO2:IFA(I+N,Y)=CTHENG=G+1
113 NEXT:IFG=3THENL=L+1:X=I:I=0:N=X:FORX=NTON+2:FORY=TTO1STEP-1:A(X,Y)=A(X,Y-1)
114 IFG=3THENPOKEFNX(I),A(X,Y):NEXTY,X
120 NEXTI:S=S+1:IFA(X,2)>0THENPRINT"[147]GAME OVER !!!":PRINT"[156]PUNKTE :"L*100+S:END
130 IF(G=3 OR H=3) AND L/V=INT(L/V)THENW=W+1:DATA1,3,4,5,6,7,9,10,11,14,15
140 PRINT""TAB(8)S:PRINT"[145][158]"TAB(20)"LINIEN :";L:GOTO30