destroyer }7w(3):"""a" :sc=0:9000(# Jud=0:tm=0:d$="":nom=10 :noms=0:dy=10 :dx=20:my=(*20+1):mx=30:nu=5:nou=nu:tce=-1:ch=0:dch=0:sx=0:sy=0:tx=0:ty=0:du=128:nuh=0:uy=1+(*20):ux=1+(*30):dep=(*10 ) 1:1:7: ([nuh=0:uy=1+(*20):ux=1+(*30):dep=(*5)+5 N>0,0;0;" Dep.set= Speed= S-Dep.= " R""500 Ttx=sx:ty=sy V"0,18;0;tx+ty Z 1000 guxo=ux:uyo=uy:ux=ux+((mx>ux+4tm)ux<27)-((mx3) 1500 Uuy=uy+((my>uy+4tm)uy<17)-((my.5)uy>4) Tdep=dep+(dep<10 (du<7))-((mx-ux)<15tmdep>0ƥ>.2~L) 1du<10 0,29;0;dep;" " .du10 0,29;0;" " #tx>0ty>01000 dep<4uyo,uxo;"" "dep=1uy,ux;0;"" "dep=0uy,ux;0;"" #ty>0tx>01000 tce=tce-1 tce2020 nuh40( 80P a$= sy=sy+(a$="x"sy<3)-(a$="w"sy>-3)-sy*(a$="d"a$="a"):sx=sx+(a$="d"sx<3)-(a$="a"sx>-3)-sx*(a$="w"a$="x")  Vdxo=dx:dyo=dy:dx=dx+sx*(tx>0):dy=dy+sy*(ty>0):du=(dx-ux)+(dy-uy) $du3du=0 .du>10 du=10 `"dx=dx-(dx>31)+(dx<0) j"dy=dy-(dy>21)+(dy<1) l#dx>dxody=dyod$="":1150~ m#dx>dxodydyod$="":1150~ r#dx=dxody>dyod$="":1150~ sdx>dxody>dyod$="" ~.dyo,dxo;" ";dy,dx;3+(du=0);d$ .1}L,40(-4*du ((dx-mx)1dy=mytm8000@ ty=ty-1:tx=tx-1 -a$=:a$"0"a$"9"tce02000  tmmx=mx-2 +mx0my,0;" ":1522 tm206 mxo=mx:mx=mx-1 mx>-11530 !my,mxo;" ":nom8001A 7nom=nom-1:tm=0:my=1+(*20) my=dy1522 mx=29:mxo=29 %my,mxo;" ";my,mx;6;"" 6((ux-mx)+(uy-my))<20dep<21550  206 a=mx-ux:b=my-uy:m=a  m4)   CEY,cex;1;7;"*" .1}L,-2  1;5;cey,cex;"*" Tpcy=cey+(cey=1)-(cey=21):pcx=cex+(cex=0)-(cex=31)-1 cey,cex;" " j5;1;1;pcy,pcx;"*";pcy-1,pcx;"";pcy+1,pcx;"":1,2 O(cey-dy)+(cex-dx)<3dy,dx;1;1;6;d$:8000@ P5;1;pcy,pcx;"*";pcy-1,pcx;"";pcy+1,pcx;"" 8(cey-uy)+(cex-ux)+(dep-dch)>(6-sl)246 Puy,ux;1;5;"":.5,0:nu=nu-1:nu8001A ?ux=1+(*30):uy=1+(*20):246  @2,0:5,0;" YOU HAVE SUNK YOURSELF !":100d:,," All other ships were sunk ....":noms=nom+noms-1 A.2~L,0:.5,10 :.2~L,0:.5,10 :.2~L,0:.1}L,10 :.1}L,0:.1}L,0:.1}L,0:.5,-5:8,0;" You sank ";5-nu;" submarines";9 ,7;"with ";ch;" charges ." B&,,"Of 10 Ships the Enemy Sank ";noms G,," At Level ";sl H)ch=0sc=-10000':8010J IIsc=sc+(20000 N*(5-nu)/ch-500*noms):sc>w(sl)w(sl)=sc J,," Your Score is ";sc K O:n=13:" Level ";n;" High Score is ";w(n):n T21,0;"Press P" Yæ="p"8025Y ^ 5 #(7:7:1: #2/0,7;2;"D E S T R O Y E R" #4F2,22;"by K Flynn";3,15;" Abacus Programs" #7,," You command a destroyer in the Western Approaches ; you must protect the merchant ships with in your zone from submarine attack ." #<" You have 10 ships under your charge but only 1 will be in thezone at any time . There are known to be 5 submarines in the area ." #Ay,," The subs are normally submergedbut you can detect them by sonar ..the higher the pitch the shorter the range ." #F'21,0;"Press P" #Kæ="p"9035K# #L #M1" Only one sub will be detected at any time ." #P" You can move up to 3 spaces pergo and alter your speed by usingthe keys W/A/D/X . The faster you move the longer it takes to stop or change direcion ........BUT if you do not move fast enough when dropping charges youwill sink yourself ." #Uy" You drop charges by depressing keys 1..9 (0=10) to set the depth of the explosion . The drop is marked by * ." #Z,," The ships crossing the zone maybe torpedoed if the sub can comenear to the surface to attack . Generally the subs will dive as you approach them and surface when near a ship ." #\!21,0;"Press P" #]æ="p"9053]# #_#:" Do not collide with a ship !" #d,," Destroyer" #e,," Periscope" #f,," Submarine" #g,," Merchant ship" #iu,," Your score is based on the number of subs sunk , number of charges dropped and the number of ships lost ." #nd" The top line gives the depth set on the last charge , speed and (if in range) the sub depth." #s=21,0;"Enter Level Of Play (1,2 or 3)" #wa$= #xa$<"1"a$>"3"9079w# #zsl=a$ #} 10 #1;7;4,6;"";16,8;"";16,23;"":7;1;21,0;"Please wait....": 'M(23627K\+256*23628L\)-(23635S\+256*23636T\) )oomocc ue xyxyxa bm Oj@k`eecc)DAwd XȪ?? 8p@@0880@@p8 (08<?? A~<B$ HA%%AA $B<~H