10 GR.0:DPOK.82,9984:DPOK.709,15:POK.752,1:POK.755,3:?"{clear}";:SC=DPEEK(88):DIM A$(40),B$(40):A$(1)="{^c}":A$(40)="{^c}"
20 A$(2)=A$:B$="{^n}{^,}":B$(39)="{^n}{^,}":B$(3)=B$:F.Y=3TO23STEP2:SCC=SC+Y*40:MOV.ADR(A$),SCC,40:IF Y<23:POK.SCC+11+RAND(9),0
30 POK.SCC+22+RAND(9),0:MOV.ADR(B$),SCC+40,40:R=R+20:END.:N.Y:X=19:Y=2:REP.:S=STICK(0):OX=X:OY=Y:X=X+(S=7)-(S=11)
40 Y=Y+(S=13)-(S=14):POS.0,0:?Z:IF X<0 OR X>39 OR Y<2 OR Y>23:X=OX:Y=OY:END.:IF X<>OX OR Y<>OY:K=SC+Y*40+X:V=PEEK(K)
50 IF V<>0AND V<>14AND V<>10:X=OX:Y=OY:EL.:POK.SC+Y*40+X,128+S:L=L+1:IF V=14 OR V=10:SO.0,L/2,10,15:IF V=14:Z=Z+L:R=R-1
60 POS.35,0:?R;" ":EL.:Z=Z+1000:B=0:END.:END.:END.:EL.:IF (X<>OX)+(Y<>OY)+STRIG(0)=0:K=SC+Y*40+X:S=PEEK(K)&15:POK.K,0
70 X=X-(S=7)+(S=11):Y=Y-(S=13)+(S=14):L=L-(L>0):END.:END.:IF ABS(B)+RAND(10)=0:BY=4+RAND(10)*2:B=RAND(2)*2-1:BX=19-B*19
80 IF PEEK(SC+BY*40+BX)<>0:B=0:END.:END.:IF B:POK.SC+BY*40+BX,0:IF M=0:BX=BX+B:IF BX<0OR BX>39:B=0:END.:END.:IF B
90 K=SC+BY*40+BX:V=PEEK(K):IF V=14:B=-B:BX=BX+B:EL.:POK.K,10:END.:IF V&128:SO.0,200,12,15:PA.100:R=0:END.:END.:END.
100 M=(M+1)MOD10:POK.712,M+16*ABS(B):SO.0,0,0,0:UNTIL R=0:GR.18:?#6;"FINAL SCORE:";Z:?#6;"press a key":GET A$:RUN