Atari 8-bit Source code

0 DEG:​A=80:​V0=10:​GRAPHICS 15:​POKE 752,​1:​Z=20:​J=0:​GOSUB 8:​R=1:​GOSUB 6:​? "SHOTS",​Z:​? "SCORE",​J:​DATA 4,​5,​3,​6
1 IF Z=0:​GOTO 1:​ENDIF:​X=0:​Y=150:​N=V0*COS(A):​M=V0*SIN(A):​C=1:​T=4:​S=1:​GOSUB 4:​PAUSE 5:​C=0:​X=0:​Y=150:​GOSUB 4
2 Q=STICK(0):​IF Q=7:​A=A-1:​ELSE:​IF Q=11:​A=A+1:​ENDIF:​ENDIF:​IF Q=13:​V0=V0-1:​ELSE:​IF Q=14:​V0=V0+1:​ENDIF:​ENDIF
3 Q=STRIG(0):​IF Q=1:​GOTO 1:​ELSE:​Z=Z-1:​?:​?:​? "SHOTS",​Z:​? "SCORE",​J:​C=3:​T=50:​S=0.2:​GOSUB 4:​GOTO 1:​ENDIF
4 GOSUB 7:​COLOR C:​PLOT X,​Y:​TRAP 6:​FOR I=1 TO T STEP S:​X=N*I:​Y=150-(M*I-((0.91*I*I)/2)):​LOCATE X,​Y,​V:​DRAWTO X,​Y
5 IF V=2:​COLOR 1:​FOR G=1 TO 13:​CIRCLE X,​Y,​G:​NEXT G:​I=T:​J=J+1:​?:​? "SHOTS",​Z:​? "SCORE",​J:​GOSUB 8:​ENDIF:​NEXT I
6 IF R=0:​RETURN:​ELSE:​? " *** DUCK-HUNT BY MGR INZ. RAFAL ***":​R=0:​RETURN:​ENDIF:​DATA 3,​6,​0,​6,​3,​6,​4
7 IF A>90:​A=90:​ENDIF:​IF A<38:​A=38:​ENDIF:​IF V0<5:​V0=5:​ENDIF:​IF V0>16:​V0=16:​ENDIF:​RETURN:​DATA 5,​3,​4,​1,​5
8 COLOR 2:​O=INT(RND(0)*105)+40:​P=INT(RND(0)*20)+120:​RESTORE:​FOR B=0 TO 12:​READ K,​L:​DATA 1,​10,​1,​10,​1
9 PLOT O+K,​P+B:​DRAWTO O+L,​P+B:​NEXT B:​COLOR 0:​PLOT O+4,​P+2:​RETURN:​DATA 9,​2,​8,​3,​7