10 REM 



PROGRflM TO REFID 460 FiND 



20 REM 



T7;:. AT STflNDflRD DEPTHS. 



30 REM • 



SYSTEM SPECIFICFlTIOHS: 



40 REM 



HP9330fl (2K R/W) 



50 REM 



HP9S66fl PRINTER 



60 DIM ri[24]HT[243 





70 DIM fl$C50],B*[50].C 



:*[5e]jD$L50:] 



80 rUSP "ENTER CRUISE 



NHME"! 



90 INPUT fl$ 





100 DISP "XBT NO. -; 





110 INPUT B$ 





120 DISP ■■ ENTER LflTI 



TUriE/LONGITiJIiE"; 



130 INPUT D$ 





140 DISP "DflTE/TiME"; 





150 INPUT C* 





160 DISP "ENTER SVSTE^: 



1 ERROR"; 



1?0 INPUT CI 





1S0 REM 



READING STANDARD DEPTH 



190 FOR N=l TO 24 





200 READ DCH] 





210 NEHT H 





220 REM 



CORRECT FOR SKENNESS OF 



230 niSP "0 DEPTH, 35 C 



._■,-:," 



240 WfllT 3000 





250 ENTER <9ii*)X.V 





260 IF Y=0 THEM 280 





270 GOTO 330 





2S0 FOR 1 = 1 TO 5- 





290 BEEP 





300 NfllT 200 





310 NEXT I 





320 GOTO 230 





330 M=0 





340 IF Y>0.5 AND HBSX< 



0.5 THEN 1100 



350 Z=SQR(K*X+T*y) 





^60 METER XBT (TYPES 

 PRINTER OUTPUT, 



JM TABLE 



390 



REM STOP FOR GRII 



1 TEST 



„ CNT 1 



400 



FOR N=l TO 24 







410 



T[H]=lE+06 ■ 







420 



NEXT N 







430 



REM 





TEMP! 



440 



DISF lEMP 16.7 f 



;=?" 





450 



WAIT 3000 







460 



ENTER (9,*>XrT' 







470 



C=-(FHTK--16.7) 







480 



REM 





DEPTi 



490 



DISP "SURFACE POI 



NT = ';'" 





500 



WAIT 3000 







510 



ENTER Oi. *>X)Y 







520 



E1=X 







530 



E2=Y 







540 



E=-Y*X5-K*Y5 ^ 







550 



GOTO 590 







560 



REM 





EHTEI 



570 



ENTER (9,*>XjY 







580 



IF Y>8.5 AND RBSJ' 



;<a.5 



THEN 61 



590 



D=FNDY 







600 



FOR N=l TO 24 







610 



IF abs(:d[N]-d::'>i 



IHEH 



6 5 



620 



WRITE (9.*) 







iT 1000" 



::rhture correction 



lEPTH correction 



table data 



146 



