30 REi'1 

 40 REM 

 50 REM 



60 run :D[£4];. TL24 J 



?0 D I M H*[ 58 J - Et [ 50 ] !i (::$[ 50 ] , 



80 DISP 'TNTER CRUISE NAME"! 



90 INPUT ii* 



1 DISP " L fl T I T U n E / L M G I T L.i I) f 



110 INPUT Ii$ 



120 DISP "XBT NO. "n 



130 INPUT B* 



140 DISP "DflTE/TIME"; 



150 INPUT C* 



lb0 DISP "ENTER System ERROf 



170 INPUT CI 



180 REM 



190 FOR N=i TO 24 



200 READ D[N:J 



210 NEXT N 



220 REM 



230 DISP "0 DEPTH) 35 C==?" 



240 WRIT 3000 



250 ENTER (9:i*);K:iY 



260 i1=0 



270 IF Y>e.5 Find rbs;-:<0.5 ti 



280 Z=SQR(X*ft+'T'*'f';i 



300 DISP "15 M E T E R S ; ■' C ==■ " 



310 WFlIT 3000 



320 ENTER (9)*>K!Y 



330 Z=SQR(X*X+t'*Yj 



340 K5=-Y/Z 



350 Y5=";v--Z 



360 REM 



370 FOR N=l TO 24 



380 TCN]=lE+0b 



390 NEXT H 



400 REM 



410 DISP "TEMP 16=7 C==?" 



420 HFlIT 3000 



430 ENTER (9.*>XiiY 



440 C=~i:;FNTX-16.7) 



450 REM 



460 DISP "SURFfiCE POIHT==v" 



470 WniT 3000 



480 ENTER (9»*)XnY 



490 £1==K 



500 E2==Y 



510 E=-Y*X5-X*Y5 



520 GOTO 560 



530 REM 



540 ENTER (9)*::iX:. Y 



550 IF Y>0.5 FIND flBSX<0„5 THE 



560 D=FNDY 



570 FOR N==l TO 24 



580 IF flBS(:DCN;i-ri)>l then 628 



590 WRITE (9;.*:) 



600 T[N]=FNTX+C+Ci 



610 GOTO 540 



620 NEXT N 



PROGRhM to RERD 1830 



PRINTER OUTPUT 



SYSTEM SPECIFICATION 

 HP9830A (2K R.-'W 

 HP9866A PRINTER 



D$[50::i 





iDIHC 



;TflNDRRD DEPTH FROM TABLE 



::;wne: 



;;FiPH 



jp F'OR i:;:;i-fii:i test, cn 



IMPERRTLiRE i::nRRt;CT ION 



EPTH CORRECTION 



EHJER ■■fRBL.t::: JJFrTFl 



148 



