SUB HUNTERUBcW80:0:0:b=23820 ]::00005 !][[7!@ݿ>V>P2B\2D\!@ݿ>!@>!>xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx b65535:a=23614>\*256+23613=\:a,0:a+1,0:a=23820 ] "] g߿?????B x   6 @?????B$ !! | @~??????B  !P @  w ?~?????@?D5B  >!  ?~?????? @ ?!B  ! @  ????????? @? )@B  ! @ ?_????????? @ ? IB   A?  ????????? ? $PB  v9 ?   I  P! !D Q `! S>|! @`q@!T*Q)@`@  P@ H  PπB H  P' 2!P U@)c`@ P@C >|!E( Q D!9 ! K  P @  @YPRx@  (TR $Q I!@D $Q A!  !'H̀ = P @9 P F)b  @/ )F Qd` @@S >| bK  PN!'@  |JP @)B _@ )H$  P? 0  O  P! G  | *I% I$ _@?)HD  P  Cd@ >| 'G Q @H"E $0|  H"E $ P@(l  P! !`dQ Q A! G QA! J$I08G  P@(@(? <@@ >> $  @(  b<<B><|<B<|@|B|@><<>@ >>> $  0B ~@~x@ (BBfBBBfBB BBB@BBBb@ ?@@>>@" "  `B888x D@8@8@DD8@PE B<(Z@BBZBB BB|@@BBR<@? @?>@ " "  B 0DDBHB@|BB~| |BB@@~BJ@? > !  !? B xD"D@@B@BDx @PE@B~BBDBBBD@BB@BBBFB>   ! Z @D"<@@B@D<@ @B><<B>@@   <$ 8 @888888888(8(8(((88@(((8888888888888888888888888888888888888888888888888888888888888?8888?88?888888888888888????8888888888&&&&&&& & ' &G &GGG&&&'''GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGOOOOOOOOOOOOOOOOOGGGGGGGGGGGGGOOOOOOOOOOOOEGGGGGGGGGGGGEEEEEEEEEEEEEEEEEEEEGGGGGGGGGGGGEEEEEEEEEEEEEEEEEEEEGGGGGGGGGGDDDDDDDDDDDDDDDDDDDDDGGGGGOOOOOOOOOOOOOOOOOOOOOOOOOOOO7!@ݿ>VP2B\2D\!@ݿ>  # <@n#n#d#7?ж\\\7\DI,QQQ-\2#P:t}.X![!@@X!!Od#  K SR PP0:0:0:zzz=55000:t(7):a(5,5):s(4):f(7):e(10 ):p(2,5):c(7):d(7) Qmad=0:oldht=5000:temp=0:turn=0:newhd=0:sb=0:spup=0:b=5:estdep=0:depth=((*5000)/10 ) RFi=15:a(i,1)=-30:a(i,3)=-20:i Sxd1=0:d2=0:d3=0:drx=-10 :dry=0:dr=0:s(1)=-30:s(3)=-20 Txp(1,1)=-30:p(2,1)=-30:p(1,3)=-20:p(2,3)=-20 Ucm=0:dep=1:track=0:qcount=0:subturn=0:range=3:7500L Ybackin=0:fu1=5000:quiet=0:bank=2:climb=0:fu2=5000:xst=0:yst=0:xend=24:yend=24:factor=24 Z[i=17:c(i)=0:d(i)=10 :i:dx=10 *((200*/180)) [(dy=10 *((200*/180)) \$dhx=63360:dhy=63720 ^dht=360h _Q t()=((65536*23674z\+256*23673y\+23672x\)/502) `dhtx=0:dhty=10 aTdhtx1=5*((150*/180)):dhty1=5*((150*/180)) fsubhd=(*360h) g i=(*2) i&subx=(*6):suby=(*6) ji=0subx=subx+7 ki=1subx=subx+12 lj=(*2) mj=0suby=suby+7 nj=1suby=suby+12 s i=0acx=1 x i=1acx=23 }Jth=13 : acy=1:achd=360h:acsp=300,:ht=5000 ~@acxpix=(acx*4)+72H:acypix=(acy*4)+16 /200,71G:1;7;dhx,dhy #6;15,24;"360"  7050:9000(# Oi=112 :.005y# =,22:i:track=0: nil=0:r$= r$=""214 .03{u\,26 r$="5"6000p:hard left r$="t"6040 r$="8"6080:right r$="y"6110  r$="6"62008:down  r$="7"6230V:climb  r$="m"6250j:MAD  r$="q"6300:speed up ! r$="z"6325:speed back  r$="1"6350  r$="2"6352  r$="3"6354 # r$="p"6400:passive buoy " r$="a"64502:active buoy  r$="b"6500d %7500L: return from command in 240 248 ( xpos=acx:ypos=acy:hdg=achd:sp=acsp 7400 U acx=xpos:acy=ypos:acx-1acy-1acx25acy25270 ? acx<0acy<0acx>24acy>24264  280 sb=1: 2;7;1;16,22;"STEER-BACK":i=18:.02{# =,30:.2~L,12 :i:16,22;" "  range=3317=  |range=3:6,18;3;0;"3":8;143,127:8;8,0:7500L  290"  7: 2:6: : 3,2;1;"YOU STEERED YOUR AIRCRAFT" < 6,1;1;"OUT OF THE OPERATING AREA" 0 14,3;"TO RETURN TO OPERATIONS" F 17,1;7;2;"PRESS ANY KEY--A NEW GAME" ; .05|L,16:.05|L,18: =""277  80P {sb=0: acx>xend+factor/24acxyend+factor/24acy )' acxpix=xpix:acypix=ypix:7050 , i=15 -#a(i,1)-203040 .3 xpos=a(i,1):ypos=a(i,2):7230> /' a(i,3)=xpix:a(i,4)=ypix 0i 1i=12 2#p(i,1)-203117 32xpos=p(i,1):ypos=p(i,2):7230> 4&p(i,3)=xpix:p(i,4)=ypix 7i 8 3139 9.xpos=s(1):ypos=s(2):7230> :"s(3)=xpix:s(4)=ypix ; 7310 <370r:flt inst etc = 7050 > xpos=acx:ypos=acy:7230> ?&acxpix=xpix:acypix=ypix:7050 E 7275k r@fu1=fu2:fu2=fu2-(100d-(400-acsp)/5)/20 wfu276800 bank=3391 bank=1393  395 achd=achd+20:395 achd=achd-20:395 #achd0achd=achd+360h %achd>360hachd=achd-360h climb=0410 ht=ht+(climb*100d) acsp=acsp-(climb*3)  ht>11500,ht=11500, #ht06800:crash-sea  7000X %quiet=1depth=depth+10 "depth500depth=500 subturn=0433 'subturn=1subhd=subhd+20 'subturn=2subhd=subhd-20 (subhd>360hsubhd=subhd-360h &subhd0subhd=subhd+360h *(subhd-newhd)20subturn=0 quiet=1442 :xpos=subx:ypos=suby:hdg=subhd:sp=20:7400 subx=xpos:suby=ypos backin1443 Gsubx<2suby<2subx>22suby>22backin=1 Gsubx>5suby>5subx<19suby<19backin=0 backin=1448  460 Nbackin=2:xto=12 :yto=12 :xfro=subx:yfro=suby:7530j  newhd=brg subturn=(*3) subturn=0450 i=15 #a(i,1)=-30497 )a(i,1)=-20nil=nil+1 #a(i,1)=-20495 )d3=(t()-t(i)):d3<600X471 ҉l=d(i):e(l)=0:d(i)=10 :a(i,1)=-20:nil=nil+1:16+i,0;" ":a(i,3)<10 495 hx=a(i,3)-2:y=a(i,4)-2:6;1;:zzz=64624p:move x,y/box 4,4 f(i)=0495 Rx=x+1:y=y+1:6;1;:zzz=64624p:move x,y/box 2,2 7750F:495 !a(i,5)=0473  495 c(i)0495 yl=d(i):e(l)=0:d(i)=10 :d1=(a(i,1)-subx):d2=(a(i,2)-suby):d13d23485 -d15d25a(i,5)=1 !a(i,3)>0478 f(i)=0:495 f(i)=0495 vf(i)=0:x=a(i,3)-1:y=a(i,4)-1:6;1;:zzz=64624p:move x,y/box 2,2 7750F:495 !a(i,3)>0487 f(i)=1:493 f(i)=1493 vf(i)=1:x=a(i,3)-1:y=a(i,4)-1:6;1;:zzz=64624p:move x,y/box 2,2 Fxto=subx:yto=suby:xfro=a(i,1):yfro=a(i,2):7600 d(i)=sec:c(i)=10 !c(i)>0c(i)=c(i)-1 i  qcount=20quiet=0 qcount20501 (c(6)=0:c(7)=0 qcount=0 quiet=1505 '(*30)=10 quiet=1 &quiet=1qcount=qcount+1 qcount>1580D i=12  #p(i,1)=-30557-  )p(i,1)=-20nil=nil+1  #p(i,1)=-20555+  1d3=(t()-t(i+5)):d3<600X530  l=d(i+5):e(l)=0:d(i+5)=10 :p(i,1)=-20:nil=nil+1:16+i,1;" ":p(i,3)<0555+ 56;1;p(i,3),p(i,4),3 !f(i+5)=0555+ @6;1;p(i,3),p(i,4),2:555+ !p(i,5)=0532  555+ 0c(i+5)0qcount1555+ l=d(i+5):e(l)=0:d(i+5)=10 :d1=(p(i,1)-subx):d2=(p(i,2)-suby):d12d22quiet=0540 -d14d24p(i,5)=1 !p(i,3)>0537 !f(i+5)=0:555+ !f(i+5)=0555+ Kf(i+5)=0:6;1;p(i,3),p(i,4),2 7750F:555+ !p(i,3)>0542 !f(i+5)=1:553) !f(i+5)=1553) f(i+5)=1 !A6;1;p(i,3),p(i,4),2:7750F )Fxto=subx:yto=suby:xfro=p(i,1):yfro=p(i,2):7600 *)c(i+5)=10 :d(i+5)=sec +9c(i+5)>0c(i+5)=c(i+5)-1 ,i -nil=76950& .quiet=1580D /"(*10 )1580D 0dep=1570: 2depth=depth+502 3"depth500depth=500 4depth=500dep=1 6 580D :depth=depth-502 ; depth502depth=502 <depth=502dep=0 Di=16 E#e(i)=1track=track+1 Fi Gtrack=0682 Iest=(*2) Oi=(*20) Ptrack3i=0 Qtrack=2i=i/2 Sest=1600X Testsubx=subx+(0.24~u[*i) Uestsuby=suby+(0.24~u[*i) Vhds=(subhd+(3.6ffff*i)) W(estdep=(depth+(i*5)):640 Xestsubx=subx-(0.24~u[*i) Yestsuby=suby-(0.24~u[*i) Zhds=(subhd-(3.6ffff*i)) [estdep=(depth-(i*5)) .xto=estsubx:yto=estsuby:xfro=acx:yfro=acy  7530j  7100 .brg=(brg+0.5):dist=(dist+0.5) "hds>360hhds=hds-360h  hds0hds=hds+360h 3hds<10 6;7,29;"00";hds @hds10 hds<100d6;7,29;"0";hds /hds100d6;7,29;hds 3brg<10 7,22;6;"00";brg @brg<100dbrg10 7,22;6;"0";brg /brg100d7,22;6;brg 4dist<10 7,26;6;"0";dist 0dist10 7,26;6;dist $estdep>500estdep=500 "estdep<502estdep=502 9estdep<100d8,28;6;"0";estdep 5estdep100d8,28;6;estdep ]track>0.05|L,43+:.6,44,:.05|L,44,:.3,42* track=0750 (xpos=estsubx:ypos=estsuby:7230> "s(3)=xpix:s(4)=ypix (s(1)=estsubx:s(2)=estsuby  760 Xs(1)=-20:s(2)=-20:s(3)=-10 :s(4)=-10 r0;7,22;" ";7,26;" ";7,29;" ";6;8,28;" "  7275k  acsp100d6800 mad1173 ht>250835C  Bd1=(acx-subx):d2=(acy-suby):d15d258204 *52;7;6,5;"MAD":173 4o6,5;7;2;1;"MAD":i=13:.1}L,22:.1}L,24:i > 173 C2;7;16,22;" TOO HIGH ";6,5;"MAD":.2~L,4:.2~L,16:.2~L,28:16,22;" ":173 pbank=1214 q0 bank=bank-1:bank<1bank=1 u 7800x z 214 !achd=achd-2:turn=1 #achd<0achd=achd+360h  214 bank=3214 /bank=bank+1:bank>3bank=3  7800x  214 !achd=achd+2:turn=1 %achd>360hachd=achd-360h  214 8climb=-2214 95climb=climb-1:climb<-2climb=-2 B 7800x C/208,16:7;1;drx,dry Ddr=270+(climb*30) EOdrx=(63000+dr):dry=(63360+dr):dry>10 dry=dry-256 Fdrx=drx-256 G/208,16:7;1;drx,dry Hclimb=0spup=3 L 214 Vclimb=2214 W3climb=climb+1:climb>2climb=2 ` 7800x e 6211C j mad=16280 k*6,5;2;7;"MAD" l mad=1 n 214  mad=0 !6,5;0;" "  214 %spup>0th=11 214 spup=1 )th=th-1:th<11 th=11 4;th,5;""  214 %spup>0th=17214 th=th+1 th-1,5;" " spup=1 acsp>200214 ˜2;7;1;16,23;"S-P-E-E-D": i=14:.05|L,26:.5,8:i:16,23;" "  214 %sb=1range=1214  range=1:6358 %sb=1range=2214  range=2:6358 range=3214  range=3 sb=1range=3  7700 6,18;3;range: 8;143,127:8;8,0:7150:check scale subroutine  7500L 0 xpos=acx:ypos=acy:7230>:find a/c plot ' acxpix=xpix:acypix=ypix:7050 / xpos=s(1):ypos=s(2):7230> # s(3)=xpix:s(4)=ypix  7275k:plot sub points  i=12 $p(i,1)-206385 3 xpos=p(i,1):ypos=p(i,2):7230> ' p(i,3)=xpix:p(i,4)=ypix i i=15 $a(i,1)-206391 3 xpos=a(i,1):ypos=a(i,2):7230> ' a(i,3)=xpix:a(i,4)=ypix  i  7310:plot buoy  214 bank=26403 N7;16,22;" BANKING ":i=510 :.03{u\,i:i ci=10 5-1:.025{L,i:i:0;16,22;" ":214 i=12 % p(i,1)=-306409   i  64480  # 5;16+i,1;" "  % p(i,1)=acx:p(i,2)=acy  27950:ht300,p(i,1)=-20  .01z# =,27:.01z# =,28:.01z# =,29:.01z# =,30:.01z# =,31:.01z# =,32 :.01z# =,33!:.01z# =,34":.01z# =,35#:.1}L,36$  ht300,6432  3 xpos=p(i,1):ypos=p(i,2):7230> ' p(i,3)=xpix:p(i,4)=ypix (1;xpix,ypix,3:7750F  t(i+5)=t()  6434" "ht<300,64480 $2;7;16,22;" TOO-HIGH ":.2~L,4:.2~L,16:.4L,28:16,22;" " &16+i,1;" " 0 214 2bank26401 3 i=15 4% a(i,1)=-306460< 7 i : 6498b .01z# =,36$:.01z# =,35#:.01z# =,34":.01z# =,33!:.01z# =,32 :.01z# =,31:.01z# =,30:.01z# =,29:.01z# =,28:.1}L,27 @ht300,6490Z A xpos=acx:ypos=acy F 7230> K' a(i,3)=xpix:a(i,4)=ypix P x=xpix-2:y=ypix-2 Q6;1; R#zzz=64624p:move x,y/box4,4 U t(i)=t():7750F Z 6494^ ^ht<300,6499c _2;7;16,22;" TOO-HIGH ":.2~L,4:.2~L,16:.4L,28:16,22;" " `16+i,0;" " c 214 dbank26401 e btm=t() f i$=:i$""6510n hG.01z# =,32 : .01z# =,34":t()-btm<26502f j2;7;16,22;" NO DEPTH ": i=135#:(i/1000),6:i:16,22;" " l 214 n1 i$"1"i$"2"i$"3"i$"4"i$"0"6504h o' b=b-1:21-b,3;" " pht<300,6515s q2;7;16,22;" TOO HIGH ":.2~L,4:.2~L,16:.4L,28:16,22;" " r 6540 s) xto=subx:yto=suby:xfro=acx:yfro=acy t 7100 u^.5,8:.1}L,20:.1}L,15:.2~L,13 :.8L,15 v dist.25~6525} wdist>56522z x/ 16,22;3;6;"MISS=" yV7;1;16,27;dist;".";((dist-dist)*100d):6523{ z33;6;16,22;"MISS >5 NM" {q i=13:.3,26:.3,14:.3,21:i:16,22;" " | 6540 }^ (depth-(100d*i$))100d(depth-(100d*i$))>06550:kill display < 16,23;3;6;1;"D-E-P-T-H" = i=15:.3,12 :.3,14:i ! 16,23;" " b=06542  214 6950&:no more bombs 7:2: ii=417:0;1;i,2;" ";i,13 ;" ";i,16;" ";i,24;" ":i i=411 (0;1;i,14-i;" ":i i=11 17 '0;1;i,i-7;" ":i ;i=1621:0;1;17,i;" ":i ;i=2429:0;1;17,i;" ":i .i=20502.2~L:.01z# =,i:i K0;7;1;1;1,7;"W-E-L-L****D-O-N-E" /i=50220-.2~L:.01z# =,i:i 00;1,7;" " 66;0;19,8;"FOR NEW GAME" 56;0;21,8;"PRESS ANY KEY" ""80P <.05|L,36$:.05|L,40(:.05|L,36$  6600 i=18 2::7 .05|L,8 7::2 .1}L,16 0::3 .05|L,8 i 0:0: di=010 2:n=32 -(2*i):m=22-(2*i):i0l=i/2 i=0l=i %l;:zzz=64624p:wcls i,i,n,m i 95_,79O:-24,-12 :8,0:-40(,-16:14,-4:-16,-8:4,-2:-28,-14:8,-8:-20,-9 ֺ95_,87W:-40(,16:16,4:-16,20:6,0:-22,4:8,4:-32 ,8:8,6:-22,22 ۝151,79O:480,-16:-16,0:16,-16:-8,-4:40(,-12 :-12 ,0:34",-30 151,87W:24,12 :-8,0:32 ,16:-6,0:20,12 :-12 ,0:502,46. c7:1;6;0;11 ,2;"CRASH";11 ,25;1;"CRASH" Pht06;0;1;2,6;"FLEW INTO THE SEA" Macsp100d6;1;0;2,9 ;"S-T-A-L-L-E-D" Lfu276;1;0;2,8;"RUN OUT OF FUEL" i=130 &.03{u\,30:.2~L,8 i 67;0;19,8;"FOR NEW GAME" 50;7;21,8;"PRESS ANY KEY" ""80P <.05|L,38&:.05|L,40(:.05|L,38&  6910 &bombs? '2:6:1: +;1;5,4;"THE";5,9 ;1;"SUB";5,13 ;0;"HAS";5,17;"WON";5,21;"THIS";5,26;"ONE" 01,21:1,14:2,7:.2~L,5:.2~L,7:.2~L,5:1,1:.3,5:.3,6:1,7 2Unil=710 ,0;0;7;" YOU HAVE ZERO SONAR BUOYS LEFT " 3nil=76900 5H10 ,0;0;7;"YOU HAVE ZERO DEPTH CHARGES LEFT" : 6900 X(spup=0climb=07011c Yspup=07004\ Z-spup=spup+1:spup<47011c pup=0:acsp=400-((th-11 )*502) \acsp100d6800 ]-temp=acsp:6;15,28;acsp ^I240,72H:1;dx,dy:temp>460temp=temp-360h _Ndx=(temp+62900):dy=(temp+63260):dx>10 dx=dx-256 `dy>10 dy=dy-256 a-240,72H:7;1;dx,dy b 7011c c'bank=2turn=07020l dD200,71G:1;dhx,dhy:achd=0achd=360h eSdhx=(63000+achd):dhy=(63360+achd):dhx>10 dhx=dhx-256 f!dhy>10 dhy=dhy-256 h&200,71G:1;dhx,dhy i6achd<10 15,24;6;"00";achd j2achd100d15,24;6;achd kDachd<100dachd10 6;15,24;"0";achd lclimb=07035{ m1240,16:7;1;dhtx,dhty nNdht=(ht-((ht/1000))*1000)*.368Q:dht=0dht=360h oVdhtx=(63000+dht):dhty=(63360+dht):dhtx>10 dhtx=dhtx-256 p$dhty>10 dhty=dhty-256 q1240,16:7;1;dhtx,dhty r>((oldht/1000))-((ht/1000))=07035{ s3240,16:7;1;dhtx1,dhty1 u=dht=((ht/1000))*30:dht=0dht=360h v[dhtx1=(63000+dht):dhty1=(63360+dht):dhtx1>10 dhtx1=dhtx1-256 x'dhty1>10 dhty1=dhty1-256 y*dhtx1=dhtx1/2:dhty1=dhty1/2 z3240,16:7;1;dhtx1,dhty1 {boldht=ht:i=(fu1*3.15I/502)(fu2*3.15I/502)-1:i=0i=360h |_i=(i+0.5):dfx=(63000+i):dfy=(63360+i):dfx>10 dfx=dfx-256 }!dfy>10 dfy=dfy-256 ~&16,103g:1;dfx,dfy i=360h i  a/c pos plot Hm=acxpix+3:x=acxpix-3:y=acypix-3:l=acypix+3 1;6; 7zzz=64624p:move x,y/line m,l/move x,l/line m,y  relative dists 9dist=((((xto-xfro))^2)+(((yto-yfro))^2))  /l=0:m=0:factor=3:scale!! i=1range factor=factor*2 i acx>xst7172 $xst=24-factor:xend=24 acxxst7180  xst=07180  2xst=xst-factor/2:xend=xend-factor/2  7161 xst=0:xend=factor acxxend7180  xend=247180  2xst=xst+factor/2:xend=xend+factor/2  7173  acy>yst7195  $yend=24:yst=24-factor acyyst7200  yst=07200  2yend=yend-factor/2:yst=yst-factor/2  7182 yst=0:yend=factor acyyend7200  yend=247200  2yst=yst+factor/2:yend=yend+factor/2  7196  :7;21,8;" ";21,8;xst;21,14;" ";21,14;xst+factor/2;21,20;" ";21,20;xend;20,6;" ";20,6;yst;14,6;" ";14,6;yst+factor/2;8,6;" ";8,6;yend ! 7750F "+6;:zzz=64624p:wcls0,12,4,4 #range=372204 %xst=0x=0 &xst0x=xst/6 'yst=0y=15 ('yst0y=15-(yst/6) )range=272193 *x-x>0l=1 +y-y>0m=1 ,!l=0m=072182 -7900:x=x:y=y .Tl=0m=13;5;1;y,x;" ";1;y+1,x;" " /Tl=1m=05;3;1;y,x;" ";1;y,x+1;" " 0~l=1m=15;3;1;y,x;" ";y+1,x+1;" ";1;y+1,x;" ";y,x+1;" " 1 23;y,x;" ":72204 3=x=x:y=(y+.5):3;y,x;" ";y-1,x;" " 4 7900 9 >plot posn routine @sxpos>xend+factor/24xposyend+factor/24ypos2707470. ang=(hdg-180) "ypos=ypos-(f*(ang*/180)) hdg1807455  "xpos=xpos-(f*(ang*/180))  7495G "xpos=xpos+(f*(ang*/180)) $ 7495G .ang=360h-hdg 0"xpos=xpos-(f*(ang*/180)) 2"ypos=ypos+(f*(ang*/180)) 4 7495G 8"xpos=xpos+(f*(hdg*/180)) ="ypos=ypos+(f*(hdg*/180)) G L plot factor Qplotfac=32 Vi=1range [plotfac=plotfac/2 `i e jxtoxfro7545y lytoyfro7540t m(yfro-yto=0yfro=yfro+0.01z# = n6brg=180+(((xfro-xto)/(yfro-yto)))*180/ p 7559 t(xfro-xto=0xfro=xfro+0.01z# = u6brg=270+(((yto-yfro)/(xfro-xto)))*180/ v 7559 y&xto-xfro=0xto=xto+0.01z# = zytoyfro7555 ~5brg=90Z+(((yfro-yto)/(xto-xfro)))*180/  7559 5brg=90Z-(((yto-yfro)/(xto-xfro)))*180/   7530j sec=((brg/60<))  brg360hsec=sec+1 e(sec)=1 0quiet=1subturn0backin=1 (*2)=1 subturn=(*3) subturn=07625 newhd=(*360h)  newhd=0newhd=360h   6; "zzz=64624p:wcls 8,7,14,14 ( F SCALE HERE K 6; P'zzz=64624p:move 71,15/box96,96 Urange=1 Zrange=27790n _ 6; `gzzz=64624p:line(96,8)-(96,119)/line(144,8)-(144,119)/line(64,40)-(175,40)/line(64,87)-(175,87) n 6; p>zzz=64624p:line(120,8)-(120,119)/line(64,63)-(175,63) s x horizon }bank27830 "y=3+climb:x=3-climb 5;5;  zzz=64624p:wcls0,0,32,y 1;1;  zzz=64624p:wcls0,y,32,x  bank=37850  7808 ;x=80P-(16*climb):y=176-(16*climb) 8;8; 8zzz=64624p:line(x,175)-(y,128)/move 2,173/paint  7880 G7808:x=80P+(16*climb):y=176+(16*climb) 8;8; 9zzz=64624p:line(x,128)-(y,175)/move253,173/paint 'zzz=638008:"RESTORE THE COLOUR   8; Lzzz=64624p:line(0,56)-(31,56)/line(0,64)-(31,64)/line(0,72)-(31,72)  8; Mzzz=64624p:line(7,48)-(7,79)/line(15,48)-(15,79)/line(23,48)-(23,79)   8; nzzz=64624p:line(7,0)-(7,39)/line(0,7)-(15,7)/line(0,15)-(15,15)/line(0,23)-(15,23)/line(0,31)-(15,31)  #(subx>12 9020<# #) y=13 #-suby12 x=15 #2suby>12 x=12 #7 9045U# #< y=16 #Asuby12 x=15 #Fsuby>12 x=12 #U6;1;x,y;" " #Zr.3,14:.3,21:.3,14:.3,21:.3,14:.5,21 #\.3,14:.5,21:.5,26:.5,21:.1}L,26:.1}L,21:.1}L,26:.1}L,21:.1}L,26:.1}L,21:.1}L,26:.8L,21 #^6;x,y;" " #_ #n\#0;1,2;"Written by Flt.Lt.J.T.F.Dyer":zzz=23319[:80P a~z^&&5 7&& aldhemurewhpubstdeept[Zrrmeraccounubturanglotfaackiuuieanlimussenenacto䔋9070n# [,0;" ":#0;1,2;"Written by Flt.Lt.J.T.F.Dyer":0:zzz=23319[ ^ @33SUB HUNTERFR~@|~<<< x@<|x|B~~((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((  888800000000000000888888000000000000006668888000000000000008888C00000000000000 000000000000008888888800000000000000000088888888000000000000000000888888880000880000000000000088888888000000000000000000000000 00000000000000PP 00000000000000 PP0000000000000088888888PP0000000000000088888888PP880000000000000088888888PP888888888888887y<˧yyZ˧y   !X>6)#= >G^!:\~"6!X6X!f͵!XX6, ~*]\*E\nV ͈0*U\> ###"]\( O 00"]\ ^#V/("]\!X'linJbocircl2painmovwcltemp,( ͈,0͍,8;- ,/) '"]\Ͳ(8#ô3( '#") - ( )  ~D(-~C(-8÷$18ͷ$18ͷ$8ͷ$8÷$M !\~wW#C}\K}\PY8x8Bxx K0y7 Ky 7?0{=7ȷy ͪ"G~8y"~C(-~D(-8-O:}\2}\14@Z18!"h\ 8!\"h\8!"h\8!\"h\8!"h\y!\"h\濫18͢-!hB08#C}\{y[~_#,( ##{(Y8V!0Rz(N8K0G>G͛ 6# x($| % # $} o?g <~B|B|BB|>MDOdO WMM\ P P P 3U