1 L0=15:POKE53280,7:POKE53281,7:PRINT""CHR$(14):C=(null)/180:U$=" UHR":G$="GRAD"
2 PRINT"[147]*** [193]UF- UND [213]NTERGANG DER [211]ONNE *** ":REM UDO KOENIG / 64'ER
3 INPUT"[205]ONAT ";M:INPUT"[212]AG   ";T:INPUT"[194]REITE";L:GOSUB14:B=L:INPUT"[204]AENGE";L
4 GOSUB14:DL=L0-L:DEFFNAC(X)=(null)/2-ATN(X/SQR(1-X*X)):T=((M-1)*30.3+T-1)*.9863+10
5 E=COS(C*T)*23.5:G=T+77:F=SIN(C*E)/COS(C*B):IFABS(F)=>1THEN16
6 X=FNAC(F):Y1=COS(C*G)*.123-SIN(2*C*T)/6:H3=INT(90-B-E+.5):IFB<0THENX=(null)-X
7 X=X/C:X=INT(X+.5):PRINT"[193]ZIMUT      =";X;G$:IFH3>90THENH3=180-H3
8 PRINT"[211]ONNENHOEHE =";H3;G$;"":X=SIN(C*B)/(COS(C*E)/F):X=FNAC(X):Y=X/C
9 X=Y+180:Y3=X:X=(180-Y+DL)/15:X=X-Y1-.08:Y=X:IFX>24THEN16
10 GOSUB15:PRINT"[211]ONNENAUFGANG   = ";H$;U$:X=(Y3+DL)/15-Y1+.08:TL=X-Y:GOSUB15
11 PRINT"[211]ONNENUNTERGANG =";H$;U$:X=TL:GOSUB15:PRINT"[212]AGESLAENGE =";
12 PRINTH$;S$;" STD:MIN":X=Y+TL/2:GOSUB15:PRINT"[205]ERIDIANDURCHGANG =";H$;U$
13 PRINT"[210]ECHENFEHLER ETWA +/- 5 [205]INUTEN.":END
14 P=100*L:Q=P:P=(P-INT(P))/36:Q=INT(Q)/100:Q=(Q-INT(Q))/.6:L=INT(L)+P+Q:RETURN
15 H=INT(X):M=INT((X-H)*60):H$=STR$(H):M$=STR$(M):H$=H$+":"+RIGHT$(M$,2):RETURN
16 PRINT"[208]OLARREGION. [211]ONNE DAUERND UEBER ODER   UNTER DEM [200]ORIZONT."
17 END