Atari 8-bit Source code

10 GRAPHICS 0:​DPOKE 82,​9984:​DPOKE 709,​15:​POKE 752,​1:​POKE 755,​3:​? "";:​SC=DPEEK(88):​DIM A$(40),​B$(40):​A$(1)="":​A$(40)=""
20 A$(2)=A$:​B$="":​B$(39)="":​B$(3)=B$:​FOR Y=3 TO 23 STEP 2:​SCC=SC+Y*40:​MOVE ADR(A$),​SCC,​40:​IF Y<23:​POKE SCC+11+RAND(9),​0
30 POKE SCC+22+RAND(9),​0:​MOVE ADR(B$),​SCC+40,​40:​R=R+20:​ENDIF:​NEXT Y:​X=19:​Y=2:​REPEAT:​S=STICK(0):​OX=X:​OY=Y:​X=X+(S=7)-(S=11)
40 Y=Y+(S=13)-(S=14):​POSITION 0,​0:​? Z:​IF X<0 OR X>39 OR Y<2 OR Y>23:​X=OX:​Y=OY:​ENDIF:​IF X<>OX OR Y<>OY:​K=SC+Y*40+X:​V=PEEK(K)
50 IF V<>0 AND V<>14 AND V<>10:​X=OX:​Y=OY:​ELSE:​POKE SC+Y*40+X,​128+S:​L=L+1:​IF V=14 OR V=10:​SOUND 0,​L/2,​10,​15:​IF V=14:​Z=Z+L:​R=R-1
60 POSITION 35,​0:​? R;" ":​ELSE:​Z=Z+1000:​B=0:​ENDIF:​ENDIF:​ENDIF:​ELSE:​IF (X<>OX)+(Y<>OY)+STRIG(0)=0:​K=SC+Y*40+X:​S=PEEK(K)&15:​POKE K,​0
70 X=X-(S=7)+(S=11):​Y=Y-(S=13)+(S=14):​L=L-(L>0):​ENDIF:​ENDIF:​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:​ENDIF:​ENDIF:​IF B:​POKE SC+BY*40+BX,​0:​IF M=0:​BX=BX+B:​IF BX<0 OR BX>39:​B=0:​ENDIF:​ENDIF:​IF B
90 K=SC+BY*40+BX:​V=PEEK(K):​IF V=14:​B=-B:​BX=BX+B:​ELSE:​POKE K,​10:​ENDIF:​IF V&128:​SOUND 0,​200,​12,​15:​PAUSE 100:​R=0:​ENDIF:​ENDIF:​ENDIF
100 M=(M+1) MOD 10:​POKE 712,​M+16*ABS(B):​SOUND 0,​0,​0,​0:​UNTIL R=0:​GRAPHICS 18:​? #6;"FINAL SCORE:​";Z:​? #6;"press a key":​GET A$:​RUN