1 .AIR/SEA BATTLE
   2 .--------------
   3 .
   4 .A=   POS   =X
   5 .B= MIS POS =Y
   6 .C=  SPEED  =Z
   7 .D=  FIRED  =W
   8 .E=OFFSCREEN=U
   9 .
  10 clear 
  12 input "# OF GAMES?"S
  15 NT=1
  20 A=77;B=40;C=1;D=0;H=0;E=0
  30 X=-78;Y=30;Z=1;W=0;I=0;U=0
  40 gosub 9000
  50 gosub 2000
  60 gosub 3000
  70 C=C-JX(2);Z=Z+JX(1)
  80 if C<1C=1
  90 if C>20C=20
 100 if Z<1Z=1
 110 if Z>20Z=20
 120 if TR(1)=1if W=0Y=30;W=1
 130 if TR(2)=1if D=0B=-40;D=1
 140 A=A-C
 150 X=X+Z
 900 goto 50
2000 .
2001 .    SHIP
2002 .
2005 if B#-40box 0,B,160,1,2
2010 box 0,-40,160,8,2
2020 box A,-44,11,1,1
2030 box A,-43,11,1,1
2040 box A,-42,15,1,1
2050 box A,-40,5,3,1
2060 box A-1,-38,1,1,1
2100 if A<-80A=79;D=0
2110 if D=0goto 2900
2120 B=B+10
2130 box A,B,1,1,3
2140 MU="V"
2150 if B>30E=1
2160 if B>25if A<X+5if A>X-10H=H+1;B=-40;D=0;E=0;gosub 9000
2170 if E=1D=0;B=-40;E=0
2900 return 
3000 .
3001 .   PLANE
3003 .
3010 if Y<30box 0,Y,160,1,2
3020 box 0,30,160,9,2
3030 box X,30,11,3,1
3040 box X-4,32,3,1,1
3050 box X-5,33,1,1,1
3060 box X+6,30,1,1,1
3070 if X>79X=-80;W=0
3100 if W=0goto 3900
3110 Y=Y-10
3120 box X,Y,1,1,3
3130 MU="G"
3140 if Y<-40U=1;W=0
3150 if Y<-35if X>A-10if X<A+10I=I+1;W=0;U=0;gosub 9000
3160 if U=1W=0;Y=30;U=0
3900 return 
9000 .
9001 .   SCORE
9003 .
9010 clear 
9020 print H,I
9030 if H#Sgoto 9070
9040 print 
9045 NT=10
9050 print "1000305060038000mul 20508000"
9060 goto 9900
9070 if I#Sgoto 9110
9080 print 
9085 NT=10
9090 print "2 5500000432300400-500500"
9100 goto 9900
9110 return 
9900 .END OF GAME
9901 NT=1
9910 print 
9920 print "   GAME OVER"
9930 .END
9999 :return