10 * Programa basic para el cálculo de la altura de las mareas en un instante cualquiera
20 *
30* El listado es compatible para IBM Pc ó compatible
40*
50*
60* DEFDBL A-Z
70* PI=3.14159265359 #
80* CLS
90* INPUT ” amplitud marea en metros?,AM
100* INPUT “duración marea?,DCS
110* DC=VAL (LEFT$(DC$,2)) + VAL(RIGHT$(DCS,2))/60
120* PRINT:PRINT “número del dato”
130* PRINT:PRINT “intervalo desde/hasta la bajamar más proxima”
140* PRINT “Correción aditiva”
150* A$=”"
160* WHILE A$=”":A$=INKEY$:WEND
170* IF A$<”1″ OR A$>”2″ THEN 150
180* LOCATE 4 PRINT SPACES (80)
190* LOCATE 6 PRINT SPACES (80)
200* LOCATE 7 PRINT SPACES (80)
210* LOCATE 3, 1
220* ON VAL (A$) GOTO 230, 290
230* INPUT “Mismo intervalo formatoHH:MM”,IB$
240* IB=VAL (LEFT$(IB$,2)) + VAL(RIGHT$(IBS,2))/60
250* PRINT
260* PRINT “Correción aditiva”
270* PRINT USING “##.## metros”; am/2*(1-cos(IB*PI/DC))
280* END
290* INPUT “Correción aditiva”.COR
300* PRINT
310* C=1-2*COR/AM
320* IF C=0 THEN AT=PI/2:GOTO 370
330* T=SQR(1/C^2-1)
340* IF C<0 THEN AT=PI/2:GOTO 370
350* AT=ATN(T)
360* IF AT<0 THEN AT=PI+AT
370* IB=DC/PI*AT
380* HORA=INT(IB)
390* MINUTO=(IB-HORA)*60
400* PRINT “intervalo hasta la bajamar más proxima”
410* PRINT USING “## horas ##minutos”;HORA MINUTO
420* END
