705 REM SUBPROGRAM TO PRINT OUT DATA USED IN THE CALCULATION 



706 REM OF THE MAXIMUM WAVE AMPLITUDES AT EACH STATION. 

 710 FOR Y: 1 TO S 



715 PRINT 



720 PRINT " STATION NUMBER:", Y 



730 FOR Yl=15 TO 15+Dl 



732 DEF FNR(X)= INT(X*10C00+.5)/10000 



740 PRINT FNR(G[Y,Y1 ]), 



75 NEXT Yl 



760 NEXT Y 



770 RETURN 



800 STOP 



1000 REM SUBPROGRAM TO CALCULATE CONVERSION FACTOR FROM VOLTS 



1001 REM TO FEET. START AT STILL WATER AND INCREASE THE DEPTH 



1002 REM OF THE PROBES BY 0.05 FEET. 

 1010 LET YA-i) 



1014 LET Y3r0 



1016 FOR NUl TO 10 



1018 CALL (1,D,F) 



1020 IF D >= Q THEN 1040 



1030 GOTO 1018 



1040 CALL (1,D,F) 



1050 IF D <: Q THEN 1070 



1060 GOTO 1040 



1070 FOR N2=l TO 50 



1080 CALL (1,D,F) 



1090 LET GtNl,N2]=D 



1100 NEXT N2 



I 105 LET Y=0 



II 10 FOR X= 15 TO 50 

 1120 LET Y=Y+G[N1,X] 

 1 150 NEXT X 



1140 LET Y3=Y/36+Y3 



1 145 IF NUl THEN 1160 



1150 LET Y4 = A3S(Y3) + Y4 



11S0 NEXT Nl 



1170 LET C1=(Y4/10)*2 



1100 RETURN 



1400 REM DATA 

 9999 END 



138 



