Atari 8-bit Source code

10 DIM A$(10)
20 GOSUB 640
30 C=0:​B=10:​A=10:​RS=1
40 GRAPHICS 0:​POKE 710,​0:​POKE 752,​1
50 ? "HITS ";C
60 ? "TORPS ";B:​IF C=10 THEN 430
70 POKE 752,​1
80 POSITION A,​20:​? ""
90 GOSUB 870:​REM X-MOVE
100 IF STICK(0)=11 THEN GOSUB 150
110 IF STICK(0)=7 THEN GOSUB 200
120 IF ASK1 THEN GOSUB 250:​GOTO 90
130 IF STRIG(0)=0 THEN I=19:​ASK1=1
140 GOTO 90
150 POSITION A,​20:​? " ":​A=A-1
160 IF A<1 THEN A=38
170 IF A>39 THEN A=1
180 POSITION A,​20:​? ""
190 RETURN
200 POSITION A,​20:​? " ":​A=A+1
210 IF A<1 THEN A=38
220 IF A>38 THEN A=1
230 POSITION A,​20:​? ""
240 RETURN
250 REM
260 POSITION FR,​I:​? " "
270 I=I-1:​IF I=4 THEN 310
280 POSITION A,​I:​? "":​SOUND 0,​I,​10,​15
290 FR=A
300 RETURN
310 SOUND 1,​0,​0,​0:​SOUND 0,​0,​0,​0
320 ASK1=0
330 IF A>RS-2 THEN IF A<RS+2 THEN GOTO 370
340 FOR I=19 TO 1 STEP -1
350 B=B-1:​IF B=0 THEN GOTO 590
360 GOTO 40
370 POSITION RS-1,​4:​? " "
380 C=C+1:​FOR I=19 TO 1 STEP -1
390 POSITION A,​I:​? " ":​SOUND 1,​I,​6,​15:​NEXT I
400 SOUND 1,​0,​0,​0:​SOUND 0,​0,​0,​0
410 IF C=10 THEN GOTO 40
420 POSITION RS,​4:​? " ":​GOTO 40
430 POSITION RS,​4:​? "":​FOR I=19 TO 4 STEP -1
440 POSITION A,​I:​? ""
450 FOR T=1 TO 6:​NEXT T:​POSITION A,​I:​? " "
460 NEXT I:​POSITION R,​4:​? ""
470 FOR I=1 TO 250
480 SOUND 1,​I,​10,​15:​SOUND 0,​I+5,​10,​15
490 POKE 710,​I:​POKE 712,​I+5
500 NEXT I
510 GRAPHICS 0:​POKE 710,​0:​POKE 752,​1
520 POSITION 10,​10:​? "YOUR MISSION COMPLETE"
530 SOUND 0,​0,​0,​0:​SOUND 1,​0,​0,​0
540 IF B>=8 THEN POSITION 15,​11:​? "RANK-EXPERT":​GOTO 610
550 IF B>=5 THEN POSITION 14,​11:​? "RANK-BEGINNER":​GOTO 610
560 IF B>=3 THEN POSITION 15,​11:​? "RANK-LOSER":​GOTO 610
570 POSITION 13,​11:​? "RANK-2 YEAR OLD":​GOTO 610
580 GOTO 30
590 GRAPHICS 0:​POKE 710,​0:​POSITION 10,​10:​? "YOU USED ALL YOUR TORPS"
600 POSITION 15,​11:​? "WHAT A JERK"
610 ? " WOULD YOU LIKE TO TRY AGAIN (=YES =NO) ?";
611 IF STICK(0)=14 THEN 30
612 IF STICK(0)=13 THEN RUN "D:​MENU"
615 IF PEEK(764)<>255 THEN 1000
630 GOTO 611
640 GRAPHICS 0:​POKE 710,​0:​POKE 752,​1
650 POSITION 17,​10:​? ""
660 POSITION 7,​11:​? "CREATED BY MARK KARAFILIS"
670 POSITION 10,​12:​? "(C) MARCH 1,​1982"
680 POSITION 11,​13:​? "IN THE MORNING"
690 ?:​?:​POSITION 6,​14:​? "PRESS  TO CONTINUE"
700 IF STRIG(0)=1 THEN 700
710 IF PEEK(53279)<>7 THEN 710
720 GRAPHICS 0:​POKE 710,​14:​POKE 752,​1
730 POSITION 15,​10:​? "DIRECTIONS"
740 POSITION 5,​11:​? "YOU ARE THE '' ON THE SCREEN."
750 POSITION 5,​12:​? "YOU WILL BE SHOOTING AT THE "
760 POSITION 5,​13:​? "AT THE TOP OF THE SCREEN. "
770 POSITION 5,​14:​? "EVERY TIME YOU MISS THE "
780 POSITION 5,​15:​? "YOU WILL LOSE A TORPEDO!!!!!"
790 POSITION 15,​16:​? ""
800 POSITION 7,​17:​? "PRESS  TO START"
810 IF STRIG(0)=1 THEN 810
820 IF STRIG(0)=0 THEN 820
830 GRAPHICS 0:​POKE 710,​14:​POKE 752,​1
840 POSITION 15,​10:​? ""
850 FOR I=1 TO 200:​NEXT I
860 RETURN
870 REM X-MOVE
880 POSITION RS,​4:​? " "
890 RS=RS+2:​IF RS>37 THEN RS=1
900 POSITION RS,​4:​? ""
910 RETURN
1000 OPEN #1,​4,​0,​"K:​":​GET #1,​F:​IF CHR$(F)="Y" THEN 30
1010 RUN "D:​MENU"	

• Download link 1

• Download link 1