m$=" Ist die Zeit und das Datum | richtig eingestellt ?| Uhrzeit: "+TIME$+"| Datum: "+DATE$
ALERT 2,m$,1," NEIN | JA ",wa#
IF wa#=1
GOTO v1
ELSE
GOTO v2
ENDIF
v1:
PRINT
PRINT
INPUT " UHRZEIT(MEZ) HH:MM:(SS) ";czeit$
PRINT
PRINT
INPUT " DATUM TT.MM.JJ ";ctag$
SETTIME czeit$,ctag$
GOTO beginn
v2:
tag#=VAL(LEFT$(DATE$,2))
monat#=VAL(MID$(DATE$,4,2))
jahr#=VAL(RIGHT$(DATE$,2))
DIM mon%(12)
mon%(2)=31
mon%(3)=59
mon%(4)=90
mon%(5)=120
mon%(6)=151
mon%(7)=181
mon%(8)=212
mon%(9)=243
mon%(10)=273
mon%(11)=304
mon%(12)=334
v#=1.00274 !sonnentag=v*sterntag
auswahl1:
DIM leiste$(49)
RESTORE auswahl1
FOR i#=0 TO 47
READ leiste$(i#)
EXIT IF leiste$(i#)="***"
NEXT i#
leiste$(i#)=""
leiste$(i#+1)=""
DATA desk,sternzeit 1.1 1991
DATA ------------------------
DATA 1,2,3,4,5,6,""
DATA Zeiten,Uhrzeit(mez),Uhrz+Ortsz+Sternz,Sternzeit,neue Zeit,quit,""
DATA Sternliste,Sterne im Süden +/-6 ,Sterne im Süden +/-3 ,""
DATA Zeichnung, N-Pol, S-Pol,Übersicht,""
DATA Suche ,Sternname,Sternbild,""
DATA Verschieben, nach oben N⇧ , nach unten S⇩ , nach links O⇦ , nach rechts W⇨,""
DATA Horiz.+Ekliptik, Horiz. Linie , Ekliptik , Mondbahn
DATA ***
CLS
MENU leiste$()
OPENW 0
FOR k#=27 TO 34
MENU k#,2
NEXT k#
nume#=22
GOSUB sternat4u
ON MENU GOSUB wahl
ON MENU KEY GOSUB taste
DO
ON MENU
LOOP
PROCEDURE wahl
IF MENU(0)<>0
nume#=MENU(0)
ENDIF
ON (MENU(0)-10) GOSUB pzeit1,pzeit2,pzeit3anz,neuzeit,pend,e,e,stlist1,stlist2,e,e,sternatnpo,sternatsupo,sternat4u,e,e,sternsu,sternbild,e,e,aufschieber,abschieber,linkschieber,rechtschieber,e,e,horizon,ekliptik,mondbahn
MENU OFF
RETURN
PROCEDURE taste
ON ((MENU(14) DIV 700)-25) GOSUB aufschieber,linkschieber,rechtschieber,abschieber
MENU OFF
RETURN
PROCEDURE geolspei
OPEN "o",#1,"geolng"
WRITE #1,geogr#,geomi#,geobrg#,geobrm#
CLOSE #1
RETURN
PROCEDURE zeitvar
stund#=VAL(LEFT$(TIME$,2))
min#=VAL(MID$(TIME$,4,2))
secu#=VAL(RIGHT$(TIME$,2))
RETURN
PROCEDURE pzeit1
FOR k%=27 TO 39
MENU k%,2
NEXT k%
DO
PRINT AT(16,3);"Uhrzeit: MEZ ";somz$,TIME$
EXIT IF MOUSEK=2 OR MOUSEY>500
VSYNC
LOOP
RETURN
PROCEDURE pzeit2
FOR i%=27 TO 40
MENU i%,2
NEXT i%
PRINT AT(16,3);"Uhrzeit: MEZ ";somz$,TIME$
VSYNC
GOSUB ortszeit
PRINT AT(16,6);"Ortszeit:"
PRINT AT(32,6);USING "##",stund#;
PRINT ":";
PRINT AT(35,6);USING "##",pmi#;
PRINT ":"
PRINT AT(38,6);USING "##",pse#
GOSUB pzeit3
PRINT AT(16,9);"Sternzeit:"
PRINT AT(32,9);USING "##",sterst#;
PRINT ":"
PRINT AT(35,9);USING "##",stermi#;
PRINT ":"
PRINT AT(38,9);USING "##",TRUNC(sternsec#)
RETURN
PROCEDURE ortszeit
GOSUB zeitvar
pse#=secu#-ozse#
WHILE pse#<0
pse#=pse#+60
min#=min#-1
WEND
WHILE pse#>59
pse#=pse#-60
min#=min#+1
WEND
pmi#=min#-ozmi#
WHILE pmi#<0
pmi#=pmi#+60
stund#=stund#-1
WEND
WHILE pmi#>59
pmi#=pmi#-60
stund#=stund#+1
WEND
IF mon%(monat#)+tag#>=90 AND mon%(monat#)+tag#<272 !( AND monat+tag>34 AND monat+tag<35)sommerzeit somit von april bis sept incl.
stund#=stund#+1 ! s o m m e r z e i t 31.3-29.9.91
PLOT ek%+schx#,-SIN((((sterku#+9.69696-ek%/33)) MOD 24)*(2*PI/24))*23.45*2.2+190 !neigung ekl 23,45 gr
NEXT ek%
COLOR 1
RETURN
PROCEDURE mondbahn
IF MENU(0)=39
IF moba#=0
MENU 39,1
moba#=1
ELSE
MENU 39,0
moba#=0
COLOR 0
ENDIF
ENDIF
FOR ek%=-80 TO 720 STEP 4
PLOT ek%+schx#,190-SIN((((sterku#+9.69696-ek%/33)) MOD 24)*(2*PI/24))*23.45*2.2-SIN((sterku#+9.69696-ek%/33+1.06+0.107449*(monat#-1))*(PI/12))*5.14539*2.2 !neigung mondbahn-eklip.5.1453 gr
(.txt)