Atari 8-bit Source code

0 CLS:​W=-1:​SETCOLOR 2,​17,​12:​SETCOLOR 1,​10,​2:​V=20:​Z=3:​A=7
1 X=RAND(15):​V=V-1:​Y=0:​W=W+1:​IF V<2 THEN V=2
2 POSITION X,​Y:​PUT 20:​POSITION 0,​22:​PRINT "SCORE=":​POSITION 6,​22:​PRINT W:​IF X=A AND Y=20 THEN GOTO 1
3 Z=Z+1:​IF Z=V THEN Z=0:​Y=Y+1:​POSITION X,​Y-1:​PRINT " ":​IF Y=21 THEN GOTO 8
4 POSITION A,​20:​PRINT "V":​POKE 752,​1:​DSOUND:​IF Y=0 AND Z<2 THEN SOUND 1,​12,​12,​8
5 S=STICK(0):​IF S=11 AND A>0 THEN A=A-1:​POSITION A+1,​20:​PRINT " "
6 IF S=7 AND A<15 THEN A=A+1:​POSITION A-1,​20:​PRINT " "
7 GOTO 2
8 POSITION 1,​1:​PRINT "GAME OVER. TO START ANEW,​ PRESS DOWN.":​S=STICK(0):​IF S=13 THEN GOTO 0
9 GOTO 8