ˢd?{ 6D:\68?"5"::5;"Change Vis";27;"6"::5;"Change Baro";27;"7" :5;"Radio Page";27;"8"::5;"Return to NAVEX";27;"9"::9 ;"Select Command ";:lh=1:600X:tf=1t$=d$ h$="x"5400 h$=""800 :1030 h$="1"2200 h$="2"2340$ h$="3"3200 h$="4"2600(  h$="5"2400` h$="6"2500 h$="7"2560 h$="8"2700  h$="9"800 :1030 %800 :1030 tf=kk2250 ;:5,2;"NAVEX is Frozen at ";t$;" hrs":d$=t$ d$=t$:tf=1 "100d:800 :1030 H:5,3;"NAVEX time is now running":tf=0:2230 B:5,6;"NAVEX Time is Frozen":100d:2000 $tf=kk2320 .:2,6;"NAVEX time is now ";t$:5,7;"Advance Time to ";:lh=4:600X:h$42000 0*2980 :g$=h$:i=12000 1:h$>2350. Űh$(34)>59;2000 2h$h$"q"2000 Bh2,24;t$:tsec=sec:sec=sec+603[:23672x\,0:23673y\,0:450 L!tu=1:t$>g$2390V N 1045 Vsec=tsec:tu=0 XH450:t$359g2000 `w=h$*k5:w(1)=w+kn:w(2)=w-kn:i=12:w3=w(i):1600@:w(i)=w3:i 1870N:2000 Ċ:5,6;"Visibility is ";vi;" M":7,1;"Enter new visibility 01-12 ";:lh=2:600X:h$lh2000 2980 :i=kk2000 h$>12 h$="12" vi=h$:2000 2:5,6;"Baro Pressure is ";ba;" mb" Z7,2;"Enter pressure 0950-1050 ";:lh=4:600X:h$lh2000 2980 :i=kk2000 2h$>949ưh$<1051ba=h$:2000  2000 (':b=1:map=1 6000p 2map=26100 <m5=m Acount=1:i=1m3:lmx=m5+256*(m5+1):lmy=(m5+2)+256*(m5+3):lmy=lmy-inc:lmx>0lmy>0lmy<175lmx,lmy:2630F DXm5=m5+4:count=count+1:i:3,0;"Track off chart ":2660d Fi=countm3:mx=m5+256*(m5+1):my=(m5+2)+256*(m5+3):my=my-inc:mx255my>1752650Z Pmx-lmx,my-lmy:lmx=mx:lmy=my Z4m5=m5+4:i:px=kk:tf=kasec=sec+16 d50,0:lh=1:600X:2000 9:5,4;"The Radio is ";:rad=kk"Disabled" rad=2"Serviceable" <7,4;"Sound Morse is ";:nz=3"Enabled" nz=4"Disbled" 10 ,4;"Key a'1'to Disable Radio":12 ,4;"Key a'2'to enable Radio":14,1;"Key a'3'to enable Morse Sound":16,1;"Key a'4'to enable Morse Video":lh=1:600X:h$lh2000 1900l:num=ka2700 %h$>4Űh$=02000 "h$<3rad=h$:2000 !h$>2nz=h$:2000 2000 3400H a:5,1;"NAVEX Auto Initialisation y/n ";:lh=1:600X:h$lh2802 h$="y"4000 4lp=1:3000 :xp=lx:yp=ly:x$=j$:y$=k$ @lp=2:3000 :u$=j$:v$=k$:fx=lx:fy=ly:3700t :5,8;"NAVEX start time":7,1;"24 hour clock 0001-2359 ";:lh=4:600X:h$lh2840 #2980 :i=12840 *t4=h$:t$=h$:t4>23597 2840 +h$(34)>59;2840 t1=h$(34) :5,0;"NAVEX Start time will be ";t$:7,5;"Time of next H.W.Dover":9 ,2;"24 Hour Clock 0001-2359 ";:lh=4:600X:h$lh2847 "#2980 :i=12847 #1m$=h$:n$=m$:t5=h$:t5>23597 2847 %+m$(34)>59;2847 &'3600:t7>12.5H2847 .^:5,1;"Max Tide Speed 0.0-2.7 Kts ";:lh=3:600X:h$lh2862. 2C2980 :i=1h$(2)"."Ű(h$)>2.7,2862. 4ta=h$ :_:5,4;"Wind Direction 000-359 ";:lh=3:600X:h$32874: >#2980 :i=12874: @h$>359g2874: Bw=h$ EC:6;"NAVEX Initialisation":" Start Position";20;x$ H20;y$ P+" Destination";20;u$:20;v$ W4" Heading";20;:q$=h:160:q$;"'(M)" X%:" Start Time";20;t$;" hrs" Z):" Next H.W.Dover";20;n$;" hrs" \+:" Peak Tidal Vel";20;ta;" knots" ^=:" Wind Direction";20;:q$=w:160:q$;"'(T)" `&:" Visibility";20;(vi);" M" b#:" Barometer";20;ba;" mb" d$:" Log reading";20;lg;" M" h$5;"Press'Q'to start NAVEX"; r+lh=1:600X:h$lh2885E th$"q"5300 wpx=1: inc=0:ma=63000:m=ma:count=0:vel=6:mv=k5*6:h=(h*k5)-mv:w=w*k5:w(1)=w+kn:w(2)=w-kn:w3=h:1600@:h=w3:map=1inc=96` 4i=12:w3=w(i):1600@:w(i)=w3:i Lb=kk:h(b)=h:x(b)=xp:y(b)=yp:t(b)=t1:l(b)=lg:s(b)=01400x s(b)=1v(b)=6 sec=t$(12)*3600:sec=sec+t$(34)*60<:23672x\,0:23673y\,0:23674z\,0 H:800 :tu=0:q=3:in=1:tf=0:1310 <i=1lh:h$(i)<45-ůh$(i)>58:i=1: i: <:5,3;"NAVEX ";:lp=1"Start Lat/Long" $lp=2"Destination Lat/Long" ̉7,2;"Enter Latitude eg n50.46":8,20;" ":8,20;:lh=6:600X:h$lh3020 #1150~:i=13020 #h$(4)46.3020 j$=h$:la=h$(23):lb=h$(56):h$110nla>513la<502lb<0lb>59;3020 Dlx=10000'+((la-502)*6000p):lx=(lx+(lb*100d)) /10 ,2;"Enter Longitude eg e00.46" &b11 ,20;" ":11 ,20;:lh=6:600X:h$lh3110& 0#1150~:i=13110& 5#h$(4)46.3110& :sk$=h$:la=h$(23):lb=h$(56):la>2la<0lb>59;lb<03110& D-h$(1)="e"h$(1)="w"3150N I 3110& Nily=(la*3844)+((lb/60<)*3844):ly=(ly):h$(1)="w"ly=20252O-ly:3162Z Xly=ly+20252O Zlp=2 ]313 ,2;"Enter Initial Heading 000-359" ba14,20;" ":14,20;:lh=3:600X:h$lh3170b l#1150~:i=13170b q*h=h$:h<0h>359g3170b v H:5,4;"Position Report Lat/Long":j$="":k$="":b=1 o 8,5;"Water Track is ";:w3=h(b)+lw+.001wn:1600@:q$=((w3*k6)):160:q$;"'(T)" q=5:1010 2000 ;h$=x(b):x(b)>1000j$="N50.":xp=x(b)-10000' 2x(b)>16000>j$="N51.":xp=x(b)-16000> 2x(b)>22000Uj$="N52.":xp=x(b)-22000U 5lb=(xp/100d):q$=lb::q$<2q$="0"+q$ j$=j$+q$+"."+h$(4) 2y(b)20252Ok$="E00.":yp=y(b)-20252O 2y(b)24096 ^k$="E01.":yp=y(b)-24096 ^ 2y(b)27940$mk$="E01.":yp=y(b)-27940$m 2y(b)<20252Ok$="W00.":yp=20252O-y(b) 2y(b)<16408@k$="W01.":yp=16408@-y(b) 2y(b)<125641k$="W02.":yp=125641-y(b) yp>3844"Out of Limits" Byp=(yp/3844)*60<:q$=((yp)):q$<2q$="0"+q$ k$=k$+q$+"." (yp=(yp-(yp))*10 :k$=k$+((yp)) ?f(b)=kk10 ,2;"Finished at ";f$(b);"in position" 12 ,6;"Latitude ";j$::6;"Longitude ";k$::4;"Press any key to continue":lh=1:600X:2000 H^:5,4;"Navigate a Motor Yacht y/n ";:lh=1:600X:h$lh3400H \h$="n"h$="N"fp=2: s(kk)=1:fp=kl: !t512.5H .Htp=((t7/kf)*266 ):tp>7000Xtp=32000}-(tp-7000X) 8"tp<7000Xtp=190008J-tp B4tt=k8-((t7/kf)*kb):tt=tt+6:tt>k8tt=tt-k8 L t.xp>135004fx>135004map=1: ~.xp<16000>fx<16000>map=2: fx<15000:map=2: map=1: |:5,4;"NAVEX Exercise Selection":7,10 ;"Key 1 to 9 ";:lh=1:600X:h$lh4000  1900l:num=ka4000 %h$0Űh$>9 4000 s=h$:s=14100 s=24110 s=34120 s=44130" s=54140, s=641506 s=74160@ s=84170J s=9 4180T  2885E xp=10500):yp=25377!c:h=015:t4=0030:t$="0030":t1=30:m$="0500":n$=m$:t5=0500:3600:ta=1.43333:w=270:vi=12 :ba=1013:lg=0  sx$="50.05'N":y$="01.20'E":fx=14450r8:fy=26300f:map=2:wx=0:u$="50.44'N":v$="01.32'E": xp=16900B:yp=25761d:h=180:t4=0030:t$="0030":t1=30:m$="0800":n$=m$:t5=0800 :3600:ta=2.0:w=300,:vi=12 :ba=1013:lg=0 sx$="51.09'N":y$="01.26'E":fx=14450r8:fy=26300f:map=1:wx=0:u$="50.45'N":v$="01.32'E": xp=138005:yp=21213R:h=070F:t4=2000:t$="2000":t1=00:m$="0130":n$=m$:t5=0130:3600:ta=2.7,:w=140:vi=5:ba=1013:lg=0 sx$="50.38'N":y$="00.15'E":fx=16500t@:fy=24864 a:map=1:wx=0:u$="51.04'N":v$="01.12'E": "xp=11500,:yp=24096 ^:h=045-:t4=0200:t$="0200":t1=00:m$="0830":n$=m$:t5=0830>:3600:ta=1.43333:w=085U:vi=12 :ba=994:lg=0 'x$="50.15'N":y$="01.00'E":fx=11370j,:fy=26023e:map=2:wx=1:ib=0:iv=0:u$="50.14'N":v$="01.25'E": ,xp=141007:yp=21100lR:h=125}:t4=0100d:t$="0100":t1=00:m$="0630":n$=m$:t5=0630v:3600:ta=2.7,:w=230:vi=10.5(:ba=1006:lg=0 1x$="50.41N":y$="00.13E":iv=-.425Y:ib=-.125}:map=2:wx=1:fx=11370j,:fy=26023e:u$="50.14'N":v$="01.25'E": 6xp=18200G:yp=26914"i:h=290":t4=0030:t$="0030":t1=30:m$="0600":n$=m$:t5=0600X:3600:ta=1.43333:w=225:vi=5.50:ba=1011:lg=85U ;x$="EP 51.23'N":y$=" 01.43'E":fx=18300|G:fy=25505c:map=1:wx=0:u$="51.23'N":v$="01.23'E":rad=1: @xp=17800E:yp=26402"g:h=185:t4=0200:t$="0200":t1=0:m$="0800":n$=m$:t5=0800 :3600:ta=2.7,:w=225:vi=1:ba=998:lg=15 Eux$="N.Goodwin":y$="at 0130":fx=15750=:fy=26991oi:map=1:wx=1:u$="50.58'N":v$="01.46'E": Jxp=172000C:yp=25761d:h=170:t4=21004:t$="2100":t1=0:m$="0500":n$=m$:t5=0500:3600:ta=2.7,:w=210:vi=9 :ba=1006:lg=4:iv=-.5:ib=-.123}{l:wx=1 Ogx$="51.12'N":y$="01.26'E":fx=132203:fy=26362f:map=1:u$="50.33'N":v$="01.32'E": Txp=14200x7:yp=24736`:h=3106:t4=0100d:t$="0100":t1=0:m$="0400":n$=m$:t5=0400:3600:ta=2.7,:w=045-:vi=2:ba=1028:lg=47/:wx=0 Ydx$="Mid-Channel":y$=" ":fx=132203:fy=26362f:u$="??.??'N":v$="??.??'E":3700t: h :2,9 ;"NAVEX v 3.1"::" Caution,do not press SHIFT &"::"BREAK as this will cause NAVEX"::"to abort and require a reload."::" The Keyboard should be left" r:"in Lower Case eg'a d g'" B14,6;1;"Searching for Data"::"NAVDAT"a$() U: 5,2;"NAVEX-Data has been Loaded."::" Rewind and store away tape" , 12 ,25;" " f12 ,2;1;"Is a Printer connected y/n ";:lh=1:600X:h$lh4260 h$="y"px=1: px=0: %620000:6800:4200h :6000p:1;1,2;"Individual NAVEX":3,2;"Copyright  1985":4,0;"R.Y.A.and P.E.Parker" ~502:.45ffff,21:8:.15~,21:24:.15~,21:8:.45ffff,21:24:.15~,21:8:.15~,21:8:.15~,21:8:.45ffff,21:24:.15~,21:24:.45ffff,21:8:.15~,21:8:.15~,21:8:.45ffff,21 R6,1;"Any Key to continue":lh=1:600X:h$=""5010 :8,5;"NAVEX Initialisation":map=1:rad=2:lw=0:b=1:f(b)=0:s(b)=0:m3=0:ba=1013:lg=0:vi=12 :wx=0:x$="":tf=0:m3=ka:m6=ka:ib=0:iv=0 150:2800 :5,2;"You have selected NAVEX eXit":7,5;"Confirm by keying a'Y' ";:lh=1:600X:h$="y"5300 " 2000 p28,29:4,0:6,8:3,1:1,4:2,2:7,3:10 ,2:4,1:3,0:4,1:2,1:2,0:1,1:3,1:8,8:5,3:-1,2:1,-2:3,0:16,-3:5,0:0,2:-1,7:1,7:3,4:5,5:4,2:4,1:7,1:4,2:0,1:1,1:2,1:3,0:7,3:1,-1:2,3:4,2:2,3:1,3:0,11 :-2,7:-1,3:0,4:-1,1:0,2:1,1:2,-1:2,0:2,1:2,4:1,5:-1,1:-2,2:-5,-1:-2,-1:Eng Coast #1,59 z228,74J:-9 ,-2:-8,-3:-6,-3:-5,-6:-2,-3:-6,-3:-4,0:0,-4:3,-10 :-1,-2:0,-3:0,-4:-3,0:-1,-4:1,-2:-3,-3:2,-2:1,-5:0,-15:French Coast #1,19 28,3:27,3:70F,480:579,46.:24,21:11 ,26:N.Traffic #1,5 117u,0:11 ,10 :21,34":166,69E:28,27:23,26:Mid Traffic#1 ~148,0:12 ,10 :12 ,21:8,27:36$,36$:12 ,10 :S.Taffic #1 28,g0:0,108l:200,0:0,-108l:163,96`:0,79O:546,0:0,-79O:-546,0:Outline  28,125}:4,0:6,8:3,1:1,4:2,2:7,3:10 ,2:4,1:3,0:4,1:2,1:2,0:1,1:3,1:8,8:5,3:-1,2:1,-2:3,0:16,-3:5,0:0,2:-1,7:1,7:3,1:Eng Coast #2,25 ޝ159,0:4,2:1,0:2,3:7,5:4,12 :2,3:4,4:2,1:2,0:-2,-1:3,-4:4,0:7,-3:2,3:-1,1:1,1:-3,2:-3,1:-2,-1:-5,9 :-3,0:-2,3:2,15:2,1:0,-1:5,0:1,1:1,-1:0,2:-2,0:-2,1:-1,0:-5,4:3,17:0,5:1,2:2,1 5,-4:3,-1:-3,1:-7,8:-1,3:0,16:-1,5:-2,2:3,3:-1,2:1,4:3,0:0,4:0,3:1,2:-3,10 :0,4:4,0:6,3:2,3:5,6:6,3:8,3:9 ,2:French Coast #2,61 028,99c:27,3:70F,480:30,25:28,77M:87W,17:13 ,12 :21,34":166,165:11 ,10 :28,37%:90Z,35#:42*,34":12 ,21:8,27:22,21 W28,175:0,-175:200,0:0,175:Outline 2 k1=360h:k2=180:k3=60<:k4=60.8s333:k5=/180:k6=180/:k7=6080/60<:k8=2*:k9=.01z# = ka=0:kb=.0838}+U:kc=:kd=.5:ke=-1:kf=.1666~*0:kg=.53{:kh=3.666jv:ki=27:kj=64@ kk=1:kl=2:km=6:kn=.6982 :kp=10 :kq=255:kr=80P:ks=502:kt=266 :ku=3:kv=8:kw=5 kx=13 :ky=32000}:kz=12000.:l1=7:l2=.75@:l3=23000Y:l4=99c:rad=2:n1=kk:nz=4:s=0 :fp=kl:in=0:map=1:ml=20700P:ml2=20508P:mn=125000:mn2=10200':ms=6920:ms2=7111:mt=4750:mt2=4960`:ma=620000:m=ma:m3=0:m6=0 a$(77M,30):b$(13 ,26):r(3):w(3):s(1):f(1):f$(1,5):l(1):x(1):y(1):h(1):t(1):v(1):u(1):q(1):z(1) ")b$(1)="310.3132702395130..- .-.." ")b$(2)="310.3143402195430.-. -.--" "*b$(3)="310.3142002623315.--. ...." "'b$(4)="310.3152202632820--. -." "(b$(5)="310.3154802401820-.. ..-" ")b$(6)="305.7178102720130..-. ..." "(b$(7)="305.7190602558820--. ..-" "(b$(8)="305.7173052642315--. .--" "(b$(9 )="294.2163002742010-.. -.-" ")b$(10 )="301.1182452580830-. ..-." "(b$(11 )="358.0132202636230.-.. -" "+b$(12 )="088.0157702737020-.-. .-.." "(b$(13 )="088.0182452580820-. -.." " #(3NAVEX v 3.1 Copyright  1985 R.Y.A and P.E.Parker h<s333{5e.ӫJIڢz# =}+UIڢ~*0{jv@2 ī P2  }.@YcasaPlP0n'st`0m0W 310.3132702395130..- .-.. 310.3143402195430.-. -.-- 310.3142002623315.--. ....310.3152202632820--. -. 310.3154802401820-.. ..- 305.7178102720130..-. ... 305.7190602558820--. ..- 305.7173052642315--. .-- 294.2163002742010-.. -.- 301.1182452580830-. ..-. 358.0132202636230.-.. - 088.0157702737020-.-. .-..088.0182452580820-. -..    M144002117614GpFl(2)20sec107254143402195415Fl20sec 0151202253004Fl.R 0154002333902LFl.10sec 0132702395110Gp.Fl(4)15s 0154802401814Fl.10sec 0133602408802VQkFl(3)5s 0152002423702Fl.Y.5sec 0127102409603VQkFl(9)10s 0158402433602GpFl(4)R.15s0147102459002VQk Fl 0161402459002GpFl(3)G.10s0162302481202VQkFl 0164602485010GpFl(2)10sec0149002515803VQF(6)+LFl10137102523203Fl.G.4sec 0135902535503VQkFl(3) 5 s0155602515802VQF(6)+LFl150158902537702Qk.Fl.G 0143402530203GpFl(2)R.6s 0103902551715GpFl(2)10sec0106502583715GpOcc(3)WR120111702602015Fl.R.5sec 0113802591303GpFl(2) 0123902623216Fl 5sec 0131402637115GpFl(2)10sec0161302562510Fl.R.20sec 0142002623310Fl(3)15sec 0144302627008GpFl(2+1)15 0145002582502GpOcc(2)Y6s 0145402607202VQF(6)+LFl10148502621002VQFl 0152202632810Fl.5sec 238011153602608802GpOcc(3)Y12s0157502558702VQkFl 0166602537208Fl 7.5sec 090255168382552810Fl(3)20sec 064221156002648002VQkFl(9)10s 0157702737010Fl(4)15sec 276079160902721902QkFl 0163002742010Fl.3sec 0167932592508GpFl(2)30sec0165102665103VQkFl(3)5sec0168502629802GpFl(4)Y10s 0169312712010Fl.5sec 0166602729902Occ.G4s 0158952699102GpFl(2)R6sec0168852601802VQ(6)+LFl10 0170502615902Fl(4)R15sec 0173052642310Fl.15sec 0172952630402Fl(3)R10sec 0173202585502Q(6)+LFl.15s0174002693802Q(6)+LFl.15s0175402586702FlG.5sec 0175442581501Fl(3)R.10sec0176502594002VQ(9)10sec 0176002637102Q(3)10sec 0176902590701Fl(4)R15sec 0177532603002FlG 2.5sec 0178102720110Fl(2)10sec 0179252591301Q(3)10sec 0179542584902Fl(4)Y10sec 0179602572103Occ.10sec 0179652611201VQ(3) 0179652616402Fl(2)G5sec 0180272629010Fl(3)20sec 0180502721902Fl(3)R.20sec0180952598902Fl.R 2.5sec 01814625810022FG(vert) 0182452580810Fl(5)WR20s 017096183202612402VQ 0183702555902QR 0185802680402VQ(3)5sec 0187902601802VQ(3)5sec 0188102729402VQ 0190602558810Fl(2)10sec 0191002608802LFl.10sec 0bH X"" ˠd8MT32ۑ56e3Y'pRv> P P P 88 MM Y YD8Wq !0v>>BB<DHpHDB@~BfZBBBBbRJFBB<<D<8"xxD@D| 88Bx888xx888Dx@B 0DD DDDD D<DD8<| Dx DDDx xDDDD@ D@ DDD@ @D<D>x<@ 8D < 8DD< << D8n888d8# #  <@'XX8δ۶\\\d\ۡd\i҃pX![!HP !80 K SR P n NAVEX v 3.1 Copyright  1985 R.Y.A and P.E.Parker.Rel 30/11/85 Any queries or comments to 0252-540601 4t()=(23673y\*256+23672x\)/502 26,0;"Time Hdg'(M) Log(M)Spd Wind Vis"::t$;7;:w3=h(b)+mv+.001wn:1600@:q$=((w3*k6)):160:q$;13 ;(l(b)*kp)/kp;19; 3[(v(b)*kp)/kp;24;:q$=(((w+.001wn)*k6)):160:q$;(28);(vi):: viŽy*k9>vii:145 Lz=k9*((x*x)+(y*y)) N/zvizȰa$(i,11 12 )i:145 Z x=kax=k9 d y=kay=k9 n4o3=kk:xs=(x):ys=(y):c=((k6)*((+mv)+(y/x))) x4xs=kkys=kkc=c-k2:(c)=kec=k1-(c):140 #xs=kkys=kec=c+k2:ck1c=c-k1 la$(i,2530)>kao1=a$(i,2527):o2=a$(i,2830):400:o3=kai Lq$=(c):160:" Brg to ";a$(i,13 24);" is ";q$;"'(M)":i px=kk:800  px=kktf=kasec=sec+16 1030 (q$)kkq$="00"+q$ (q$)klq$="0"+q$  "l$=t$:t2=(l$(34)) %t(b)>t2t3=t2+(k3-t(b)):240 t3=t2-t(b) t(b)=t2: 6Pxd=((hd)*(t3*vel/k4)):x(b)=x(b)+xd:yd=((hd)*(t3*vel/k4)):y(b)=y(b)+yd: o1>o2co2 o1o2  o3=ka: stf=kadif=t():23672x\,0:23673y\,0:sec=sec+dif:sec86400(sec=0:dif=0 chour=(sec/3600):min=(((sec/3600)-hour)*60<):t$=hour:t$<2t$="0"+t$ !e$=min:e$<2e$="0"+e$ 6tf=123672x\,0:23673y\,0  t$=t$+e$: -x=fx-x(b):y=fy-y(b):z=k9*((x*x)+(y*y)) z45-Ư<58:)(>96`Ư<123{)h$=h$+:; g.05|L,21 l(h$)=lhb=(h$)-96`: vi "Time-out": 4ts=(x(i)-tp)/20000 N*k8:(ts)=kets=k8-(ts) *tv=ta*(ts):(tv)=keth=kg:tv=(tv):  th=kh: -tv=(tt)*ta:(tv)=keth=kg+l2:tv=(tv):  th=kh+l2:  :5,14;"NAVEX":8,5;"Key'P'for position fix":10 ,3;"Key'H'for a Heading change":rad=212 ,5;"Key'R'for a Radio fix" *15,5;"Baro(mb) Wind Vis":17,6;(ba);(15);:q$=(((w+.001wn)*k6)):160:q$;(23);(vi) 419,0;" -":20,3;"Royal Yachting Association":21,0;" -": #x(i)>16800Au(i)=30: u(i)=1: lh=5:600X  b=1 !f(b)=kk:210:1022 hd=h(b)+lw:hd>k8hd=hd-k8 hd30800 :count=0 $2,26;t$:tf=kkt$=d$ %t$(3)=l$(3)1030 q=3:1300 $O5,2;"Enter your new heading ";:lh=3:600X:b=1 .0h$=lh1900l:num=kkh$k11010 8800 :1030 B89 ,0;"The helmsman is steering ";h$;"'(M)" L)h(b)=(h$)*k5-mv:h(b)>k8h(b)=h(b)-k8 V(h(b))=keh(b)=k8-(h(b)) `L1400x::4;"Boat speed is ";(v(b)*kp)/kp;" knots":1030 jB::4,5;"Enter your boat ident ";:lh=1:600::b>kabn11010 t:"Error":1030 ~<i=2lh:h$(i)<46.ůh$(i)>579i=1: i: ?j=1826:b$(i,j)="-".30,21:6 *b$(i,j)=".".10}L,21:6 b$(i,j)=" "12 j:502: r:2,4;"Key number of Radio freq ":5,9 ;"1...294.2 Khz":7,9 ;"2...301.1 Khz":9 ,9 ;"3...305.7 Khz":11 ,9 ;"4...310.3 Khz":13 ,9 ;"5...358.0 Khz":15,9 ;"6...Chan 88 VHF":18,2;"Valid entries are 1 to 6 ";:lh=1:600X:b=1:h$lh800 :1030  h$="1"h$="294.2":1010  h$="2"h$="301.1":1010  h$="3"h$="305.7":1010  h$="4"h$="310.3":1010  h$="5"h$="358.0":1010  h$="6"h$="088.0":1010 800 :1030 1,9 ;"Radio D/F Fix":3,12 ;h$:9 ,0;:i=113 :(b$(i,5))ɰh$i:1281 xa=(b$(i,610 )):ya=(b$(i,11 15)):x=xa-x(b):y=ya-y(b):z=k9*((x*x)+(y*y)):z>(b$(i,1617))i:1281  x=kax=k9  y=kay=k9 -xs=(x):ys=(y):c=((k6)*((+mv)+(y/x))) 5xs=kkys=kkc=c-k2:(c)=kec=k1-(c):1252 #xs=kkys=kec=c+k2:ck1c=c-k1 h$="088.0"1285 ,q$=(c):160:nz=41280 1170:1170 $:6;"Bearing is ";q$;"'(M)" i:1281 ;:" Bearing to ";b$(i,18̱b$(i));"is ";q$;"'(M)":i px=kk:800  px=kktf=kasec=sec+16  1030 "c=c-6:ckac=360h+c =i=12 c90Zc210cs=90Z:1290  3i=13 c240cs=240:1290  i:1281    Z1170:c=c-cs::2;" VHF L'Ho is ";(7+(c/2));" beats to null": tp=tp+kt:tp>kytp=kz tt=tt+kb:tt>k8tt=tt-k8 i=kkkl:r(i)=kd*:i (i=kk:y(i)>l3700 2y(i)k8tc=tc-k8 <(tc)=ketc=k8-(tc) Az(i)=tc:q(i)=tv:1005 Fgmx=((y(i)-21084\R)/6535*200)+28:my=((x(i)-10300<()/8940"*273) Zma,mx-256*(mx/256):ma+kk,(mx/256):ma+2,my-256*(my/256):ma+3,(my/256):ma=ma+4:900 _+m3>150m3=150:ma=ma-4 i?wx>kawx=wx+kk:vi=vi+iv:ba=ba+ib:1750:viw(1)h(b)w(2)h(b)>w(1)h(b)kcw2=k8-w2 ,w2kc/klv(b)=(w2)*7:1550: *v(b)=(w2)*1+6:lw=0: 4(h(1)-w)kc/klw2=h(1)-w:1560 )(h(1)-w)0w2=h(b)-(w+k8) *(h(1)-w)=-1w2=k8+(h(b)-w) "lw=(((w2)*13 )*(w2))*k5: @w3>k8w3=w3-k8: J(w3)=kew3=k8-(w3): T Zbx=b::3;"Enter boat speed 03-18 ";:lh=2:600X:(h$)lh1740  1900l:num=ka1740 *(h$)<3Ű(h$)>181740 b=bx:v(b)=(h$) b=bx: !s=5s=81800 3s=4wx=17w=115s*k5:1850: /s=7wx=8vi=3:iv=.3 #s=7wx=26wx=0  :wx=8w=w-(15*k5):ib=-.33(:1850:  Jwx=14w=w-(20*k5):iv=-.166~)l:ib=-.5:1850: Dwx=20w=w-(20*k5):ib=0:iv=0:1850: ,wx=32 w=w+(15*k5):1850: awx=44,w=w+(30*k5):iv=1:vi=6:ba=ba+2:ib=.33(:1850: 8wx=502w=w+(15*k5):wx=0:1850:   :Btu=ka:w(3)=w:w(1)=w+kn:w(2)=w-kn:800  DTi=13:w3=w(i):1600@:w(i)=w3:.2~L,9 :i:w=w(3) Nb=kk:s(b)=kk X1410: lOnum=0:i=1̱h$:h$(i)>47/Ưh$(i)<58:i:num=1: v П:1,12 ;"NAVEX Page"::5;"Freeze time";27;"1"::5;"Advance Time";27;"2"::5;"Position Report";27;"3" ڡ:5;"NAVEX Chart";(27);"4"::5;"Change Wind";27;