Atari 8-bit Source code

0 GRAPHICS 18:​P=DPEEK(88)+20:​I=1:​DIM A(9,​I),​X(9,​I),​P(9,​I),​S(I),​M(I),​D(I),​T$(20):​S(O)=I:​S(I)=-I:​M(O)=10:​M(I)=26:​D(O)=16:​D(I)=33
1 FOR J=0 TO 9:​Z=P+J*20+20:​P(J,​O)=Z:​P(J,​I)=Z+19:​NEXT J:​U=5:​POSITION 3,​U:​? #6;"";:​POKE 731,​1:​WHILE I:​N=O:​G=I:​S=O:​R=O:​POSITION 6,​U+2
2 ? #6;"[START]";:​WHILE PEEK(53279)<>6:​WEND:​? #6;" S:​0";:​WHILE G:​R=R+I:​POSITION 13,​O:​? #6;"B:​";R:​MOVE P-I,​P,​220:​FOR K=0 TO N:​FOR J=0 TO 9:​FOR L=0 TO I
3 Z=RAND(M(L)):​POKE P(J,​L)+S(L)*K,​Z+D(L)+64*L+128:​X(J,​L)=Z:​A(J,​L)=K+I:​NEXT L:​NEXT J:​NEXT K:​T=70-2*N-2*R:​T=T*(T>O)+30:​W=T:​N=N+(N<5)
4 C=O:​V=O:​E=200:​POKE 764,​255:​T$=" completed ":​WHILE G*E:​SOUND:​IF PEEK(764)<>255:​GET K:​IF K>64 AND K<91 OR K>47 AND K<58:​F=O:​L=K>64
5 X=K-17*L-48:​FOR J=0 TO 9:​A=A(J,​L):​IF A AND X(J,​L)=X:​B=A-I:​A(J,​L)=B:​Q=P(J,​L)+B*S(L):​POKE Q,​O:​F=F+I:​S=S+F:​E=E-(E>O):​H=I:​IF B
6 X(J,​L)=PEEK(Q-S(L))&63-D(L):​ENDIF:​ENDIF:​NEXT J:​SOUND O,​H*E+29,​10*H,​8:​IF F:​POSITION 5,​O:​? #6;S:​POKE P+19-E DIV 10,​77:​ELSE:​C=C+I:​V=C:​ENDIF
7 H=O:​ENDIF:​ENDIF:​W=W-(W>O):​V=V+(W=O):​IF V*E:​REPEAT:​M=I-M:​L=M:​Z=RAND(M(L)):​J=RAND(10):​Q=P(J,​L):​A=A(J,​L):​A(J,​L)=A+I:​IF A:​IF L
8 MOVE Q-A+I,​Q-A,​A:​ELSE:​-MOVE Q,​Q+I,​A:​ENDIF:​ELSE:​X(J,​L)=Z:​ENDIF:​POKE Q,​Z+D(L)+64*L+128:​IF A(J,​O)+A(J,​I)=20:​T$=" game over ":​G=O:​ENDIF
9 V=V-(V>0):​UNTIL V*G=O:​ENDIF:​IF W*G*E=O:​SOUND O,​31-16*G,​6,​8:​T=T-(T>20):​W=T:​ENDIF:​WEND:​U=3+5*(J<5):​POSITION 4,​U:​? #6;T$:​PAUSE 60:​SOUND:​WEND:​WEND
10 REM Alpha vs Numeric:​ The Front Line
11 REM (c) 2016 by Victor Parada <http:​//www.vitoco.cl/atari/>