4 4 6 dNAVY n 1100L xB(6,8) S$(6) " SWISS NAVY" 6I=1 6:J=1 8:B(I,J):J:I 90,1,1,1,0,0,0 90,0,0,0,0,2,0 93,3,0,0,0,2,0 90,0,0,4,0,2,0 95,0,0,0,0,0,0 90,0,5,0,0,0,4 I=1 6:S$(I):I "*","B","C","D","P","M" %T=2:1400x:2800 : " A B C D E F G H": " 1 + + + + + + + +": " 2 + + + + + + + +": " 3 + + + + + + + +": "" 4 + + + + + + + +": ," 5 + + + + + + + +": 6" 6 + + + + + + + +" @B=0:H=0 J B=B+1 T:X=1:Y=14:1700:" " ^1700:"ROW "; hI1500:3100 :R=GG-480:R<1 R>6 360h r G$;" COL "; |I1500:3100 :C=GG-64@:C<1 C>8 380|  G$;" "; *P=B(R,C):P=0 "MISS";:430 P>4 430 %"HIT!":B(R,C)=0:H=H+1 FX=2*C+1:Y=2*R+1:1700:S$(P+1); P5 470 MX=1:Y=15:1700:"HIT MOUNTAIN !";:T=2:1400x  520 /T=3:1400x:H<11 330J +2800 :::"YOU TOOK ";(B);" BOMBS" :"TO SINK THE NAVY" -:B<30 " GOOD FLYING !":520 "YOU NEED PRACTICE !" ::: SPECTRUM SUBROUTINES L1W=32 :D=22:F=8:1200: :8,0;: R=(N*+1): xZ=1 200*T:Z: ""1500 =""1510 G$=: @K$=:  Y,X;:  (X);: l(11 );: (9 );: 42200:K=("0"+K$): K$="" !1500:(G$)=13 : ,(G$)12 K$=K$+G$:G$;:2210 (K$)=0 2210 @(8);" ";(8);:K$=K$( ̱(K$)-1):2210 : `.1}L,Z/10 -6: R$=(R+64@): ( P$=K$(P): 2600( :A=(P$): : TV$(26): W$(60<,26):  GG=(G$): }