' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`T160T2T360A".A" D1=REAL TIME MONTHEA" D2=REAL TIME DAY]A" D3=REAL TIME YEARvA" T1=REAL TIME HOURA" T2=REAL TIME MINUTEA" T3=REAL TIME SECONDA" TX=REAL TIME INA" DECIMAL MINUTESA"A#A(#B)#9000-9999 CALCUL@ CLOCK IN PORT #4@)@D$"IN#4"7@D$"PR#4"C@" ";T$Q@D$"IN#0"_@D$"PR#0"@& MTH$(T$,2):DAY$(T$,4,2)@0 D1(MTH$):D2(DAY$)@: HOUR$(T$,7,2):MINUTE$(T$,10,2):SEC$(T$,13,2)@D T1(HOUR$):T2(MINUTE$):T3(SEC$)Av TX);25)L$(J);31)A2(I);37)E2(I);39)" "-?0+HAHPı: CIRC ORBIT BY-PASSG\+ 11100-11190 CALC OF ELIPTICAL ARRAYGf+Gp+(5)08Fh)B3B2180PI#Fr)Y1(L8Q4)4F|)Y10ī10640EF)A1B3:10650SF)A1360B3`F)A2(A1)F) 10700-10790 CALC OF ELEV HEADF)EL(((C2)(R(RH)))(C2))F)E1EL180PIF)E2(E1)F0* 10800-10890 CALC OF DISTANCE TO SATGD*D1RE(C2)I180-E,)C1(L2)(Q3)(L2)(Q3)(L8Q4)FE6)C11.0C20:10570bE;)C11.0C2PI:10570E@)C2(C1(C1C11))1.5708EJ)B1((L2)(Q3)(C2))((Q3)(C2))ET)B11.0B20:10600EY)B11.0B2PI:10600F^)B2(B1(B1B11))1.5710430'D(L5(L4(L4L41))1.5798:D(L5L5PIT720MD(L30L5L5PI^D(L6180L5PIkD(L7L6LGD(L7360L7L7360:10460D(L70L7L7360:10465D(LY(L7)D) 10500-10690 CALC OF AZ HEADD)Q3Q1PI180D)Q4Q2PI180E")L8L7PC<(L1(LE)(PIIA180)4CF(L11.0L2PI2:10330TCK(L11.0L23PI2:10330mCP(L2(L1(L1L11))~CZ(L3180L2PICd(LX(L3)C(10300 10390 CALC OF SSP LONGC(L4(LE)(L2)C(L30L4L4C(L41.0L50:10430D(L41.0L5PI:QBR"DO YOU WANT DIFFERENT GROUND STATION":"COORDINATES USED ? (Y OR N) ";Q$cBQ$"N"ī7900iBB"GROUND STATION LATITUDE (DEG) ? ";Q1BB"GROUND STATION LONGITUDE (DEG) ? ";Q2BVB`7200BB6B' CALC OF SSP & HEADING990 USED TO HOLD OR INPUT GROUND STATION INFORMATIONPA GND STA LAT IS Q1 kA GND STA LONG IS Q2 |AQ140:Q2105A "THE GROUND STATION COORDINATES USED IN ":"THIS PROGRAM ARE AS FOLLOWS : (DEG)"A*15)"LAT = ";Q1A415)"LONG= ";Q2B>HPHP(J):IAIA(J):APAP(J)$@6990*@H@"NEW SATELLITE NAME ";S$N@o@"SATELLITE APOGEE (KM) ";HAu@@"SATELLITE PERIGEE (KM) ";HP@@"INCLINATION ANGLE (DEG) ";IA@@"ARGUE OF PERIGEE (DEG)";AP@@N4AX 7000-7O USE THIS DATA (Y/N) ";Q$ ?)2?.Q$"N"ī6300`?8"TYPE IN THE NAME OF THE SATELLITE YOU "?B"WISH TO USE (BY NAME) FROM ABOVE ";S$?G?LJ110?VS$S$(J)ī6260?`J?e?j4)"YOUR SATELLITE NOT FOUND IN LIST"::6180@tHAHA(J):D $RO(I)OC $LR(I)LG' $TR(I)TR4 $D1(I)DMA $D2(I)DDG 'M 0u1440TRTR1440:DDDD19#(DM2DD29)DM3:DD1:9190r#((DM4DM6DM9DM11)(DD31))DMDM1:DD1:9190#DM12DD32DM1:DD1:DYDY19190#DD32DMDM1:DD1#9100#TXTRī9400#TRTRP:OCOC1:LGLGLD $LG0LGLG360ERENCE ORBIT BEING CALCULATED *"?2#DMDM(I):DDDD(I):DYDY(I)^<#THTH(I):TMTM(I):TSTS(I){F#PP(I):OCOC(I):LGLG(I)Z#TR60THTMTS60n#LDP1440360#DMD1DDD2ī9200#TRTRP#OCOC1#LGLGLD#LG360LGLG360#TRME MONTH" D2=REAL TIME DAY7" T1=REAL TIME HOURN# T2=REAL TIME MINe # T3=REAL TIME SEC# TX=REAL TIME TOTAL IN MINUTES#(# 9000-9990 IS USED TO CALCULATE THE PRESENT ORBIT DATA-#D1D1(I)D2D2(I)ī9990 1#(2I9):2)"* REF4":D$;"PR#4"" ";T$?D$;"PR#0":D$;" IN#0"_& MTH$(T$,2):DAY$(T$,4,2)y0 D1(MTH$):D2(DAY$): HOUR$(T$,7,2):MINUTE$(T$,10,2):SEC$(T$,13,2)D T1(HOUR$):T2(MINUTE$):T3(SEC$)v TXT160T2T360" D1=REAL TIQ$Q$"N"ī7900E"GROUND STATION LATITUDE (DEG) ? ";Q1Kw"GROUND STATION LONGITUDE (DEG) ? ";Q2}V`72006@ 8000-8990 USED TO OBTAIN TIME FROM REAL TIME CLOCKJ FOR APPLESOFT WITH DOSD379 D$;"IN#"........................................" "THE GROUND STATION COORDINATES USED IN ":"THIS PROGRAM ARE AS FOLLOWS : (DEG)"*15)"LAT = ";Q1415)"LONG= ";Q2>R"DO YOU WANT DIFFERENT GROUND STATION":"COORDINATES USED ? (Y OR N) ";0"WHAT IS THE NAME OF THE SATELLITE ";S$(IC):6420nN:"........................................":tSX 7000-7990 USED TO HOLD OR INPUT GROUND STATION INFORMATION GND STA LAT IS Q1  GND STA LONG IS Q2 Q140:Q2105-LG(IC)6010G"DO YOU WISH TO ADD TO THIS LIST (Y/N) ";Q$YQ$"N"ī6990eI120nICIP(I)1ĺ:6650 THE MAX VALUE IF I IS SET HEREJ8IJĺ::" NO MORE SATELLITES ":::6010I(IC),A" REFERENCE DATE YEAR = ";DY(IC)WF" REFERENCE ORBIT NUMBER = ";OC(IC)P" REFERENCE TIME HOURS = ";TH(IC)Z" REFERENCE TIME MINUTES = ";TM(IC)d" REFERENCE TIME SECONDS = ";TS(IC)n" REFERENCE DEGREES LONGITUDE = ";z#?     Š ŠҠŠӠˠ$Š̠ԠŠǠŠ̠ŠϠ ٠ŠŠϭ,Šϭ,ŠҠŠΠנ#(Y$)201(Y$)1935206(Y$)194530I(Y$)212540_"AT LINE 625",Y$nF$"RUN":~F$"BRUN":F$"EXEC":&056,72,132,208,160,0,145,209,230,209,208,2,230,210,104,164,208,96,169,160,96: LINE #20 = DISK TITL OR RUN ANY OF THESE PROGRAMS? (THERE ARE MORE.) ";:380I hZ$W rZ$"Y"ıh |Z$"N"360 32,0:34,3:33,19:: (Y$)201(Y$)193440 (Y$)194450 (Y$)212460 470 F$"LOAD": F$"BLOAD":F$"EXEC": (X$,1)"R"İ480:2800 (X$,1)"0"2709 190Q ::D$;"CATALOG":h (X$,2,1)"0"270 "((X$,2,1))0190 ,: 6D$;F$;(A$(X),7,31);",V0" @ J33,19:32,20:: T32,0:34,22:33,40:A ^384:" DO YOU WANT TO LOAD:J10T21 T:J;3);(A$(J),7,16):JJ1:140K 32,0:34,22:33,40: 384:" TO RUN OR LOAD - TYPE OR AND PROGRAM # FOLLOWED BY A .";:380:" ";X$ X((X$,2,4)):Y$(A$(X),2,2) XJ1190 (X$,1)"L"İ400:280Q1,3:Q2,18:Q3,3:34,3X n24:D$;"CATALOG":D$;"PR#0":D$;"IN#0"::33,20:34,3::~ x384:" 0 CATALOG ":380 J1:QQ0A$(0)B$" " (A$(J),7,15)" "190 J18J53İ330 J36İ340:Z$"Y"190 T1 (I10011:A$(I)B$C$:B 2QQ(977)185:QQ0A$(0)C$" "Z <QQ0A$(0)C$" "z FI768788:PP:I,PP:I:I0 PZZ3037:I0:R0:QQ(977)185:QQ0ZZ3220 ZQ(977)(978)256ZZ:Z(107)(108)2568 d(209),(Z):(210),(Z1):Q,0:3 255:::A$(100):D$(4):D$;"NOMON C,I,O":"----------------------------------------";:384:" A.P.P.L.E. PUBLIC DOMAIN SOFTWARE ";:380:"----------------------------------------"C$" ":B$" "     RD...TWO DISK SIDES+ ARE YOURS WHEN YOUG IDENTIFY WITHOUT DOUBTa THAT A FILE ON THIS { DISK IS COPYRIGHTED! P xAAA HELLO#PUBLIC DOMAIN=BY RONALD D. MALEIKAR721 PIKE STREETjCHEYENNE, WY 82001{28 FEB 198111843,5@"APPLE AVOCATION ALLIANCE, INC."TP11000:Ph1184|(4);"CATALOG" REWA WY 82001" > "HIT 'C' FOR CATALOG - 'RETURN' TO QUIT"F C$V C$"C"780c 1184:p 1184: (4);"CATALOG" 4C"** PLEASE, SEND US A COPY **"$  "WE'LL RETURN YOUR DISKETTE, RECOPIED WITH ANY DISK SIDE YOU CHOOSE FROM THE LIBRARY, WITH OUR THANKS."  05 D"APPLE AVOCATION ALLIANCE, INC." X12 l"721 PIKE STREET" 10 "CHEYENNE, YOU HAVE FOUND SOME OF THESE PROGRAMS HAVE FAULTS AND YOU FIXED THEM?MAYBE YOU EVEN TOOK SOME PAINS TO RE- WRITE A FAULTY PROGRAM? IN ANY CASE..."  "WE WOULD LIKE TO HARVEST YOUR 'IMPROVED'PROGRAMS FOR OTHERS TO ENJOY AND USE." 6 x AAA MESSAGE' PUBLIC DOMAINB BY RONALD D. MALEIKAX 721 PIKE STREETq CHEYENNE, WY 82001 28 FEB 19811184:,12@"AN INVITATION FOR"T5h"APPLE TREES AND APPLE SEEDLINGS"| "PERHAPS                                  $"D"ĺ"........................................"j DM;"/";DD;"/";DY;13)OC;23)TH;":";TM;":";TS;35)LTtN DPDD~X MPDM'SCONTINUE PROGRAM (Y/N) ";H$:AG$"N"H$"Y"(OCROOL)ė:29tG$"N"H$"N"(OCROOL)ĺ:"PROGRAM END"::~1010 3000-3999 USED TO PRINT THE DATA (DPDDDPDD)C$"O"ĺ"........................................"1 (MPDMMPDM)C"(DPDDDPDD)İ3000hlOCROOLĺ:"----------------------------------------"::0::"END OF RUN":OCROOLĺ"DO YOU WISH TO USE SAT ";S$;" SAME DATA":" AGAIN ? (Y/N) ";G$:G$"Y"(OCROOL)ī185G$"N"(OCROOL)ĺ:"DO YOU WISH TO T1440:THTH241DM2DD29DMDM1:DDDD28f$(DM4DM6DM9DM11)(DD31)DMDM1:DDDD30.DD32DMDM1:DDDD318DM13DMDM12:DYDY1LOLO3601440PLO360LOLO360LT(LO)OCOC1C$"O"İ3000(C$"D&X 600-890 USED TO SET INITIAL DATA;bOCRO:LOLG:TT0QlTHTX:TMTY:TSTZmvLTLG:DMD4:DDD5:DYD6wz3000 1000-29999 CALCULATION OF NEXT ORBIT DATATTPTH(T60)TM(TTH60)TS(TTH60TM)60TH24DDDD1:TATA TO PRINTER ? (Y OR N) ";P$:Q6:"NUMBER OF ORBITS TO BE CALCULATED ";OL:`JP$"Y"Ċ1f::"----------------------------------------"::7)"CALENDER FOR ";S$;" SATELLITE":3)"DATE";13)"ORBIT";24)"TIME";34)"LONG"(KM)",H"PERIOD (MIN)",P:D"DATE (M/D/Y)",D4;"/";D5;"/";D6X"REF ORBIT",ROy"REF TIME",TX;":";TY;":";TZ"REF LONG",LG: :"****************************************": " PRINT ON EACH ORBIT-O OR DAY-D ? ";C$ :"OUTPUT DRS ";TX:# "REF TIME MIN ";TY:= "REF TIME SEC ";TZ:U T060.TXTYTZ60.m "REF LONG DEG ";LGs :"****************************************": 200-280 PRINT OF SAT DATA "SAT NAME",S$ "INC ANG (DEG)",IA"HEIGHT (KM) ";H:+ _"SAT INCL ANG (DEG) ";IA:4 a106: d` e 110-180 INPUT OF REF ORBIT DATAh j: l12)"FOR SATELLITE ";S$: n"REF MONTH ";D4: p"REF DAY ";D5: r"REF YEAR ";D6: v "REF ORBIT NUMBER ";RO: "REF TIME HOU68:IA99.655:S$"P76-5":100M MP114.9448:H1460:IA101.5966:S$"AO-7":100w NP103.2284:H872:IA99:S$"AO-8":100 Z 90-99 DATA FOR ANY SAT [::11)"NEW SATELLITE DATA":: \"SAT NAME ";S$: ]"SAT PERIOD (MIN) ";P: ^"SAT ALTITUDE 4S2ī72 7S5ī75% 9S7ī772 :S8ī78N DS0ĺ"PROGRAM ENDED":V E90 F 71-89 CONTAIN DATA FOR EACH SATELLITE PER LINE GP120.3925:H1704:IA82.56:S$"RS-1":100 HP120.3925:H1704:IA82.56:S$"RS-2":100 KP105.729:H1025.9"TABLE","SATELLITE":( "1","RS-1"8 "2","RS-2"I #"5","P76-5"Y %"7","AO-7"i &"8","AO-8" '"3,4,5,6,9","OPEN" 0"0","PROGRAM END": 1 SETTING UP SAT PARAMETERS 2"SELECT DESIRED SATELLITE FROM TABLE ";S:S(S): 3S1ī71 7::"----------------------------------------":w3)"AMATEUR SATELLITE CALENDER PROGRAM"::17)"BY K0RZ":"---------------------------------------"" THE FOLLOWING SATELLITE DATA IS":"ALREADY CONTAINED IN THIS PROGRAM :":      320 >3L11L23PI2:320:>6L2(L1(L1L11.))L>@L3180.L2PIY>JLX(L3)u>^LXQ145LXQ145ī292> 400-490 CALC OF SSP LONG>L4(2.PITP)(L2)>L30L4L4>L41L50:411>L41L5PI:411?L5(L4(L40?='(T0T)1500ĺ:" DO YOU WISH TO CONTINUE ? (Y/N) ";Q$:Z=(SD(16336)(16336){=)(T0T)1500Q$"Y"T0:29=*(T0T)1500Q$"N"ĺ:13)"PROGRAM END":=+ 300-390 CALC OF SSP LAT=,L1(2.PITP)(PIIA180.)>1L11L2PI2::(10)<@<:"DON'T DISTRESS-RESULTS WILL FOLLOW SOON"q<"YOU WILL BE TOLD WHEN THE RUN HAS ENDED":w<<"T0<$TTIT:J1<%Q1Q1(J):Q2Q2(J)=&(T0T)1500ĺ:"========================================":10)"END OF ONE DAY RUN":2(2)_;:"A ";IT;" MINUTE TIME STEP WILL BE USED IN":"THE FOLLOWING SATELLITE CALCULATIONS";"BEGINNING AT ";TX;" HRS , ";TY;" MIN , ";TZ;" SEC"; :"****************************************":;:"OUTPUT DATA TO PRINTER ? (Y OR N) ";P$: < 200-280 PRINT OF SAT DATA.:"SAT NAME",S$F:"INC ANG (DEG)",IA[:"HEIGHT (KM)",Hq:"PERIOD (MIN)",Pw::"REF ORBIT",RO:"REF TIME",TX;":";TY;":";TZ:"REF LONG",LG::"GND STN LAT",Q1(1),Q1(2);"GND STN LONG",Q2(1),QREF TIME HOURS ";TX:/9x"REF TIME MIN ";TY:I9}"REF TIME SEC ";TZ:c9"REF LONG DEG ";LG:9:"TIME STEP USED FOR EACH CALC ? (MIN) ";IT9T060.TXTYTZ60.9H1R(RH)9:(3)9:"****************************************":: ";IA: 8_8a11028d:(3):15)"FOR ";S$:X8e 110-180 INPUT OF REF ORBIT DATA8i" THE FOLLOWING NEEDED INFORMATION IS":" OBTAINED FROM A SATELLITE CALENDER":"SUCH AS THAT PUBLISHED IN QST MAGAZINE"8j8n"REF ORBIT NUMBER ";RO:9s"10047MP114.9448:H1460:IA101.4867:S$"AO-7":100b7NP103.2258:H922:IA98.921:S$"AO-8":1007Z:"* * * * ENTER NEW SATELLITE DATA * * * *":7["SAT NAME ";S$:7\"SAT PERIOD (MIN) ";P:7]"SAT ALTITUDE (KM) ";H:8^"SAT INCL ANG (DEG) 69S7ī776:S8ī7856DS0ĺ"PROGRAM ENDED":=6E90t6F 71-89 CONTAIN DATA FOR EACH SATELLITE PER LINE6GP120.3894:H1711:IA82.55:S$"RS-1":1006HP120.3894:H1711:IA82.55:S$"RS-2":1007KP105.713:H1025.900:IA99.655:S$"P76-5":5)"1","RS-1"!5*"2","RS-2"25+"5","P76-5"B5,"7","AO-7"R5-"8","AO-8"h5/"3,4,6,9","OPEN"50"0","PROGRAM END":51 SETTING UP SAT PARAMETERS52"SELECT DESIRED SATELLITE FROM TABLE ";S:S(S):53S1ī7154S2ī7257S5ī75OORDINATES TO BE USED ARE :":84!15)"LAT = ";Q1(2):R4"15)"LONG= ";Q2(2):4#:"USE DIFF GND STA TWO COORD ? (Y/N) ";Q$4%Q$"Y"ī294'::"THE FOLLOWING SATELLITE DATA IS":"ALREADY CONTAINED IN THIS PROGRAM :":5("TABLE","SATELLITE": ";Q$3Q$"N"ī29=3:"GND STA ONE LAT (DEG) ";Q1(1):h3"GND STA ONE LONG (DEG) ";Q2(1)::203:"* * * DATA FOR GROUND STATION TWO * * *":3"GND STA TWO LAT (DEG) ? ";Q1(2):3"GND STA TWO LONG (DEG) ? ";Q2(2):4 "STATION TWO C2 GND STA LAT IS Q112 GND STA LONG IS Q2H2 Q1(1)40:Q2(1)1052"GROUND STATION ONE COORDINATES USED IN":"THIS PROGRAM ARE AS FOLLOWS : (DEG)"2215)"LAT = ";Q1(1):215)"LONG= ";Q2(1):3"USE DIFF GND STA ONE COORD ? (Y/N)":"AND WILL PRINT THE AZMITH & ELEVATION":"FOR THE GROUND STATIONS ANTENNAS AND"1"THE SUB-SATELLITE LATITUDE & LONGITUDE":"FOR CIRCULAR ORBIT SATELLITES":1PI3.141592:R6371:OX11D$"": CONTROL D2Q1(3),Q2(3),LX(3),LY(3),A2(3),E2(3)70::"----------------------------------------":z02)"AMATEUR SATELLITE COMMON VIEW PROGRAM"::17)"BY K0RZ":0"---------------------------------------"R1"THIS PROGRAM WILL CALCULATE THE COMMON":"VIEW TIMES BETWEEN TWO GROUND STATIONS     ōōōōōōōϭϭ     -------------------------------"M4"NEXT TABLE INDEX NUMBER (0 TO END) ";IW4:90 A3"PERIGEE ARGUMENT (DEG) = ";AP(I):d3"REF DATE (MM/DD/YY) = ";DM(I);"/";DD(I);"/";DY(I):3"REF ORBIT NUMBER = ";OC(I):3"REF TIME (HH:MM:SS) = ";TH(I);":";TM(I);":";TS(I):3"REF EQU CROSS (DEG W) = ";LG(I) 4"--------------------"226"TABLE INDEX NUMBER = ";I:[2@"SATELLITE NAME = ";S$(I):2J"PERIOD (MIN) = ";P(I):2r"HEIGHT APOGEE (KM) = ";HA(I):2|"HEIGHT PERIGEE (KM) = ";HP(I):2"INCLINATION (DEG) = ";IA(I):'TABLE INDEX NUMBER ";I!1ZI1ĀC1dD$"OPEN SATELLITE DATA,L200"d1nD$"READ SATELLITE DATA,R";I1I,S$(I),P(I),HA(I),HP(I),IA(I),AP(I),DM(I),DD(I),DY(I),OC(I),TH(I),TM(I),TS(I),LG(I)1"D$"CLOSE SATELLITE DATA" 2,:"---------------------------Y0 "0THIS PROGRAM IS USED>0TO READ SATELLITE DATAZ0CONTAINED IN DISC FILEp0"SATELLITE DATA"v00 D$"": CONTROL D0S$(20),P(20),HA(20),HP(20),IA(20),AP(20),DM(20),DD(20),DY(20),OC(20),TH(20),TM(20),TS(20),LG(20)01P"    " >5700 >H$(J)"Y"ī56404>E2(I)1ī5700F>LPLP1:(LP)q>25)L$(J);31)A2(I);37)E2(I);39)" "{>5700>LPLP1:(LP)>" ":LPLP1:(LP)>E2(I)1Ğ'?&S$(I);7)O(I);14)LX(I);19)LY(I(LP)A=" ":LPLP1:(LP)\=TA(I)0TL(I)0ī5580=S$(I);7)O(I);14)LX(I);19)LY(I);25)L$(J);31)U4;33)":";U5;36)":";U6;39)" "=5590>S$(I);7)O(I);14)LX(I);19)LY(I);25)L$(J);31)"---";37)"---ELLITE STATUS FOR ";D1;"/";D2;"/";DY;39)" "5<(3)d<9)T1;":";T2;":";T3;26)"BY K0RZ";39)" "m<(5)<,1)"SAT";7)"ORBIT";14)"LAT";19)"LONG";25)"LOC";31)"AZM";37)"ELV"<|<E2(I)6ī5600<H$(J)"Y"ī5550<5700=LPLP1:O(I)RO;5000:PRINT OUTPUT&;BJw;t(I)10LP19LPLP1:(LP):" ":3700~;~I;3000:TURN AROUND;;5000-5599 DISPLAY THE;SATELLITE LOCATION AND;HEADING DATA;;(1),<7)"SAT)") *" : &: 3200-3450 CALC FOR A;: GIVEN LOCATIONA: [: J(10I1)(10I10)v: Q1(J)0Q2(J)0ī3650: Q1Q1(J):Q2Q2(J):> 8000: REAL TIME:\ H$(J)"Y"İ10000:3450:p 10500:CALC OF HEAD;z A2(I)A2:E2(I)E2:LX(I)LX:LY(I)LY:81440T89: T5(T860),9D T6(T860T5)G9N T7((T860T5T6)60)n9X ER((LG3601440P(TP))10)109b ER0ER360ER9g ER360ERER3609l 12000:ORBIT TIME9q (21):v 1)"*";3)S$(I);9)"REF (";15)RO;22)T5;":";T6;":";T7;32)ER;37108 P(I)0ī3700*8 8000:REAL TIME>8 9000:REF DATAY8 PP(I):IAIA(I):HH(I)q8 TTXTR(I):LGLR(I)8 RORO(I)(TP)8 8 3100-3190 REFERENCE8 ORBIT DISPLAY AT THE8 BOTTOM OF THE SCREEN8 8& T8TR(I)(TP)P 90 T80T0)7~T6(TR60T5)07T7((TR60T5T6)60)R7D$"WRITE SATELLITE DATA,R";I7I:S$(I):P(I):HA(I):HP(I):IA(I):AP(I)7DM:DD:DY:OC:T5:T6:T7:LG7I7D$"CLOSE SATELLITE DATA"7 7 BEGIN CALCULATION7 7 LP58 I1(I),DY(I),OC(I),TH(I),TM(I),TS(I),LG(I)96=P(I)1ī1270R6BH(I)(HA(I)HP(I))2X6Lp6MSATELLITE DATA NOW6NBEING UPDATED AND6OWRITTEN IN THE FILE6PNAMED "SATELLITE DATA"6Q6`D1DM(I)D2DD(I)ī12706j9000: UPDATE7tT5(TR6$(71)"Y"5 +5SATELLITE DATA NOW D5READ FROM DISC FILEa5NAMED "SATELLITE DATA" h5 ~58000:REAL TIME 5D$"OPEN SATELLITE DATA,L200"5I1I15.D$"READ SATELLITE DATA,R";I'68I,S$(I),P(I),HA(I),HP(I),IA(I),AP(I),DM(I),DD"IL":Q1(22)40:Q2(22)90I4L$(31)"CO":Q1(31)40:Q2(31)105:H$(31)"Y"y4L$(41)"CO":Q1(41)40:Q2(41)105:H$(41)"Y"4L$(51)"CO":Q1(51)40:Q2(51)105:H$(51)"Y"4L$(61)"CO":Q1(61)40:Q2(61)105:H$(61)"Y" 5L$(71)"CO":Q1(71)40:Q2(71)105:H(XY) THE X IS(3` THE SATELLITE NUMBERB3a THE Y IS THE GROUND[3b LOCATION FOR THE Xk3c SATELLITEq3d3oL$(11)"CO":Q1(11)40:Q2(11)105:H$(11)"Y"3pL$(12)"ENG":Q1(12)0:Q2(12)503yL$(21)"CO":Q1(21)40:Q2(21)105:H$(21)"Y"4zL$(22)PI3.141592:R6371272THE NUMBER OF SATELLITESP2 CALCULATED IN THIS h2!PROGRAM IS NOW SET2"IN THE VALVE OF "I1"2#2$I172%2Z2[100-199 CONTAIN DATA FOR2\EACH GROUND STATION FOR2]EACH SATELLITE2^ 3_ IN DATA(20),ET(20),CR(20)~1P(20),IA(20),H(20),OC(20),DM(20),DD(20),DY(20),TH(20),TM(20),TS(20),LG(20),S$(20),HA(20),HP(20),AP(20)1D1(20),D2(20),RO(20),TR(20),LR(20),LX(20),LY(20),A2(20),E2(20),Q1(100),Q2(100),L$(100),H$(100)1D$"":D$=CONTROL D 2"0I12160CR(I)RO.0THIS PROGRAM IS USEDI0TO CALCULATE THE REALe0TIME TRACKING DATA FOR0CIRCULAR ORBIT SATELLITES00THE SATELLITE PARAMETERS0ARE CONTAINED IN DISC0 FILE "SATELLITE DATA"0 0 1 TA(20),TL(20),ED          1)"CONTAINED IN THIS PROGRAM."&>Y>"SAT";10)"APOG";19)"PERG";27)"IA";35)"AP"_>k>J110~>HA(J)1ī6170>S$(J);10)HA(J);19)HP(J);27)IA(J);35)AP(J)>J>:"----------------------------------------":?$"DO YOU WISH TATIONS"-="BEGINNING AT ";TX;":";TY;":";TZ]=:"****************************************"r=\0: PRINTER OFFx=f=p 6000-6990 HOLDS SAT DATA=z:"----------------------------------------"=1)"THE FOLLOWING SATELLITE DATA IS ALREADY" > (DEG)",IA <"PERIOD (MIN)",P4<"REF ORBIT",ROU<"REF TIME",TX;":";TY;":";TZn<"REF LONG (DEG)",LGt<<"GND STA LAT",Q1<"GND STA LONG",Q2<<"A ";IT;" MINUTE TIME STEP WILL BE USED IN"="IN THE FOLLOWING SATELLITE CALCUL;| 5500-5990 PRINT OF SAT DATA&;B;P$"Y"Ċ1: PRINTER ONr;"****************************************";8)"* * SATELLITE DATA * *";;"SAT NAME",S$;"APOGEE (KM)",HA;"PERIGEE (KM)",HP;"ARG PERG (DEG)",AP <"INC ANGLITE ";S$;25)"ORBIT ";OC!:b:2)"TIME";12)"AZ";17)"EL";23)"DIST";31)"LAT";36)"LONG"h:r:OXOC:PTRT0TTC:ZTH(TR60):dTM(TR60TH):nTS((TR60THTM)60):xTH;":";TM;":";TS;12)A2;17)E2;23)D2;31)LX;36)LY:r 9"REF TIME MIN ";TY959""REF TIME SEC ";TZ;9'S9,"REF LONG DEG ";LGY91o9TT060TXTYTZ60u9h9 5000-5990 USED TO PRINT OUTPUT9OCRO((TTC)P)9OXOCī52009"----------------------------------------":5)"SATELREF ORBIT DATA 808(3):15)"FOR ";S$:^82)"THE FOLLOWING NEEDED INFORMATION IS"82)"OBTAINED FROM A SATELLITE CALENDER"82)"SUCH AS PUBLISHED IN QST MAGAZINE"88"REF ORBIT NUMBER ";RO8 8"REF TIME HOURS ";TX800+7& EW1EC((1(1ECEC)(1EC(AP))))C70 EW1.0EX0:3160^75 EW1.0EXPI:3160~7: EX(EW(1EWEW))1.57987X TCP(2PI)(EXEC(EX))7 TTC:EEX7 114007R 100007\ LGLG(L6)727<TC078 4000-4990 INPUT OF P ORBIT'6x10000: CALC OF SSP & HEADC6P$"Y"Ċ1: PRINTER ON[6E$"N"E25ī1260|6r5000: PRINT OUTPUT DATA6l12606 3000-3990 CALC FOR EQUATOR CROSSING VS PERIGEE - GENERATION OF NECESSARY CORRECTION6 APAPPI1807 HAHPī39 CROSSING5TTC51270'5TTITA5(T0TTC)1500ī1350G5e510)"END OF ONE DAY RUN"z50: PRINTER OFF5 5"DO YOU WISH TO CONTINUE ? (Y/N) ";Q$5Q$"Y"ī10505#5(13)"PROGRAM END"5-526F11200: CALC OF ELIES ? (Y/N) ";E$B4t:"PRINT INITIAL DATA ON PRINTER ? (Y/N) ";P$a4~11000: INITIAL DATA CALC|45500: PRINT REF DATA4"OUTPUT DATA TO PRINTER ? (Y/N) ";P$444)"* * CALCULATIONS IN PROGRESS * *"44 53000: CALC FOR EQUATORAP(3)0C3S$(4)"AO-8":HP(4)922.4:HA(4)922.4:IA(4)99.5:AP(4)0Y37000: GND COORDn36000: SAT DATA3L4000: REF DATA3V:"TIME STEP USED IN EACH CALC ? (MIN) ";IT3[3`"DO YOU WANT TO PRINT ELEVATION ANGLES"4j"LESS THAN -5 DEGRELITES"62"----------------------------------------"R2 SATELLITE DATA ARRAYS2S$(1)"ELIP":HA(1)35786:HP(1)1500:IA(1)57:AP(1)2102S$(2)"INIT":HA(2)35700:HP(2)200:IA(2)17:AP(2)1803S$(3)"AO-7":HP(3)1464.4:HA(3)1464.4:IA(3)101.60:-------------------------------"P1v2)"THIS PROGRAM WILL CALCULATE THE TIME,"1x2)"THE SUB-SATELLITE POINT ON THE EARTH,"1z2)"AND THE AZMITH AND ELEVATION FOR A "1|2)"GROUND STATION ANTENNA FOR ELLIPTICAL"2~2)"AND CIRCULAR ORBIT SATEL0 PI3.141592:R6371"0 OX1/0TE(370)W0HA(10),HP(10),IA(10),S$(10),AP(10)0d:"----------------------------------------"0n3)"AMATEUR SATELLITE ELLIPTICAL ORBIT"0p7)"ANTENNA POINTING PROGRAM"0r:17)"BY K0RZ": 1t"---------          >`L8L7PI180.9>C1(L2)(Q3)(L2)(Q3)(L8Q4)N>1.05C1H1ī292d>C11C20:1300}>C11C2PI:1300>C2(C1(C1C11.))1.5708>B1((L2)(Q3)(C2))((Q3)(C2))>B11B20:1320>B11B2PI:1320?B21L50:411#=L41L5PI:411E=L5(L4(L4L41.))1.5798Y=L5L5PIT720.l=L30L5L5PI~=L6180.L5PI=L7L6LG=L7360.0L7L7360.0:431=LY(L7)=K 1100-1490 CALC OF AZMITH HEAD=LQ3Q1PI180.=VQ4Q2PI180.LAT%<,L1(2.PITP)(PIIA180.);<1L11L2PI:320W<3L11L23PI2:320q<6L2(L1(L1L11.))<@L3180.L2PI42"SELECT DESIRED SATELLITE FROM TABLE ";S:S(S):K43S1ī71X44S2ī72e47S5ī75r49S7ī774:S8ī784DS0ĺ"PROGRAM ENDED":4E904F 71-89 CONTAIN DATA FOR EACH SATELLITE PER LINE5GP120.3894:H1711:IA82.55:S$"RS THE FOLLOWING SATELLITE DATA IS":"ALREADY CONTAINED IN THIS PROGRAM :":e3"TABLE","SATELLITE":u3"1","RS-1"3 "2","RS-2"3#"5","P76-5"3%"7","AO-7"3&"8","AO-8"3'"3,4,5,6,9","OPEN"30"0","PROGRAM END":41 SETTING UP SAT PAR STATION COORDINATES USED IN":"THIS PROGRAM ARE AS FOLLOWS : (DEG)"Y215)"LAT = ";Q1n215)"LONG= ";Q22:"DIFFERENT GROUND STATION COORD (Y OR N)";Q$:2Q$"N"ī292"GND STA LAT (DEG) ";Q12"GND STA LONG (DEG) ";Q2::20J3::"TION ANTENNA & THE SUB-SATELLITE":"LATITUDE & LONGITUDE FOR CIRCULAR ORBIT"x1"SATELLITES USING EQUAL TIME STEPS ":1PI3.141592:R6371:OX11D$"": CONTROL D1 GND STA LAT IS Q11 GND STA LONG IS Q21Q140:Q2105D2" THE GROUND70::"----------------------------------------":u03)"AMATEUR SATELLITE POINTING PROGRAM":57)"BY K0RZ":0"---------------------------------------"L1"THIS PROGRAM WILL CALCULATE THE TIME,":"THE AZMITH & ELEVATION FOR THE GROUND":"STA     :6420 I210)"SATELLITE NOT FOUND"8B6360L6425p" PERIOD (MINUTES) = ";P(IC)" INCL ANGLE (DEG) = ";IA(IC)(" HEIGHT (KM) = ";H(IC)2" REFERENCE DATE MONTH = ";DM(IC)<" REFERENCE DATE DAY = ";DD);":";TS(I);35)LG(I)`I"S"DO YOU WISH TO MODIFY THIS DATA (Y/N) ";Q$eQ$"N"ī6590k"WHAT IS THE NAME (FROM LIST) IF THE""SATELLITE WHOSE DATA IS TO BE CHANGED""I.E. AO-7 ";Q$I120ICI Q$S$(IC)ĺ)"I120&P(I)1ī6170LS$(I);9)P(I);23)IA(I);34)H(I)SIY$_)."SAT";10)"DATE";17)"ORBIT";26)"TIME";35)"LONG"38I120BP(I)1ī6240VS$(I);8)DM(I);"/";DD(I);"/";DY(I);17)OC(I);25)TH(I);":";TM(IUEf?p 6000-6990 USED TO HOLD AND PRINT SATELLITE DATAEuyz:"........................................":"THE FOLLOWING SATELLITE DATA IS ALREADY":"CONTAINED IN THIS PROGRAM""SAT";10)"PER(MIN)";22)"INC(DEG)";33)"HGT(KM " (8)N,1)"SAT";8)"ORBIT";16)"LAT";22)"LONG";29)"AZM";36)"ELV"[|(2I9)oE2(I)5ī5610S$(I);8)O(I);16)LX(I);22)LY(I);29)"---";36)"---"5700S$(I);8)O(I);16)LX(I);22)LY(I);29)A2(I);36)E2(I);" "D CONTINT DATA I' (TURN AROUND POINT)0l230U 5000-5999 USED TO PRINT OUTPUT`PJ13iZ(J)d" "nJ(2)5)"SATELLITE STATUS FOR ";D1;"/";D2;"/";DY(5)16)T1;":"T2;":";T3;" (B3B2180.PI Y1(L8Q4)0Y10ī1450@A1B3:1470NA1360B3[A2(A1)} 1500-1590 CALC OF ELEV HEADEL(((C2)(R(RH)))(C2))E1EL180.PIE2(E1)@A2(I)A2:E2(I)E2:LX(I)LX:LY(I)LY:O(I)ROr5000: OUTPUMITH HEADLQ3Q1PI180.-VQ4Q2PI180.?`L8L7PI180.gC1(L2)(Q3)(L2)(Q3)(L8Q4)|(C1)1.0ī270C2(C1(C1C11.))1.5708B1((L2)(Q3)(C2))((Q3)(C2))(B1)1.0ī270B2(B1(B1B11.))1.5708L3180.L2PIJLX(L3): 400-490 CALC OF SSP LONGTL4(2.PITP)(L2)i(L4)1.0ī270L5(L4(L4L41.))1.5798L5L5PIT720.L6180.L5PIL7L6LGL7360.0L7L7360.0LY(L7) K 1100-1490 CALC OF AZ0 P(I)1ī1700) 8000: REAL TIME> 9000: REF DATAH 8000c PP(I):IAIA(I):HH(I){ TTXTR(I):LGLR(I) RORO(I)(TP) + 300-390 CALC OF SSP LAT ,L1(2PITP)(PIIA180) 1(L1)1.0ī270 6L2(L1(L1L11.))@***********************************" 7"THIS PROGRAM WILL CALCULATE THE SUB":"SATELLITE POINT & THE GROUND STATION'S":"ANTENNA AZMITH & ELEVATION ALL AS A":"FUNCTION OF THE REAL TIME CLOCK" 7000: GND COORD 6000: SAT PRINT  I12~ S$(5)"AO-8":P(5)103.2284:IA(5)99.50:H(5)872:DM(5)3:DD(5)21:DY(5)79:OC(5)5305:TH(5)0:TM(5)30:TS(5)00:LG(5)51.5 1D$""$ 2"****************************************"::3)"AMATEUR SATELLITE REAL TIME PROGRAM"::17)"BY K0RZ"::"***** S$(3)"P76-5":P(3)105.7290:IA(3)99.66:H(3)1025:DM(3)3:DD(3)14:DY(3)79:OC(3)13970:TH(3)0:TM(3)10:TS(3)33:LG(3)187 S$(4)"AO-7":P(4)114.9448:IA(4)101.60:H(4)1460:DM(4)3:DD(4)21:DY(4)79:OC(4)19873:TH(4)0:TM(4)2:TS(4)09:LG(4)62.6E S$(1)"RS-1":P(1)120.3894:IA(1)82.56:H(1)1704:DM(1)3:DD(1)21:DY(1)79:OC(1)1745:TH(1)1:TM(1)56:TS(1)35:LG(1)123.7 S$(2)"RS-2":P(2)120.3925:IA(2)82.56:H(2)1704:DM(2)3:DD(2)21:DY(2)79:OC(2)1745:TH(2)2:TM(2)26:TS(2)00:LG(2)134ND$"":D$;"NOMONC,I,O"#: PI3.141592:R6371P(20),IA(20),H(20),OC(20),DM(20),DD(20),DY(20),TH(20),TM(20),TS(20),LG(20),S$(20)D1(20),D2(20),RO(20),TR(20),LR(20),LX(20),LY(20),A2(20),E2(20)  21-40 CONTAIN DATA FOR EACH SATELLIT