10 '=== TRAJETOGRAFIA DE SATELITES  ===
20 '===        AMSAT  W3IWI         ===
30 '===           (1980)            ===
40 '
50 '=== ADAPTADO POR  F1CDC (1985)  ===
60 '
70 '===  ADAPTADO PARA IBM-PC COM   ===
80 '===    ROTINAS GRAFICAS POR     ===
90 '===    FD1NCB/PY4ZBZ (1988)     ===
100 '
110 '*   LINHAS 140 A 180: DADOS DA   *
120 '* ESTACAO A SEREM INICIALISADOS  *
130 '
140 L9=-19.786 '(Gr) LATITUDE (NORTE=+)
150 W9=+44.237 '(Gr) LONGITUDE(OESTE=+)
160 H9=780     '(m)  ALTITUDE
170 E8=-91     '(Gr) ELEVACAO MINIMA
180 C$="PY4ZBZ"'     PREFIXO
190 '
200 '**    ATUALISAR KEPLERIANOS!    **
210 '**    A PARTIR DA LINHA 2400    **
220 '
230 CLS:KEY OFF:WIDTH 40:DEFDBL J
240 DIM C(3,2),B$(7),A(12)
250 DEF FNACS(X)=-ATN(X/SQR(-X*X+1))+P1/2
260 P1=4*ATN(1):P2=2*P1:P0=P1/180
270 C=299792.5#:R0=6378.16:F=1/298.25
280 G0=75369793000000#:G1=1.0027379093#
290 GOTO 2260
300 I$="******":L=0
310 K6=9.000001E+09:K8=9.000001E+09:K9=9.000001E+09
320 R4=0:R6=0:R8=0:N0=0:P=0:N3=0:E7=0
330 G3=0:D3=0:H3=0:M3=0:B9=2
340 GOSUB 1720
344 '
345 'calc.coord.geocentr.observador
346 '
350 L8=L9*P0:S9=SIN(L8):C9=COS(L8)
360 S8=-SIN(W9*P0):C8=COS(W9*P0)
370 R9=R0*(1-F/2+F*COS(2*L8)/2)+H9/1000
380 L8=ATN((1-F)^2*S9/C9):X9=R9*C9*C8:Y9=R9*C9*S8:Z9=R9*S9
390 INPUT"GRAFICO OU TABELA (G ou T) ";A$
400 IF A$="G" OR A$="g" THEN GR=1 ELSE GR=0
405 IF GR=0 THEN INPUT"IMPRESSORA S/N  ";A$
406 IF A$="S" OR A$="s" THEN LL=1 :WIDTH LPRINT 132 ELSE LL=0
407 IF LL THEN INPUT "elevacao minima";E8
410 PRINT: PRINT"SATELITES PROGRAMADOS:":PRINT
420 PRINT"   OSCAR 10:   0"
430 PRINT"   RS 10/11:   1"
440 PRINT"   OSCAR 13:  13"
450 PRINT"   RS7     :   7"
460 PRINT"   UO9     :   9"
470 PRINT"   UO11    :  11"
480 PRINT"   FO12    :  12"
490 PRINT"   XYZ     :   X"
500 PRINT
510 PRINT
520 PRINT:INPUT"NUMERO DO SATELITE";I$
530 IF I$="0"THEN 2400
540 IF I$="1"THEN 2530
550 IF I$="13"THEN 2660
560 IF I$="7"THEN 2790
570 IF I$="9"THEN 2920
580 IF I$="11"THEN 3050
590 IF I$="12"THEN 3180
600 IF I$="X"THEN 3310
610 PRINT"==SAT. NAO PROGRAMADO":GOTO 520
620 G3=D3+(H3+(M3+S3/60)/60)/24
630 GOSUB 2000
640 J7=J8:T0=J2
650 PRINT"INICIO DO CALCULO:"
660 INPUT"          DIA";D3
670 INPUT"          MES";N3
680 INPUT"          ANO";Y3
690 INPUT"     HORA(TU)";H3
700 INPUT"       MINUTO";M3
710 S3=0:GOSUB 2000
720 K4=J8:K5=J2:T=0:GOSUB 2210
730 PRINT:PRINT"DURACAO DE CALCULO:"
740 INPUT"         HORA";H1
750 INPUT"       MINUTO";M1
760 T1=H1/24+M1/1440
770 PRINT:PRINT"PASSO DE CALCULO:"
780 INPUT"       MINUTO";M2
790 T9=M2/1440:Y4=Y3-1
794 '
795 'calc.tempo sideral de GREENWICH G2
796 '
800 T2=INT(Y4/400)-INT(Y4/100)+INT(365.25*Y4)
810 T2=(T2-693595.5#)/36525!
820 R2=6.6460656#+2400.051262#*T2+2.581E-05*T2*T2
830 G2=R2/24-Y4+1899
840 IF N0<>0 THEN A0=(G0/N0^2)^(1/3)
850 IF N0=0 THEN N0=SQR(G0/A0^3)
860 Q0=M0/360+K0
870 E2=1-E0*E0:E1=SQR(E2)
880 S1=SIN(I0*P0):C1=COS(I0*P0)
890 J8=J7:J2=T0
900 GOSUB 2090
910 CLS
920 PRINT"REFERENCIAS ORBITAIS  ";I$
930 PRINT
940 PRINT"REFERENCIA : ";:PRINT USING"##/##/####";D3;N3;Y3;:PRINT" as ";:PRINT USING"##:##:##";H3;M3;S3
950 PRINT:PRINT TAB(13);"(";G3;")":PRINT:PRINT
960 J8=K4:J2=K5
970 GOSUB 2090
980 PRINT"   CALCULO : ";:PRINT USING"##/##/####";D3;N3;Y3;:PRINT" as ";:PRINT USING"##:##:##";H3;M3;S3
990 PRINT:PRINT
1000 PRINT"PARAMETROS   REFERENCIA  CALCULO"
1010 PRINT
1020 GOSUB 1780
1030 GOSUB 1900
1040 M!=(M/P0):N8!=N8:W!=W:O!=O:A8!=A8:A0!=A0:M0!=M0:N0!=N0:W0!=W0:O0!=O0
1050 PRINT"ORBITA #";TAB(12);K0;TAB(24);K
1060 PRINT"ANOM. MED.";TAB(12);M0!;TAB(24);M!
1070 PRINT"INCLINACAO";TAB(12);I0
1080 PRINT"EXENTRIC.";TAB(12);E0
1090 PRINT"MOV. MED.";TAB(12);N0!TAB(24);N8!
1100 PRINT"DESVIO";TAB(12);Q3
1110 PRINT"ARG.PERIGEO";TAB(12);W0!;TAB(24);W!
1120 PRINT"A.R.N.A";TAB(12);O0!;TAB(24);O!
1130 PRINT"1/2 EIXO M";TAB(12);A0!;TAB(24);A8!
1140 PRINT:PRINT:INPUT"continue";D$:GOTO 4050
1150 IF GR=0 THEN 1170
1160 CLS:GOSUB 3390
1164 '
1165 '=*=*=    loop de calculo    =*=*=
1166 '
1170 FOR T=0 TO T1 STEP T9
1180 J8=INT(T+.00001):J2=T-J8
1190 GOSUB 2160
1200 S3=0:T=J8+H3/24+M3/1440
1210 GOSUB 2210
1220 GOSUB 1900
1230 IF K=K6 THEN 1250
1240 GOSUB 1780
1250 E=M+E0*SIN(M)+SIN(2*M)/2*E0*E0
1260 S4=SIN(E):C4=COS(E):R3=1-E0*C4:M5=E-E0*S4-M
1270 IF ABS(M5)<.000001 THEN 1290
1280 E=E-M5/R3:GOTO 1260
1290 X0=A8*(C4-E0):Y0=A8*E1*S4:R=A8*R3
1300 X1=X0*C(1,1)+Y0*C(1,2)
1310 Y1=X0*C(2,1)+Y0*C(2,2)
1320 Z1=X0*C(3,1)+Y0*C(3,2)
1330 G7=(G3+U8)*G1+G2
1340 G7=(G7-INT(G7))*P2
1350 S7=-SIN(G7):C7=COS(G7)
1360 X=(X1*C7)-(Y1*S7)
1370 Y=(X1*S7)+(Y1*C7)
1380 Z=Z1:X5=X-X9:Y5=Y-Y9:Z5=Z-Z9
1390 R5=SQR(X5*X5+Y5*Y5+Z5*Z5)
1400 Z8=(X5*C8*C9)+(Y5*S8*C9)+(Z5*S9)
1410 X8=-(X5*C8*S9)-(Y5*S8*S9)+(Z5+C9)
1420 Y8=(Y5*C8)-(X5*S8)
1430 S5=Z8/R5:C5=SQR(1-S5*S5):E9=ATN(S5/C5)/P0
1440 B7=X:B8=Y
1450 GOSUB 1930
1460 W5=360-Q7/P0
1470 B7=X8:B8=Y8
1480 GOSUB 1930
1490 A9=Q7/P0:B5=Z/R
1500 L5=B5/(SQR(1-B5*B5)):L5=ATN(L5)/P0
1510 IF GR=1 THEN GOTO 3810'loop grafico
1515 IF LL THEN 4520
1520 IF E9<E8 THEN 1670 ELSE GOSUB 2090
1530 IF K7<>K8 THEN 1560
1540 IF K<>K9 THEN 1580
1550 GOTO 1650
1560 K8=K7
1570 GOSUB 1710
1580 K9=K
1590 GOSUB 2310
1600 PRINT
1610 PRINT"-- ";B$(W);" ";D3;"/";N3;"/";Y3;"-- ORBITA";K;"--"
1620 PRINT
1630 PRINT"U.T.C   AZ   EL  LAT  LONG   MA   DIST."
1640 PRINT
1650 PRINT USING"##:##";H3;M3;:PRINT TAB(8) USING"###";A9;:PRINT TAB(13) USING"###";E9;
1660 PRINT TAB(18) USING"###";L5;:PRINT TAB(22) USING"####";W5;:PRINT TAB(29) USING"###";M9;:PRINT TAB(35) USING"#####";R5
1670 NEXT T
1674 '
1675 '=*=*= fim do loop de calculo =*=*=
1676 '
1680 IF GR=1 THEN 3930 ELSE INPUT"RETURN PARA CONTINUAR";D$
1690 GOTO 300
1700 '
1710 PRINT
1720 PRINT:PRINT
1730 PRINT C$;TAB(22);"SATELITE:";I$
1740 PRINT
1750 PRINT"   ELEVACAO MINIMA :";E8;" GRAUS"
1760 PRINT
1770 RETURN
1774 '
1775 's.r. calculo matriz rotacao coord.
1776 '
1780 K6=K:N8=N0+Q3*U8:A8=(G0/(N8*N8))^(1/3)
1790 K2=9.95*((R0/A8)^3.5)/(E2*E2)
1800 O=O0-U8*K2*C1:S0=SIN(O*P0):C0=COS(O*P0)
1810 W=W0+U8*K2*(5*C1*C1-1)/2
1820 S2=SIN(W*P0):C2=COS(W*P0)
1830 C(1,1)=(C2*C0)-(S2*S0*C1)
1840 C(1,2)=-(S2*C0)-(C2*S0*C1)
1850 C(2,1)=(C2*S0)+(S2*C0*C1)
1860 C(2,2)=-(S2*S0)+(C2*C0*C1)
1870 C(3,1)=S2*S1
1880 C(3,2)=C2*S1
1890 RETURN
1894 '
1895 's.r. calc. anomalia media
1896 '
1900 Q=Q0+N8*U8:K=INT(Q)
1910 M9=INT((Q-K)*256):M=(Q-K)*P2
1920 RETURN
1924 '
1925 's.r. arcotangente generalizada
1926 '
1930 IF B7=0 GOTO 1970
1940 Q7=ATN(B8/B7)
1950 IF B7<0 THEN Q7=Q7+P1*SGN(B8)
1960 GOTO 1980
1970 Q7=SGN(B8)*P1/2
1980 IF Q7<0 THEN Q7=P2+Q7
1990 RETURN
1994 '
1995 's.r. calculo dia juliano
1996 '
2000 J2=D3-INT(D3)+(3600*H3+60*M3+S3)/86400!
2010 IF N3=0 THEN N3=1
2020 IF N3<3 THEN Y3=Y3-1
2030 IF N3<3 THEN N3=N3+12
2040 IF Y3<100 THEN Y3=1900+Y3
2050 J8=INT(Y3/100)
2060 J8=INT(J8/4)-J8+INT(365.25*Y3)+INT(30.6001*(N3+1))+INT(D3)
2070 J8=J8+1720997#
2080 RETURN
2084 '
2085 's.r. calc. inverso juliano
2086 '
2090 J3=INT((J8-1867216.25#)/36524.25#)
2100 J3=J8+J3-INT(J3/4)+1525
2110 J6=INT(365.25*INT((J3-122.1)/365.25))
2120 N3=INT((J3-J6)/30.6001)-1
2130 D3=INT(J3-J6-INT(30.6001*(N3+1)))
2140 IF N3>12.5 THEN N3=N3-12
2150 Y3=INT((J8-1720982#-INT(30.6001*(N3+1))-D3)/365.25+.1)
2160 S3=86400!*J2+.0001
2170 H3=INT(S3/3600+.0001)
2180 M3=INT((S3-3600*H3)/60+.001)
2190 S3=INT((S3-3600*H3-60*M3)+.5)
2200 RETURN
2204 '
2205 's.r. dos tempos de calculo
2206 '
2210 U8=1+T+K5-T0:U6=U8-INT(U8)
2220 U7=K4-J7+INT(U8)-1:U8=U7+U6
2230 J2=INT(T0+U6):K7=J2+U7+J7
2240 J2=T0+U6-J2:J8=K7
2250 RETURN
2254 '
2255 's.r. calculo dia da semana
2256 '
2260 DATA "SAB","DOM","SEG","TER","QUA","QUI","SEX"
2270 FOR W=1 TO 7:READ B$(W):NEXT
2280 DATA 1,4,4,0,2,5,0,3,6,1,4,6
2290 FOR N3=1 TO 12:READ A(N3):NEXT
2300 GOTO 300
2310 Y7=Y3 MOD 100
2320 W=INT(1.25*Y7)+D3+A(N3)
2330 W=1+INT(7*(W/7-INT(W/7)+.001))
2340 IF ((Y3 MOD 4)<.1)*(N3<3) GOTO 2360 ELSE 2380
2360 W=W-1:IF W=0 THEN W=7:>"W'=";W
2380 RETURN
2385 '
2390 '***  TABELA DE KEPLERIANOS  ***
2395 '
2400 '=======kepler  OSCAR 10=======
2410 I$="OSCAR 10"   'NOME DO SAT.
2420 Y3=1988         'ANO
2430 D3=186.85060622#'DIA FRACIONARIO
2440 I0=27.2942      'INCLINACAO
2450 O0=315.8593#    'A.R.N.A
2460 E0=.6028477#    'EXENTRICIDADE
2470 W0=317.7381#    'ARG. PERIGEU
2480 M0=8.9705      'ANOM. MEDIA
2490 N0=2.05879071#  'MOVIM. MEDIO
2500 Q3=-6.9E-07     'DERIVA
2510 K0=3906         '# ORBITA REF.
2520 GOTO 620
2530 '=======KEPLER  RS10/11========
2540 I$="RS10/11"
2550 Y3=1988
2560 D3=228.81598114# '15/8/88
2570 I0=82.925#
2580 O0=103.7243#
2590 E0=.0011691
2600 W0=172.3041#
2610 M0=187.8269#
2620 N0=13.7190113#
2630 Q3=1.16E-06
2640 K0=5752
2650 GOTO 620
2660 '=======KEPLER  OSCAR 13 ======
2670 I$=" OSCAR 13"
2680 Y3=1988
2690 D3=193.9
2700 I0=57.654
2710 O0=247.538#
2720 E0=.6538919#
2730 W0=187.221#
2740 M0=357.217#
2750 N0=2.0969796#
2760 Q3=0
2770 K0=57
2780 GOTO 620
2790 '=======KEPLER   RS7   ========
2800 I$=" RS7"
2810 Y3=1987
2820 D3=323.07152427#
2830 I0=82.9657
2840 O0=175.7709#
2850 E0=.0022941
2860 W0=330.6234#
2870 M0=29.3533#
2880 N0=12.0870322#
2890 Q3=1.2E-07
2900 K0=26127
2910 GOTO 620
2920 '=======KEPLER   UO9   ========
2930 I$=" UO9"
2940 Y3=1988
2950 D3=115.55230171#
2960 I0=97.6185
2970 O0=146.8773#
2980 E0=.0003261
2990 W0=154.4439#
3000 M0=205.7064#
3010 N0=15.32488895#
3020 Q3=1.0208E-04
3030 K0=36452!
3040 GOTO 620
3050 '=======KEPLER   UO11  ========
3060 I$="UO11"
3070 Y3=1988
3080 D3=104.24874652#
3090 I0=98.0577
3100 O0=168.5776#
3110 E0=.0012038
3120 W0=232.622#
3130 M0=127.387#
3140 N0=14.62274074#
3150 Q3=4.78E-06
3160 K0=21969
3170 GOTO 620
3180 '=======KEPLER   UO12  ========
3190 I$="UO12"
3200 Y3=1988
3210 D3=104.26260007#
3220 I0=50.0148
3230 O0=179.8548#
3240 E0=.0011415
3250 W0=332.1841#
3260 M0=27.8318
3270 N0=12.44394839#
3280 Q3=-2.5E-07
3290 K0=7587
3300 GOTO 620
3310 '=======KEPLER   X Y Z ========
3320 I$="XYZ"
3330 Y3=1988:D3=1:I0=57:O0=0:E0=.68678:W0=178:M0=0:N0=2.1739:Q3=0:K0=0
3340 GOTO 620
3350 GOTO 610
3360 '*==*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
3370 '*=*=*     PARTE GRAFICA  por PY4ZBZ    *=*=*
3380 '*==*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
3390 SCREEN 1
3400 'PLOTA POSI~AO QTH
3410 CIRCLE(160-.888*W9,90-L9),2,2:PSET(160-.888*W9,90-L9),2
3430 'AMERICA DO SUL
3440 DRAW"c2bm101,145m98,146m93,140m95,128m98,109m86,96m90,82m98,78m105,81m114,85m115,90m129,95m129,98m123,112m116,115m110,125m109,125m109,128m104,130m100,136m101,138m98,142m101,145"
3445 'PAINT(93,100),2
3470 'AMERICA NORTE
3480 DRAW"C5BM90,82M66,71M59,58M57,59M61,68M60,69M55,57M51,55M49,49M49,41M35,31M26,30M13,35M18,32M13,28M16,26M9,25M15,24M11,22M18,18M49,20M70,10M98,10M88,15M106,25M98,27M80,25M75,30M90,38M90,27M101,30M113,42M93,51M86,58M88,65M85,65M84,60M75,60"
3490 DRAW"C5M75,60M74,67M76,71M83,69M83,74M85,74M90,82"
3500 DRAW"C5BM98,10M98,15M110,20M115,28M121,30M124,25M141,20M145,10M98,10"
3510 'AFRICA
3520 DRAW"C5BM175,125M170,108M171,99M168,91M169,86M160,85M153,86M144,78M144,68M150,60M154,58M160,59M169,56M169,58M178,60M178,58M189,59M196,79M205,78M200,88M194,95M196,105M190,110M191,114M185,124M175,125"
3530 DRAW"C5BM203,102M201,115M199,116M198,112M199,110M199,106M203,102"
3540 'AUSTRALIA
3550 DRAW"C5BM286,102M296,115M293,126M289,128M284,125M280,125M275,122M264,125M261,123M260,115M261,112M273,104M275,105M276,102M281,102M280,105M285,107M286,102"
3560 'EUROPA-ASIA
3570 DRAW"C5BM154,54M151,52M151,47M158,47M155,42M165,36M169,33M171,36M181,31M180,30M181,28M175,25M175,35M171,34M169,31M165,33M164,27M184,18M195,23M190,24M193,26M221,20M253,12M275,20M289,18M319,24M298,40M300,30M280,35M285,40M274,55M266,52"
3580 DRAW"C5M266,52M268,60M258,70M258,80M249,78M251,85M251,88M249,87M245,82M240,70M229,81M218,66M204,62M203,64M213,68M199,74M190,61M189,59M190,58M191,54M184,54M181,50M179,53M173,45M170,45M175,50M173,52M166,47M160,50M156,53M154,54"
3590 LINE(0,90)-(319,90),5: LINE(160,87)-(160,93),5
3600 LOCATE 1,1:PRINT"==";C$;"==        SATELITE: ";I$
3610 LOCATE 21,1:PRINT"UTC:":LOCATE 21,18:PRINT"DIA:":LOCATE 21,32:PRINT"MA:"
3620 LOCATE 22,1:PRINT"AOS:":LOCATE 23,1:PRINT"LOS:"
3630 '======PLOTA AREA COBERTA======
3640 B0=R0/(A8*(1+E0))
3650 GOSUB 3690
3660 IF E0>.01 THEN 3680
3670 RETURN
3680 B0=R0/(A8*(1-E0))
3690 B1=.999*FNACS(B0)
3700 FOR LX=L9*P0-B1 TO L9*P0+B1 STEP B1/15
3710 D=(B0-S9*SIN(LX))/(C9*COS(LX))
3720 DD=D*D:IF DD>.999 THEN 3790
3730 DX=-ATN(D/SQR(1-DD))+P1/2
3740 DX=DX/P0
3750 Y3=90-LX/P0
3760 X3=160-(W9+DX)*.888
3770 X4=160-(W9-DX)*.888
3780 PSET(X3,Y3):PSET(X4,Y3)
3790 NEXT LX
3800 RETURN
3804 '
3805 ' continuacao loop grafico
3806 '
3810 GOSUB 2090: IF E7=0 THEN 3840
3820 IF SGN(E7)=SGN(E9) THEN 3840
3830 IF E9>0 THEN 3940  ELSE 3960
3840 E7=E9:IF E9>0 THEN B9=3
3850 W9=160-W5*.888:IF W9<0 THEN W9=W9+320
3860 L9=90-L5
3870 IF L9<11 OR L9>160 THEN 3900
3880 IF (ABS(W9-W1))>160 THEN PSET(W9,L9),B9:GOTO 3900
3890 IF T>0 THEN LINE(W1,L1)-(W9,L9),B9 ELSE PSET(W9,L9),B9
3900 W1=W9:L1=L9:IF E9<0 THEN B9=1
3910 Y6=21:GOSUB 4010
3920 GOTO 1670
3924 '
3925 '=*= fim loop calculo grafico =*=
3926 '
3930 LOCATE 20,1: PRINT"OK":LINE INPUT D$:SCREEN 0:CLS:GOTO 300
3940 Y6=22:GOSUB 4010:GOTO 3840
3960 Y6=23:GOSUB 4010:GOTO 3840
4010 LOCATE Y6,6:PRINT USING"##:##";H3;M3
4020 LOCATE Y6,22:PRINT USING"##/##";D3;N3
4030 LOCATE Y6,35:PRINT USING"###";M9
4040 RETURN
4045 '
4050 CLS:PRINT:PRINT"OUTROS DADOS DO SATELITE ";I$
4060 T3!=1440/N0:DR=360*G1/N0
4070 DP=9.95*((R0/A8)^3.5)*C1/(E2*E2*N0)
4080 DW!=DR+DP:NI%=INT(N0+.5):WD=DW!*NI%
4090 WD!=WD-(360*INT((WD/360)+.5))
4100 DT!=(NI%-N0)*T3!
4110 HA!=A8*(1+E0)-R0:HP!=A8*(1-E0)-R0
4120 BA=(180/P1)*FNACS(R0/(A8*(1+E0)))
4130 BP=(180/P1)*FNACS(R0/(A8*(1-E0)))
4140 PRINT:PRINT
4150 PRINT"PERIODO  =";T3!;"mn":PRINT
4160 PRINT"Dw/orb.  =";DW!;"ø":PRINT
4170 PRINT"APOGEU   =";HA!;"km";:PRINT"    áa=";:PRINT USING"##";BA;:PRINT"ø":PRINT
4180 PRINT"PERIGEU  =";HP!;"km";:PRINT"    áp=";:PRINT USING"##";BP;:PRINT"ø":PRINT
4190 PRINT"VARIACAO DIARIA DO EQX"
4200 PRINT"APOS";NI%;"ORBITAS COMPLETAS:":PRINT
4210 PRINT"Dw/dia   =";WD!;"ø":PRINT
4220 PRINT"Dt/dia   =";DT!;"mn":PRINT
4230 PRINT:PRINT:INPUT"continue";D$:GOTO 1150
4240 END
4250 'versao  14/09/88          PY4ZBZ
4520 IF E9<E8 THEN 4670 ELSE GOSUB 2090
4530 IF K7<>K8 THEN 4560
4540 IF K<>K9 THEN 4580
4550 GOTO 4650
4560 K8=K7
4570 GOSUB 4710
4580 K9=K
4590 GOSUB 2310
4600 LPRINT:LPRINT
4610 LPRINT"-- ";B$(W);" ";D3;"/";N3;"/";Y3;"-- ORBITA";K;"--"
4620 LPRINT
4630 LPRINT"U.T.C   AZ   EL  LAT  LONG   MA   DIST."
4640 LPRINT
4650 LPRINT TAB(L+1) USING"##:##";H3;M3;:LPRINT TAB(L+8) USING"###";A9;:LPRINT TAB(L+13) USING"###";E9;
4660 LPRINT TAB(L+18) USING"###";L5;:LPRINT TAB(L+22) USING"####";W5;:LPRINT TAB(L+29) USING"###";M9;:LPRINT TAB(L+35) USING"#####";R5;
4665 L=L+44:IF L=132 THEN L=0
4670 GOTO 1670
4710 LPRINT
4720 LPRINT:LPRINT
4730 LPRINT C$;TAB(22);"SATELITE:";I$
4740 LPRINT
4750 LPRINT"   ELEVACAO MINIMA :";E8;" GRAUS"
4760 LPRINT
4770 RETURN
5000 'versao  15/09/88          PY4ZBZ