Mapa Astral

12 de julho de 201712 de julho de 2017 MSX-Basic 0 comentários Aplicativos

Programa de elaboração de Mapa Astral, listado no livro Astrologia no MSX, da editora Aleph.

Teste o programa no WebMSX – The Online MSX Emulator

Fonte: Livro Astrologia no MSX
Editora: Aleph
Ano: 1988
Autor: Luiz Tarcísio de Carvalho Júnior
Contribuição: Jeimes Uchôa

1000 KEYOFF:WIDTH40:COLOR15,1:CLS
1010 CLEAR 200,&HE000:POKE&HE057,2
1020 LOCATE10:PRINT"*** MAPA ASTRAL ***":PRINT
1030 SL%=(INP(&HA8)AND&HC0)/64
1040 DEFDBLA-Z:PI=4*ATN(1)
1050 DEFFNSI(X)=SIN(X*PI/180):DEFFNCO(X)=COS(X*PI/180):DEFFNTA(X)=TAN(X*PI/180):DEFFNAS(X)=ATN(X/SQR(1-X*X))*180/PI:DEFFNAR(X)=ATN(X)*180/PI:DEFFNMO(X,MO)=(X/MO-INT(X/MO))*MO
1060 DEFFNVA(EC)=2*ATN(((1+EC)/(1-EC))^.5*TAN(E/2)):DEFFNDR(X)=X*PI/180:DEFFNRD(X)=X*180/PI
1070 DATA Sol,Lua,Merc£rio,Vˆnus,Marte,J£piter,Saturno,Urano,Netuno,Plut±o,Ascendente,Meio do C‚u,„ries,Touro,Gˆmeos,Cƒncer,Le±o,Virgem,Libra,Escorpi±o,Sagit rio,Capric¢rnio,Aqu rio,Peixes
1080 DATA I,II,III,IV,V,VI,VII,VIII,IX,X,XI,XII,Ascendente,,,I.C.,,,Descendente,,,Meio do C‚u,,,Conjun‡±o,,Sˆxtil,Quadratura,Tr¡gono,,Oposi‡±o
1090 DATA 40,C0,40,40,E0,00,00,00,40,A0,20,40,E0,00,00,00,C0,20,40,20,C0,00,00,00,A0,A0,E0,20,20,00,00,00,E0,80,C0,20,C0,00,00,00,E0,80,E0,A0,E0,00,00,00,E0,20,40,40,40,00,00,00
1100 DATA 40,A0,40,A0,40,00,00,00,E0,A0,E0,20,E0,00,00,00,44,CA,4A,4A,E4,00,00,00,44,CC,44,44,EE,00,00,00,44,CA,42,44,EE,00,00,00,38,44,82,92,82,44,38,00,10,08,0C,0C,0C,08,10,00
1110 DATA 44,38,44,44,38,10,38,10,38,44,44,38,10,38,10,00,07,03,3D,44,44,44,38,00,C8,28,28,28,48,FE,08,08,20,70,20,2C,32,22,24,04,54,54,7C,54,54,10,28,10,92,92,92,54,38,10,38,10,F0,88,88,88,F0,80,80,F8,6C,92,92,10,10,10,10,10
1120 DATA 82,FE,44,82,82,82,44,38,FC,48,48,48,48,48,FC,00,7F,90,90,66,09,09,FE,00,18,24,24,24,A4,A4,43,00,A8,56,55,55,55,55,52,05,00,00,18,24,C3,00,FF,00,A8,54,54,54,55,55,55,02,0F,03,05,29,10,28,40,80,04,0A,8C,8A,89,51,20,00
1130 DATA 00,00,55,AA,00,55,AA,00,82,44,28,7C,28,44,82,00,46,A8,EE,A2,AC,00,00,00,60,80,80,80,68,00,00,00,00,03,64,97,F1,96,90,00,6C,54,44,00,18,20,20,18,00,02,04,08,70,90,90,60,06,09,09,0E,70,90,90,60,00,7E,42,42,42,42,7E,00
1140 DATA 10,38,28,6C,44,C6,FE,00,00,10,54,38,38,54,10,00
1150 DIM LG(12),MA(9),HC(13),PL$(12),SI$(12),HP(10),S(12),HO$(12),LB$(12),AS$(12,12),X0(12),Y0(12)
1160 FORI=1TO12:READPL$(I):NEXT:FORI=1TO12:READSI$(I):NEXT:FORI=1TO12:READHO$(I):NEXT:FORI=1TO12:READLB$(I):NEXT:FORI=0TO6:READA$(I):NEXT
1170 GOSUB1360:GOSUB1570
1180 LG(11)=HC(1):LG(12)=HC(10)
1190 GOSUB1200:GOTO4430
1200 HC(13)=HC(1)
1210 FORI=1TO10:LG=LG(I):GOSUB3830:S(I)=S:J=1
1220 HC=HC(J):DI=HC(J+1)-HC(J):IFDI<0THENDI=DI+360
1230 LG=LG(I):DP=LG-HC:IFDP<0THENDP=DP+360
1240 IFDP<=DITHENHP(I)=J:HP=JELSEJ=J+1:GOTO1220
1250 HO$=HO$(HP):PC%(I)=(I-1)*12+HP
1260 NEXT
1270 FORI=1TO2:LG=HC(I):GOSUB3830:IFI=1THENS(11)=SELSES(12)=S
1280 NEXT
1290 FORI=1TO11:PL$(I)=LEFT$(PL$(I),10):NEXT
1300 MO=30:FORI=1TO10:FORJ=I+1TO12:R=LG(J)-LG(I):IFR<0THENR=R+360
1310 IFR>180THENR=360-R
1320 OB=FNMO(R,MO):IFOB>=23OROB<=7THENGOSUB1340ELSEAS$(I,J)=""
1330 NEXT:NEXT:RETURN
1340 R=R+7:A=R\30:IFA=1ORA=5THENAS$(I,J)="":RETURN
1350 AS$(I,J)=A$(A):RETURN
1360 INPUT"Nome (m x=10 letras):";NA$:IFLEN(NA$)>10THENGOSUB4420:GOTO1370
1370 PRINT:PRINT"Data de nascimento:":PRINT" (ap¢s 15/10/1582) ";
1380 LOCATE20:INPUT"Dia ";D:IFD<1ORD>31THENGOSUB4420:GOTO1380
1390 LOCATE20:INPUT"Mes ";M:IFM<1ORM>12THENGOSUB4420:GOTO1390
1400 LOCATE20:INPUT"Ano ";YR:IFYR<1582THENGOSUB4420:GOTO1400
1410 PRINT:PRINT"Hora de nascimento:";
1420 LOCATE20:INPUT"Hora ";HU:IFHU<0ORHU>24THENGOSUB4420:GOTO1420
1430 LOCATE20:INPUT"Minutos ";MU:IFMU<0ORMU>59THENGOSUB4420:GOTO1430
1440 PRINT:INPUT"Hor rio de Ver±o (S/N) ";A$:IF A$="s"ORA$="S"THENHU=HU-1
1450 PRINT:INPUT"Fuso Hor rio ";TZ:IFTZ<-12ORTZ>12THENGOSUB4420:GOTO1450
1460 PRINT:PRINT"Coordenadas do local de nascimento"
1470 PRINT:PRINT"Latitude:";
1480 LOCATE15:INPUT"Graus ";L2:IFL2<0ORL2>90THENGOSUB4420:GOTO1480
1490 LOCATE15:INPUT"Minutos ";LM:IFLM<0ORLM>59THENGOSUB4420:GOTO1490
1500 LOCATE15:INPUT"N ou S ";N$:IFN$<>"N"ANDN$<>"S"ANDN$<>"s"ANDN$<>"n"THENGOSUB4420:GOTO1500
1510 PRINT"Longitude:";
1520 LOCATE15:INPUT"Graus ";L1:IFL1<0ORL1>180THENGOSUB4420:GOTO1520
1530 LOCATE15:INPUT"Minutos ";M1:IFM1<0ORM1>59THENGOSUB4420:GOTO1530
1540 LOCATE15:INPUT"L ou O ";E$:IFE$<>"L"ANDE$<>"O"ANDE$<>"l"ANDE$<>"o"THENGOSUB4420:GOTO1540
1550 CLS:LOCATE 10,10:PRINT"AGUARDE UM POUCO ..."
1560 RETURN
1570 GOSUB1660
1580 FORK=1TO9:ONKGOSUB3210,3380,3460,3540,1760,2420,2180,2770,2290
1590 GOSUB3040:XX(K)=XX:YY(K)=YY:ZZ(K)=ZZ
1600 NEXT
1610 GOSUB3870
1620 FORI=2TO9:GOSUB3900:NEXT
1630 GOSUB3620
1640 GOSUB3960
1650 RETURN
1660 TI=HU+MU/60:PART=(TI+TZ)/24
1670 IFM>2THENY=YR:N=MELSEY=YR-1:N=M+12
1680 IFYR>1582THEN1720
1690 IFYR=1582ANDM>10THEN1720
1700 IFYR=1582ANDM=10ANDD>15THEN1720
1710 B=0:GOTO1730
1720 B=Y\100:B=2-B+B\4
1730 JD=B+D+INT(365.25*Y)+INT(30.6001*(N+1))+1720994.5#+PART:DAY=JD-2415020#:T=DAY/36525!:T2=T*T
1740 T1=(JD-2407715#)/365.25
1750 RETURN
1760 ML=159.9402917#
1770 PH=11.90742222#
1780 TY=(JD-2396758#)/365.25
1790 T=(JD-2415020#)/36525!
1800 ND=.0830912157#
1810 NN=30.3490665277#
1820 MA(5)=FNMO((ML-PH+NN*TY),360)
1830 IFMA(5)<0THENMA(5)=MA(5)+360:GOTO1830
1840 MA(6)=FNMO((284.7167833#+12.22116782#*TY),360)
1850 ZZ=TY*365.25:PP=4332.5879507#
1860 MM=ZZ/PP
1870 M2=MM*MM
1880 PT=-2*MA(5)+5*MA(6)-.0227694694#*TY+67.14881389#
1890 PT=FNSI(PT):DZ=3.998745#*PT-2.2133E-03*PT*MM
1900 PT=FNSI(-4*MA(5)+10*MA(6)+.04047777#*TY+313.6833#)
1910 DZ=DZ+.036853*PT-3.47E-05*MM*PT
1920 DZ=DZ+.0399278*MM*FNSI(-MA(5)+227.4626944#)+.037294*FNSI(MA(6)+150.934722#)
1930 DZ=DZ+.266919*FNSI(-MA(5)+MA(6)+79.202777#)+.411235*FNSI(-MA(5)+2*MA(6)+1.41302777#)+.65067*FNSI(-2*MA(5)+2*MA(6)+336.8968056#)
1940 DZ=DZ+.04693*FNSI(-MA(5)+3*MA(6)+312.1913889#)+.276299*FNSI(-2*MA(5)+3*MA(6)+127.381944#)+.054251*FNSI(-3*MA(5)+3*MA(6)+57.7147222#)
1950 DZ=DZ+.05629*FNSI(-2*MA(5)+4*MA(6)+98.46777#)+.050072*FNSI(-3*MA(5)+5*MA(6)+26.045)
1960 DZ=DZ+.538023*FNSI(-3*MA(5)+5*MA(6)+176.4641667#)
1970 ZT=FNMO((1781.57063#+ZZ+DZ),PP)
1980 F=ND*ZT+5.527871944#*FNSI(ND*ZT)+.1666191667#*FNSI(2*ND*ZT)+6.938889E-03*FNSI(3*ND*ZT)+3.327778E-04*FNSI(4*ND*ZT)
1990 F=FNMO(F,360)
2000 RR=(27.029*FNSI(2*F+5.94))/3600
2010 LO=FNMO((PH+F+RR+.0139624189#*TY),360)
2020 MT=ZT/PP
2030 IN=1.31188889#-6.52778E-04*MT
2040 AP=272.9562028#+.04474166#*MT
2050 BR=FNSI(IN)*FNSI(F+AP)+1.215E-03*MT*FNSI(F+35.523111#)
2060 BR=FNAS(BR)
2070 AX=5.2028028#
2080 EC=.04825382#
2090 DL=-2.053*MM+125.634*MM*FNCO(-MA(5)+227.4508#)+545.14*FNCO(-MA(5)+MA(6)+79.18833#)+383.02*FNCO(-MA(5)+2*MA(6)+356.1883#)
2100 DL=DL+2303.37*FNCO(-2*MA(5)+2*MA(6)+336.90066#)+738.42*FNCO(-2*MA(5)+3*MA(6)+126.5933#)+241.37*FNCO(-3*MA(5)+3*MA(6)+58.515278#)
2110 DL=DL+193.21*FNCO(-3*MA(5)+4*MA(6)+27.01167#)+229.34*FNCO(-2*MA(5)+5*MA(6)+237.89333#)+1679.2*FNCO(-3*MA(5)+5*MA(6)+176.39722#)
2120 DL=DL*1E-07
2130 DL=2.3025851#*DL
2140 DL=EXP(DL)
2150 RD=AX*(1-EC*EC)/(1+EC*FNCO(F))
2160 RD=RD*DL
2170 RETURN
2180 ML=244.1974694#+429.8635458#*T+3.160389E-04*T*T
2190 PH=171.54865#+1.484432778#*T+2.372E-04*T*T
2200 MA(K)=ML-PH
2210 PN=73.47709722#+.498667777#*T+1.311666E-03*T*T
2220 IN=.7724638889#+6.252778E-04*T
2230 EC=.0463444:AX=19.21814#
2240 GOSUB2890
2250 LO=LO-.754848+.0151405*T1-4.775403E-04*T1*T1-1.393556E-05*T1^3+5.319408E-07*T1^4-5.225006E-09*T1^5+1.63339E-11*T1^6
2260 RD=RD-.0586247+3.52507E-03*T1-2.169467E-05*T1*T1-1.498231E-06*T1^3+1.736966E-08*T1^4+1.299909E-11*T1^5-4.655219E-13*T1^6
2270 BR=BR+7.809921E-05-1.08002E-04*T1+1.021246E-04*T1*T1-4.926423E-06*T1^3+8.363675E-08*T1^4-5.972247E-10*T1^5+1.533776E-12*T1^6
2280 RETURN
2290 T0=(JD-2433282.423#)/36524.22#
2300 ML=165.6565944#+145.2571028#*T0+9.208333E-03*T0*T0
2310 PH=222.9138972#-1.04963889#*T0-.3841361#*T0*T0
2320 MA(K)=ML-PH
2330 PN=109.635975#+5.89E-04*T0+3.2556E-03*T0*T0
2340 IN=17.1481833#+8.7083E-03*T0+2.936111E-03*T0*T0
2350 EC=.24824802#+4.97082E-04*T0+5.63208E-04*T0*T0
2360 AX=39.52940243#
2370 GOSUB2890
2380 LO=LO-1.038412#+.0184134*T1-2.595642E-04*T1*T1+6.382315E-06*T1^3-5.789487E-08*T1^4-1.211198E-10*T1^5+2.17729E-12*T1^6
2390 BR=BR-.021502+3.61708E-03*T1-3.587163E-04*T1*T1+1.45065E-05*T1^3-2.67288E-07*T1^4+2.184457E-09*T1^5-6.393583E-12*T1^6
2400 RD=RD-.0407175-1.599454E-03*T1+1.53402E-04*T1*T1-4.50381E-06*T1^3+7.50234E-08*T1^4-6.052482E-10*T1^5+1.73265E-12*T1^6
2410 RETURN
2420 ML=14.827764#
2430 PH=90.11098#
2440 TY=(JD-2396758#)/365.25
2450 T=(JD-2415020#)/36525!
2460 ND=.0334597339#
2470 NN=12.22116782#
2480 MA(7)=220.169542#+4.28493111#*TY:MA(5)=FNMO(MA(5),360)
2490 MA(6)=FNMO((ML-PH+NN*TY),360)
2500 MA(5)=FNMO((148.032869#+30.34906653#*TY),360)
2510 ZZ=TY*365.25:PP=10759.200918#
2520 MM=ZZ/PP
2530 M2=MM*MM
2540 DZ=1.2927E-03*M2+.657765*MM*FNSI(MA(6)+237.983722#)+.10041*FNSI(-MA(5)+86.766111#)+3.5047*FNSI(-MA(5)+2*MA(6)+181.4292#)
2550 DZ=DZ+.27834*FNSI(-MA(5)+3*MA(6)+121.2292#)+.266*FNSI(-2*MA(5)+2*MA(6)+156.9708#)+.2171*FNSI(-2*MA(5)+3*MA(6)+135.5525#)+5.67852*FNSI(-2*MA(5)+4*MA(6)+277.3964#)
2560 CO=-2*MA(5)+5*MA(6)-.02277825#*TY
2570 DZ=DZ+24.15265#*FNSI(CO+247.1122139#)
2580 ZT=FNMO((8509.236324#+ZZ+DZ),PP)
2590 F=FNMO(ND*ZT+6.421566944#*FNSI(ND*ZT)+.2248277778#*FNSI(2*ND*ZT)+.01091472#*FNSI(3*ND*ZT),360)
2600 RR=.0271594*FNSI(2*F+135.5291389#)
2610 LO=FNMO((PH+F+RR+.0139605947#*TY),360)
2620 MT=ZT/PP
2630 IN=2.4951
2640 AP=-22.35751#+.15284*MT
2650 BR=FNSI(IN)*FNSI(F+AP)+6.74E-03*MT*FN SI(F+77.6)
2660 BR=FNAS(BR)
2670 AX=9.53884
2680 EC=.05606075#
2690 DL=1826+12.37*MM+834.91*MM*FNCO(MA(6)+57.9805)+3782.7*FNCO(-MA(5)+MA(6)+79.7528)+2443.3*FNCO(-MA(5)+2*MA(6)+176.0439#)
2700 DL=DL+643.8*FNCO(-2*MA(5)+2*MA(6)+156.577)+7005.4*FNCO(-2*MA(5)+4*MA(6)+277.2561#)+1146.6*FNCO(-2*MA(5)+5*MA(6)-.0247*TY+62.2936)
2710 DL=DL+241.3*FNCO(-MA(5)+3*MA(6)+305.907)+421.1*FNCO(-2*MA(5)+3*MA(6)+141.965)+235*FNCO(-2*MA(6)+3*MA(7)+119.093)
2720 DL=DL+187.4*FNCO(MA(6)+295.412)+147.2*FNCO(-3*MA(5)+3*MA(6)+223.935)+102.2*FNCO(-3*MA(5)+4*MA(6)+206.398)+152.6*FNCO(-2*MA(6)+2*MA(7)+336.7217#)
2730 DL=DL*1E-07
2740 DL=2.3025851#*DL:DL=EXP(DL)
2750 RD=AX*(1-EC*EC)/(1+EC*FN CO(F)):RD=RD*DL
2760 RETURN
2770 ML=84.45799444#+219.8859142#*T+3.204833E-04*T*T
2780 PH=46.727325#+1.424296667#*T
2790 PN=130.6813583#+1.098935#*T
2800 EC=8.99704E-03
2810 IN=1.779241667#-9.5436111E-03*T
2820 MA(K)=ML-PH
2830 AX=30.10957#
2840 GOSUB2890
2850 LO=LO+.637509783#+2.3736583E-04*T1-2.9220914E-04*T1*T1+1.06593784E-05*T1^3-2.13113054E-07*T1^4+2.50537325E-09*T1^5-1.5416127E-11*T1^6+3.79030508E-14*T1^7
2860 BR=BR+-1.75265628E-03+1.05627768E-03*T1-1.82173042E-05*T1*T1+6.90918713E-08*T1^3
2870 RD=RD-.02300899#+3.32588412E-04*T1-3.68193196E-06*T1*T1-1.49019053E-07*T1^3+1.17704274E-09*T1^4
2880 RETURN
2890 MA=FNDR(MA(K)):ML=FNDR(ML):IN=FNDR(IN):PN=FNDR(PN)
2900 E=MA
2910 FORJ=1TO5
2920 E=MA+EC*SIN(E)
2930 NEXT
2940 TA=FNVA(EC)
2950 LE=FNMO((TA-MA+ML),(2*PI))
2960 OP=LE-PN:B5=ATN(TAN(OP)*COS(IN))
2970 IFB5<0THENB5=B5+PI
2980 IFSIN(OP)<0THENB5=B5+PI
2990 LO=FNMO((B5+PN),(2*PI))
3000 LO=FNRD(LO)
3010 BR=FNAS(SIN(OP)*SIN(IN))
3020 RD=AX-AX*EC*COS(E)
3030 RETURN
3040 XX=RD*FNCO(LO)*FNCO(BR)
3050 YY=RD*FNCO(BR)*FNSI(LO)
3060 ZZ=RD*FNSI(BR)
3070 RETURN
3080 GOSUB3300
3090 ML=279.6966778#+36000.76892#*T+3.025E-04*T2
3100 ML=FNMO(ML,360)
3110 MM=270.4341639#+13.176396527#*DA+(1.9E-06*T-1.133E-03)*T2
3120 MM=FNMO(MM,360)
3130 LN=FNMO(259.183275#-.0529539222#*DA+(2E-06*T+2.078E-03)*T2,360)
3140 IFLN<0THENLN=LN+360:GOTO3140
3150 LP=FNMO(334.329556#+.1114040803#*DA+(-1.2E-05*T+.010325)*T2,360)
3160 DEE=350.7374861#+445267.11417#+T-1.43611E-03*T2
3170 DEE=FNMO(DEE,360)
3180 LL=FNMO((296.1046083#+477198.8491083#*T+1.9166666E-04*T2),360)
3190 FF=FNMO((11.2508889#+483202.02515#*T-3.21111E-03*T2),360)
3200 RETURN
3210 IN=0:I=1
3220 EC=.016751-4.18E-05*T
3230 PN=0
3240 AX=1.00000023#
3250 GOSUB3080
3260 GOSUB2890
3270 LG(1)=LO
3280 LA(1)=0
3290 RETURN
3300 MA(1)=FNMO((358.4758444#+35999.04975#*T-1.5E-04*T2),360)
3310 RETURN
3320 MA(2)=FNMO((102.279381#+4.092334436#*36525!*T+5E-07*3.6525*3.6525*T2),360)
3330 RETURN
3340 MA(3)=FNMO((212.603219#+1.602130154#*36525!*T+9.64E-05*3.6525*3.6525*T2),360)
3350 RETURN
3360 MA(4)=FNMO((319.529425#+.524020766#*36525!*T+1.3555E-05*3.6525*3.6525*T2),360)
3370 RETURN
3380 ML=178.179078#+4.0923770233#*36525!*T+2.26E-05*3.6525*3.6525*T2
3390 GOSUB3320
3400 PN=47.1459444#+1.18520833333#*T+1.738889E-04*T2
3410 IN=7.002880556#+1.8608333E-03*T-1.83333E-05*T2
3420 EC=.20561421#+2.04E-05*T+3E-08*T2
3430 AXIS=.387099
3440 I=2:GOSUB2890
3450 RETURN
3460 ML=342.767053#+1.6021687036#*36525!*T+2.3212E-05*3.6525*3.6525*T2
3470 GOSUB3340
3480 PN=75.77964722#+.89985*T+4.1E-04*T2
3490 IN=3.39360556#+1.005833E-03*T-9.722E-07*T2
3500 EC=6.82069E-03-4.77E-05*T+9.1E-08*T2
3510 AXIS=.7233316#
3520 I=3:GOSUB2890
3530 RETURN
3540 ML=293.747628#+.5240711638#*T*36525!+2.3287E-05*3.6525*3.6525*T2
3550 GOSUB3360
3560 PN=48.78644167#+.770991666#*T-1.388889E-06*T2
3570 IN=1.85033333#-6.75E-04+1.261E-05*T2
3580 ECC=.0933129+9.2064E-05*T-7.7E-08*T2
3590 AXIS=1.5236915#
3600 I=4:GOSUB2890
3610 RETURN
3620 GOSUB3080
3630 PT(1)=FNSI(51.2+20.2*T)
3640 PT(2)=FNSI(193.44-132.87*T-9.1731E-03*T2)*14.27
3650 PT(3)=FNSI(LN)
3660 PT(4)=-15.58*FNSI(LN+275.05-2.3*T)
3670 MM=(.84*PT(1)+PT(2)+7.261*PT(3))/3600+MM
3680 L7=(2.94*PT(1)+PT(2)+9.337*PT(3))/3600+LL
3690 DD=(7.24*PT(1)+PT(2)+7.261*PT(3))/3600+DEE
3700 ELP=-6.4*PT(1)/3600+MA(1)
3710 FF=(.21*PT(1)+PT(2)-88.699*PT(3)+PT(4))/3600+FF
3720 LP=0:LP=LP+22639.55#*FNSI(L7)-4586.465#*FNSI(L7-2*DD)+2369.912#*FNSI(2*DD)
3730 LP=LP+769.016*FNSI(2*L7)-668.1469#*FNSI(ELP)
3740 LP=LP-411.608*FNSI(2*FF)-211.6562#*FNSI(2*L7-2*DD)-205.962*FNSI(L7+ELP-2*DD)
3750 LP=LP+191.953*FNSI(L7+2*DD)-165.145*FNSI(ELP-2*DD)
3760 LP=LP+147.687*FNSI(L7-ELP)-125.154*FNSI(DD)-109.673*FNSI(L7+ELP)
3770 LP=LP-55.173*FNSI(2*FF-2*DD)-45.099*FNSI(L7+2*FF)
3780 LP=LP+39.529*FNSI(L7-2*FF)-38.428*FNSI(L7-4*DD)+36.124*FNSI(3*L7)
3790 LP=LP-30.773*FNSI(2*L7-4*DD)+28.475*FNSI(L7-ELP-2*DD)
3800 LP=LP/3600
3810 LG(2)=MM+LP
3820 RETURN
3830 LG=FNMO(LG,360)
3840 DG=FNMO(LG,30):S=INT(LG/30)+1:SG$=SI$(S)
3850 GOSUB4390
3860 RETURN
3870 OB=23.45229444#-.0130125*T
3880 O1=FNCO(OB):O2=FNSI(OB)
3890 RETURN
3900 XG=XX(I)+XX(1):YG=YY(I)+YY(1):ZG=ZZ(I)+ZZ(1)
3910 XP(I)=XP(I)+XP(1):YP(I)=YP(I)+YP(1):ZP(I)=ZP(I)+ZP(1)
3920 LG=FNAR(YG/XG):IFLG<0THENLG=LG+180
3930 IFYG<0THENLG=LG+180
3940 LG(I+1)=LG
3950 RETURN
3960 LW=L1+M1/60:IFE$="o"ORE$="O"THENLW=360-LW
3970 LT=L2+LM/60:IFN$="s"ORN$="S"THENLT=360-LT
3980 GOSUB4040
3990 GOSUB4080
4000 GOSUB4110
4010 FORI=1TO3:HC(I+6)=FNMO((HC(I)+180),360):NEXT
4020 FORI=10TO12:HC(I-6)=FNMO((HC(I)+180),360):NEXT
4030 RETURN
4040 MS=18.64606555#+2400.051262#*T+(.0929/3600)*T2
4050 IFMS<0THENMS=MS+24:GOTO4050
4060 MS=FNMO(MS,24)
4070 RETURN
4080 UT=TZ+TI:AS=FNMO((UT+12),24)
4090 LC=LW/15:ST=FNMO((MS+AS+LC),24):RA=ST*15
4100 RETURN
4110 GOSUB4300
4120 HC(10)=LG
4130 OA=FNMO((90+RA),360)
4140 L9=LT:GOSUB4340:HC(1)=LG
4150 RR=-FNTA(LT)*FNTA(OB)
4160 T9=1/3:GOSUB4200:HC(11)=LG
4170 T9=2/3:GOSUB4200:HC(12)=LG
4180 T9=-2/3:GOSUB4200:HC(2)=FNMO((LG+180),360)
4190 T9=-1/3:GOSUB4200:HC(3)=FNMO((LG+180),360)
4200 X(0)=1E-09:X(1)=180.0001#
4210 Y(0)=RR*FNSI(RA+T9*X(0))-FNCO(X(0))
4220 Y(1)=RR*FNSI(RA+T9*X(1))-FNCO(X(1))
4230 I=2
4240 X(I)=X(I-1)-((X(I-1)-X(I-2))/(Y(I-1)-Y(I-2)))*Y(I-1)
4250 Y(I)=RR*FNSI(RA+T9*X(I))-FNCO(X(I))
4260 IFABS(X(I)-X(I-1))>1E-03THENI=I+1:GOTO4240
4270 HC=RA+X(I)*T9:IFHC<0THENHC=HC+360
4280 HC=FNMO(HC,360):RA=HC:GOSUB4300:RA=ST*15
4290 RETURN
4300 Y9=FNTA(RA):LG=FNAR(Y9/O1)
4310 IFLG<0THENLG=LG+180
4320 IFRA>180THENLG=LG+180
4330 RETURN
4340 OA=FNMO(OA,360):AA=FNAR(FNTA(L9)/FNCO(OA))
4350 AB=AA+OB:LG=FNAR(FNTA(OA)*FNCO(AA)/FNCO(AB))
4360 IFLG<0THENLG=LG+180
4370 IFFNSI(OA)<0THENLG=LG+180
4380 RETURN
4390 MI=(DG-INT(DG))*60
4400 SE=(MI-INT(MI))*60
4410 DG=DG\1:MI=MI\1:SE=SE\1:RETURN
4420 PRINT:PRINT"    --- ENTRADA INV„LIDA ---":PRINT:RETURN
4430 ONKEYGOSUB5590,5700
4440 SCREEN2
4450 OPEN"grp:"AS#1
4460 PRESET(20,0):PRINT#1,"MAPA ASTRAL"
4470 PRESET(20,180):PRINT#1,NA$
4480 FORI=8TO351:READA$:VPOKE14336+I,VAL("&H"+A$):NEXT
4490 SPRITE$(44)=STRING$(2,192)+STRING$(6,0)
4500 COLOR11
4510 P0=180-HC(1):IFP0<0THENP0=360+P0
4520 P1=P0*PI/180:GOTO4600
4530 CIRCLE(160,95),40,11:CIRCLE (160,95),39,11:CIRCLE (160,95),80,11:CIRCLE(160,95),95,11:CIRCLE(160,95),94,11:AI=P1
4540 FORI=1TO12
4550 X1=160+COS(AI)*80:Y1=95-SIN(AI)*80:X2=160+COS(AI)*95:Y2=95-SIN(AI)*95:X3=157+COS(AI+PI/12)*87:Y3=92-SIN(AI+PI/12)*87
4560 AI=AI+PI/6
4570 LINE(X1,Y1)-(X2,Y2),11
4580 PSET(X3,Y3),1:SC%=I+22:GOSUB5800:PRINT#1,"\":GOSUB5840
4590 NEXT:GOTO4670
4600 FORI=1TO10
4610 R=70
4620 AI=P1+LG(I)*PI/180
4630 X(I)=156+COS(AI)*R:Y(I)=91-SIN(AI)*R
4640 GOSUB5530
4650 PSET(X(I),Y(I)),1:SC%=I+12:GOSUB5800:PRINT#1,"\":GOSUB5840
4660 NEXT:GOTO4530
4670 FORI=1TO12
4680 AI=P1+HC(I)*PI/180
4690 AF=P1+HC(I+1)*PI/180:IFAF<AITHENAF=AF+2*PI
4700 X=160+COS(AI)*40:Y=95-SIN(AI)*40
4710 XB=160+COS(AI)*80:YB=95-SIN(AI)*80
4720 X0(I)=159+COS((AI+AF)/2)*32:Y0(I)=93-SIN((AI+AF)/2)*32:IFI=10THENX0(I)=X0(I)-1
4730 PSET(X0(I),Y0(I)),1:SC%=I:GOSUB5800:PRINT#1,"\":GOSUB5840
4740 LINE(160,95)-(X,Y),11
4750 PUTSPRITEI+2,(XB,YB),7,44
4760 NEXT
4770 PSET(48,91),1:SC%=35:GOSUB5800:PRINT#1,"\";:SC%=36:GOSUB5800:PRINT#1,"\":GOSUB5840
4780 I=1:J=1:KEY(1)ON:KEY(2)ON:KEY(5)ON
4790 PA$=INKEY$
4800 IFPA$<>CHR$(13)THEN4790
4810 KEY(1)OFF:KEY(2)OFF
4820 SCREEN2
4830 COLOR15:PSET(54,5),1:PRINT#1,"ASPECTOS PLANET„RIOS"
4840 PSET(20,180),1:PRINT#1,NA$
4850 LINE(36,19)-(230,19),11
4860 COLOR7
4870 FORI=0TO11
4880 LINE(36+I*16,33+I*14)-(230,33+I*14),11
4890 PSET(40+I*16,22+I*14),1
4900 IFI<10THENSC%=13+IELSESC%=27+I
4910 GOSUB5800:PRINT#1,"\":GOSUB5840
4920 NEXT
4930 LINE(36,19)-(36,33),11
4940 LINE(230,19)-(230,187),11
4950 FORI=0TO10
4960 LINE(52+I*16,19)-(52+I*16,47+I*14),11
4970 NEXT
4980 COLOR3:PSET(20,110),1:SC%=43:GOSUB5800:PRINT#1,"\";:GOSUB5840:PRINT#1," = Sˆxtil"
4990 PSET(20,120),1:SC%=42:GOSUB5800:PRINT#1,"\";:GOSUB5840:PRINT#1," = Tr¡gono"
5000 PSET(20,130),1:SC%=40:GOSUB5800:PRINT#1,"\";:GOSUB5840:PRINT#1," = Oposi‡±o"
5010 PSET(20,140),1:SC%=39:GOSUB5800:PRINT#1,"\";:GOSUB5840:PRINT#1," = Conjun‡±o"
5020 PSET(20,150),1:SC%=41:GOSUB5800:PRINT#1,"\";:GOSUB5840:PRINT#1," = Quadratura"
5030 COLOR9
5040 FORI=1TO11
5050 FORJ=I+1TO12
5060 PSET(24+J*16,8+I*14),1
5070 IFAS$(I,J)=""THEN5130
5080 IFAS$(I,J)="Conjun‡±o"THENSC%=39:GOSUB5800:PRINT#1,"\":GOSUB5840
5090 IFAS$(I,J)="Oposi‡±o"THENSC%=40:GOSUB5800:PRINT#1,"\":GOSUB5840
5100 IFAS$(I,J)="Quadratura"THENSC%=41:GOSUB5800:PRINT#1,"\":GOSUB5840
5110 IFAS$(I,J)="Tr¡gono"THENSC%=42:GOSUB5800:PRINT#1,"\":GOSUB5840
5120 IFAS$(I,J)="Sˆxtil"THENSC%=43:GOSUB5800:PRINT#1,"\":GOSUB5840
5130 NEXT:NEXT
5140 PA$=INKEY$
5150 IFPA$<>CHR$(13)THEN5140
5160 POKE &HE07E,10
5170 COLOR15,1:SCREEN0:LOCATE10:PRINT"*** MAPA ASTRAL ***":PRINT
5180 GOSUB5870
5190 PRINT:PRINTUSING"###";S(1);
5200 PRINT"- Signo Solar: ";SI$(S(1))
5210 PRINT:C%=INT(HC(1)/30)+1:PRINT:PRINTUSING"###";12+C%;:PRINT"- Ascendente em ";SI$(C%)
5215 PRINT:PRINT:PRINT"     Combina‡±o:";S(1);"-";12+C%:IF C%=12 THEN C%=0
5220 D%=INT(HC(2)/30)+1:IF(D%>C%+1)OR (D%=1AND C%=1)THENPRINT:PRINT:PRINTUSING"###";13+C%;:PRINT"- Asc.interceptado em ";SI$(C%+1):PRINT:PRINT:PRINT"     Combina‡±o:";S(1);"-";13+C%
5230 GOSUB 5850
5240 PRINT"SIGNO DE CADA PLANETA:"
5250 PRINT
5260 FORI=2TO10
5270 C%=I*12+S(I):PRINTUSING"###";C%;
5280 PRINT"- ";PL$(I);" em ";SI$(S(I))
5290 NEXTI:PA$=""
5300 GOSUB5850
5310 PRINT"CASA DE CADA PLANETA:"
5320 PRINT:FORI=1TO10
5330 PRINTUSING"###";120+I*12+HP(I);
5340 PRINT"- ";PL$(I);" na casa ";HO$(HP(I))
5350 NEXT:PA$=""
5360 GOSUB5850
5370 PRINT"ASPECTOS PLANET„RIOS:"
5380 PRINT
5390 K1%=0:K2%=0:FORI=1TO11
5400 FORJ=I+1TO12
5410 IFAS$(I,J)=""THEN5500
5420 IFAS$(I,J)="Conjun‡±o"THENA%=1
5430 IFAS$(I,J)="Tr¡gono"ORAS$(I,J)="Sˆxtil"THENA%=2
5440 IFAS$(I,J)="Quadratura"ORAS$(I,J)="Oposi‡±o"THENA%=3
5450 K%=(K1%+J-I-1)*3+A%
5460 IF CSRLIN<22 THEN5480
5470 GOSUB5850
5480 PRINTUSING"###";K%+252;:PRINT"- ";
5490 PRINTPL$(I);"/";PL$(J);": ";AS$(I,J)
5500 K2%=K2%+1:NEXTJ:K1%=K1%+12-I:NEXTI
5510 GOSUB5850:CLEAR200,&HE000:POKE&HE07E,8:GOTO1030
5520 LG=FNMO(LG,360):DG=FNMO(LG,30):S=INT(LG/30)+1:SG$=SI$(S):GOSUB4390:RETURN
5530 FORZ=1TO8
5540 FORK=1TO8
5550 IFPOINT(X(I)+K,Y(I)+Z)=11ORPOINT(X(I)-K,Y(I)-2)=11THEN5580
5560 NEXT:NEXT
5570 RETURN
5580 R=R-8:RETURN4630
5590 KEY(2)OFF:COLOR9:IFI>10THENI=1
5600 PUTSPRITE 0,(X(I),Y(I)-1),9,I+12
5610 LINE(10,30)-(80,40),1,BF
5620 PSET(10,30),1:PRINT#1,PL$(I)
5630 DG=FNMO(LG(I),30)
5640 DG=INT(DG+.5)
5650 LINE(10,40)-(60,50),1,BF
5660 PSET(10,40),1:PRINT#1,DG;:SC%=S(I)+22:GOSUB5800:PRINT#1,"\":GOSUB5840
5670 LINE(10,50)-(60,70),1,BF
5680 PSET(18,50),1:PRINT#1,"CASA":PSET(18,60),1:PRINT #1,HO$(HP(I))
5690 I=I+1:COLOR15:KEY(2)ON:RETURN
5700 KEY(1)OFF:COLOR3:IFJ>12THENJ=1
5710 PUTSPRITE1,(X0(J),Y0(J)-1),3,J
5720 LINE(10,150)-(80,160),1,BF
5730 PSET(10,150),1:PRINT#1,"CASA ";HO$(J)
5740 DG=FNMO(HC(J),30)
5750 DG=INT(DG+.5)
5760 S=INT(HC(J)/30)+1
5770 LINE(10,160)-(70,170),1,BF
5780 PSET(10,160),1:PRINT#1,DG;:SC%=S+22:GOSUB5800:PRINT#1,"\":GOSUB5840
5790 J=J+1:COLOR15:KEY(1)ON:RETURN
5800 FORL%=0TO7
5810 POKE&HE2E0+L%,VPEEK(14336+L%+8*SC%)
5820 NEXT
5830 POKE&HF91F,SL%:POKE&HF920,0:POKE&HF921,&HE0:RETURN
5840 POKE&HF91F,0:POKE&HF920,&HBF:POKE&HF921,&H1B:RETURN
5850 PA$=INKEY$:IFPA$<>CHR$(13)THEN5850
5860 CLS:LOCATE10:PRINT"*** MAPA ASTRAL ***":PRINT:RETURN
5870 PRINT"POSI€´ES DOS PLANETAS":PRINT
5880 PRINT"PLANETAS";TAB(11);"LONGITUDE";TAB(22);"SIGNO";TAB(34);"CASA":PRINT
5890 FORI=1TO10:LG=LG(I):GOSUB5520
5900 SG$=SI$(S(I)):HO$=HO$(HP(I))
5910 PRINTPL$(I);TAB(10);USING"###";DG;:PRINT":";USING"##";MI;:PRINT":";USING"##";SE;:PRINTTAB(22);SG$;TAB(34);HO$
5920 NEXT:PRINT
5930 GOSUB5850:PRINT"POSI€´ES DAS CASAS":PRINT
5940 PRINT"CASA C‹SPIDE     LONGITUDE SIGNO":PRINT
5950 FORI=1TO12:PRINTHO$(I);TAB(5);LB$(I);TAB(16);:LG=HC(I):GOSUB5520
5960 PRINTUSING"###";DG;:PRINT ":";USING"##";MI;:PRINT":";USING"##";SE;:PRINTTAB(27);SG$
5970 NEXT:PRINT:GOSUB5850:RETURN

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

241

242

243

244

245

246

247

248

249

250

251

252

253

254

255

256

257

258

259

260

261

262

263

264

265

266

267

268

269

270

271

272

273

274

275

276

277

278

279

280

281

282

283

284

285

286

287

288

289

290

291

292

293

294

295

296

297

298

299

300

301

302

303

304

305

306

307

308

309

310

311

312

313

314

315

316

317

318

319

320

321

322

323

324

325

326

327

328

329

330

331

332

333

334

335

336

337

338

339

340

341

342

343

344

345

346

347

348

349

350

351

352

353

354

355

356

357

358

359

360

361

362

363

364

365

366

367

368

369

370

371

372

373

374

375

376

377

378

379

380

381

382

383

384

385

386

387

388

389

390

391

392

393

394

395

396

397

398

399

400

401

402

403

404

405

406

407

408

409

410

411

412

413

414

415

416

417

418

419

420

421

422

423

424

425

426

427

428

429

430

431

432

433

434

435

436

437

438

439

440

441

442

443

444

445

446

447

448

449

450

451

452

453

454

455

456

457

458

459

460

461

462

463

464

465

466

467

468

469

470

471

472

473

474

475

476

477

478

479

480

481

482

483

484

485

486

487

488

489

490

491

492

493

494

495

496

497

498

499

1000 KEYOFF:WIDTH40:COLOR15,1:CLS

1010 CLEAR 200,&HE000:POKE&HE057,2

1020 LOCATE10:PRINT"*** MAPA ASTRAL ***":PRINT

1030 SL%=(INP(&HA8)AND&HC0)/64

1040 DEFDBLA-Z:PI=4*ATN(1)

1050 DEFFNSI(X)=SIN(X*PI/180):DEFFNCO(X)=COS(X*PI/180):DEFFNTA(X)=TAN(X*PI/180):DEFFNAS(X)=ATN(X/SQR(1-X*X))*180/PI:DEFFNAR(X)=ATN(X)*180/PI:DEFFNMO(X,MO)=(X/MO-INT(X/MO))*MO

1060 DEFFNVA(EC)=2*ATN(((1+EC)/(1-EC))^.5*TAN(E/2)):DEFFNDR(X)=X*PI/180:DEFFNRD(X)=X*180/PI

1070 DATA Sol,Lua,Merc£rio,Vˆnus,Marte,J£piter,Saturno,Urano,Netuno,Plut±o,Ascendente,Meio do C‚u,„ries,Touro,Gˆmeos,Cƒncer,Le±o,Virgem,Libra,Escorpi±o,Sagit rio,Capric¢rnio,Aqu rio,Peixes

1080 DATA I,II,III,IV,V,VI,VII,VIII,IX,X,XI,XII,Ascendente,,,I.C.,,,Descendente,,,Meio do C‚u,,,Conjun‡±o,,Sˆxtil,Quadratura,Tr¡gono,,Oposi‡±o

1090 DATA 40,C0,40,40,E0,00,00,00,40,A0,20,40,E0,00,00,00,C0,20,40,20,C0,00,00,00,A0,A0,E0,20,20,00,00,00,E0,80,C0,20,C0,00,00,00,E0,80,E0,A0,E0,00,00,00,E0,20,40,40,40,00,00,00

1100 DATA 40,A0,40,A0,40,00,00,00,E0,A0,E0,20,E0,00,00,00,44,CA,4A,4A,E4,00,00,00,44,CC,44,44,EE,00,00,00,44,CA,42,44,EE,00,00,00,38,44,82,92,82,44,38,00,10,08,0C,0C,0C,08,10,00

1110 DATA 44,38,44,44,38,10,38,10,38,44,44,38,10,38,10,00,07,03,3D,44,44,44,38,00,C8,28,28,28,48,FE,08,08,20,70,20,2C,32,22,24,04,54,54,7C,54,54,10,28,10,92,92,92,54,38,10,38,10,F0,88,88,88,F0,80,80,F8,6C,92,92,10,10,10,10,10

1120 DATA 82,FE,44,82,82,82,44,38,FC,48,48,48,48,48,FC,00,7F,90,90,66,09,09,FE,00,18,24,24,24,A4,A4,43,00,A8,56,55,55,55,55,52,05,00,00,18,24,C3,00,FF,00,A8,54,54,54,55,55,55,02,0F,03,05,29,10,28,40,80,04,0A,8C,8A,89,51,20,00

1130 DATA 00,00,55,AA,00,55,AA,00,82,44,28,7C,28,44,82,00,46,A8,EE,A2,AC,00,00,00,60,80,80,80,68,00,00,00,00,03,64,97,F1,96,90,00,6C,54,44,00,18,20,20,18,00,02,04,08,70,90,90,60,06,09,09,0E,70,90,90,60,00,7E,42,42,42,42,7E,00

1140 DATA 10,38,28,6C,44,C6,FE,00,00,10,54,38,38,54,10,00

1150 DIM LG(12),MA(9),HC(13),PL$(12),SI$(12),HP(10),S(12),HO$(12),LB$(12),AS$(12,12),X0(12),Y0(12)

1160 FORI=1TO12:READPL$(I):NEXT:FORI=1TO12:READSI$(I):NEXT:FORI=1TO12:READHO$(I):NEXT:FORI=1TO12:READLB$(I):NEXT:FORI=0TO6:READA$(I):NEXT

1170 GOSUB1360:GOSUB1570

1180 LG(11)=HC(1):LG(12)=HC(10)

1190 GOSUB1200:GOTO4430

1200 HC(13)=HC(1)

1210 FORI=1TO10:LG=LG(I):GOSUB3830:S(I)=S:J=1

1220 HC=HC(J):DI=HC(J+1)-HC(J):IFDI<0THENDI=DI+360

1230 LG=LG(I):DP=LG-HC:IFDP<0THENDP=DP+360

1240 IFDP<=DITHENHP(I)=J:HP=JELSEJ=J+1:GOTO1220

1250 HO$=HO$(HP):PC%(I)=(I-1)*12+HP

1260 NEXT

1270 FORI=1TO2:LG=HC(I):GOSUB3830:IFI=1THENS(11)=SELSES(12)=S

1280 NEXT

1290 FORI=1TO11:PL$(I)=LEFT$(PL$(I),10):NEXT

1300 MO=30:FORI=1TO10:FORJ=I+1TO12:R=LG(J)-LG(I):IFR<0THENR=R+360

1310 IFR>180THENR=360-R

1320 OB=FNMO(R,MO):IFOB>=23OROB<=7THENGOSUB1340ELSEAS$(I,J)=""

1330 NEXT:NEXT:RETURN

1340 R=R+7:A=R\30:IFA=1ORA=5THENAS$(I,J)="":RETURN

1350 AS$(I,J)=A$(A):RETURN

1360 INPUT"Nome (m x=10 letras):";NA$:IFLEN(NA$)>10THENGOSUB4420:GOTO1370

1370 PRINT:PRINT"Data de nascimento:":PRINT" (ap¢s 15/10/1582) ";

1380 LOCATE20:INPUT"Dia ";D:IFD<1ORD>31THENGOSUB4420:GOTO1380

1390 LOCATE20:INPUT"Mes ";M:IFM<1ORM>12THENGOSUB4420:GOTO1390

1400 LOCATE20:INPUT"Ano ";YR:IFYR<1582THENGOSUB4420:GOTO1400

1410 PRINT:PRINT"Hora de nascimento:";

1420 LOCATE20:INPUT"Hora ";HU:IFHU<0ORHU>24THENGOSUB4420:GOTO1420

1430 LOCATE20:INPUT"Minutos ";MU:IFMU<0ORMU>59THENGOSUB4420:GOTO1430

1440 PRINT:INPUT"Hor rio de Ver±o (S/N) ";A$:IF A$="s"ORA$="S"THENHU=HU-1

1450 PRINT:INPUT"Fuso Hor rio ";TZ:IFTZ<-12ORTZ>12THENGOSUB4420:GOTO1450

1460 PRINT:PRINT"Coordenadas do local de nascimento"

1470 PRINT:PRINT"Latitude:";

1480 LOCATE15:INPUT"Graus ";L2:IFL2<0ORL2>90THENGOSUB4420:GOTO1480

1490 LOCATE15:INPUT"Minutos ";LM:IFLM<0ORLM>59THENGOSUB4420:GOTO1490

1500 LOCATE15:INPUT"N ou S ";N$:IFN$<>"N"ANDN$<>"S"ANDN$<>"s"ANDN$<>"n"THENGOSUB4420:GOTO1500

1510 PRINT"Longitude:";

1520 LOCATE15:INPUT"Graus ";L1:IFL1<0ORL1>180THENGOSUB4420:GOTO1520

1530 LOCATE15:INPUT"Minutos ";M1:IFM1<0ORM1>59THENGOSUB4420:GOTO1530

1540 LOCATE15:INPUT"L ou O ";E$:IFE$<>"L"ANDE$<>"O"ANDE$<>"l"ANDE$<>"o"THENGOSUB4420:GOTO1540

1550 CLS:LOCATE 10,10:PRINT"AGUARDE UM POUCO ..."

1560 RETURN

1570 GOSUB1660

1580 FORK=1TO9:ONKGOSUB3210,3380,3460,3540,1760,2420,2180,2770,2290

1590 GOSUB3040:XX(K)=XX:YY(K)=YY:ZZ(K)=ZZ

1600 NEXT

1610 GOSUB3870

1620 FORI=2TO9:GOSUB3900:NEXT

1630 GOSUB3620

1640 GOSUB3960

1650 RETURN

1660 TI=HU+MU/60:PART=(TI+TZ)/24

1670 IFM>2THENY=YR:N=MELSEY=YR-1:N=M+12

1680 IFYR>1582THEN1720

1690 IFYR=1582ANDM>10THEN1720

1700 IFYR=1582ANDM=10ANDD>15THEN1720

1710 B=0:GOTO1730

1720 B=Y\100:B=2-B+B\4

1730 JD=B+D+INT(365.25*Y)+INT(30.6001*(N+1))+1720994.5#+PART:DAY=JD-2415020#:T=DAY/36525!:T2=T*T

1740 T1=(JD-2407715#)/365.25

1750 RETURN

1760 ML=159.9402917#

1770 PH=11.90742222#

1780 TY=(JD-2396758#)/365.25

1790 T=(JD-2415020#)/36525!

1800 ND=.0830912157#

1810 NN=30.3490665277#

1820 MA(5)=FNMO((ML-PH+NN*TY),360)

1830 IFMA(5)<0THENMA(5)=MA(5)+360:GOTO1830

1840 MA(6)=FNMO((284.7167833#+12.22116782#*TY),360)

1850 ZZ=TY*365.25:PP=4332.5879507#

1860 MM=ZZ/PP

1870 M2=MM*MM

1880 PT=-2*MA(5)+5*MA(6)-.0227694694#*TY+67.14881389#

1890 PT=FNSI(PT):DZ=3.998745#*PT-2.2133E-03*PT*MM

1900 PT=FNSI(-4*MA(5)+10*MA(6)+.04047777#*TY+313.6833#)

1910 DZ=DZ+.036853*PT-3.47E-05*MM*PT

1920 DZ=DZ+.0399278*MM*FNSI(-MA(5)+227.4626944#)+.037294*FNSI(MA(6)+150.934722#)

1930 DZ=DZ+.266919*FNSI(-MA(5)+MA(6)+79.202777#)+.411235*FNSI(-MA(5)+2*MA(6)+1.41302777#)+.65067*FNSI(-2*MA(5)+2*MA(6)+336.8968056#)

1940 DZ=DZ+.04693*FNSI(-MA(5)+3*MA(6)+312.1913889#)+.276299*FNSI(-2*MA(5)+3*MA(6)+127.381944#)+.054251*FNSI(-3*MA(5)+3*MA(6)+57.7147222#)

1950 DZ=DZ+.05629*FNSI(-2*MA(5)+4*MA(6)+98.46777#)+.050072*FNSI(-3*MA(5)+5*MA(6)+26.045)

1960 DZ=DZ+.538023*FNSI(-3*MA(5)+5*MA(6)+176.4641667#)

1970 ZT=FNMO((1781.57063#+ZZ+DZ),PP)

1980 F=ND*ZT+5.527871944#*FNSI(ND*ZT)+.1666191667#*FNSI(2*ND*ZT)+6.938889E-03*FNSI(3*ND*ZT)+3.327778E-04*FNSI(4*ND*ZT)

1990 F=FNMO(F,360)

2000 RR=(27.029*FNSI(2*F+5.94))/3600

2010 LO=FNMO((PH+F+RR+.0139624189#*TY),360)

2020 MT=ZT/PP

2030 IN=1.31188889#-6.52778E-04*MT

2040 AP=272.9562028#+.04474166#*MT

2050 BR=FNSI(IN)*FNSI(F+AP)+1.215E-03*MT*FNSI(F+35.523111#)

2060 BR=FNAS(BR)

2070 AX=5.2028028#

2080 EC=.04825382#

2090 DL=-2.053*MM+125.634*MM*FNCO(-MA(5)+227.4508#)+545.14*FNCO(-MA(5)+MA(6)+79.18833#)+383.02*FNCO(-MA(5)+2*MA(6)+356.1883#)

2100 DL=DL+2303.37*FNCO(-2*MA(5)+2*MA(6)+336.90066#)+738.42*FNCO(-2*MA(5)+3*MA(6)+126.5933#)+241.37*FNCO(-3*MA(5)+3*MA(6)+58.515278#)

2110 DL=DL+193.21*FNCO(-3*MA(5)+4*MA(6)+27.01167#)+229.34*FNCO(-2*MA(5)+5*MA(6)+237.89333#)+1679.2*FNCO(-3*MA(5)+5*MA(6)+176.39722#)

2120 DL=DL*1E-07

2130 DL=2.3025851#*DL

2140 DL=EXP(DL)

2150 RD=AX*(1-EC*EC)/(1+EC*FNCO(F))

2160 RD=RD*DL

2170 RETURN

2180 ML=244.1974694#+429.8635458#*T+3.160389E-04*T*T

2190 PH=171.54865#+1.484432778#*T+2.372E-04*T*T

2200 MA(K)=ML-PH

2210 PN=73.47709722#+.498667777#*T+1.311666E-03*T*T

2220 IN=.7724638889#+6.252778E-04*T

2230 EC=.0463444:AX=19.21814#

2240 GOSUB2890

2250 LO=LO-.754848+.0151405*T1-4.775403E-04*T1*T1-1.393556E-05*T1^3+5.319408E-07*T1^4-5.225006E-09*T1^5+1.63339E-11*T1^6

2260 RD=RD-.0586247+3.52507E-03*T1-2.169467E-05*T1*T1-1.498231E-06*T1^3+1.736966E-08*T1^4+1.299909E-11*T1^5-4.655219E-13*T1^6

2270 BR=BR+7.809921E-05-1.08002E-04*T1+1.021246E-04*T1*T1-4.926423E-06*T1^3+8.363675E-08*T1^4-5.972247E-10*T1^5+1.533776E-12*T1^6

2280 RETURN

2290 T0=(JD-2433282.423#)/36524.22#

2300 ML=165.6565944#+145.2571028#*T0+9.208333E-03*T0*T0

2310 PH=222.9138972#-1.04963889#*T0-.3841361#*T0*T0

2320 MA(K)=ML-PH

2330 PN=109.635975#+5.89E-04*T0+3.2556E-03*T0*T0

2340 IN=17.1481833#+8.7083E-03*T0+2.936111E-03*T0*T0

2350 EC=.24824802#+4.97082E-04*T0+5.63208E-04*T0*T0

2360 AX=39.52940243#

2370 GOSUB2890

2380 LO=LO-1.038412#+.0184134*T1-2.595642E-04*T1*T1+6.382315E-06*T1^3-5.789487E-08*T1^4-1.211198E-10*T1^5+2.17729E-12*T1^6

2390 BR=BR-.021502+3.61708E-03*T1-3.587163E-04*T1*T1+1.45065E-05*T1^3-2.67288E-07*T1^4+2.184457E-09*T1^5-6.393583E-12*T1^6

2400 RD=RD-.0407175-1.599454E-03*T1+1.53402E-04*T1*T1-4.50381E-06*T1^3+7.50234E-08*T1^4-6.052482E-10*T1^5+1.73265E-12*T1^6

2410 RETURN

2420 ML=14.827764#

2430 PH=90.11098#

2440 TY=(JD-2396758#)/365.25

2450 T=(JD-2415020#)/36525!

2460 ND=.0334597339#

2470 NN=12.22116782#

2480 MA(7)=220.169542#+4.28493111#*TY:MA(5)=FNMO(MA(5),360)

2490 MA(6)=FNMO((ML-PH+NN*TY),360)

2500 MA(5)=FNMO((148.032869#+30.34906653#*TY),360)

2510 ZZ=TY*365.25:PP=10759.200918#

2520 MM=ZZ/PP

2530 M2=MM*MM

2540 DZ=1.2927E-03*M2+.657765*MM*FNSI(MA(6)+237.983722#)+.10041*FNSI(-MA(5)+86.766111#)+3.5047*FNSI(-MA(5)+2*MA(6)+181.4292#)

2550 DZ=DZ+.27834*FNSI(-MA(5)+3*MA(6)+121.2292#)+.266*FNSI(-2*MA(5)+2*MA(6)+156.9708#)+.2171*FNSI(-2*MA(5)+3*MA(6)+135.5525#)+5.67852*FNSI(-2*MA(5)+4*MA(6)+277.3964#)

2560 CO=-2*MA(5)+5*MA(6)-.02277825#*TY

2570 DZ=DZ+24.15265#*FNSI(CO+247.1122139#)

2580 ZT=FNMO((8509.236324#+ZZ+DZ),PP)

2590 F=FNMO(ND*ZT+6.421566944#*FNSI(ND*ZT)+.2248277778#*FNSI(2*ND*ZT)+.01091472#*FNSI(3*ND*ZT),360)

2600 RR=.0271594*FNSI(2*F+135.5291389#)

2610 LO=FNMO((PH+F+RR+.0139605947#*TY),360)

2620 MT=ZT/PP

2630 IN=2.4951

2640 AP=-22.35751#+.15284*MT

2650 BR=FNSI(IN)*FNSI(F+AP)+6.74E-03*MT*FN SI(F+77.6)

2660 BR=FNAS(BR)

2670 AX=9.53884

2680 EC=.05606075#

2690 DL=1826+12.37*MM+834.91*MM*FNCO(MA(6)+57.9805)+3782.7*FNCO(-MA(5)+MA(6)+79.7528)+2443.3*FNCO(-MA(5)+2*MA(6)+176.0439#)

2700 DL=DL+643.8*FNCO(-2*MA(5)+2*MA(6)+156.577)+7005.4*FNCO(-2*MA(5)+4*MA(6)+277.2561#)+1146.6*FNCO(-2*MA(5)+5*MA(6)-.0247*TY+62.2936)

2710 DL=DL+241.3*FNCO(-MA(5)+3*MA(6)+305.907)+421.1*FNCO(-2*MA(5)+3*MA(6)+141.965)+235*FNCO(-2*MA(6)+3*MA(7)+119.093)

2720 DL=DL+187.4*FNCO(MA(6)+295.412)+147.2*FNCO(-3*MA(5)+3*MA(6)+223.935)+102.2*FNCO(-3*MA(5)+4*MA(6)+206.398)+152.6*FNCO(-2*MA(6)+2*MA(7)+336.7217#)

2730 DL=DL*1E-07

2740 DL=2.3025851#*DL:DL=EXP(DL)

2750 RD=AX*(1-EC*EC)/(1+EC*FN CO(F)):RD=RD*DL

2760 RETURN

2770 ML=84.45799444#+219.8859142#*T+3.204833E-04*T*T

2780 PH=46.727325#+1.424296667#*T

2790 PN=130.6813583#+1.098935#*T

2800 EC=8.99704E-03

2810 IN=1.779241667#-9.5436111E-03*T

2820 MA(K)=ML-PH

2830 AX=30.10957#

2840 GOSUB2890

2850 LO=LO+.637509783#+2.3736583E-04*T1-2.9220914E-04*T1*T1+1.06593784E-05*T1^3-2.13113054E-07*T1^4+2.50537325E-09*T1^5-1.5416127E-11*T1^6+3.79030508E-14*T1^7

2860 BR=BR+-1.75265628E-03+1.05627768E-03*T1-1.82173042E-05*T1*T1+6.90918713E-08*T1^3

2870 RD=RD-.02300899#+3.32588412E-04*T1-3.68193196E-06*T1*T1-1.49019053E-07*T1^3+1.17704274E-09*T1^4

2880 RETURN

2890 MA=FNDR(MA(K)):ML=FNDR(ML):IN=FNDR(IN):PN=FNDR(PN)

2900 E=MA

2910 FORJ=1TO5

2920 E=MA+EC*SIN(E)

2930 NEXT

2940 TA=FNVA(EC)

2950 LE=FNMO((TA-MA+ML),(2*PI))

2960 OP=LE-PN:B5=ATN(TAN(OP)*COS(IN))

2970 IFB5<0THENB5=B5+PI

2980 IFSIN(OP)<0THENB5=B5+PI

2990 LO=FNMO((B5+PN),(2*PI))

3000 LO=FNRD(LO)

3010 BR=FNAS(SIN(OP)*SIN(IN))

3020 RD=AX-AX*EC*COS(E)

3030 RETURN

3040 XX=RD*FNCO(LO)*FNCO(BR)

3050 YY=RD*FNCO(BR)*FNSI(LO)

3060 ZZ=RD*FNSI(BR)

3070 RETURN

3080 GOSUB3300

3090 ML=279.6966778#+36000.76892#*T+3.025E-04*T2

3100 ML=FNMO(ML,360)

3110 MM=270.4341639#+13.176396527#*DA+(1.9E-06*T-1.133E-03)*T2

3120 MM=FNMO(MM,360)

3130 LN=FNMO(259.183275#-.0529539222#*DA+(2E-06*T+2.078E-03)*T2,360)

3140 IFLN<0THENLN=LN+360:GOTO3140

3150 LP=FNMO(334.329556#+.1114040803#*DA+(-1.2E-05*T+.010325)*T2,360)

3160 DEE=350.7374861#+445267.11417#+T-1.43611E-03*T2

3170 DEE=FNMO(DEE,360)

3180 LL=FNMO((296.1046083#+477198.8491083#*T+1.9166666E-04*T2),360)

3190 FF=FNMO((11.2508889#+483202.02515#*T-3.21111E-03*T2),360)

3200 RETURN

3210 IN=0:I=1

3220 EC=.016751-4.18E-05*T

3230 PN=0

3240 AX=1.00000023#

3250 GOSUB3080

3260 GOSUB2890

3270 LG(1)=LO

3280 LA(1)=0

3290 RETURN

3300 MA(1)=FNMO((358.4758444#+35999.04975#*T-1.5E-04*T2),360)

3310 RETURN

3320 MA(2)=FNMO((102.279381#+4.092334436#*36525!*T+5E-07*3.6525*3.6525*T2),360)

3330 RETURN

3340 MA(3)=FNMO((212.603219#+1.602130154#*36525!*T+9.64E-05*3.6525*3.6525*T2),360)

3350 RETURN

3360 MA(4)=FNMO((319.529425#+.524020766#*36525!*T+1.3555E-05*3.6525*3.6525*T2),360)

3370 RETURN

3380 ML=178.179078#+4.0923770233#*36525!*T+2.26E-05*3.6525*3.6525*T2

3390 GOSUB3320

3400 PN=47.1459444#+1.18520833333#*T+1.738889E-04*T2

3410 IN=7.002880556#+1.8608333E-03*T-1.83333E-05*T2

3420 EC=.20561421#+2.04E-05*T+3E-08*T2

3430 AXIS=.387099

3440 I=2:GOSUB2890

3450 RETURN

3460 ML=342.767053#+1.6021687036#*36525!*T+2.3212E-05*3.6525*3.6525*T2

3470 GOSUB3340

3480 PN=75.77964722#+.89985*T+4.1E-04*T2

3490 IN=3.39360556#+1.005833E-03*T-9.722E-07*T2

3500 EC=6.82069E-03-4.77E-05*T+9.1E-08*T2

3510 AXIS=.7233316#

3520 I=3:GOSUB2890

3530 RETURN

3540 ML=293.747628#+.5240711638#*T*36525!+2.3287E-05*3.6525*3.6525*T2

3550 GOSUB3360

3560 PN=48.78644167#+.770991666#*T-1.388889E-06*T2

3570 IN=1.85033333#-6.75E-04+1.261E-05*T2

3580 ECC=.0933129+9.2064E-05*T-7.7E-08*T2

3590 AXIS=1.5236915#

3600 I=4:GOSUB2890

3610 RETURN

3620 GOSUB3080

3630 PT(1)=FNSI(51.2+20.2*T)

3640 PT(2)=FNSI(193.44-132.87*T-9.1731E-03*T2)*14.27

3650 PT(3)=FNSI(LN)

3660 PT(4)=-15.58*FNSI(LN+275.05-2.3*T)

3670 MM=(.84*PT(1)+PT(2)+7.261*PT(3))/3600+MM

3680 L7=(2.94*PT(1)+PT(2)+9.337*PT(3))/3600+LL

3690 DD=(7.24*PT(1)+PT(2)+7.261*PT(3))/3600+DEE

3700 ELP=-6.4*PT(1)/3600+MA(1)

3710 FF=(.21*PT(1)+PT(2)-88.699*PT(3)+PT(4))/3600+FF

3720 LP=0:LP=LP+22639.55#*FNSI(L7)-4586.465#*FNSI(L7-2*DD)+2369.912#*FNSI(2*DD)

3730 LP=LP+769.016*FNSI(2*L7)-668.1469#*FNSI(ELP)

3740 LP=LP-411.608*FNSI(2*FF)-211.6562#*FNSI(2*L7-2*DD)-205.962*FNSI(L7+ELP-2*DD)

3750 LP=LP+191.953*FNSI(L7+2*DD)-165.145*FNSI(ELP-2*DD)

3760 LP=LP+147.687*FNSI(L7-ELP)-125.154*FNSI(DD)-109.673*FNSI(L7+ELP)

3770 LP=LP-55.173*FNSI(2*FF-2*DD)-45.099*FNSI(L7+2*FF)

3780 LP=LP+39.529*FNSI(L7-2*FF)-38.428*FNSI(L7-4*DD)+36.124*FNSI(3*L7)

3790 LP=LP-30.773*FNSI(2*L7-4*DD)+28.475*FNSI(L7-ELP-2*DD)

3800 LP=LP/3600

3810 LG(2)=MM+LP

3820 RETURN

3830 LG=FNMO(LG,360)

3840 DG=FNMO(LG,30):S=INT(LG/30)+1:SG$=SI$(S)

3850 GOSUB4390

3860 RETURN

3870 OB=23.45229444#-.0130125*T

3880 O1=FNCO(OB):O2=FNSI(OB)

3890 RETURN

3900 XG=XX(I)+XX(1):YG=YY(I)+YY(1):ZG=ZZ(I)+ZZ(1)

3910 XP(I)=XP(I)+XP(1):YP(I)=YP(I)+YP(1):ZP(I)=ZP(I)+ZP(1)

3920 LG=FNAR(YG/XG):IFLG<0THENLG=LG+180

3930 IFYG<0THENLG=LG+180

3940 LG(I+1)=LG

3950 RETURN

3960 LW=L1+M1/60:IFE$="o"ORE$="O"THENLW=360-LW

3970 LT=L2+LM/60:IFN$="s"ORN$="S"THENLT=360-LT

3980 GOSUB4040

3990 GOSUB4080

4000 GOSUB4110

4010 FORI=1TO3:HC(I+6)=FNMO((HC(I)+180),360):NEXT

4020 FORI=10TO12:HC(I-6)=FNMO((HC(I)+180),360):NEXT

4030 RETURN

4040 MS=18.64606555#+2400.051262#*T+(.0929/3600)*T2

4050 IFMS<0THENMS=MS+24:GOTO4050

4060 MS=FNMO(MS,24)

4070 RETURN

4080 UT=TZ+TI:AS=FNMO((UT+12),24)

4090 LC=LW/15:ST=FNMO((MS+AS+LC),24):RA=ST*15

4100 RETURN

4110 GOSUB4300

4120 HC(10)=LG

4130 OA=FNMO((90+RA),360)

4140 L9=LT:GOSUB4340:HC(1)=LG

4150 RR=-FNTA(LT)*FNTA(OB)

4160 T9=1/3:GOSUB4200:HC(11)=LG

4170 T9=2/3:GOSUB4200:HC(12)=LG

4180 T9=-2/3:GOSUB4200:HC(2)=FNMO((LG+180),360)

4190 T9=-1/3:GOSUB4200:HC(3)=FNMO((LG+180),360)

4200 X(0)=1E-09:X(1)=180.0001#

4210 Y(0)=RR*FNSI(RA+T9*X(0))-FNCO(X(0))

4220 Y(1)=RR*FNSI(RA+T9*X(1))-FNCO(X(1))

4230 I=2

4240 X(I)=X(I-1)-((X(I-1)-X(I-2))/(Y(I-1)-Y(I-2)))*Y(I-1)

4250 Y(I)=RR*FNSI(RA+T9*X(I))-FNCO(X(I))

4260 IFABS(X(I)-X(I-1))>1E-03THENI=I+1:GOTO4240

4270 HC=RA+X(I)*T9:IFHC<0THENHC=HC+360

4280 HC=FNMO(HC,360):RA=HC:GOSUB4300:RA=ST*15

4290 RETURN

4300 Y9=FNTA(RA):LG=FNAR(Y9/O1)

4310 IFLG<0THENLG=LG+180

4320 IFRA>180THENLG=LG+180

4330 RETURN

4340 OA=FNMO(OA,360):AA=FNAR(FNTA(L9)/FNCO(OA))

4350 AB=AA+OB:LG=FNAR(FNTA(OA)*FNCO(AA)/FNCO(AB))

4360 IFLG<0THENLG=LG+180

4370 IFFNSI(OA)<0THENLG=LG+180

4380 RETURN

4390 MI=(DG-INT(DG))*60

4400 SE=(MI-INT(MI))*60

4410 DG=DG\1:MI=MI\1:SE=SE\1:RETURN

4420 PRINT:PRINT" --- ENTRADA INV„LIDA ---":PRINT:RETURN

4430 ONKEYGOSUB5590,5700

4440 SCREEN2

4450 OPEN"grp:"AS#1

4460 PRESET(20,0):PRINT#1,"MAPA ASTRAL"

4470 PRESET(20,180):PRINT#1,NA$

4480 FORI=8TO351:READA$:VPOKE14336+I,VAL("&H"+A$):NEXT

4490 SPRITE$(44)=STRING$(2,192)+STRING$(6,0)

4500 COLOR11

4510 P0=180-HC(1):IFP0<0THENP0=360+P0

4520 P1=P0*PI/180:GOTO4600

4530 CIRCLE(160,95),40,11:CIRCLE (160,95),39,11:CIRCLE (160,95),80,11:CIRCLE(160,95),95,11:CIRCLE(160,95),94,11:AI=P1

4540 FORI=1TO12

4550 X1=160+COS(AI)*80:Y1=95-SIN(AI)*80:X2=160+COS(AI)*95:Y2=95-SIN(AI)*95:X3=157+COS(AI+PI/12)*87:Y3=92-SIN(AI+PI/12)*87

4560 AI=AI+PI/6

4570 LINE(X1,Y1)-(X2,Y2),11

4580 PSET(X3,Y3),1:SC%=I+22:GOSUB5800:PRINT#1,"\":GOSUB5840

4590 NEXT:GOTO4670

4600 FORI=1TO10

4610 R=70

4620 AI=P1+LG(I)*PI/180

4630 X(I)=156+COS(AI)*R:Y(I)=91-SIN(AI)*R

4640 GOSUB5530

4650 PSET(X(I),Y(I)),1:SC%=I+12:GOSUB5800:PRINT#1,"\":GOSUB5840

4660 NEXT:GOTO4530

4670 FORI=1TO12

4680 AI=P1+HC(I)*PI/180

4690 AF=P1+HC(I+1)*PI/180:IFAF<AITHENAF=AF+2*PI

4700 X=160+COS(AI)*40:Y=95-SIN(AI)*40

4710 XB=160+COS(AI)*80:YB=95-SIN(AI)*80

4720 X0(I)=159+COS((AI+AF)/2)*32:Y0(I)=93-SIN((AI+AF)/2)*32:IFI=10THENX0(I)=X0(I)-1

4730 PSET(X0(I),Y0(I)),1:SC%=I:GOSUB5800:PRINT#1,"\":GOSUB5840

4740 LINE(160,95)-(X,Y),11

4750 PUTSPRITEI+2,(XB,YB),7,44

4760 NEXT

4770 PSET(48,91),1:SC%=35:GOSUB5800:PRINT#1,"\";:SC%=36:GOSUB5800:PRINT#1,"\":GOSUB5840

4780 I=1:J=1:KEY(1)ON:KEY(2)ON:KEY(5)ON

4790 PA$=INKEY$

4800 IFPA$<>CHR$(13)THEN4790

4810 KEY(1)OFF:KEY(2)OFF

4820 SCREEN2

4830 COLOR15:PSET(54,5),1:PRINT#1,"ASPECTOS PLANET„RIOS"

4840 PSET(20,180),1:PRINT#1,NA$

4850 LINE(36,19)-(230,19),11

4860 COLOR7

4870 FORI=0TO11

4880 LINE(36+I*16,33+I*14)-(230,33+I*14),11

4890 PSET(40+I*16,22+I*14),1

4900 IFI<10THENSC%=13+IELSESC%=27+I

4910 GOSUB5800:PRINT#1,"\":GOSUB5840

4920 NEXT

4930 LINE(36,19)-(36,33),11

4940 LINE(230,19)-(230,187),11

4950 FORI=0TO10

4960 LINE(52+I*16,19)-(52+I*16,47+I*14),11

4970 NEXT

4980 COLOR3:PSET(20,110),1:SC%=43:GOSUB5800:PRINT#1,"\";:GOSUB5840:PRINT#1," = Sˆxtil"

4990 PSET(20,120),1:SC%=42:GOSUB5800:PRINT#1,"\";:GOSUB5840:PRINT#1," = Tr¡gono"

5000 PSET(20,130),1:SC%=40:GOSUB5800:PRINT#1,"\";:GOSUB5840:PRINT#1," = Oposi‡±o"

5010 PSET(20,140),1:SC%=39:GOSUB5800:PRINT#1,"\";:GOSUB5840:PRINT#1," = Conjun‡±o"

5020 PSET(20,150),1:SC%=41:GOSUB5800:PRINT#1,"\";:GOSUB5840:PRINT#1," = Quadratura"

5030 COLOR9

5040 FORI=1TO11

5050 FORJ=I+1TO12

5060 PSET(24+J*16,8+I*14),1

5070 IFAS$(I,J)=""THEN5130

5080 IFAS$(I,J)="Conjun‡±o"THENSC%=39:GOSUB5800:PRINT#1,"\":GOSUB5840

5090 IFAS$(I,J)="Oposi‡±o"THENSC%=40:GOSUB5800:PRINT#1,"\":GOSUB5840

5100 IFAS$(I,J)="Quadratura"THENSC%=41:GOSUB5800:PRINT#1,"\":GOSUB5840

5110 IFAS$(I,J)="Tr¡gono"THENSC%=42:GOSUB5800:PRINT#1,"\":GOSUB5840

5120 IFAS$(I,J)="Sˆxtil"THENSC%=43:GOSUB5800:PRINT#1,"\":GOSUB5840

5130 NEXT:NEXT

5140 PA$=INKEY$

5150 IFPA$<>CHR$(13)THEN5140

5160 POKE &HE07E,10

5170 COLOR15,1:SCREEN0:LOCATE10:PRINT"*** MAPA ASTRAL ***":PRINT

5180 GOSUB5870

5190 PRINT:PRINTUSING"###";S(1);

5200 PRINT"- Signo Solar: ";SI$(S(1))

5210 PRINT:C%=INT(HC(1)/30)+1:PRINT:PRINTUSING"###";12+C%;:PRINT"- Ascendente em ";SI$(C%)

5215 PRINT:PRINT:PRINT" Combina‡±o:";S(1);"-";12+C%:IF C%=12 THEN C%=0

5220 D%=INT(HC(2)/30)+1:IF(D%>C%+1)OR (D%=1AND C%=1)THENPRINT:PRINT:PRINTUSING"###";13+C%;:PRINT"- Asc.interceptado em ";SI$(C%+1):PRINT:PRINT:PRINT" Combina‡±o:";S(1);"-";13+C%

5230 GOSUB 5850

5240 PRINT"SIGNO DE CADA PLANETA:"

5250 PRINT

5260 FORI=2TO10

5270 C%=I*12+S(I):PRINTUSING"###";C%;

5280 PRINT"- ";PL$(I);" em ";SI$(S(I))

5290 NEXTI:PA$=""

5300 GOSUB5850

5310 PRINT"CASA DE CADA PLANETA:"

5320 PRINT:FORI=1TO10

5330 PRINTUSING"###";120+I*12+HP(I);

5340 PRINT"- ";PL$(I);" na casa ";HO$(HP(I))

5350 NEXT:PA$=""

5360 GOSUB5850

5370 PRINT"ASPECTOS PLANET„RIOS:"

5380 PRINT

5390 K1%=0:K2%=0:FORI=1TO11

5400 FORJ=I+1TO12

5410 IFAS$(I,J)=""THEN5500

5420 IFAS$(I,J)="Conjun‡±o"THENA%=1

5430 IFAS$(I,J)="Tr¡gono"ORAS$(I,J)="Sˆxtil"THENA%=2

5440 IFAS$(I,J)="Quadratura"ORAS$(I,J)="Oposi‡±o"THENA%=3

5450 K%=(K1%+J-I-1)*3+A%

5460 IF CSRLIN<22 THEN5480

5470 GOSUB5850

5480 PRINTUSING"###";K%+252;:PRINT"- ";

5490 PRINTPL$(I);"/";PL$(J);": ";AS$(I,J)

5500 K2%=K2%+1:NEXTJ:K1%=K1%+12-I:NEXTI

5510 GOSUB5850:CLEAR200,&HE000:POKE&HE07E,8:GOTO1030

5520 LG=FNMO(LG,360):DG=FNMO(LG,30):S=INT(LG/30)+1:SG$=SI$(S):GOSUB4390:RETURN

5530 FORZ=1TO8

5540 FORK=1TO8

5550 IFPOINT(X(I)+K,Y(I)+Z)=11ORPOINT(X(I)-K,Y(I)-2)=11THEN5580

5560 NEXT:NEXT

5570 RETURN

5580 R=R-8:RETURN4630

5590 KEY(2)OFF:COLOR9:IFI>10THENI=1

5600 PUTSPRITE 0,(X(I),Y(I)-1),9,I+12

5610 LINE(10,30)-(80,40),1,BF

5620 PSET(10,30),1:PRINT#1,PL$(I)

5630 DG=FNMO(LG(I),30)

5640 DG=INT(DG+.5)

5650 LINE(10,40)-(60,50),1,BF

5660 PSET(10,40),1:PRINT#1,DG;:SC%=S(I)+22:GOSUB5800:PRINT#1,"\":GOSUB5840

5670 LINE(10,50)-(60,70),1,BF

5680 PSET(18,50),1:PRINT#1,"CASA":PSET(18,60),1:PRINT #1,HO$(HP(I))

5690 I=I+1:COLOR15:KEY(2)ON:RETURN

5700 KEY(1)OFF:COLOR3:IFJ>12THENJ=1

5710 PUTSPRITE1,(X0(J),Y0(J)-1),3,J

5720 LINE(10,150)-(80,160),1,BF

5730 PSET(10,150),1:PRINT#1,"CASA ";HO$(J)

5740 DG=FNMO(HC(J),30)

5750 DG=INT(DG+.5)

5760 S=INT(HC(J)/30)+1

5770 LINE(10,160)-(70,170),1,BF

5780 PSET(10,160),1:PRINT#1,DG;:SC%=S+22:GOSUB5800:PRINT#1,"\":GOSUB5840

5790 J=J+1:COLOR15:KEY(1)ON:RETURN

5800 FORL%=0TO7

5810 POKE&HE2E0+L%,VPEEK(14336+L%+8*SC%)

5820 NEXT

5830 POKE&HF91F,SL%:POKE&HF920,0:POKE&HF921,&HE0:RETURN

5840 POKE&HF91F,0:POKE&HF920,&HBF:POKE&HF921,&H1B:RETURN

5850 PA$=INKEY$:IFPA$<>CHR$(13)THEN5850

5860 CLS:LOCATE10:PRINT"*** MAPA ASTRAL ***":PRINT:RETURN

5870 PRINT"POSI€´ES DOS PLANETAS":PRINT

5880 PRINT"PLANETAS";TAB(11);"LONGITUDE";TAB(22);"SIGNO";TAB(34);"CASA":PRINT

5890 FORI=1TO10:LG=LG(I):GOSUB5520

5900 SG$=SI$(S(I)):HO$=HO$(HP(I))

5910 PRINTPL$(I);TAB(10);USING"###";DG;:PRINT":";USING"##";MI;:PRINT":";USING"##";SE;:PRINTTAB(22);SG$;TAB(34);HO$

5920 NEXT:PRINT

5930 GOSUB5850:PRINT"POSI€´ES DAS CASAS":PRINT

5940 PRINT"CASA C‹SPIDE LONGITUDE SIGNO":PRINT

5950 FORI=1TO12:PRINTHO$(I);TAB(5);LB$(I);TAB(16);:LG=HC(I):GOSUB5520

5960 PRINTUSING"###";DG;:PRINT ":";USING"##";MI;:PRINT":";USING"##";SE;:PRINTTAB(27);SG$

5970 NEXT:PRINT:GOSUB5850:RETURN

Compartilhe:

julho 2017
D	S	T	Q	Q	S	S
				ago »
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31