5 POKE55,.:POKE56,56:CLR
6 DV=PEEK(186):IFDV<8THENDV=8
7 POKE53280,.:POKE53281,.:PRINT"[147]"
14 POKE53272,31:POKE53371,0
16 AD=49152
17 SYSAD:SYSAD+12
19 GOSUB235
20 PRINT"[147]":SYSAD+9,0
52 BS$="[159][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164]"
55 BD=53280:BG=53281
56 RM$(1)="[206].[197]AST":RM$(2)="[196]UE [197]AST":RM$(3)="[211].[197]AST"
57 RM$(4)="[211].[215]EST":RM$(5)="[196]UE [215]EST":RM$(6)="[206].[215]EST"
58 SU$="[158][167][168]"
59 PRINT"[147]":SYSAD+9,1
60 PRINT"[159][220][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][221]"
61 PRINTBS$"";TAB(38)BS$
62 PRINT"[159][255][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]"
64 PRINT""TAB(14)"[150][211][213][206][213][208]-[211][213][206][196][207][215][206]"
65 PRINT:PRINTTAB(6)"[158][197]NTER [204]ATITUDE [219]: ";:L9%=7:GOSUB730:B5=Q9
67 SYSAD+9,2
70 PRINTTAB(6)"[158][197]NTER [204]ONGITUDE [219]: ";:L9%=7:GOSUB730:L5=Q9
72 SYSAD+9,2
75 PRINTTAB(6)"[158][212]IME [218]ONE (HRS): ";:L9%=2:GOSUB730:H=Q9
77 SYSAD+9,2
80 L5=L5/360:Z0=H/24
85 GOSUB650:POKE214,10:PRINT:PRINTTAB(8)"[159][201]S THIS [195]ORRECT? (Y[159]/N[159])":POKE198,.
86 GOSUB772
87 IFHC$="N"THEN52
88 SYSAD+9,2
89 T=(J-2451545)+F
90 TT=T/36525+1:REM TT=CENTURIES
95 REM FROM 1900.0
100 GOSUB290:T=T+Z0
110 REM GET SUN'S POSTION
115 GOSUB530:A(1)=A5:D(1)=D5
120 T=T+1
125 GOSUB530:A(2)=A5:D(2)=D5
130 IFA(2)<A(1)THEN A(2)=A(2)+P2
135 Z1=DR*90.833:REM ZEITH DISTANCE
140 S=SIN(B5*DR):C=COS(B5*DR)
145 Z=COS(Z1):M8=0:W8=0:PRINTTAB(1)"[156][145][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
147 SYSAD+9,3
150 A0=A(1):D0=D(1)
155 DA=A(2)-A(1):DD=D(2)-D(1)
160 FORC0=0TO23
165 P=(C0+1)/24
170 A2=A(1)+P*DA:D2=D(1)+P*DD
175 GOSUB330
180 A0=A2:D0=D2:V0=V2
185 NEXT
190 GOSUB490:REM SPECIAL MAGS?
191 IFQM=3ANDQD=20THENGOSUB810
192 IFQM=6ANDQD=21THENGOSUB820
193 IFQM=9ANDQD=22THENGOSUB830
194 IFQM=12ANDQD=21THENGOSUB840
195 GOSUB3000
200 GOTO52
235 REM CONSTANTS
240 DIM A(2),D(2)
245 P1=(null):P2=2*P1
250 DR=P1/180:K1=15*DR*1.0027379
255 S$="[153]  [211]UNDOWN AT (HRS:MINS):"
260 R$="[153]  [211]UNUP AT  (HRS:MINS):"
265 M1$="[150]  [206]O [211]UNUP THIS DATE!  "
270 M2$="[150]  [206]O [211]UNDOWN THIS DATE!  "
275 M3$="[155]  [211]UN DOWN ALL DAY!  "
280 M4$="[158]  [211]UN UP ALL DAY!  "
285 RETURN
290 REM LST AT 0HR ZONE TIME
295 T0=T/36525
300 S=24110.5+8640184.813*T0
305 S=S+86636.6*Z0+86400*L5
310 S=S/86400:S=S-INT(S)
315 T0=S*360*DR
320 RETURN
330 REM TEST AN HOUR FOR AN EVENT
335 L0=T0+C0*K1:L2=L0+K1
340 H0=L0-A0:H2=L2-A2
345 H1=(H2+H0)/2:REM HOUR ANGLE
350 D1=(D2+D0)/2:REM DECLINATION
355 REM AT HALF HOUR
360 IFC0>0THEN370
365 V0=S*SIN(D0)+C*COS(D0)*COS(H0)-Z
370 V2=S*SIN(D2)+C*COS(D2)*COS(H2)-Z
375 IFSGN(V0)=SGN(V2)THEN485
380 V1=S*SIN(D1)+C*COS(D1)*COS(H1)-Z
385 A=2*V2-4*V1+2*V0:B=4*V1-3*V0-V2
390 D=B*B-4*A*V0:IFD<0THEN485
395 D=SQR(D)
400 IFV0<0ANDV2>0THENPRINTTAB(3)R$
405 IFV0<0ANDV2>0THENM8=1
410 IFV0>0ANDV2<0THENPRINTTAB(3)S$
415 IFV0>0ANDV2<0THENW8=1
420 E=(-B+D)/(2*A)
425 IFE>1ORE<0THENE=(-B-D)/(2*A)
430 T3=C0+E+1/120:REM ROUND OFF
435 H3=INT(T3):M3=INT((T3-H3)*60)
440 PRINTTAB(16)H3":";M3
445 H7=H0+E*(H2-H0)
450 N7=-COS(D1)*SIN(H7)
455 D7=C*SIN(D1)-S*COS(D1)*COS(H7)
460 AZ=ATN(N7/D7)/DR
465 IFD7<0THENAZ=AZ+180
470 IFAZ<0THENAZ=AZ+360
475 IFAZ>360THENAZ=AZ-360
480 PRINTTAB(3)"[153][193]ZIMUTH :[158]";AZ"[219]":GOSUB775
481 PRINTTAB(26)"[145][153]"RM$(PV);" "SU$:SYSAD+9,3
485 RETURN
490 REM SPECIAL MESSAGE ROUTINE
495 IFM8=0ANDW8=0THEN515
500 IFM8=0THENPRINTTAB(6)M1$
505 IFW8=0THENPRINTTAB(6)M2$
510 GOTO525
515 IFV2<0THENPRINTTAB(6)M3$
520 IFV2>0THENPRINTTAB(6)M4$
525 RETURN
530 REM FUNDAMENTAL ARGUMENTS
535 REM VAN FLANDERN &
540 REM PULKKINEN, 1979
545 L=.779072+.00273790931*T
550 G=.993126+.0027377785*T
555 L=L-INT(L):G=G-INT(G)
560 L=L*P2:G=G*P2
565 V=.39785*SIN(L)
570 V=V-.01000*SIN(L-G)
575 V=V+.00333*SIN(L+G)
580 V=V-.00021*TT*SIN(L)
585 U=1-.03349*COS(G)
590 U=U-.00014*COS(2*L)
595 U=U+.00008*COS(L)
600 W=-.00010-.04129*SIN(2*L)
605 W=W+.03211*SIN(G)
610 W=W+.00104*SIN(2*L-G)
615 W=W-.00035*SIN(2*L+G)
620 W=W-.00008*TT*SIN(G)
625 REM COMPUTE SUN'S RA & DEC
630 S=W/SQR(U-V*V)
635 A5=L+ATN(S/SQR(1-S*S))
640 S=V/SQR(U):D5=ATN(S/SQR(1-S*S))
645 RETURN
650 REM CALENDAR-----JD
655 PRINT:PRINTTAB(6)"[158][197]NTER [217]EAR: ";:L9%=4:GOSUB730:Y=Q9
657 SYSAD+9,2
660 PRINTTAB(6)"[158][197]NTER [205]ONTH: ";:L9%=2:GOSUB730:M=Q9:QM=Q9
662 IFM<0ORM>12THENPRINT"[145][145]":GOTO660
663 SYSAD+9,2
665 PRINTTAB(6)"[158][197]NTER [196]AY: ";:L9=2:GOSUB730:D=Q9:QD=Q9
667 IFD<0ORD>31THENPRINT"[145][145]":GOTO665
668 SYSAD+9,2
670 G=1:IFY<1583THENG=0
675 D1=INT(D):F=D-D1-.5
680 J=-INT(7*(INT((M+9)/12)+Y)/4)
685 IFG=0THEN705
690 S=SGN(M-9):A=ABS(M-9)
695 J3=INT(Y+S*INT(A/7))
700 J3=-INT((INT(J3/100)+1)*3/4)
705 J=J+INT(275*M/9)+D1+G*J3
710 J=J+1721027+2*G+367*Y
715 IFF>0THEN725
720 F=F+1:J=J-1
725 RETURN
730 Q9$="":POKE198,.
735 GETA$
740 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN735
745 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
750 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO771
755 IFLEN(Q9$)>=L9%THENSYSAD+9,3:GOTO735
760 IF(A$>="0"ANDA$<="9")ORA$="."THEN765
762 GOTO735
765 Q9$=Q9$+A$
770 PRINT""A$;:GOTO735
771 PRINT" [157][157] [157]";:GOTO735
772 GETHC$:IFHC$<>"Y"ANDHC$<>"N"THEN772
773 RETURN
775 IFAZ<90THENPV=1
776 IFAZ<90THENPV=1
780 IFAZ>=90ANDAZ<91THENPV=2
785 IFAZ>91ANDAZ<180THENPV=3
790 IFAZ>180ANDAZ<270THENPV=4
795 IFAZ>=270ANDAZ<271THENPV=5
800 IFAZ>271ANDAZ<300THENPV=6
805 RETURN
810 PRINTTAB(6)"[214]ERNAL [197]QUINOX - [211]PRINGTIME!"
815 RETURN
820 PRINTTAB(6)"[211]UMMER [211]OLSTICE - [211]UMMERTIME!"
825 RETURN
830 PRINTTAB(6)"[193]UTUMNAL [197]QUINOX - [201]T'S [198]ALL!"
835 RETURN
840 PRINTTAB(5)"[215]INTER [211]OLSTICE - [215]INTERTIME!"
845 RETURN
3000 POKE214,19:PRINT:PRINTTAB(8)"[150](1[150]) [195]ALCULATE ANOTHER
3010 [153][163]8)"DEF(2DEF) (null)O (null)(null)RIGHT$(null)VAL(null)(null)VAL (null)ENU
3020 POKE198,0
3030 GETA$:IFA$<"1"ORA$>"2"THEN3030
3040 IFA$="1"THENRETURN
3050 SYSAD+15
3060 PRINT"[147]LOAD"CHR$(34)"B.UNIVERSE"CHR$(34)","DV
3070 PRINT"RUN28"
3080 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="SUNUP-DOWN":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END