@M@ -------------------- ASTR 1 /VZ 8504V@ 92@ * VARIABILI * .@ A = ANG. ATTRAZIONE PIANETA AP = ANG. DIREZ. CORPO ERR.A CO = CODICE COLORE DI ZONA DI(9) = DIMENSIONI PIANETIkA EC(9) = ECCENTRICITA' ORBITE G = GIORNI DI INTERVALLOA IX = FATTORE DI INGRANDIM.TO MA(9) = MASSE PIANETIA MC = MASSA CORPO ERRANTE%B N = NUMERO POSIZIONE ATT.LE NP = NUMERO MAX POSIZ.MEMOR.tB( P = NUMERO ORDINALE PIANETA PR(9) = PERIODI ROTAZ. PIANETIB) P$(9) = NOMI PIANETI PR(9) = PERIODI ROTAZ. PIANETIC2 R(9) = ANG.PREC.POSIZ.PIANETA R$ = RISPOSTA GENER.SU INPUTcC7 RG(9) = RAGGI MAX ORBITE PIAN. RP(9) = RAGGI MIN. ORBITE PIAN.C< SA(9) = NUM. SATELLITI PIANETI SC = FATTORE DI SCALACF T(9,100,2) = POSIZIONI PIANETI " > 1:X 2:Y8DG" > NUMERO POSIZIONE (N) > NUMERO PIANETA_DK V = VELOCITA' CORPO ERRANTEDP X = TABULAZ. ORIZZ. HR XC = TAB. ORIZZ. CORPO ERR.DQ XV = VECCHIE COORD. CORPO ER&EU Y = TABULAZ. VERTIC, HR YC = TAB. VERT. CORPO ERR.TENEV YV = VECCHIE COORD. CORPO ERE\ 1,"G 0: COL 0,1: COL 1,2: ? CHR$(142)"(13): 300E ------------- ORBITE SIST.SOLARE .F MERCURIO,57.9,88,7,0.206,4892, .053,,VENERE,108.2,224.7,3.4EF 0.007,12112,0.815,0,TERRA,149.6 ,365.26,0,0.017,12756,1,1F MARTE,227.9,687,1.9,.093,6787, .108,2,GIOVE,778,4331.98,1.3F .048,142800,317.9,15,SATURNO, 1427,10760.55,2.5,.056,120000,95.22G 15,URANO,2870,30685.49,0.8,.047 ,51800,14.6,5,NETTUNO,4496gG 60194.84,1.8,0.009,49500,17.2, 2,PLUTONE,5946,90474.90,17.2,0.25G 3000,0.0017,1,COMETA DI HALLEY, 2685,27772.85,162.1,0.9673,,, :G, ------------------CARIC. VETTORI .G. 0,1: 4,1: 1,29H1 1,1: ,160,100,30,,,,, 120: I0 2: 160,100wH2 30;I120: 160,100: : ,14,16,"SVS SOFTWARE"H3 T(9,100,2)H6 P0 9: P$(P),RG(P),PR(P) ,IN(P),EC(P),DI(P),MA(P),SA(P): :I8 ----------- CALC. SEMIASSI MIN. .8I: P0 9: RP(P)(RG(P)2(EC( P)RG(P))2): BI@ 0,1nI ------------ MASTER VISUALIZZAZ. .I 1,2: 5: 1,750,3I 0,1: 4,1: 0,4,5: ,5,3,(14)"RG. 1"J ,5,4,"": ,15,10,""RJ ,5,12,"1 - ISUALIZZA ORBITE": ,5,13,"2 - IMENSIONI PIANETI"J ,5,14,"3 - OVIMENTI ORBITALI": ,5,15,"4 - ATI DEI PIANETI"J ,5,16,"5 - ALCOLO ORBITA DI UN CORPO": ,5,18,"6 - INE"K ,5,22,"UN  1 - OFTWARE ESET": ,5,23,"TOP"AK R$: R$"1" R$"6" 500qK (R$) 1000,1500,3000,2000, 3000,9000wK:K ----------------- ORBITE .K 0,1: 1,2,4: 4,7,3L "": 2);"Šɠɠ̠": RL ,9,22,"( F2 = ATI TANDARD)" : ,0,6,""oL 2,"30"(13)"1"(13)L: "NCLINAZIONE ECLITTICA"; IE: IE90 IE0 1020L ,9,22," ": ,0,8,""M: "ATTORE DI INGRANDIMENTO";IX: IX0 IX1M:HM -------------- VISUALIZZAZIONE .\M 1,1: 2,(0)M 1,8,5: ,310,8 270,8: 40;90IE: 270,8M  ,270,8,30,,90,90IE1: IE0 1035: ,299,9N  ,28,1,"INCL.": ,28,2, (IE): ,34,24,"X"(IX)bNSC(RG(8)RP(8))320IX: ,0,24 ,"SCALA= 1 :"(SC1000000)" KM."N8 --------------- VISUAL. ORBITE .N9 ,160,101 160,100: 1,2 : 0,60: ,18,2,"SOLE" O: I1 600: : 0,160,99 0,60: 0,18,2," "CO= P0 9: 1,8,5: ,0, 0,P$(P)" ": 1,2O?RY(((RG(P)RP(P))2)2((RG(P) RP(P))2)2)SCIE90: RY100 1100OB ,160,100,(RG(P)RP(P))2SC, RY,,,IN(P)(90IE)90: 1,8,5PL: ,0,0,"*SISTEMA SOLARE*", 1: (142): R$: 400JP ------------ DIMENSIONI PIANETI .]P 0,1: 4,7,3P 1,1: ,9,0,"DIMENSIONI DEI PIANETI"PSCDI(5)150: ,0,24,"SCALA= 1 : " (SC)" KM.": X0P P1 9: 1,P1,5: XX30 : ,31,22,P$(P)" "MAIUSC. .RP$"": K1 (P$(P)): P0$ (P$(P),K,1): P$P$((P0$ )32)S P0$(65) P0$(90) (P$,K,1)P0$BS: 39(P$(P)));""; P$uS: 2);"AGGIO MAGG. ORBITA (M):",RG(P): SK(((RP(P)),2,6))S 2);"AGGIO MIN. ORBITA (M):",K: S 2);"ERIODO DI RIVOLUZ. (GG):",PR(P): T  2);"NCLINAZ. DELL'ORBITA (GR):",IN(P): FT 2);"CCENTRIC. DELL'ORBITA:",EC(P): vT  2);"IAMETRO EQUATORIALE (M):",DI(P): T* 2);"ASSA (ERRA=1):",, MA(P): T/ 2);"UMERO SATELLITI:",, SA(P) U4 R$: R$"F" P10: I1 4: : I,P U> (27)"N": 400LU ------------ MOVIMENTI ORBITALI .hU 0,1: 1,2,4: 4,7,3U "": 1);"Šɠɠ̠"U 2,"90"(13)"3"(13) "20"(13)"15"(13)V ,9,23,"( 2 = ATI STANDARD)" : ,0,4,""NV "NCLINAZIONE ECLITTICA";IE: IE90 IE0 3020V ,9,23," " : ,0,6,""V "ATTORE DI INGRANDIMENTO";IX : IX0 IX1V : "IORNI DI INTERVALLO";G : G1 3027: @W "UMERO POSIZIONI DA VISUALIZZARE";NP: NP2 NP100 3028 :lW ------------- MASCHERA VIDEO .W 4,1: ,12,22, "CALCOLO POSZON": 2,(0)W 1,8,5: ,155,8 135,8X IE0 3036: ,135 ,8,15,,90,90IE: X2015((0) 135)MX Y2015((1)8): ,135,8 X135,Y8: ,149,9X ,28,1,"NCL.": ,28,2, (IE): ,34,24,"X"(IX)X SCRG(8)160IX: ,0,24,"SCALA= 1 :"(SC)" MKM."X ,0,1,"NTERVALLO": ,0,2, (G)" GORN"Y R$"5" 4000: 3KY ------------- CALCOLO POSIZIONI .dY P0 9: R(P)0: Y ,80,101 80,100: 1,2: 2 0,60: ,18,2,"SOLE"Y I1 600: : 0,80,99 0,60: ,18,2," "Y 1,2: 2,2,1: 3,8,53Z N1 NP: P1 9: R(P)R (P)G365PR(P)bZ R(P)359 R(P)R(P)359: 3085Z RY(((RG(P)RP(P))2)2((RG(P) RP(P))2)2)SC2IE90Z RY100 3090: T(P,N,1) 80: T(P,N,2)0: 31053[ 2,80,100,(RG(P)RP(P))2SC, RY,359R(P)1,359R(P),IN(P)(90IE )90s[ T(P,N,1)(0): T(P,N,2)(1): N1 T(P,N,2)0 3105[ 2,T(P,N1,1),T(P,N1,2) T(P,N,1),T(P,N,2)[! P[& ,30,22,(NP1N)" ": R$ "5" 4100(\+ N: 4: 1,750,5: 1,650,5: R$"5" R$: 400T\/ ----------- ANIMAZIONE ORBITE .\0 ,12,22," " : N1 NP: CO1 2\: P0 9: CO,T(P,N,1),T(P, N,2): P,CO,N]D ,14,22,"RIPETIZIONE ?": R$: R$"S" 3120: 400>] ------------ DATI CORPO ERRANTE .n] 4: " ɠ ": ] "OORDINATE (X,Y):";XC,YC: XC159 XC0 YC159 YC0 4010^ XC155 4015: : "K ? (Β=O ETURN=I')": I^ ,XC4,YC8," ": ,XC4,YC 81," ": A$: A$(13) 4015^ A$"N" 4010: I1 200: : ,XC4,YC8,"",1: ,XC41,YC8,""^ ,XC4,YC81,"߸": I1 200: : 4012^XVXC: YVYC _ "ASSA (ERRA=1): ";MC: MC 0 4020Z_ "ELOCITA' (M/S): ";F: V 0 4030: FF360024GSC 106_ "NGOLO DI DIREZIONE: ";A: A0 A359 4040_ 3: _ ----------- CALCOLI X SCELTA 5 .` P0 9: T(P,N,1)0 T(P, N,2)0 41507`FPMCMA(P)((T(P,N,1)XC)2(T(P,N ,2)YC)2)c` T(P,N,1)XC T(P,N,2)YC 4122`AP(((T(P,N,1)XC)(T(P,N,2) YC)))180` T(P,N,1)XC T(P,N,2)YC AP180AP: 4130 a T(P,N,1)XC T(P,N,2)YC AP180AP: T(P,N,1)XC T(P,N,2)YC AP360AP]a" FSC;A: FPSC;AP: F (((0)XC)2((1)YC)2)a,A((((0)XC)((1)YC)))180: XC(0) YC(1) A180A: 4150a1 (0)XC YC(1) A 180A: 4150b3 (0)XC (1)YC A 360ADb6 P: ,XV,YV FSC;A: XV (0): YV(1): XCXV: YCYV: Jb'#:vb(# -------------------------- END .b2# (142): 0: :