640 REM Pi 



:iir 



TABLE 





650 WRITE (15? 1140) 









660 PRINT TfiBlRc "CRUISE: 





"fl$ 





670 PRINT TAB 10! "KBT NO. : 





"B* 





b30 PRINT TflBi.0, ■'DRTE.-TIME: 





"C$ 





690 PRINT TflBlfi! 'LfiTrrUIiE-'-LOHi 



; I "' ' 



IDE: "D* 





700 PRINT 









710 WRITE (15? 1100) 









720 PRINT 









730 FOR N=l TO 6 









740 WRITE (15! 1110;'ri[N3.T[:H]ii. 



i[ N- 



•6]!TlN+6 



]!DCN-i-12 



750 NEXT N 









760 PRINT 









770 PRINT 









780 IF M=i THEN 840 









790 DISP "LAYER DEPTH =? OR R. 



;en'' 



ER DRTR 



-■HINTS " 



800 WHIT 3000 









810 WRITE (9)*) 









820 ENTER (9.*)X.Y 









830 IF Y>0.5 HND rlBSft<0.5 THE 



i "^i- 



■0 





840 WRITE (15! ll30)"LflYER DEP 



'H: 





"END 



850 WRITE (15! 11?0>"LRYER DEP 



•H ' 



EMPERRTU 



;:;E: "FN 



860 WRITE (15! 1120>"TEMPERflTiJ 



IE i 



:0RRECTIU 



■1 :; " C 



870 X=E1 









880 E=0 









890 WRITE ( 1 5 ! 1 1 1 > " DEPTH COR 



lEC 



ION: 



"FND 



900 WR I TE ( 1 5 ! 1 1 20 ) " SYSTEM ER 



aiR 





" C 1 



910 WRITE as, 1140) 









920 RESTORE 









830 GOTO 120 









840 END 









950 DEF FND(YJ 









960 Yl=-YsX5-y*Y5-E 









970 REM SI 



-■Pli 



■RH CORP. 



DEPTH E 



980 B = 1 02 . 4 1 2S*Y 1 -0 . 4 1 032 j 76* 



•It. 







990 RETURN D 









1000 END 









1010 DEF FNT(ft) 









1020 fi=(X*y5-Y*Y5)*fi 









1030 X=( ( (-5. 6287E-04*>: + 5. 438 



1-0: 



; :'*X--0. 47 



357)*X+1 



1040 K=(K+40)*5/9-40 









1050 RETURN X 









1060 M=l 









1070 GOTO 650 









1080 D R T Fl ! 1 ! 2 11 3 . 5 - 7 S ■■ 1 



j ! 1 



i5'< 150! 20 



3! 250! 30 



1090 DRTfl 800! 1000! 1200! 1500! 



1 80 



'h: 1830 





1100 FORMAT 10X! "D(M> T(C> 





D ( M > 



T ( C ) 



1110 FORMRT 1 0X , F4 . « PX •> FC „ ? -■ 



:;y. 



-■4.0!2X! F 



S.2!6:K!F 



1120 FORMRT 10X.F6.2 









1130 FORMAT 10X,F4.0 









1140 FORMAT 4/ 









1150 END 









1160 REM 



jRI 



1 TEST PR 



J GRAM" 



1170 E=0 









1180 ENTER (9!*)X<Y 









1190 PRINT ".::X, Y::' = "K' ' "Y"Dt"pr 



.|=" 



■■NDV rE 



•1P=="FNTX 



1100 GOTO 1180 











JRI ! ON 



400! 



D ( H :: 



. 5X!F5 



149 



