L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`ȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍȍҍҍҍҍҍҍҍ ЍЍЍЍЍЍЍЍЍЍЍЍЍЍЍЍ  ԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍԍɍɍɍɍɍɍɍɍɍҍҍҍҍҍҍҍҍՍҍҍҍҍ   ҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍ ЍЍЍ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ЍЍЍЍЍЍЍЍЍ  ύύύύύύύύύύύύύύύύύ   ΍΍΍΍΍ ҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍ  ҍҍҍҍҍҍҍҍ ҍҍҍҍҍҍҍҍҍҍҍҍҍҍҍŭҍҍҍҍҍҍҍŭҍҍҍҍҍҍҍҍҍҍҍҍҍ    ֍̍эԍˍɍǍ΍ԍȍōՍՍڍ΍ӲҍЍč׍׍֍ӳӍ  ҍҍҍҍҍҍҍҍҍҍ čǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍ  ̍̍ŭ̍̍̍̍̍̍̍̍̍̍̍  эŭээээээээээээээŭэээээŭ   ҍŭҍҍҍҍҍҍҍҍҍҍҍҍŭҍҍҍҍҍ ͍͍͍͍͍͍͍͍͍͍͍͍͍͍͍͍͍͍͍͍͍  ՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍՍ    ӍӍӍӍӍӍӍӍӍӍӍӍӍӍӍӍ  ύ ̹̵̶؍čȍƍӍɍՍŭˍ̍ύō͍΍̳ڍǍҍ  ǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍ   ǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍǍ   III-,,,<,<<,8<.>f /(,>.>&H,,,@%%%%%%>.>&H,,,>.>&H,,,$%%%'%%'%'=8,<<< ------@@9>>.>>.6755755%@'''%'%-,--.5575777757555%@$$$$$$566666M"$$$$$,66666n!$$$$$&06666@@@NaMbM55757575777?>?-------@=''%/(,<,<<'??>77575557?? @,<,<,<,<,.>.>.>.>&@@@a%ut.75757777?(-(=(=(=(=(=(=(=(=(=(-%?g ????JII575757(.V =p*8 ''?>.757555- @@%?6-II ?,%?,%?,%?m%'me;?(m-,-59;??&HMI I --,%%g%'%''=8'??<''IIII77??>.75755w--=(-----@$$$$$$-????(-66666%$$$$lI16666&@qu--,%%e??'7?'''%'=(--..5?.%@%-55575@8@%%-,-uu")--,<,<,$m) $$$$?<<$$$066I)%%%$$$66&I----%$$$$$$666666&@@@@---u55757?'I ---,,%%'%'=`>m,P{O{b5oII!$,66L8'@-e%%%'=8=?7775w5%@8tII),!II!$,66@; @+- %%%'%9\?8?7775755%I -- %%%g%'%?'=8<8?7566%$55@@-----@@666666'$$$$$$I -e%%%'%'8<?7775755%@@@@I -- , 6.64037496, 6.62446008, 6.60854592, 6.592632(R 6.64242696, 6.62651304, 6.61059792, 6.594684, 6.64447896, 6.62856504, 6.61265112(\ 6.596736, 6.64653192, 6.63061704, 6.61470312, 6.598788Idn SOURCES:x ASTRONOMY, APR&JUL 82 ASTR' PASS NR, RV<' (NUMBER TO ROUND AND ROUNDING VALUE)^' RETURN RN - ROUNDED NUMBERd' :t' RN(NRRV)' (NRRVRN).5RN(RN1)' RNRNRV' '* :'4 19:9:"PRESS ANY KEY ";:A$::'> :.(H 6.62240808, 6.60649392, 6.59057904):"ENTER D,M,S"7&X :(8):"(FOR SOUTH DEC ENTER -D)"R&b ::(14):"";D1,D2,D3^&l DC$"N"p&v D10DC$"S"v& |& :& :(8):(15)::" ALTITUDE ":& ::(15):"ENTER DD.DDD"& ::(15):"";ALT& & :& ROUNDING SUBROUTINE& :):"ENTER H,M,S"+% ::(15):"";R1,R2,R31% 7% :Y% :(8)::(15):" AZIMUTH ":x% ::(15):"ENTER DDD.DDD"% ::(15):"";AZ% % :% DECL/ALT ENTRY%& :%0 OPT3140,3220%: :%D :(8):(13)::" DECLINATION ":&N ::(14E ":"$J ::(15):"ENTER D,M,S"N$T :(7):"(FOR EAST LONGITUDE ENTER -D)"i$^ ::(15):"";L4,L5,L6u$h LN$"W"$r L40LN$"E"$| $ :$ R.A./AZIM ENTRY$ :$ OPT3000,3050$ :$ :(8)::(12):" RIGHT ASCENSION ":% ::(15 LATITUDE ENTRY# ::# :(8):(15)::" LATITUDE ":W# ::(15):"ENTER D,M,S"~# :(8):"(FOR SOUTH LAT ENTER -D)"# ::(15):"";L1,L2,L3# LA$"N"# L10LA$"S"# #" :#, LONGITUDE ENTRY #6 :$@ :(8):(15)::" LONGITUD'"n ::(8):"FOR GMT ENTER 0"K"x (8):"FOR EDT ENTER 4"o" (8):"FOR EST OR CDT ENTER 5"" (8):"FOR CST OR MDT ENTER 6"" (8):"FOR MST OR PDT ENTER 7"" (8):"FOR PST ENTER 8"" ::(19):"";TZ" " :# HHMM (24 HOUR CLOCK) 5! :12:"(NO PUNCTUATION)"K! ::(17):"";HM$Y! HM(HM$)j! HR(HM100){! MNHM100HR!( TMHRMN60!2 TM$(HM$,2)":"(HM$,2)!< !F :!P TIME ZONE ENTRY!Z :!d :(6):(9)::" TIME ZONE ADJUSTMENT ":::"PRESS FOR PARAMETER LIST";A$0 t 6 ~ :G DATE ENTRYM :l :(8):(17)::" DATE ": (11):(13):"ENTER DD,MM,YY" ::(13):"";DA,MO,YR : TIME ENTRY : :(8):(17)::" TIME ":! ::(8):"ENTERR260:R1R11L. D1(DEC)((DEC)):D2((DEC)(D1))60:D3(D2(D2))60p8 D2(D2):NRD3:RV1:3330:D3RNB D360D3D360:D2D21L D260D2D260:D1D11V :10:8:"R.A. = "R1" "R2" "R3` (12):(8):"DECL = "D1" "D2" "D3* j (20)HAHCRDFLAG122702(HC)0HA360HA?HHHA15PRALST15HHiRA0RARA24:2290 CONVERT TO HMS, DMS R1(RA):R2(RAR1)60:R3(R2(R2))60 R2(R2):NRR3:RV.1:3330:R3RN R360R3R360:R2R21$ R260R2̸̾ECf:pFLAG0.zAZ180FLAG1hSA((ALTRD)(LARD))((ALTRD)(LARD)(AZRD))xDCARS(SA)CA((ALTRD)(LARD)(DC))((LARD)(DC))(1(CA))1E9CA.999999999:(DC)1CACAHCACS(CA)DECDCRD  = ";SA:"ALT = ";ALT:"CA = ";CA:"AZ = ";AZ7A$NNRAZ:RV.01:3330[ :10:8r"AZIMUTH = ";RN (12):(8)*NRALT:RV.01:33304"ALTITUDE = ";RN>(20)::"PRESS FOR PARAMETER LIST";A$HR: \ CONV ALTRD))((DCRD)(LARD)(HARD))2ALTARS(SA)fCA((DCRD)(LARD)(ALT))((LARD)(ALT))(1(CA))1E9CA.999999999:(DC)1CACAAZACS(CA)(HARD)0AZTPAZAZAZRDALTALTRD2050/"DC = ";DC:"SA L40LN((LN))LHLN15-LSTGMSTLHJ&LST24LSTLST24:1830Y0LSTLSTK1_:eD:N CONV RADEC TO ALTAZX:bRAR1R260R33600lRARAK1vDC(D1)D260D33600D10DC((DC))HALSTRA!SA((DCRD)(LAIDERIAL TIME::DN(275MO9)2((MO9)12)DA30pYR4(YR4)0DN(275MO9)((MO9)12)DA30}UTTMTZGMSTK(YR)(0.0657098232DN)1.0027379093UTLA(L1)L260L33600L10LA((LA))LN(L4)L560L63600,2980,3120:1210:* CALCULATE LST41710::W" CONVERT COORDINATE SYSj,OPT1890,2130t61210z@J:T:^ ****** SUBROUTINES ******h:r:| CHANGE OPTION :OPT(OPT1)1:  CALC LOCAL S23:36,0.N$"Q"ĺ(4);"RUN ASTRONOMY"K(N$)1(N$)8ī1520rN$(13)ė::12:18:"*"::154023:868:23::"INVALID ENTRY, REENTER"::P1500:P:1380: INPUT PARAMETERS:(N$)2460,2530,2660,1680,2780,2880 ALT ";ALT#F14:"4) OPT <";APOPT1ğ:"A";::"> "dZOPT2ĺ"A> <";::"B";::">"d23:868:" = NO CHANGE = QUIT"n:x GET RESPONSE:18:"ENTER PARAMETER NR YOU WISH TO CHANGE";:36,38:N$ "6) LON ";(L4);" ";L5;" ";L6;" ";:36,38:LN$K(12):"3) ZONE ";TZ;[ OPT2133036,20:"7) R.A. ";R1;" ";R2;" ";R3(14):36,20:"8) DECL ";(D1);" ";D2;" ";D3;" ";:36,38:DC$(1350236,20:"7) AZM ";AZ <14:36,20:"8): DISPLAY MENU:3:::8:S1$:8COPT1ĺS2$SOPT2ĺS3$a8:S1$:y:14)"PARAMETERS"(8):"1) DATE ";DA;" ";MO;" ";YR;:36,20:"5) LAT ";(L1);" ";;L2;" ";L3;" ";:36,38:LA$0(10):"2) TIME ";TM$;:36,20:PI:RDPI180:K115/BDC$"N":LN$"W":LA$"N"5L:NV DEFAULT PARAMETERST`:tjTM21:TZ5:HM$"2100":2570tDA1:MO1:YR84~L139:L248:L320:L484:L52:L615: WPAFB HOSPR15:R213:R323.0:D18:D213:D342:DC$"S": RIGELOPT1**" 3380:/ARS(X)(X(XX1))WACS(X)(X(XX1))1.57079633cK(100)zI82100:K(I):IS1$" "$S2$" RA-DEC TO ALT-AZ ".S3$" ALT-AZ TO RA-DEC "8PI3.14159265:TP2TION 4 AND "1"ENTERING ALTITUDE AND AZIMUTH"R"INSTEAD OF R.A. AND DECL."y:"THE INITIAL PARAMETERS IN THE""PROGRAM ARE THE COORDINATES""FOR W-P AFB, OHIO AND THE""STAR RIGEL, IN ORION."17:"*** HAPPY STAR-GAZING *AMETER NUMBER TO BE"6H"CHANGED AND ENTER THE DATA"VR"AS INSTRUCTED. WHEN ALL"v\"PARAMTERS ARE SET, PRESS"f" (NO CHANGE) AND THE"p"CONVERSION WILL BE DONE."z3380:"CONVERSION IN REVERSE IS DONE" "BY TOGGLING OPARE: THE DATE, TIME,";"TIME ZONE, LOCAL LATITUDE AND"]"LONGITUDE AND THE OBJECT'S" "RIGHT ASCENSION (H,M,S) AND""DECLINATION (D,M,S)." 3380:*:"THE DATA IS ENTERED BY MEANS"4"OF A PARAMETER LIST. SELECT">"THE PARIS IS PARTICULARLY USEFUL"="FOR THE BACKYARD ASTRONOMER"a"WHO DOES NOT HAVE THE EQUIP-""MENT TO MEASURE EQUATORIAL""COORDINATES WHEN SEEKING A""CELESTIAL OBJECT."3380"THE DATA REQUIRED TO FIND AN""OBJECT GRAM "0 :20:" ( FOR INSTRUCTIONS)": D3380N NA$(27)1010T Xu b"THIS PROGRAM WILL CONVERT" l"ASTRONOMICAL COORDINATES" v"FROM RIGHT ASCENSION AND" "DECLINATION TO ALTITUDE AND" "AZIMUTH AND BACK AGAIN.""THLTITUDE!  HM HOURS/MINUTES4  TM$ TIME : B :V I140:" ";:y I122:I:" ":I:40:" ":I 22 I140:" ";: 32,5:33,30 34,5:35,21 &: 09:9:" ASTRONOMICAL "::9:" CONVERSION "::9:" PROL TIME! h UT UNIVERSAL TIMEF r TZ ADJUSTMENT FROM TM TO UTf | LST LOCAL SIDEREAL TIME}  HA HOUR ANGLE  GMST GREENWICH MEAN SIDEREAL TIME  SA SINE OF ANGLE  CA COSINE OF ANGLE  AZ AZIMUTH  ALT AONSTANT = 15#  DC$ N OR S DEC8  LA LATITUDEU  L1,L2,L3 D,M,S OF LATl " LA$ N OR S LAT , LN LONGITUDE 6 L4,L5,L6 D,M,S OF LON @ LN$ E OR W LON J RA RIGHT ASCENSION T R1,R2,R3 H,M,S OF R.A. ^ TM LOCAONOMY, JUN 83& MODIFIED 15 JUN 83, I WPAFB OH COORDINATESb LAT = 39 48' 20"{ LON = 84 02' 15" DEFINITION OF VARIABLES K ANNUAL VARIABLE TP TWO * PI RD RADIANS/DEGREE K1 C  APPLE DAYTON7 ASTRONOMICAL CONVERSIONL PROGRAMR(l2 WRITTEN 22 MAR 1982< BY RON DAWESF 882 CHESTNUT CIRCLEP WPAFB OH, 45433Z 1-513-879-0248dn SOURCES:x ASTRONOMY, APR&JUL 82 ASTR            "TAKE EFFECT."316:8:"HAPPY STARGAZING"=1030Z(4)"RUN CONSTELLATION"`:s WAIT ROUTINEy:20:9:"PRESS ANY KEY ";:A$$.n7:9:" INSTRUCTIONS "x9:9:" FOR THE " 11:9:"CONSTELLATION PRESS 'E'",z" AGAIN, TO TURN OFF."2D" Q - QUIT"W1030:: WAITq"ONE FINAL NOTE -":"WHEN SELECTING THE ECLIPTIC""OPTION OR CHANGING THE SCALE""YOU MUST REENTER THE CONSTEL-""LATION FOR THESE OPTIONS TO" " 9 - LARGEST"*<4" E - TOGGLE ECLIPTIC.`>" OVERLAYS A DOTTED LINE"H" REPRESENTING THE PATH "R" OF THE PLANETS. THE"\" EARTH'S SYMBOL IS DIS-"f" PLAYED UPPER RIGHT" p" WHEN ON. " CONSTELLATIONS"<" / - FLIP TO FULL PAGE"W" GRAPHICS MODE"]|" CR - (CARRIAGE RETURN)"" FLIP BACK TO MIXED"" TEXT AND GRAPHICS"1030: "1-9 - SET SCALE FACTOR."" 1 - SMALLEST"BREVIATIONS ARE INDICATED"<N"WHEN THE HELP OPTION ('?')"PX"IS SELECTED."ab1030: WAITglv"WHEN PROMPTED TO ENTER""A CONSTELLATION, SEVERAL""ADDITIONAL OPTIONS ARE""AVAILABLE:"" ? - LIST THE AVAILABLE""SMALLEST IMAGE, AND 9 THE". "LARGEST."C 1030: WAIT I l "I'VE TRIED TO MAKE ENTERING" "CONSTELLATION NAMES AS SIMPLE" &"AS POSSIBLE. IN MOST CASES" 0"ONLY THE FIRST THREE LETTERS" :"ARE NECESSARY. SPECIAL"D"AB"THE EARTH SYMBOL IS DISPLAYED"D "UPPER RIGHT IF THE ECLIPTIC"_ "OPTION IS SELECTED."s 1030: WAIT y  "THE CONSTELLATION NAME IS" "DISPLAYED BOTTOM CENTER AND" "BELOW IT IS THE CURRENT" "SCALE (1-9), 1 GIVING THE" ND MINUTES OF"3 @"RIGHT ASCENSION (BOTTOM LEFT)"U J"AND DEGREES OF DECLINATION"l T"(BOTTOM RIGHT)."r ^ h"THE ASTROLOGICAL SYMBOL IS" r"DISPLAYED IN THE UPPER LEFT" |"CORNER FOR THE CONSTELLATIONS" "BELONGING TO THE ZODIAC."! THEIR RELATIVE"1 "POSITIONS AND BRIGHTNESSES"Q "BASED ON DATA TAKEN FROM"s "THE AMERICAN EPHEMERIS AND" "NAUTICAL ALMANAC." 1030: WAIT  ""THE COORDINATES OF THE CENTER" ,"OF EACH CONSTELLATION ARE" 6"GIVEN IN HOURS AS" 1030 6 "THIS PROGRAM PLOTS THE STARS"W "OF THE BRIGHTEST CONSTEL-"| "LATIONS IN THE NORTHERN HEMI-" "SPHERE INCLUDING ALL OF THE" "CONSTELLATIONS OF THE ZODIAC." :"STARS DOWN TO MAGINITUDE 4.7" "ARE PLOTTED IN " CONSTELLATION INSTRUCTIONS(:2::F(I140:" ";:i2I122:I:" ":I:40:" ":Iq<22FI140:" ";:P32,5:33,30Z34,4:35,21dn7:9:" INSTRUCTIONS "x9:9:" FOR THE " 11:9:"CONSTELLATION  RPIO,SAGITTARIUS,CAPRICORN,AQUARIUS,PISCES CASSIOPEIA,ANDROMEDA,PEGASUS,CEPHEUS,HERCULES,PERSEUS,CORONA BOREALIS,OPHIUCHUS,AQUILA,URSA MAJOR,URSA MINOR,CANIS MAJOR  LYRA,DRACO,AURIGA,BOOTES,CYGNUS,CETUS,ORION. THIS PREVENTS HI-RES PAGE 1 FRWAIT ROUTINE:419:9:"PRESS ANY KEY ";:A$:@ F :^ DRAW ZODIAC SIGNSd$ :s. DX5:DY20z8 7B I112L (C$,5)(CC$(I),5)Ĕ(10I)DX,DY:V I` j :t 31*~ ARIES,TAURUS,GEMINI,CANCER,LEO,VIRGO,LIBRA,SCOHNC1RC$""6\23::"NO SUCH CONSTELLATION":^fI110:BZ(S):PAUSE15:PAUSE,IwpPAUSE11000:PAUSE}z: DRAW FRAME::60,0278,0279,1910,1910,00,159279,159ECLĒ7:3257,20:   :' VERIFY CONSTELLAITIONS-:_C$"CMA"C$"CANIS MAJOR"C$"CANIS MAJOR": C$"UMA"C$"URSA MAJOR":C$"UMI"C$"URSA MINOR": C$"AQL"C$"AQUILA"C$"AQUILA":*I1C4(C$,3)(CC$(I),3)C$CC$(I):>Iz#?XʰӠ Ӡ Ӡ Π Ӡ ӠҠ ҠϠӠ Ϡ Π Ӡ Ӡ Ҡ  Ӡ Ӡ ɠ Ϡ Ӡ  Ӡ  ϠΠ" ԠӠ Ӡ Ӡ Ϡ Ҡ Ӡ ŠǠŠ̠Š Šϭ,Šϭ,!٠"Π ԠҠ ̠Ϡ ̠Ϯà!ŠҠŠΠנŠҠ Š Š̠Ԡ@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys$'1.'*** WRITTEN BYI8'*** LYNELL JACKSONcB'*** JANUARY 14, 1987iL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DNDAY-SATURDAY." #"";#"TECHNICAL SUPPORT HOURS ARE"l#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." t#""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." '#"A DIVISION OF U.S.COMPUTER SUPPLY INC."M d#"511-104 ENCINITAS BOULEVARD"h n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST MO24:7110 vGO$: ! 8 TB%(21(PR$)2)G TB%:PR$;M S (#p +#<*** DATA LOCATION ***>v /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY"* Z16297,1:16300,1:16301,1:16304,10 70106 > :K I1ND%] PR$:I:7110d In 7010t  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" lGF%11110 :C PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"Q 10:7110~ PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"& CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>   <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp0TO 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" COXOCC|TRT0T'CTH(TR60);CTM(TR60.TH)XCTS((TR60.THTM)60.)CTH;":";TM;":";TS;11)A2(1);16)E2(1);22)A2(2);27)E2(2);32)LX;36)LYCfC'4 5000-5999 USED TO PRINT OUTPUT1BOCRO(TP)@BP$"Y"Ċ1QBOXOCī5500\B:(2)B"----------------------------------------"B5)"SATELLITE ";S$;25)"ORBIT ";OCBB2)"TIME";11)"AZ-1-EL";22)"AZ-2-EL";32)"LAT";36)"LNG"C4)AY10ī1450"AA1B3:14700AA1360B3=AA2(A1)_A 1500-1590 CALC OF ELEV HEADAEL(((C2)(R(RH)))(C2))AE1EL180.PIAE2(E1)AJA2(J)A2:E2(J)E2AJ1Q1Q1(2):Q2Q2(2):J2:1100AJ2J1A5000A292 B@1.05C1H1ī292+@C11C20:1300D@C11C2PI:1300f@C2(C1(C1C11.))1.5708@B1((L2)(Q3)(C2))((Q3)(C2))@B11B20:1320@B11B2PI:1320@B2(B1(B1B11.))1.5708@(B3B2180.PIAY1(L8QL41.))1.5798"?L5L5PIT720.5?L30L5L5PIG?L6180.L5PIT?L7L6LGq?L7360.0L7L7360:431~?LY(L7)?K 1100-1490 CALC OF AZMITH HEAD?LQ3Q1PI180.?VQ4Q2PI180.?`L8L7PI180.@C1(L2)(Q3)(L2)(Q3)(L8Q4)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)LITES"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"---------          ōōōōōōōϭϭ   -------------------------------"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):'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):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 DEGRE"SAT NAME ";S$:/6\"SAT PERIOD (MIN) ";P:M6]"SAT ALTITUDE (KM) ";H:m6^"SAT INCL ANG (DEG) ";IA:s6_|6a1106d:(3):15)"FOR ";S$:6e 110-180 INPUT OF REF ORBIT DATA;7i" THE FOLLOWING NEEDED INFORMATION IS":" OBTAINED FROM A SA-1":10065HP120.3894:H1711:IA82.55:S$"RS-2":100i5KP105.729:H1025.968:IA99.655:S$"P76-5":1005MP114.9448:H1460:IA101.4867:S$"AO-7":1005NP103.2258:H922:IA98.921:S$"AO-8":1005Z:"* * * * ENTER NEW SATELLITE DATA * * * *":6[AMETERS>42"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     (E))J,EE(PERE1)EC0J,(EE)1.0ī11500QJ,LE(EE(EEEE1))1.5708fJ,EPILE2PILEqJ,HRERJ,LELEPIAPJF-JP- 11600-11800 CALC FOR CIRC ORBITJx-LE2PITPJ-H(HAHP)2J-REHRJ.J0uL CIRC ORBIT BY-PASSI+TET2I+TE0E0:11400CI+TE0ī11260OI+TEPTEZI+11230kI+TEPī11290wI,TETEPI ,TE0ī11220I,11260I,J1I$,J1361I.,TETE(J)ĂJI8,EJ2(TETE(J1))(TE(J)TE(J1))IB,EEPI180J,REAE(1EC/Hz+"* CALCULATION OF ELLIPTICAL PARAMETERS *";H|+:(20)jH~+"DON'T DISTRESS-RESULTS WILL FOLLOW SOON"pH+}H+J0360H+J1PI180JH+TE(J1)(J1EC(J1))P(2PI)H+JH+H+ 11200-11990 CALC OF ELIPTICAL ORBIT DATAI+HAHPī11600:(EL)GX*D2(D1)G*LG* 11000-11990 CALC OF ELIPTICAL ORBIT PARAMETERS_G+AE(HAHP)2RrG +EC1(HPR)AEG+PEAE(1ECEC)G +P(AEAEAE36.4085E06)G>+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:~ 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        T0TATH(TR60))ATM(TR60.TH)FATS((TR60.THTM)60.)xATH;":";TM;":";TS;12)A2;19)E2;30)LX;36)LY~AfA'MD TO PRINT OUTPUT"@OCRO(TP)1@P$"Y"Ċ1B@OXOCī5500M@:(2)}@"----------------------------------------"@5)"SATELLITE ";S$;25)"ORBIT ";OC@@2)"TIME";10)"AZMITH";18)"ELEV";30)"LAT";35)"LONG"@@OXOCA|TR(B1(B1B11.))1.5708+?(B3B2180.PI;?Y1(L8Q4)K?Y10ī1450[?A1B3:1470i?A1360B3v?A2(A1)? 1500-1590 CALC OF ELEV HEAD?EL(((C2)(R(RH)))(C2))?E1EL180.PI?E2(E1)?5000?292@ 5000-5999 USE>`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.L2PI 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            $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 TI                !!! ! ! ! ! !!!!!!