Submarine xCSUBMARINE by Andrew D Russell Sinclair Programs, May 83 8000@:0:0:5:score=0:sux=15:state=0:sdc=0:pdc=0:ddc=0:torp=20:tpy=0: Submarine game  Andrew D Russell 2 502 F810 ,11 ;"submarine";12 ,14;"" P 502 d****************** nINSTRUCTIONS x 11 ;"SUBMARINE" 11 ;""  "The idea of the game is to destroy enemy shipping BUT AVOID depth charges dropped by torpedo boats '' these spell instant";:2:1:" DEATH ":0:1 "left(5) right(8) " "fire (space bar)":1 "","1000 points"  "","250 points"  "","250 points"  "","500 points"  "","50 points"  0: "" press any key to start" , 0 6 m 1 ra=10 21 /a,0;"" a shx=26 \"",502," ",250," ",1000," ",500," ",250  a=1 (5*)+1  a$,vall a !2stepp=.25+(((*6)+1)/8) & 0%5:9 ,0;"" Xl0,0;"SCORE:";score:0,16;"TORPEDOS:";torp:torp<10 0,26;" " #5:9 ,shx+5;"" 1:20,sux;"" 2sux=sux+(="8"sux<30)-(="5"sux>0) 1;20,sux;"" 0;9 ,shx;a$ 8=" "state=0 state=1:torp=torp-1 state=1 1000 state=0 900 torp<0 3000 sdc=1 2500 7sdc=0 vall=1000 ƥ<.4L 2000 shx=shx-stepp *(shx<1 torp<1) 3000 shx<1 500  600X  pos t=sux tpy=18  !1:tpy+1,pos t;"" 1;tpy,post;""  tpy>10 1040  tpy=10 state=0  tpy=10 tpy,post;""  tpy=10 ƪ(tpy-1,post)" "score=score+vall:1;tpy-1,post;"":502:y=1 8:.05|L,10 *+20:y:tpy-1,0;" ":500 )tpy=tpy-.5:.08}# =,-10 : **release depth charge*  pdc=shx ddc=10  sdc=1 .1}L,-20  1:ddc-1,pdc;"" 1;ddc,pdc;"" `ddc=20 1;ddc,pdc;"":25:.25,-20:ddc,pdc;"":sdc=0 vddc=20 ƽ(pdc-sux)<5 20,sux;"":.25,-30:25:20,sux;"":4000 ddc=ddc+1   ("GAME OVER YOUR SCORE IS ";score 5000 #2::"DEPTH CHARGE GOT YOU" "0:"YOUR SCORE WAS:";score ""DO YOU WANT TO REPLAY (Y or N)" a$ a$="y"a$="Y" a$="n"a$="N"  5010 @ 9000(# Ja=144 164 Tb=0 7 ^c h (a)+b,c rb |a   #(I1,3,3,127,255,255,127,0 #2M0,192,192,248,255,255,248,0 #,255,255,255,255,0 #K0,0,192,224,255,255,254,0 #G0,0,3,557,255,127,63?,0 #K4,28,30,254,255,255,255,0 #K0,0,192,230,255,255,254,0 #G0,0,120x,120x,120x,0,0,0 #K137,74J,42*,0,255,255,126~,0 #I24,24,24,24,24,24,36$,36$