1 : CLS 2 : REM ********************************************************* 3 : REM Hochwasserzeit (Std.Min) in Zeile 5 einfügen !!!!!!!!!!! 4 : REM ********************************************************* 5 : hw1 = 15.02 6 : REM ********************************************************* 7 : REM Datum in Zeilen 10 - 12 einfügen !!!!!!!!!!!!!!!!!!!!!!! 8 : REM ********************************************************* 10 : tag = 20 11 : monat = 7 12 : jahr = 2000 16 : REM ********************************************************* 17 : REM Bezugszeit in Zeile 25 eintragen: !!!!!!!!!!!!!!!!!!!!! 18 : REM UTC = 1 19 : REM MEZ = 0 20 : REM Sommerzeit schon berücksichtigt = 2 21 : REM ********************************************************* 25 : bz = 2 30 : REM ********************************************************* 31 : X$ = STRING$(9, 15) 32 : REM ********************************************************* 33 : REM Bezugsort in Zeile 35 einfügen !!!!!!!!!!!!!!!!!!!!!!!!!! 34 : REM ********************************************************* 35 : X$ = "H E L G O L A N D " 37 : REM ********************************************************* 40 : IF bz = 0 THEN LET hw1st = INT(hw1) + 1 41 : IF bz = 1 THEN LET hw1st = INT(hw1) + 2 42 : IF bz = 2 THEN LET hw1st = INT(hw1) 43 : IF bz = 0 THEN LET hw11 = hw1 + 1 44 : IF bz = 1 THEN LET hw11 = hw1 + 2 45 : IF bz = 2 THEN LET hw11 = hw1 46 : hw1m = INT((hw11 - hw1st) * 100!) 50 : h10ns = hw1st + 0 60 : h10nm = hw1m + 30 70 : IF h10nm >= 60 THEN LET h10nm1 = h10nm - 60 ELSE LET h10nm1 = h10nm 75 : IF h10nm >= 60 THEN LET h10ns1 = h10ns + 1 ELSE LET h10ns1 = h10ns 80 : IF h10ns1 >= 24 THEN LET h10ns2 = h10ns1 - 24 ELSE LET h10ns2 = h10ns1 85 : CLS 130 : IF bz = 0 THEN LET hw1st = INT(hw1) + 1 131 : IF bz = 1 THEN LET hw1st = INT(hw1) + 2 132 : IF bz = 2 THEN LET hw1st = INT(hw1) 140 : hw1m = INT((hw11 - hw1st) * 100!) 150 : h10vs = hw1st + 0 160 : h10vm = hw1m - 30 170 : IF h10vm < 0 THEN LET h10vm1 = h10vm + 60 ELSE LET h10vm1 = h10vm 175 : IF h10vm < 0 THEN LET h10vs1 = h10vs - 1 ELSE LET h10vs1 = h10vs 180 : IF h10vs1 < 0 THEN LET h10vs2 = h10vs1 + 24 ELSE LET h10vs2 = h10vs1 250 : h11vs = hw1st - 1 260 : h11vm = hw1m - 30 270 : IF h11vm < 0 THEN LET h11vm1 = h11vm + 60 ELSE LET h11vm1 = h11vm 275 : IF h11vm < 0 THEN LET h11vs1 = h11vs - 1 ELSE LET h11vs1 = h11vs 280 : IF h11vs1 < 0 THEN LET h11vs2 = h11vs1 + 24 ELSE LET h11vs2 = h11vs1 350 : h12vs = hw1st - 2 360 : h12vm = hw1m - 30 370 : IF h12vm < 0 THEN LET h12vm1 = h12vm + 60 ELSE LET h12vm1 = h12vm 375 : IF h12vm < 0 THEN LET h12vs1 = h12vs - 1 ELSE LET h12vs1 = h12vs 380 : IF h12vs1 < 0 THEN LET h12vs2 = h12vs1 + 24 ELSE LET h12vs2 = h12vs1 450 : h13vs = hw1st - 3 460 : h13vm = hw1m - 30 470 : IF h13vm < 0 THEN LET h13vm1 = h13vm + 60 ELSE LET h13vm1 = h13vm 475 : IF h13vm < 0 THEN LET h13vs1 = h13vs - 1 ELSE LET h13vs1 = h13vs 480 : IF h13vs1 < 0 THEN LET h13vs2 = h13vs1 + 24 ELSE LET h13vs2 = h13vs1 550 : h14vs = hw1st - 4 560 : h14vm = hw1m - 30 570 : IF h14vm < 0 THEN LET h14vm1 = h14vm + 60 ELSE LET h14vm1 = h14vm 575 : IF h14vm < 0 THEN LET h14vs1 = h14vs - 1 ELSE LET h14vs1 = h14vs 580 : IF h14vs1 < 0 THEN LET h14vs2 = h14vs1 + 24 ELSE LET h14vs2 = h14vs1 650 : h15vs = hw1st - 5 660 : h15vm = hw1m - 30 670 : IF h15vm < 0 THEN LET h15vm1 = h15vm + 60 ELSE LET h15vm1 = h15vm 675 : IF h15vm < 0 THEN LET h15vs1 = h15vs - 1 ELSE LET h15vs1 = h15vs 680 : IF h15vs1 < 0 THEN LET h15vs2 = h15vs1 + 24 ELSE LET h15vs2 = h15vs1 750 : h16vs = hw1st - 6 760 : h16vm = hw1m - 30 770 : IF h16vm < 0 THEN LET h16vm1 = h16vm + 60 ELSE LET h16vm1 = h16vm 775 : IF h16vm < 0 THEN LET h16vs1 = h16vs - 1 ELSE LET h16vs1 = h16vs 780 : IF h16vs1 < 0 THEN LET h16vs2 = h16vs1 + 24 ELSE LET h16vs2 = h16vs1 1050 : h11ns = hw1st + 1 1060 : h11nm = hw1m + 30 1070 : IF h11nm >= 60 THEN LET h11nm1 = h11nm - 60 ELSE LET h11nm1 = h11nm 1075 : IF h11nm >= 60 THEN LET h11ns1 = h11ns + 1 ELSE LET h11ns1 = h11ns 1080 : IF h11ns1 >= 24 THEN LET h11ns2 = h11ns1 - 24 ELSE LET h11ns2 = h11ns1 1150 : h12ns = hw1st + 2 1160 : h12nm = hw1m + 30 1170 : IF h12nm >= 60 THEN LET h12nm1 = h12nm - 60 ELSE LET h12nm1 = h12nm 1175 : IF h12nm >= 60 THEN LET h12ns1 = h12ns + 1 ELSE LET h12ns1 = h12ns 1180 : IF h12ns1 >= 24 THEN LET h12ns2 = h12ns1 - 24 ELSE LET h12ns2 = h12ns1 1250 : h13ns = hw1st + 3 1260 : h13nm = hw1m + 30 1270 : IF h13nm >= 60 THEN LET h13nm1 = h13nm - 60 ELSE LET h13nm1 = h13nm 1275 : IF h13nm >= 60 THEN LET h13ns1 = h13ns + 1 ELSE LET h13ns1 = h13ns 1280 : IF h13ns1 >= 24 THEN LET h13ns2 = h13ns1 - 24 ELSE LET h13ns2 = h13ns1 1350 : h14ns = hw1st + 4 1360 : h14nm = hw1m + 30 1370 : IF h14nm >= 60 THEN LET h14nm1 = h14nm - 60 ELSE LET h14nm1 = h14nm 1375 : IF h14nm >= 60 THEN LET h14ns1 = h14ns + 1 ELSE LET h14ns1 = h14ns 1380 : IF h14ns1 >= 24 THEN LET h14ns2 = h14ns1 - 24 ELSE LET h14ns2 = h14ns1 1450 : h15ns = hw1st + 5 1460 : h15nm = hw1m + 30 1470 : IF h15nm >= 60 THEN LET h15nm1 = h15nm - 60 ELSE LET h15nm1 = h15nm 1475 : IF h15nm >= 60 THEN LET h15ns1 = h15ns + 1 ELSE LET h15ns1 = h15ns 1480 : IF h15ns1 >= 24 THEN LET h15ns2 = h15ns1 - 24 ELSE LET h15ns2 = h15ns1 1550 : h16ns = hw1st + 6 1560 : h16nm = hw1m + 30 1570 : IF h16nm >= 60 THEN LET h16nm1 = h16nm - 60 ELSE LET h16nm1 = h16nm 1575 : IF h16nm >= 60 THEN LET h16ns1 = h16ns + 1 ELSE LET h16ns1 = h16ns 1580 : IF h16ns1 >= 24 THEN LET h16ns2 = h16ns1 - 24 ELSE LET h16ns2 = h16ns1 10000 : CLS 10001 : PRINT " *************************************************************" 10002 : PRINT " BEZUGSORT : "; X$ 10003 : PRINT " DATUM : "; tag; "."; monat; "."; jahr 10004 : IF bz = 0 THEN PRINT " HOCHWASSER : "; hw1; "Uhr MEZ" 10005 : IF bz = 1 THEN PRINT " HOCHWASSER : "; hw1; "Uhr UTC" 10006 : IF bz = 2 THEN PRINT " HOCHWASSER : "; hw1; "Uhr MESZ" 10013 : PRINT " *************************************************************" 10014 : PRINT " " 10015 : PRINT " " 10016 : PRINT " ZEITINTERVALL STUNDEN ALTER D. GEZEIT" 10017 : PRINT " MESZ VOR NACH " 10018 : PRINT " HW BEZUGSORT " 10019 : PRINT " *************************************************************" 10020 : PRINT " " 11190 : IF h16vm1 >= 10 THEN PRINT " "; h16vs2; "."; h16vm1 11191 : IF h16vm1 < 10 THEN PRINT " "; h16vs2; ".0"; h16vm1 11192 : IF h15vm1 >= 10 THEN PRINT " "; h15vs2; "."; h15vm1; " 6" 11193 : IF h15vm1 < 10 THEN PRINT " "; h15vs2; ".0"; h15vm1; " 6" 11194 : PRINT " " 12190 : IF h15vm1 >= 10 THEN PRINT " "; h15vs2; "."; h15vm1 12191 : IF h15vm1 < 10 THEN PRINT " "; h15vs2; ".0"; h15vm1 12192 : IF h14vm1 >= 10 THEN PRINT " "; h14vs2; "."; h14vm1; " 5" 12193 : IF h14vm1 < 10 THEN PRINT " "; h14vs2; ".0"; h14vm1; " 5" 12194 : PRINT " " 13190 : IF h14vm1 >= 10 THEN PRINT " "; h14vs2; "."; h14vm1 13191 : IF h14vm1 < 10 THEN PRINT " "; h14vs2; ".0"; h14vm1 13192 : IF h13vm1 >= 10 THEN PRINT " "; h13vs2; "."; h13vm1; " 4" 13193 : IF h13vm1 < 10 THEN PRINT " "; h13vs2; ".0"; h13vm1; " 4" 13194 : PRINT " " 14190 : IF h13vm1 >= 10 THEN PRINT " "; h13vs2; "."; h13vm1 14191 : IF h13vm1 < 10 THEN PRINT " "; h13vs2; ".0"; h13vm1 14192 : IF h12vm1 >= 10 THEN PRINT " "; h12vs2; "."; h12vm1; " 3" 14193 : IF h12vm1 < 10 THEN PRINT " "; h12vs2; ".0"; h12vm1; " 3" 14194 : PRINT " " 15190 : IF h12vm1 >= 10 THEN PRINT " "; h12vs2; "."; h12vm1 15191 : IF h12vm1 < 10 THEN PRINT " "; h12vs2; ".0"; h12vm1 15192 : IF h11vm1 >= 10 THEN PRINT " "; h11vs2; "."; h11vm1; " 2" 15193 : IF h11vm1 < 10 THEN PRINT " "; h11vs2; ".0"; h11vm1; " 2" 15194 : PRINT " " 16190 : IF h11vm1 >= 10 THEN PRINT " "; h11vs2; "."; h11vm1 16191 : IF h11vm1 < 10 THEN PRINT " "; h11vs2; ".0"; h11vm1 16192 : IF h10vm1 >= 10 THEN PRINT " "; h10vs2; "."; h10vm1; " 1 SPRINGZEIT" 16193 : IF h10vm1 < 10 THEN PRINT " "; h10vs2; ".0"; h10vm1; " 1 SPRINGZEIT" 16194 : PRINT " " 17190 : IF h10vm1 >= 10 THEN PRINT " "; h10vs2; "."; h10vm1 17191 : IF h10vm1 < 10 THEN PRINT " "; h10vs2; ".0"; h10vm1 17192 : IF h10nm1 >= 10 THEN PRINT " "; h10ns2; "."; h10nm1; " 0 (HW) 0 MITTZEIT" 17193 : IF h10nm1 < 10 THEN PRINT " "; h10ns2; ".0"; h10nm1; " 0 (HW) 0 MITTZEIT" 17194 : PRINT " " 18192 : IF h10nm1 >= 10 THEN PRINT " "; h10ns2; "."; h10nm1; " " 18193 : IF h10nm1 < 10 THEN PRINT " "; h10ns2; ".0"; h10nm1; " " 18194 : IF h11nm1 >= 10 THEN PRINT " "; h11ns2; "."; h11nm1; " 1 NIPPZEIT" 18195 : IF h11nm1 < 10 THEN PRINT " "; h11ns2; ".0"; h11nm1; " 1 NIPPZEIT" 18196 : PRINT " " 19192 : IF h11nm1 >= 10 THEN PRINT " "; h11ns2; "."; h11nm1; " " 19193 : IF h11nm1 < 10 THEN PRINT " "; h11ns2; ".0"; h11nm1; " " 19194 : IF h12nm1 >= 10 THEN PRINT " "; h12ns2; "."; h12nm1; " 2" 19195 : IF h12nm1 < 10 THEN PRINT " "; h12ns2; ".0"; h12nm1; " 2" 19196 : PRINT " " 21192 : IF h12nm1 >= 10 THEN PRINT " "; h12ns2; "."; h12nm1; " " 21193 : IF h12nm1 < 10 THEN PRINT " "; h12ns2; ".0"; h12nm1; " " 21194 : IF h13nm1 >= 10 THEN PRINT " "; h13ns2; "."; h13nm1; " 3" 21195 : IF h13nm1 < 10 THEN PRINT " "; h13ns2; ".0"; h13nm1; " 3" 21196 : PRINT " " 22192 : IF h13nm1 >= 10 THEN PRINT " "; h13ns2; "."; h13nm1; " " 22193 : IF h13nm1 < 10 THEN PRINT " "; h13ns2; ".0"; h13nm1; " " 22194 : IF h14nm1 >= 10 THEN PRINT " "; h14ns2; "."; h14nm1; " 4" 22195 : IF h14nm1 < 10 THEN PRINT " "; h14ns2; ".0"; h14nm1; " 4" 22196 : PRINT " " 23192 : IF h14nm1 >= 10 THEN PRINT " "; h14ns2; "."; h14nm1; " " 23193 : IF h14nm1 < 10 THEN PRINT " "; h14ns2; ".0"; h14nm1; " " 23194 : IF h15nm1 >= 10 THEN PRINT " "; h15ns2; "."; h15nm1; " 5" 23195 : IF h15nm1 < 10 THEN PRINT " "; h15ns2; ".0"; h15nm1; " 5" 23196 : PRINT " " 24192 : IF h15nm1 >= 10 THEN PRINT " "; h15ns2; "."; h15nm1 24193 : IF h15nm1 < 10 THEN PRINT " "; h15ns2; ".0"; h15nm1 24194 : IF h16nm1 >= 10 THEN PRINT " "; h16ns2; "."; h16nm1; " 6" 24195 : IF h16nm1 < 10 THEN PRINT " "; h16ns2; ".0"; h16nm1; " 6" 30005 : PRINT " *************************************************************" 30006 : PRINT " " 30007 : PRINT " " 30008 : PRINT " (c) Dr. D. Smeets" 30010 : CLOSE 30020 : SYSTEM