Atari 8-bit Source code

0 DIM A$(96):​A$="> 8?8 > ? ":​A=0.39269908000000003:​DIM A(1,​15)
1 FOR B=0 TO 15:​A(0,​B)=SIN(A*B):​A(1,​B)=COS(A*B):​NEXT B:​GRAPHICS 8:​GRAPHICS 5:​POKE 752,​1:​SETCOLOR 0,​3,​4:​SETCOLOR 2,​0,​4:​COLOR 1:​PAINT 0,​0:​COLOR 0:​C=580:​? "TEN"
2 ? "Stand by ";:​A=0.017453292500000002:​FOR B=0 TO C STEP 9:​D=38*B/C*COS(B*A)+45:​E=25*B/C*SIN(B*A)+15:​FOR F=1 TO 5:​CIRCLE D,​E,​F:​NEXT F:​? ".";:​NEXT B
3 CLS:​COLOR 1:​PLOT 0,​0:​DRAWTO 79,​0:​PLOT 19,​39:​DRAWTO 79,​39:​COLOR 2:​CIRCLE 46,​15,​1:​G=44032:​MOVE ADR(A$),​G,​80:​POKE 704,​15:​POKE 54279,​G/256:​POKE 53277,​3
4 POKE 559,​46:​DO:​?:​? ,​"press FIRE to start";:​WHILE STRIG(0):​WEND:​CLS:​H=1000:​I=0:​J=3:​K=70:​L=18:​M=8:​N=0:​O=0:​?:​? I,​J;:​WHILE J:​POKE 657,​22
5 ? H;" ";:​MOVE G+512,​G+513,​127:​MOVE M*5+G,​G+512+INT(L),​5:​POKE 53248,​INT(K):​P=Q:​Q=STICK(0):​R=(Q&4=4)-(Q&8=8):​S=(P&2=2)&(Q&2=0)
6 T=Q&1=0:​M=(M+16+R+8*S) MOD 16:​IF T:​SOUND 0,​250,​10,​10:​N=A(0,​M)*0.05+N:​O=A(1,​M)*0.05+O:​ENDIF:​IF I MOD 2=0:​N=N-0.01*N:​O=O-0.01*O:​ENDIF
7 N=I DIV 2*0.00002*(135-K)+N:​O=O-I DIV 2*0.00002*(44-L):​K=K+N:​L=L-O:​POKE 53278,​1:​PAUSE 1:​U=PEEK(53252):​IF U:​K=70:​L=18:​M=8:​N=0:​O=0
8 SOUND 0,​50,​U*8-6,​15:​PAUSE 9:​CLS:​IF U=1:​J=J-1:​IF J=0:​? ,​"TRY AGAIN":​ENDIF:​ENDIF:​IF U=2:​H=(I+1)*1000+H:​IF I=7:​? ,​"MISSION COMPLETE!":​EXIT
9 ENDIF:​I=I+1:​J=J+1:​SETCOLOR 0,​I*2+3,​4:​SETCOLOR 2,​0,​4-I MOD 2*4:​ENDIF:​?:​? I,​J,​H;:​ENDIF:​SOUND 0,​0,​0,​0:​H=H-1:​WEND:​? ,​"SCORE:​";H:​SOUND 0,​0,​0,​0:​LOOP