^..ONGITUDE 



1140 .;■ Ii[ H ] , Ti: H ] 5 Ii[ N + 6 ] ) T[ N + b ] - IJC H+ 1 2 ] ! Ti: N+ 1 ; 



OR REENTER DHTH POINT: 



630 TCN]=FNiX+C+Cl 



640 LiOTO 570 ' 



650 NEXT H 



660 IjOTO 570-- 



670 REM 



630 WRITE (15) 1170) 



690 PRINT TAB 10, "CRUISE: 



700 PRINT TAB 10 J "KBT NO. : 



710 PRINT TAB 1 -•' DATE/ TIME 



720 PRINT TAE10J "LATITUEE/ 



730 PRINT 



740 WRITE CIS, 1150) 



750 PRINT 



760 FOR N=l TO 6 



770 WRITE (15 



789 NEXT N 



790 PRINT 

 800 PRINT 



310 IF M=l THEN 370 

 820 DISP ■■ LAYER DEPTH 

 830 WRIT 3000 



840 WRITE (9!«) 



850 ENTER C3,*)K,'< 



860 IF Y>0.5 AND ABSX<0.5 THEN ■: 



870 WRITE ( 1 5 , 1 1 4 > " L A V E R D E F' T H i 



880 WRITE (15j 1160) "[..AVER DEPTH 



890 WRITE (15- 1160) "TEMPERATURE 



900 X=E1 



910 E=0 



920 WRITE (15, 1140) "DEPTH 



930 WRITE (15. 1160) "SYS TEt' 



?40 WRITE (15, 1170) 



950 RESTORE 



960 IjOTO 100 



970 END 



930 DEF FND(Y) 



9 9 Y 1 = - Y * X 5 - K * Y 5 - E 



1000 REM 



1910 REM 



1020 D=97, 0733*Yl-9.4S645i;: 



1030 RETURN D 



1040 END 



1050 DEF FNT(X) 



1069 >i=(. >'. * ft 5 -■■{ * Y 5 ) * A 



1079 K=(( (-5.6£87E-04*ft+5. 



1980 X=(X+49)*5/9-40 



1990 RETURN X 



1100 N=l 



1119 GOTO 689 



1129 DATA 0,10,20,39,50,7': 



1130 DATA 899,1900,1200,1:: 

 1140 FORMAT 10X,F4.0,2X,Fi: 

 1150 FORMAT 10X, "D(M) T' 

 1160 FORMAT 10X,F6.2 



FORMAT 4/ 

 END 



PRINT TABLE 



di:n+ 



],T[N+13 



TEN PER AT 

 CORRECT I 



J RE: 

 JN: 



JORRECT 

 ERROR: 



■NDY 

 ■FNTX 



■NDE 

 'CI 



„ 74 



IS THE VALUE OF 



' AT 



450 



IPPI 

 It 2 



CAN CORP. DEPTH 



;QUfli 



ION 



F6,; 



T' ( I 



400,450 



1179 

 1180 

 1190 

 1200 



1219 

 1229 



1230 



REM 

 E=0 



ENTER ■ 

 PRINT ' 

 GOTO i; 



GRID TEST PROGRAM' 



'FND 



147 



