Atari 8-bit Source code

0 DIM Z(9),​R(9),​W(9):​MOVE 57344,​24576,​1024:​DO:​REM <<UQQQQQUUUAQAEAUUx
1 Q=48032:​MOVE 14455,​24576,​72:​W=1:​H=0:​REPEAT:​X=Q+99:​Z=3999:​GRAPHICS 28:​POSITION 16,​0:​? #6;"ZONE ";W:​MOVE 14527,​708,​4:​POKE Q-29,​66:​POKE 756,​96
2 POSITION 1,​0:​? #6;"SCORE:​":​POSITION 29,​0:​? #6;"BEST:​";R:​COLOR 34:​PLOT 0,​1:​DRAWTO 39,​1:​FOR I=0 TO (W-1)*2:​PLOT I,​1:​DRAWTO I,​23:​DRAWTO 39-I,​23:​DRAWTO 39-I,​1:​NEXT I
3 FOR I=1 TO 8:​R(I)=22:​Z(I)=I*2+W*2:​NEXT I:​REPEAT:​J=Q+INT(RND*720)+120:​K=PEEK(J):​POKE J,​K+3*(K=0):​I=I+(K=0):​UNTIL I=41:​REPEAT:​S=STICK(0)
4 U=X:​Y=(S=7)-(S=11)+((S=13)-(S=14))*40:​T=PEEK(X+Y):​J=PEEK(X+Y+Y):​D=T=J:​A=T>2:​P=Y*((J=0 OR D) AND A):​X=X+Y*(T=0)+P:​SOUND:​O=999
5 X=X+Y*(J=2 AND A):​C=S<15:​SOUND 0,​9,​5+D*A,​(T+1)*C:​A=U=X:​POKE U-A*O,​T*(J=2 AND T):​POKE X+P-A*O,​T+D:​POKE X,​1:​E=(T-3)*C-C*(T>9)*T:​F=0
6 REPEAT:​POSITION 7,​0:​? #6;Z;" ":​B=(B+1)*(B<8)+(B>7):​M=R(B):​L=Z(B):​Y=W(B):​P=(X-Q) DIV 40:​N=X-Q-P*40:​A=((N>L)-(N<L))*(Y<1):​Z=Z-1
7 D=(P>M)-(P<M)*(Y>=0):​LOCATE L+A,​M+D,​V:​K=V<33:​C=L+A*K:​G=M+D*K:​POKE Q+L+M*40,​(C=L)*(M=G)*129:​POKE Q+C+G*40,​129:​Z(B)=C:​R(B)=G
8 W(B)=0:​W(B)=(Y+1-(Y=1)*3)*(L=C AND M=G):​F=F+1:​UNTIL F>E:​UNTIL (T>7)+(V=33)+(Z=0)>0:​SOUND:​H=H+Z+(W-1)*O:​CLS #6:​REPEAT:​POSITION 17,​0:​IF T=8
9 IF W<6:​? #6;"CONT":​ELSE:​? #6;"DONE":​ENDIF:​ELSE:​? #6;"DEAD":​ENDIF:​UNTIL STRIG(0)=0:​IF H>R AND T=8:​R=H:​ENDIF:​W=W+(T=8):​UNTIL T-8 OR W=7:​LOOP