Mapa Astral
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
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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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 |