' +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`a(ՠĠ)FE(Ӡ١)+va(ˠϠՠҮǠƮ) {R@QqUVWqY[q\M6 Lf*lmnij kijk f0ghgh gh gh gh *i٠ӠĠή)c(a(ӠΠӮ)&c-0a(ӠԠΠӠ)):a(ŠӠŠȮ)Dc+Na(à)E@E(ՠĠŠ)Xa(ŠΡ)qbc%lӠנԠŠŠĠ)a(ŠԠҮ)c+a(ҮӠŠԠƠŠ)(a(ŠӠ)-a(ŠĠҠή)c*a(Ӡ٠Ƞ). a((ΠӠҠΠš))a(ΠϠӮĠƠ)+a(ǠŠάŠӠΡ)c*a(ƠՠĠŬנ٠)a(ĠՠԿ) cR@c+a(ӠӠŠĠƠӠάԠ).a(Ӯ),Ya(ՠȠԬӠՠĠ)*^a(ϠĠԠϠӮҠҠŠ)ha(ҠӮ)r\d)|a(ӠŠĠҬҠӠ)-a(ԠԮϠŠҠϠ))a(ԬȬŠĠŠԠ)*aԠԬ)E@E(Ġՠ),a(ŠϠŠ٠Ԡ٠)"a(ĠƠ),\d 6R@c;`@*#r9()%_ (@a(٠ΧԠՠŠԠ)-Ja(ԠנҠŠĠŠ)-Ta(ƠŠ٠٠Ġa(ŠΡ)q\d)a(ҠӠŠԠƠ̠Š)-a(ӮҠŠӠŠ).a(٧ƠŠŠԠ٠ȠŬ),a(ҧӠ٠ĠԠ٠)a(Ġӡ)\d,a(ˠĠҠή)-a(ĠՠŠנӠĠ),a(ŠԠԠŠƠ͠)a(ҿ)\dR@`@*#r9()%_b\d,a(ì)E@E(ԠӠŠ)-a(ϠŠԠՠŠĠΠ)),Pa(̠ĠϠҬҠ),Ua(͠ΠҠˠŠϠРծ)_c&da(Šՠ٠ϠϠά)E@E() nR@cx`@*#r9()%_b \d\d*a(ŠŠĠԠŠŠ),a(ӠȠŠΠήΠΠ)*a(ŠŠӬŠŠϠ)+a(٠̠ӠĠӬ),(a(ҠӬҠӮԠ)--a(ŠҠӠŠ٠נ)2a(Ӯ)<\d)Fa(ƠՠŠ٠ӠΠ KNAPP  (********************** WN, A TABLE IS PROVIDED WHICH LISTS"P"THE B-VALUES OF MANY COMMON OBJECTS."Z::"PRESS TO CONTINUE ";Z$&********************** DONATED TO APPLE PI  JULY, 1980  BY JAN BYBEE AND SCOTTURE "0"TIMES PRINTED IN A TABLE OF COMMON "["F-STOPS, OR THE EXPOSURE TIME FOR A"q"SINGLE F-STOP.":"IN ORDER TO PHOTOGRAPH AN OBJECT, ITS""BRIGHTNESS VALUE (B-VALUE) MUST BE""KNOWN. IF AN OBJECT'S B-VALUE IS UN-"$"KNOWHICH"'|"YOU WANT TO PHOTOGRAPH ";B-R(10)::"PROGRAM DESCRIPTION"::"THIS PROGRAM PROVIDES THE USER WITH ""EXPOSURE TIMES FOR PHOTOGRAPHING COMMON""CELESTIAL OBJECTS. THE USER MAY ""CHOOSE THE OPTION OF HAVING EXPOS"0.000002"6,:"MIDDLE OF ORION NEBULA";27)"0.001"Y6:"MOST NEBULAE";27)"0.0001"~@:"MIDDLE OF M-31";27)"0.0001"J:"MOST GALAXIES";27)"0.00001"T:"MILKY WAY";27)"0.00001"^1650h240r:"ENTER THE B-VALUE OF THE OBJECT "INNER CORONA";28)"50"9:4)"MIDDLE CORONA";29)"5"\:4)"OUTER CORONA";29)"0.5":4)"ECLIPSE SKY";29)"0.O1":4)"HORIZON (ECLIPSE)";29)"O.5"1650240::(10):"DEEP SKY OBJECTS": ":"PERFECT COUNTRY SKY";27)INES, 41.6,-93.6($ DETROIT, 42.6,-83G$ GREAT FALLS, 47.5,-111.3c$ HOUSTON-TX,29.8,-95.6$ INDIANAPOLIS-IN,39.8,-86.1$ JACKSONVILLE-FL,30.3,-81.6$ KANSAS CITY-KA,39.1,-94.6$ KNOXVILLE,36,-84$ LAS VEGAS-NV,36.1,-115.1% IRMINGHAM,33.5,-86.8?# BOISE-ID,43.6,-116.2,BOSTON,42.4,-71[# CHARALOTTE,35.2,-80.8u# CHEYENE,41.2,-104.8# CINCINNATI,39.1,-81# CLEVELAND,41.5,-81.7# COLUMBIA-SC,24,-81# DALLAS,32.8,-98.8# DENVER, 39.7,-105$ DES MO0:::L" - THIS ROUTINE PRINTS BLANK LINES AFTER EVERY 55 LINES OF DATAR"X"^"d"j"p"v"|""K0""3:5);"LOS ANGELES -- 34 N. -118.2 N"" ANCHORAGE,61,-150,ATLANTA,33.75,-84.4# BANGOR-ME,44.8,-68.8,B1979":1650"!D(16384)1551690!I(16384)1601855"N16368, * * *":1650  2  TITLE PAGE ROUTINE_ 3:CT$"* GREAT CIRCLE BEARINGS *":1650} CT$"BY JOHN HEISE":1650 CT$"NOVEMBER 1977":1650 CT$"DONATED BY WILLIAM R. DIAL":1650 !CT$"AKRON OHIO USER GROUP":1650 !#CT$"SEPTEMBER 530R22701700$R290.1700A@(L)1781640OEBA1630YJR20cT1700o^R2180yc1700hBA1630m1610r PRINT CENTER ROUTINEw20(CT$)2|CT$"" 16368,0:::10:CT$"* * * THE ENDR3(L)(A1)(B2)(B2)(A1)8R4((1R3R3)R3)QR6(B2)(L)(R4)_X11240t(R6)(R)1230R2360(R2)1700R2180(R2)1700(R6)(R)1255R2180(R2)1700R2(R2)1700X11(1RR))D -CONVERT BEARINGS TO DEGREES ROUNDED TO NEAREST INTcR2((R11803.14159).5) - DETERMINE WHAT QUADRANT THE BEARING ANGLE IS IN AND ADJUST THE DEGREES(R).9999981500(R).001741600B2(B.1)3.14159180P11803.14159En - DISTANCE ANGLE MUST BE POSITIVE IF NOT ADD 180ToP201145^t1150myP2P2180} - COMPUTE DISTANCE~D1(P2601.15152.5)D2(D11.6093.5) - COMPUTE THE BEARING ANGLER(B1)(L)(P1) R1(R8010351040LL360(11005 LL360CL01100LX1oL - CONVERT L AND B TO RADIANSVB1B3.14159180[LL3.14159180_ - COMPUTE THE DISTANCE ANGLE`P(L)(A1)(B1)(A1)(B1)eP1((1PP)P)jP2OTHER POINTS CALCULATED? YES OR NO"*2T$DT$"YES"705M250 - 1000 SERIES SUBROUTINE PERFORMS ALL CALCULATIONSLL2L1 - X IS A FLAG FOR TESING LX0 - BRING L WITHIN RANGE -180 TO 180L1801025L1T POINT."B?"ENTER LONGITUDE OF DISTANT POINT."GL2Q1000W"DISTANCE FROM ";W$;" TO ";M1$;" IS ";D1;" MILES.""THAT DISTANCE IS ";D2;" KILOMETERS.""BEARING TO ";M1$;" IS ";R2;" DEGREES."$ "DO YOU WANT K0:6502000"640(1250 THE 700 NUMBERED STATEMENTS MAKE UP THE ROUTINE TO CALCULATE USER ENTERED COODINATES ONE AT A TIME10"ENTER DISTANT LOCATION DESIGNATION"M1$ "ENTER LATITUDE OF DISTANG."3"----------------------------------------">KK1IJJ1VM$,B,L2lM$"ENDATA2"696v1000J;5);M$;15);B;"/";L2;25);D1;31);D2;37);R2K18ľZ$:K5ĺK18K0:K10ĺK15ĺ650K18klmn flmn$ *g$h$/a(ՠԠԠ)4qX\KM6>[6 a(ՠΧԠŠȠŠҠ١)\d_@  N@"r`@*#r9()%_Q jk l mn l mnf *ijkijk l mn+l mngh gh gh f 7lmn lmnijkijk/ flmnlmnijk"fij4.5,-59,LX,50,7,LZ,43,23,MI-SEE-9A,44,12W4r OA,-13,-77,OD5,34,35.5,OE,48,16,OH,60,254w OH0,60,20,OJ0,61,20,OK,50,14.5,ON,51,4,OX,73,-404| OY,62.5,-8,OZ,55.5,12,P29,-9,147,PA,53,5,PJ,12,-694PJ8,18.5,-63,PY,-16,-47,PY0-F.DM.,-3.5,32.5(5 P,28,-178,KJ6-JOHN,17,-168,KL7,61.2,-149.8X3Y KM,28,-178,KP4,18.5,-66.5,KP6-KIN,6,-1623^ KP6-PAL,7,-162,KR6-DEL,26,128,KS4-SWAN->HK0,17,-833c KS4-SERR,14,-80,KS6,-15,-169,KV4,19,-64.53hKW6,19.5,167,KX6,9,168,KZ5,9,-79.5,LA,60,10.5(4m LU,-3,71,-9,JY,32,36,K1-K2,42,-74[2@ K3,40.5,-76,K4,34,-82,K5,33,-97,K6-SF,37,-122,K7,40,-1442EPAUSEI14000::"TO CONTINUE HIT ANY KEY";:A$2J KC6-EAST,10,139,KC6-WEST,8,160,KG4,20,-752O15:"WHAT IS YOUR LOCATION (HOME QTH) ? "W$)3T KH-KURF78,HK0-MAL,4,-81F1' HK0-SAN-A,12,-82,HL,38,128,HP,9,-80,HR,13.5,-87x1,HS,13.5,100.5,HV,41.5,13,HZ,24.5,47,I,41.5,1311 IT,38,13,IS,39,9.5,JA,35.5,140,JD-OGA,27,13716 JD-M-T,24,154,JD-OKINO,25,132,JT,48,107,JW-SVAL,77,142; JW-BEAR,75,19.5,JX7-TROM,-16,5570 VK5,-34,139,VK6,-31,116,VK7,-43,147s0 GJ,49.5,-3,GC,49.5,-3,GD,54,-5,GI,55,-6,GM-SCOT,56,-30 GM-SHET,60.5,-1,GW,51,-4,HA,47,19,HB9,46.5,8.50 HB0,46,10,HC,-.2,-79,HC8,0,-90,HH,19,-72,HI,19,-701" HK,4.5,-74,HK0-BAJO,16,-7,16,61.5,FH8MAYOT,11,43,FH8COMD6,11,43n/ FK8,-22,167,FL8,11,42.5,FM8,14.5,-61,FO8-CLIP,10.3,-109.5/ FO8-TAHITI,-17.5,-149.5,FO8-GAMB,-23.5,-135/ FP8,46.5,-55.5,FR7-GL,-11,47,FR7/J.DE.N,-20,40 0  FR7-EU,-22.5,40.5,FR7-REUM,-21,56,FRWEST,50.5,8,DM-EAST,53,13,DU,15,121Z. EA,40.5,-4,EA6,39.5,3,EA8,28,-17,EA9-CEUTA,36,-7. EA9/R-DEL,25,-14,EA9/S-DEL,25,-14,EA0->3C,1,10. EI,53,-7,EL,6,-10.5,EP,36,51,ET,9.5,39,F,49,3. FB8Z,-38,77.5,FB8W,-46,51,FB8X,-49,70,FC,41.5,9./F633,-8,CP,-16,-68.5,CR3,12,-16L- CRA->D4,15,-24,CR5,.3,7,CR6->D2,-13.5,16|-CR7C9M,20,35,CR8Ʌ,9,125,CR9,22.5,114.5- CR10-DEL,-9,125,CT,38,-9.5,CT2,37,-27 ,CT3,33,-18-CX,34.5,56.5,D2A,13.5,16,D5,15,24,D6,11,43#. DL-DEL,50.5,8,DA-U,27,89,AC4-DEL,29.5,91.5,AP,29,69Z, BV,25,121.5,BY-N,40,116,BY-CTR,36,104,BY-S,22,115, C21,-.5,168,C31,42,2,C5A,13,-17.5,C6A,25,-77.5, C9M,-20,35,CE,-33,-70,CE9-ANTR,-90,-90, CE0A,-27,-109.5,CE0X,-26,-80,CE0Z,-34,-80- CM,23,-82,CN,YDENY,-33.9,151.1;+TOKYO,35.8,139.8,TORNONTO,43.6,-79.3f+VANCOUVER, 49.2,-123.1,WARSAW,52.2,21+WELLINGTON-NZ,-41.5,174.8+$WINNIPEG,49.9,-97.1+ ENDATA1,1,1+ A2,-24,26,A35,-20,-174,A4,23,58,A6,25,50,A7,25,51", A9,27,50.5,AC3->VOSLO,59.9,10.85* PARIS,48.9,2.3,PEKING,39.8,116.5 ]* PRAGUE-CZ,50.1,14.4,QUITO,-.5,-78}* RIO DE JANERIO,-22.9,43.2* ROME,41.9,12.5* SAIGON,10.8,107* SAN JUAN,18.3,-66* SANTIAGO,-33.5,-71,SEOUL,37.6,127+STOCKHOLM,59.4,18,S) ISTANBUL,41,29.) JERUSALEM,31.8,35.2K) JOHNANNESBURG,-26.2,28b) LISBON,38.8,-9.1v) LONDON,51.5,0) MADRID, 40.4,-3.7,MANILA,14.6,121,MEXICO CITY,19.3,-99.1) MONTREAL,45.5,-73.5,MOSCOW,55.8,37.7) NEW DELHI,28.6,77.2* KOK,13.8,100.79( BELGRADE,44.8,20.4,BERLIN,48.8,13.3 N( BOGOTA,4.5,-74( BRUSSELS,50.9,4.4,BUENOS AIRES,-34.5,-58.5( CAIRO,30,31.2,CALGARY,51,-114( CARACHAS,10.5,-67( COPENHAGEN,56,12.5( GENEVA,46.2,6.1( GENEVA,46.2,6.12'{ ST. LOUIS-MO,38.7,-90.3>' SALT LAKE CITY,40.8,-112^' SAN FRANCISCO,37.8,-122.4{' SEATTLE-WA,47.6,-122.4' WASHINGTON-DC,38.9,-77' WICHITA-KA,37.7,-97.4' AMSTERDAM,52.4,4.9' ANCHORAGE, 61,-150( ATHENS,37.95,23.7,BAN0&N NEW YORK-NY,40.7,-746&S NORFOLK-NC,37,-76.3X&X OKLAHOMA CITY-OK,35.5,-97.5p&] OMAHA-NB,41.3,-96&b PHILADEPHIA-PA,40,-75.2&g PHOENIX-AZ,33.2,-112&l PITTSUBUR-PA,40.4,-80&q PORTLAND-OR,45.5,-122.7'v RAPID CITY-IA,44,-103. LITTLE ROCK-AR,34.7,-92.3:%! LOS ANGELES-CA,34,-118.2Y%& LOUISVILLE-AR,38.2,-85.7s%+ MIAMI-FL,25.8,-80.5%0 MINOT,48.2,-101.3%5 MINN-ST.PAUL,45,-93.1%? NASHVILLE-TN,36.1,-86.8%D NEWINGTON-ARRL,41.7,-72.7&I NEW ORLEANS-LA,30,-9@|TTp0HHHDDD8HHH0XTT8 ~|RRLx@zHz@@D(@Axx|x|8DDD8 ~~ |$TTHD?|@@@< @ <@0@<D((D~PPNDLTdD8z8SCO FOR USE OF MEMBERS BY.. WILLIAM R. DIAL SEPTEMBER 1979..sA.' GIVEN TO LOS ANGELES A3' APPLE CORPS JAN 1980A8' LAST MOD. SEPT 1979 TO MEET CONVENTIONS.. BY LEROY LARSEN..AB'AL' 'GREAT CIRCLE'Bj'5,9U,-3,29.5B@ 9V1-SING,1,104,9X,-2.5,30,9Y4-TR & TOB,10.5,-61T@ ENDATA2,2,2Z@'s@' PROGRAM WRITTEN BY@' WA4VID, JOHN HEISE @' SUBMITTED BY@' WM. R. DIAL@' AKRON USER GROUP@'WA$' GIVEN TO APPLE CORE OF SAN FRANCIS6Y5,18,-77,7O-ADEN,12.5,44.5I? 7O-SOC,12,54,7P8,-29.5,28,7Q7,-15.5,36x? 7X,36,3,8P6,12.5,-59.5,8Q,4,73,8R1,7,-59?8Z,29,47,9A1,44,12,9G,5.5,0,9H,36,14,9J,-16,28? 9K,29,48,9L1,8,-13.5,9M-EAST,1.5,110.5 @ 9M-WEST,3,101.5,9N,27,85,9Q,-5,1 3X,9.5,-14,3Y,-54.5,3,4M->YV,10.3,-67Y>q 4S7,7,80,4U-ITU,46.5,8,4W,15.5,44,4X4,32,35>v 5A,33,13,5B4,35,33,5H1,-7,39.5,5H3,-8,35>{ 5N,6,3,5R8,-19,48,5T5,18,-16,5U7,13,2> 5V7,6,1,5W1,-13,-171,5X5,.5,32,5Z4,-1,37? 6O6,1.5,45,6W8,15,-17,/=S ZL-ANT,-50,179,ZM7,-9.5,-171,ZP,-24.5,-58i=X ZS,-34,19,ZS2-MAR,-47,37,ZS2-P.E.,-46,38,ZS3,-22,18=] 1S,15,115,3A,44,8,3B7,-16,59.5=b 3B8,-20.3,55,3B9,-20,63,3C,11,-17,3CO,-2,6=g 3D2,-18.5,179,3D6,-26,31,3V8,37,10.3,3W8->XV,10.3,107'>l3,ZD3->C5A,13,-17,ZD7,-16,-6Q5B4,35,3-4,55.5*:VR1-PH.,-4,-171,VR1-GI,-4,176S:  VR2->3D2,-18.5,179,VR3/VR7,-1,-156t: VR4,-9.5,160,VR6,-25.5,130:VS5,5,114,VS6,22.5,115,VS90->8Q,4,73,VS9K-DEL,15,41: VU-BOMBAY,19.5,73,VU-ANA,12,92,VU-LACC,11,72;! VX/VY-VE,43,-60,XE,19.5,-VP2E,19,-63,VP2G,12,-61,VP2L,14,-61P9VP2M,17,-62,VP2S,13.5,-61,VP2V,19,-64.59VP5,21.5,-71,VP6->8P6,27,-78,VP7->C6A,25,-77.59 VP8-FA,-51.5,-59,VP8-GA,-53.5,-37,VP8-OR,-61,-45: VP8-SA,-58,-27,VP8-SH,-63,-55,VP9,32,-65,VQ9-CH,-7,71,VQ9-SEY,1-SABLE, 43,-60,VK,-34,151W8 VK2-LOARD-N,-32,160,VK3-NEL,-38,145,VK4-WILLIS,-16,1508 VK8,-12,131,VK9N,-29,169,VK9X,-11,1068 VK9Y,-12,97,VK9-MELLISH,-34,179,VK0-HEARD,-54,738 VK0-MACO,-54,159,VP1,17.5,-88,VP2A,18,-62,VP2D,15.5,-61.5#958,UI8,41,69E7UJ8,39,69,UL7,43.5,77,UM8,43,75,UO5,47,29,UP2,54,25|7 UQ2,57,24,UR2,59.5,24.5,VE/VO1,48,-55,VE1,46,-637 VE2,46,-71,V02,53,-60,VE3-CTR,50,-86,VE4,50,-977 VE5,52,-107,VE6,54,-113,VE7,55,-125,VE8-NE,70,758 VE8-W,65,-125,VE,11,TL,5,19,TN,-5,15,TR,0,10,TT,12,16d6 TU,5.5,-4,TY,6,2,TZ,15,-3,UA1-F.J.L.,80,55,UA-MSCW,56,336 UA2,55,20.5,UA9,57,60,UA0-NOVOS.,56,92,UA0-IRKUT.,52,114,UA0-YAKUTSK,62,130,UB5,50.5,30.5,UC2,54,27.5 7 UD6,40.5,50,UF6,42,45,UG6,40,44.5,UH8,38,Y0-ST.P,.5,-29.5,PY0-TR,-21,-29,PZ,6,-55Z5 S2,23.5,90.5,SM,59,18,SP,52.5,20.5,ST,16,325 SU,30,31,SV-CRETE,34.5,25,SV-GR,38,24,SV5,35.5,285 SY-MT.A,41,25,TA-CTR,40,32.5,TA1-EUR,41,295 TF,65,-21,TG,15,-90.5,TI,10,-84,TI9,5.5,-87%6 TJ,4NEEDS TO BE CHANGED IS THE DATA LINE FOR THATb SATTELITE, AND THE NUMBER OF SATTELITES IN THE FILE (NAMED NS). ALSO, THE LINE PRINTING THE 'SATTELITE IDENTIFIERS' MUST BE AMMENDED APPROPRIATELY. ADDITIONAL SATTELITES MUST, BE OCUMENTATIONI THIS PROGRAM HAS BEEN WRITTEN WITH AN ATTEMPT TO MAKE IT ADAPTABLE TO ANY SATTELITE. IT CAN BE USED FOR OTHER SATTELITES SIMPLY BY CHANGING THE DATA LINE FOR THE PROGRAM 'OSCARLOCATOR FILE INIT'. ALL THAT- ;PN(C)PS(C)RO(C):"LONGITUDAL INCREMENT = ";LN(C)LS(C)RO(C)L<PFľJ$SFC\P0:bZd******************************************************n******************************************************x  D1PEPN(C)PS(C)RO(C)5INLN(C)LS(C)RO(C)IRT(C)RT(C)PE]RC(C)RC(C)INsRT(C)1440ī1160RT(C)RT(C)1440RC(C)RC(C)360 D1D11D1MO(M1)ĪD1D1MO(M1):M1M11PFľJ$(C2?2:"ORBITAL PERIOD = "(J60):MN(J60HR):SE(60(JMN60HR)):HR$(HR):MN$(MN):SE$(SE):HR10ĪHR$"0"HR$tMN10ĪMN$"0"MN$SE10ĪSE$"0"SE$(RC(C)ID(C)RC(C)AD(C))(RC(C)IN(C)RC(C)AN(C))ĺRO(C),HR$;MN$;":";SE$,(RC(C)10.5)10RO(C)RO(C)D:? -ORBIT CONSTANTS ARE LOCATED STARTING AT LINE 200.Z --------------------p -OSCAR PROGRAM- -G.PARKER,WA60HT- ---NOV. 1978- ORBIT CONSTANTS UPDATED APRIL 1980S0:L30 &(Y4(Y4))0L51=((Y100(Y100))0L21Z*(Y400(Y400))0L31m,L0(.4M2.3).YDD31(M1)(L0L5L2L3)(M2)38 J.D. SUBROUTINE<1050>J0(365.25(Y1))((Y1)100)((Y1)400)1721425@JDJ0YMINUTES"*v:"INCREMENT = 25.5 DEGREES"Ix:"FREQUENCY = 137.62 MHZz:"TIROS N IS A WEATHER SATELLITE. IT":" TRANSMITS WEATHER PICTURES"|:"LIST 240,249 FOR ORBIT DATA"~528 - Y.D. SUBROUTINE -YY1900(Y100)$L50:L2: 29.400 MHZ"6T:"TRANSPONDER NO LONGER ACTIVE."YV:"ORBIT DATA GIVEN FOR RS1."~X:"LIST 230,239 FOR ORBIT DATA"Z528l:::n10)"TIROS N INFORMATION"::p"LAUNCH DATE : 1978"r:"INCLINATION = ?"t:"PERIOD = 102.1 )"RUSSIAN RS1 & RS2 INFORMATION"::EH"LAUNCH DATE : OCT 26,1978"gJ:"INCLINATION = 83 DEGREES"L:"PERIOD = 120.4 MINUTES"M:"INCREMENT = 30.1 DEG/ORBIT"N:"DOWNLINK : 29.36-29.40 MHZ"P"UPLINK : 145.88-145.92 MHZ"R"BEACON *6)"J";9)"435.100-435.200";28)"435.095"F,:9)"UPLINK (MHZ)"n."MODE";6)"A";9)"145.850-145.950"06)"J";9)"145.900-146.000"2:"MODE A ON MON THU,SAT&SUN-WED FOR EXP."6:"LIST 220,229 FOR ORBIT DATA"8528D:::$F6Ā 34::710)"OSCAR 8 INFORMATION"::Y "LAUNCH DATE : MARCH 5,1978"|":"INCLINATION = 99 DEGREES"$:"PERIOD = 103.3 MINUTES"&:9)"DOWNLINK (MHZ)";27)"BEACON (MHZ) ("MODE";6)"A";10)"29.400-29.500";29)"29.402"-502"36)"B";9)"145.975-145.925";28)"145.972"S:"MODE";9)"UPLINK (MHZ)"t6)"A";9)"145.850-145.950"6)"B";9)"432.125-432.175" :"LIST 200,219 FOR ORBIT DATA":"TYPE 'M' FOR MENU, 'E' FOR STOP A$:A$"E"580S$"N"620::@10)"OSCAR 7 INFORMATION"::a"LAUNCH DATE : NOV 15,1974":"INCLINATION = 102 DEGREES:"PERIOD = 114.9 MINUTES":"MODE";9)"DOWNLINK (MHZ)";27)"BEACON (MHZ)6)"A";10)"29.400-29.500";29)"29.00Z1290N0"JF1: F=1 MEANS STATION LOCATION INPY:023:"MORE CALCULATIONS ? (Y OR N) ";D$D$"Y"ė:540:12:10:"GOOD BY":23 AP5(AP52)2010*A2020107AAP52=Y(TI1)(2I)14402040c2145i}a PRINT IN FORMfB;8);A(A);16);A(E);24);A(G);32);A(D1)pI1TzBBIZ(B(B100)100)60Z01290B(B100)1001T MID-" !>! "NIGHT. A LITTLE ESTIMATION CAN TELL YOU"D!p!"THE APPROXIMATE TIME THE PLANET WILL"v!! "APPEAR OVERHEAD OR ROUGHLY WHERE THE"!%!*"PLANET IS AT ANY TIME."!462800!9" ": L">"THE ECLIPTIC LONGITUDE OF SAND 30 FEET AWAY." ' 628004 " ": Le "THE EARTH ROTATES COUNTER-CLOCKWISE. "k "WHEN MARS, JUPITER, OR SATURN APPEARS" "OPPOSITE THE SUN, IT WILL BE OVERHEAD" !"IN THE INDICATED CONSTELLATION AAND SIZES ARE NOT TO"J"SCALE. FOR EXAMPLE, USING THE SIZE OF"P|"THE SUN FOR REFERENCE (AS SEEN ON A ""15 INCH TV), EARTH WOULD BE A TINY ""SPECK A YARD AWAY. SATURN WOULD BE " "A SMALL GRAIN 24:18A$#A$(27)ġ:1004PAGEPAGE1:g" PAGE ";PAGEo:u* <"PLEASE FORWARD ANY COMMENTS OR COM-"O"PLAINTS TO:"Uz" WILLIAM F. FOOTE"" 190 VERDON ST."" MORRO BAY, CA 93442"" (805) 772-7539-2000100" TO PACIFIC SATNDARD TIME BY"QV" SUBTRACTING 8 HOURS, AND TO"z`" PACIFIC DAYLIGTHT TIME BY"j" SUBTRACTING 7 HOURS."o2000t"PRESSING ANY KEY WILL RETURN YOU TO THE"~"BEGINNING OF THIS PROGRAM." 190 VERDON ST.8%  MORRO BAY, CAT%* 93442y%4 (805) 772-7539%>%H GOOD LUCK!!4TO ERROR;$ MESSAGES, AND TO CALL ATTENTION TO IMPORTANTV$ MESSAGES IN GENERAL.\$$ THATS ALL THE DOCUMENTATION FOR NOW.$$$ PLEASE FORWARD ANY COMMENTS OR SUGGESTIONS TO:$  WILLIAM F. FOOTE% OF THIS PROGRAM, IF ENTERED LITERALLY,^# WILL WORK, BUT IT WILL NOT BE COMPLETE. THE ONLY# THING MISSING WILL BE THE CTRL-G'S, AND THESE CAN# CAN BE ADDED AT THE USERS DISCRETION. IN THE CURRENT$ PROGRAM, THEY ARE USED TO ADD EMPHASIS ON NOT USED IN 'OSCARLOCATOR'.X"b FOR EXAMPLE: LATITUDE, LONGITUDE, INCLINATION, ETC."l THIS IS BECAUSE A PROGRAM DETAILING AZIMUTH AND"v ELEVATION FOR EACH MINUTE OF AN ORBIT IS PLANNED," USING THE SAME TEXT FILE. " &# A LISTING & AT A TIME, WITH AN AVERAGE ORBIT NUMBER USED. THISn!0 DEGRADES ACCURACY, AND IN CRITICAL APPLICATIONS,!: THIS SHOULD BE CHANGED. (SEE LINES 900-1070)!D!N IN 'OSCARLOCATOR FILE INIT' YOU WILL NOTICE THAT THERE"X IS ALOT OF INFORMATIARLOACATOR FILE INIT'. W  NORMALLY, THIS PROGRAM FIGURES THE PERIOD AND INCRE-  MENT FOR ONE ORBIT, ADDS IT TO A RUNNING TOTAL,  CHECKS FOR DAYS END, AND REPEATS THE PROCESS. BUT,  TO SAVE TIME, THE PROGRAM FIGURES A DAYS ORBITS7! 6 MONTHS OR SO. WITHIN THIS STIPULATION, TIMEh INNACCURACIES SHOULD BE LESS THAN 1 MINUTE, AND LONGITUDE INNACURACIES SHOULD BE BELOW 2 DEGREES, ASSUMING ACCURATE INPUT DATA IS USED. THE DATA TYPES  ENTERED ARE DESCRIBED IN 'OSCPROGRAM WILL WORK ONLY FOR ORBITSXr IN 1980. THIS IS NOT A SERIOUS DRAWBACK BECAUSE| OVER A YEAR THE ACCURACY BECOMES QUTIE A FACTOR. PROGRAM ACCURACY SHOULD BE SUFFICIENT TO ALLOW THE REFERENCE ORBIT TO BE UPDATED ONLY EVERY2ES EQUATOR CROSSINGS, ITB6 MAY BE USED FOR NON-CIRCULAR ORBITSH@J THIS PROGRAM WILL ONLY WORK WITHIN THE YEAR THATT THE LAST REFERENCE UPDATE WAS. FOR INSTANCE,^ IF THE REFERENCE DATA (IN 'OSCARLOCATOR FILE')!h IS FOR 1980, THE GIVEN A DISTINCT NAME. 'RS' SATTELITES WILLG KEEP THE PROPER NAMEM THIS PROGRAM WILL WORK FOR ALL POLAR ORBITS. IT MERELY GIVES EQUATOR CROSSINGS" WITHIN THE BOUNDS SPECIFIED IN THE DATA FOR THAT, SATTELITE. AS IT ONLY GIVPLEY":32000|y30000:C}WIDTH20(CT$)2:WIDTH:CT$(13):[耲 CONTRIBUTED BY: t THE APPLE CORPS OF LOS ANGELES CONVENTIONS ADDED: 3/31/80 CHIT TO END.";:A$:A$(32)A$(27)Č868:30000?:uQDuA$(27)ė:WNuy6:CT$"* * * URSA * * *":32000:15:CT$"LEARN TO TELL TIME BY THE STARS ...":32000 "y19:CT$"BY HUGH COLLET":32000:21:CT$"ADAPTED FOR APPLE BY CRAIG CO4  8,9,9,10,10,11,11,12J 13,14,14,15,15,16,16,17,17,18,18,15 p 19,20,20,21,21,23,23,22,22,19  24,25,25,26,26,27,27,28,28,29,29,30,30,31,31,32,32,33,33,34,34,32  -1,-1 90uA$"":23:8:"HIT TO CONTINUE.":24:11:"07,28 6~ 242,27,250,30,257,29.5,261.5,34,269,31.5^ 0,5,20,8,35,12,26,14,40,18,50,16 277,13,288,24,298,33,311,20,311,28 96,21,84,20,58,26,40,31.5,29,31.5,21,28,11,25,343,23,5,32,10,38  2.5,38 1,2,2,3,3,4,4,5,5,6,6,7,7,,0:2100.::"DO YOU WISH TO TRY ANOTHER"C" RUN";:A$:X(A$,1)"Y"700o(A$,1)"N"221010:"IT'S BEEN NICE LEARNING ABOUT THE""CONSTELLATIONS WITH YOU.":16298,0:t 63,40,70,35,77,34,87.5,33,93,37,107.5,34,1X11,Y11X21,Y211970%4V1A5X(16384):X1272210Y>H1H11:H1132120e?D$" "z@C$"AM"D$"PM"AD$"PM"D$"AM"BC$D$CH11H1280V1210024:3:"HIT RETURN TO ROTATE CONSTELLATIONS";:A$:16368Y1((Y(X))21)4<X1,Y1X1,Y12X12,Y12X12,Y1X1,Y1CXJ6XV11970:"HIT RETURN TO TRACE CONSTELLATIONS";:A$:E,FE12200X1(X(E)36)3.6:Y1((Y(E))21)4:X2(X(F)36)3.6:Y2((Y(F))21)4X1,Y1X2,Y2:l LOS GATOS ,CA.95030 .9v----------------------- E 0 DEGREES OVER COMPLETE LATITUDE RANGE."f:5:24:"RETURN TO MENU (M), EXIT (E)":35:23:MS$xMS$"M"5010MS$"E"Ā6090XY:Z:[ ---------------------- ] G.H.PARKER .b 16451 WOOD ACRES RD.&@Y((Y360(Y360))360.05)(Y)@&JY0P(I)360Y:63100K&TP(I)YQ&|W&x& M,D,Y:63000:I16:P(I):&pJD:20000:M$,D,Y:63600&" ";"": CTRL L, CTRL E:ENDIDED":"HISTORY":K12000::62900`%M1M12D1D31ĺ"INVALID DATE":K11000::62900%"ENTER INCREMENT (DAYS):";%K%25000:M,D,Y TO JULIAN DATE %"XJD722815: FIND # DAYS TO 1,1,1980%,I16%6YXD(I)SP(I)%-$" I CHANGE INCREMENT"5$:]$" D CHANGE DATE"j$62800:$P23:" PRESS RETURN ";:A$$$" ": L$"ENTER DATE (MONTH,DAY,YEAR):";$M,D,Y"%:Y1ĺ"SORRY, THAT YEAR IS NOT IN RECOR*#z"WITH RESPECT TO THE CONSTELLATIONS"0#|X#"SHOULD REMAIN ACCURATE FOR MANY "^#p#"CENTURIES."#62800:" "#"THE FOLLOWING COMMANDS ARE ACCEPTED":"WHILE THE SIMULATION IS RUNNING:"##" ESC OR SPACE EXIT"$:ORIGIN IS AT THE""CB"H"BOTTOM AND STEPS COUNTER-CLOCKWISE."H"Mv"R"BECAUSE OF PRECESSION, IT IS ROUGHLY"|"W"\"ACCURATE FOR ONLY A FEW CENTURIES ""a"f"AROUND THIS ONE. ""k"p"HOWEVER, THE POSITIONS OF THE PLANETS"#uE D).5)!6X(N)(.875V1(R).5)'@]J:22:10:B$;" ";L1;" AT ";H1;" O'CLOCK ";C$;"."KV1ĺ:7:"HIT RETURN TO STOP ROTATION"OX(16384):X127V12210]3:^128,83132,87132,83128,87128,83bX1WlX1(X(X)36)3.6vB$;" "L1;" AT "H1;" O'CLOCK ";C$;"."<H0H1:C$"AM"1320IH1H112[(B2B1365360i-16368,0z<LL1365360FHH124360PP3.14159ZB(B2LH)P180dW34nH1H0N1WU,V1RUP180B,Y(N)(.5V1(R1)1150(j"DAYS ARE FROM 1 - 31":695F~H10H113H1(H1)1200h"HOURS ARE FROM 1 - 12":695C$"AM"C$"PM"1230"AM OR PM PLEASE..":695:"THE POSITION OF THE NORTHERN""CONSTELLATIONS AS THEY APPEAR ON"$MARAPRMAYJUNJULAUGSEPOCTNOVDECJANFEB"1X112K(A$,X32,3)B$770RX[850A$"345011041072102133164194225255286317" B1((A$,X32,3))1100R"PLEASE ENTER THE FIRST THREE LETTER":"OF A MONTH":695LL10L132L1(LT THE TIME YOU INDICATE."F10::"HIT RETURN TO CONTINUE";::A$:O700p:"EXAMPLE: AUG,1,2,AM"::"ENTER THE FIRST 3 LETTERS":"OF ANY MONTH":B$:"WHICH DAY";:L1:"HOUR";:H1:"AM OR PM";:C$V0%A$" THE HOUR YOU DETERMINED FROM THE"EP" POINTER'S POSITION."ml"YOUR ANSWER IS THE CORRECT TIME."v"WHEN YOU TYPE IN THE MONTH, DAY AND"x"TIME OF DAY, YOU WILL SEE THE POSITION"z"OF THE NORTHERN CONSTELLATIONS AS THEY"|"ARE AO THIS NUMBER.":" 5. IF THE RESULT IS MORE THAN 12,"d" SUBTRACT 12. IF LESS THAN 12,"}" SKIP STEP 6.":" 6. IF THE RESULT IS STILL MORE THAN";" 12, SUBTRACT 12 AGAIN."N" 7. NOW, SUBTRACT THIS RESULT FROM"%O" "." 1. KEEP IN MIND, THE HOUR INDICATED"P" BY THE POINTER STARS."{" 2. WHAT MONTH IS IT? MULTIPLY THE"" NUMBER OF THE MONTH BY 2."" 3. IF THE DAY IS IN THE LAST HALF"" OF THE MONTH, ADD 1."" 4. ADD 6 T}"O'CLOCK SPOT, AND 6:00 PM IS WHERE YOU"N"USUALLY FIND 3:00 O'CLOCK."T10::"HIT RETURN TO CONTINUE";::A$"THE 'POINTER STARS' ARE THE HANDS OF""THE CLOCK. WHAT TIME DO THEY TELL ON""OUT BACKWARD 24 HOUR CLOCK?A GIANT CLOCK--- A CLOCK WHICH,"K h"INSTEAD OF HAVING 12 HOURS, HAS 24"y i"AND RUNS BACKWARD. THIS CLOCK HAS A 12" r"WHERE IT WOULD NORMALLY BE BUT IT ALSO" s"HAS A 12 IN THE REGULAR 6 O'CLOCK" |"POSITION. 6:00 AM IS AT THE NORMAL 9"+LLED THE POINTER STARS)"E J"EXTENDING ABOVE THE DIPPER A DISTANCE"s K"EQUAL TO ABOUT FIVE TIMES THE DISTANCE" T"BETWEEN THEM. YOU WILL SEE THE BRIGHT" U"STAR, 'POLARIS' OR 'NORTH STAR'. ^"NOW IMAGINE THAT POLARIS IS THE CENTER"! _"OF """ 2204 " TELLING TIME BY THE STARS": "h ,"FIRST, YOU MUST LOCATE THE BIG DIPPER." 6"NOW, LOOK FOR THE TWO END STARS IN THE" 7"CUP OF THE DIPPER. IF YOU IMAGINE A" @"LINE DRAWN THROUGH THESE TWO STARS," A"(SOMTIMES CADIRECTION AND LATITUDE. LIKE THE SUN,"W "THE STARS CAN ALSO BE USED TO TELL TIME."] "WOULD YOU LIKE INSTRUCTIONS FOR TELLING" "TIME BY THE STARS"; O$ (O$,1)"Y"270 (O$,1)"N"700 "PLEASE TYPE ""YES"" OR ""NOU NEED INSTRUCTIONS"; nO$# o8 x(O$,1)"Y"160M (O$,1)"N"700r "PLEASE TYPE ""YES"" OR ""NO"""{ 110 "OF COURSE YOU ALREADY KNOW THAT THE " "STARS HAVE BEEN USED BY SHIPS" "NAVIGATORS FOR CENTURIES TO DETERMINE"' "::16298,0:310005 PROGRAM NAME - URSAP VERSION - 12/29/78  CONVERTED TO APPLE, CRAIG COPLEY  AUTHOR - HUGH COLLET 2X(40),Y(40)<::10P"WELCOME TO THE FASCINATING STUDY OF THE" Z"STARS. DO YO                "m:"NOTE (3)- BETWEEN LATITUDES +65 AND -65 DEGREES THE EVENT TIMES ARE COMPUTED TO + OR - 2 MINUTES."+:"NOTE (4)- THIS PROGRAM HAS BEEN CHECKED ONLY FOR LOCATIONS IN THE CONTINENTAL U.S. IT AGREES WITH THE 'AMERICAN EPHEMERIS' FOR LONGITUD)- THE TECHNIQUE AND EQUATIONS USED IN THIS PROGRAM ARE FROM 'ALMANAC FOR COMPUTERS,1980', U.S. NAVAL OBSERV ATORY.":"NOTE (2)- PROGRSAM IS GOOD FOR YEARS 1978,1979,1980 AND 1981 ONLY. NEEDS NEW CONSTANTS K,Q,W (LINES 20-38) FOR OTHER YEARS.AR --- E:3N:9:5:"STAR RISE AND SET TIMES"QX12:12:" NOT AVAILABLE"b5:20:"RETURN TO MENU (M), EXIT (E)":35:20:MS$lMS$"M"5010vMS$"E"Ā5730o:p----NOTES------q:z:17:2:"NOTES"x"NOTE (15:11:"LONGITUDE (D,M,S) "210:"(W=+,E=-) "M23:11:"= ";O1,O2,O3eODO1O260O33600rOHOD15 5:14:"LATITUDE (D,M,S) " 10:"(N=+,S=-)"23:14:"= ";A1,A2,A3ADA1A260A33600AHAD1552C:D---ST010 ------INPUTS-------#:F:10:3:"SUNRISE AND SUNSET"n5:8:"DATE (M,D,Y) ";M,D,Yx1050Y197821Y197926Y198031Y198136(7)::10:" YEAR NOT IN RANGE -- SEE NOTES.(RTN)":ZZ$:500010:3%"RISING AND SETTING TIMES"/5:6N"(1) SUNRISE AND SUNSET"r5:8:"(2) STAR RISE AND SET"5:10:"(3) NOTES5:12:"(E) ESCAPE"15:20:"WHICH ? ":MNMN15100MN25700MN36000MNEĀ5 ---Y.D. SUBROUTINE ---2YY1900(Y100)E$L10:L20:L30^&(Y4(Y4))0L11{((Y100(Y100))0L21*(Y400(Y400))0L31,L0(.4M2.3).YDD31(M1)(L0L1L2L3)(M2)3: -----MENU----::M"5010PMS$"E"ĀR330%^CX ---HOURS/MIN ROUTINE---IY:ZbHR$((UT))flO$(0)v(HR$)1HR$O$HR$(HR$)0HR$O$O$M2((UT(UT))60.4999)MI$(M2)(MI$)1MI$O$MI$(MI$)0MI$O$O$::---SUNRISE---:L5:17:"SUNRISE AT ";HR$;":";MI$;" UT ";F1$U116[+:p, ----SUNSET----v-:65:20:"SUNSET AT ";HR$;":";MI$;" UT ";F1$J3:23:"GO AGAIN (G), MENU (M), EXIT (E)":38:23:MS$LMS$"G"5102NMS$":162 UTTOH5 UT24UT0F1$"THIS DAY":210b UT24UTUT24:F1$"FOLLOWING DAY":210 UT0UTUT24:F1$"PREVIOUS DAY" : ---- OUTPUT---- : B360220: SUNRISE FLAG B0214:SUNSETFLAG 610 310 610DCAS(SD): IN RADIANS4 CZ.01454390: FOR SUNW ST1CZ.00989004: FOR STAR CH(CZSD((ADRAD)))(((DC))((ADRAD))) H1(AC(CH))DEG H(BH1) T(HRTA)15.06571T0W T24T0170 T24TT24:162 T0TT2400T0K; zLSMA(1.916)((MARAD))(.02)((2MARAD))QR |LS360LS360130e ~LSLS360:124 RTA((.9174(LSRAD)))DEG LS90LS0140 LS270LS90RTARTA180:140 LS360LS270RTARTA360:140 SD.39782((LSRAD)) 15926535" 6RADPI180: DEG->RAD< 8DEG180PI: RAD->DEGV <AS(X)(X(1XX))v >AC(X)(X(1XX))PI2| c: d ---CALCULATIONS--- f: nT0YD(6OH)24: RISING oB360 p118 tT0YD(18OH)24: SETTING uB0 vMA.9856ANTS FOR 1979 K3.507' Q282.5883 W6.604= 5114X  CONSTANTS FOR 1980d K3.763r Q282.605~ !W6.589 "5114 # CONSTANTS FOR 1981 $K4.019 %Q282.616 &W6.575 '5114 1: 2 ---FUNCTIONS--- 3: 4PI3.14:  ------------------------@ RISING-SETTING TIMES .` G.H.PARKER . 1980 .-------------------------5000 CONSTANTS FOR 1978K3.251Q282.565W6.6205114  CONST          &"&"" ,2"2,">,22, &"""  0 "" " ****&""""""&&,22, &< """2,""""***6"""""< >> "*6< ">"A"!!""" !!! """"=#> 0"""!@> H>@ "!  ! B=**+**A&*+**"EEE"""%B@0L?"""!@>>@>@?B<B%$$$$2MDDD(:JJJ*B% R!B%$$XA>> > *666< (#21 *>*>> "2*&" >"  >"  "> """>"""""""<  00>> "  >>6>>***?""?>>>  >Аŀ$H,h&Hh& ,P=i=`xAHHHAH }hɍɃ hhh`L m $ % $ %`HH<nn(nnjJ(nnn(nJ% %hh`,p0<`JH$JhiH%JhiHh` ):(; )8*9(&)m'`'i'`,  "#0 &<'=ʊ >!<& =i=>0ˠ$> $&! >`"% P %%#LXx)=== &= &= &=m<=m= e==,LU M?5e$),0??,p P*?{%? ` TLo``  A``  L~ T  U@`L `, ۰ HɍɊ,0ɘɈɇ, @+hɠ%@ , +  ?,`ɺɰ`۰`hhL% $( oPRTW$6 7L }  2 @ g I n n n n n m n   n   n n n n  `*U<(H'H< `Ɂ,0ɞ) 4H3H`Lo ``,T,Q L 9I`,I`I     0L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`L"BRAD SCHAPER"6X23:1:"INSTRUCTIONS";:A$Tb(A$,1)"N"(A$,1)""ıal" ": Lv"THIS PROGRAM SIMULATES THE POSITION OF"{"THE EARTH AND THE 5 PLANETS VISIBLE TO""THE NAKED EYE.""THE DISTANCES 5236,356236,440229,0229,50279,50Et1:1:"INCR="^~2:1:K;" DAYS "d/q0" ": L:2:7:"PLANET LOCATER"<6:17:"AND"?10:9:"SOLAR SYSTEM"D14:11:"SIMULATOR"I18:19:"BY"N20:15:20:28:"ARIES"/23:21:"PISCES"DH1:36:"MERC"ZR2:36:"VENUS"p\3:36:"EARTH"f4:36:"MARS"p5:36:"JUPIT"z6:36:"SATUR"1:01236,3:2236,102:3236,195:4236,273 ˃ OCT,31˃ NOV,30*˃ DEC,31C`23:6:"AQUARIUS"Tj9:"SCOR"et15:"SAG"|~20:2:"CAPRIC"4:3:"LIBRA"1:9:"VIRGO"1:22:"LEO"4:28:"CANCER"9:32:"GEMINI"15:32:"TAURUS"45,0 Xf˃ 54,62,60,60,36,37,37,45,46,46,54,55,55,60,63,44,45,37,63,63,44,45,37,63,0 cp˃ 52,0v˲ MONTH,# DAYS˃ JAN,31˃ FEB,28˃ MAR,31˃ APR,30˃ MAY,31˃ JUN,30˃ JUL,31˃ AUG,31˃ SEP,30 0842593,3 %tǃ 86,170,.0334723,3 8˲ SHAPE TABLESp ˃ 8,0,18,0,21,0,27,0,33,0,36,0,44,0,51,0,76,0 *˃ 62,44,04˃ 62,60,37,53,61,0>˃ 62,60,37,53,61,0H˃ 62,44,0R˃ 54,39,39,37,53,53,7, 0 \˃ 62,60,47,37,53,$(I),Q(I):Ʊ73Dz RADIUS TO SUN ( # HIRES POINTS)W4Dz ECLIPTIC LONG. (1,1,1980)g5Dz # DEG/DAYz6Dz HIRES COLOR 8ǃ 8,233,4.090909,3Lǃ 16,355,1.602136,3 Vǃ 28,101,.985615148,2`ǃ 45 ,131,.5240327,5 jǃ 65 ,149,.1Z151Ę40Z181Ę32/Z211Z241Ę24>Z271Ę16LZ271Ę8Y8X,Y:_4PÆR(6),P(6),OP(6),D(6),H(6),SP(6),Q(12),U$(12)ÁI16ćR(I),P(I),D(I),H(I):SP(I)P(I):JĹ232,0:233,3|āI768845ćX:I,X: āI112:U:R92:RX921.1176:72TP3.1415:C180:M1.1176A^Z13605McIZCP^hXXC(I)RXnrYYC(I)Rw|X,Y}1:0:7XC1,YC7Z133130XXC(ZCP)RX:YYC(ZCP)R4Z31Z61Ę56Z91Ę48 Z12AYS "~m23:30:" "$mH0u:(2048)32(2049)111300051u(4)"BRUN PLANET LOCATOR.X":4096:(4)"BLOAD PLANET LOCATOR.Y"5u2048:u"2": PAGE 2Du50000Nu62000Su62900Xu40000bu60000u90@XC120:YC92Ja(Y100(Y100))0L216a(Y400(Y400))0L31IaL0(.4M2.3)p bYDD31(M1)(L0L1L2L3)(M2) bJ0(365.25(Y1))((Y1)100)((Y1)400)4bJDJ0YDpb`m22:30:"ENTER NEW "jm23:30:"INCR";:Ktm2:1:K;" D2)28,\N(Y400(Y400))0Q(2)29:20100SpN(Y100(Y100))0Q(2)28:20100ozN(Y4(Y4))0Q(2)29{NI112NYDQ(I)D(YD):20150NYDYDQ(I):NNM$U$(I)KOaL10:L20:L30: M,D,Y TO JDa(Y4(Y4))0L11 NY(JD365): JD TO M,D,YN4NJ0(365.25(Y1))((Y1)100)((Y1)400)Y5NL03656N(Y400(Y400))0L0366:200309N(Y100(Y100))020030;N(Y4(Y4))0L0366>NJ0JDL0YY1:20020HNJ0JDYY1:20020MNYDJDJ0RNQ((Z)R(I)MYYC(Z)R(I),0:IX,Y;ZP(I)CPPXXC(Z)R(I)McYYC(Z)R(I)tH(I):IX,YzZ(16384):Z12725016368,0:ZZ128:Z("I")İ28000Z("D")30035Z(" ")Z2763999JDJDK100 PLANET LOCATER, BY BRAD SCHAPERB 7266 VOLCLAY DR[ SAN DIEGO,CA 92119f30000pZ1:0{d20000f22:30:M$;" ";D;",";Y;" "iI16nOP(I)P(I)xP(I)P(I)D(I)KP(I)360P(I)P(I)360ZOP(I)CP XXC        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 "n:"MARS";31)"60"2x:"JUPITER";31)"30"K:"SATURN";31)"10"c:"URANUS";32)"4"m1650v240::(16):"SUN"::"SOLAR DISK";20)"10,000,000":"SOLAR ECLIPSE FEATURES:":4)"PROMINENCES";27)"100":4) :;4)"FULL MOON";32)"200"C:;4)"EARTHSHINE";32)"0.01"d(:"LUNAR ECLIPSE FEATURES:"2:;4)"EDGE OF UMBRA";32)"0.05"<:;4)"MID TOTALITY (VARIES)";32)"0.005"F1650P240Z::(14):"PLANETS":d:"VENUS";29)"200015603:"PLEASE RE-ENTER WITH A NUMBER BETWEEN"E"1 AND 4 ";NO1200g::(15):"MOON":~:"LUNAR PHASES:":;4)"CRESCENT MOON (2-3 DAYS)";32)"10":;4)"CRESCENT MOON (4-5 DAYS)";32)"20" :;4)"QUARTER MOON";32)"40":"BRIGHTNESS VALUES"::Ej"FOR WHICH CELESTIAL OBJECT WOULD YOU"[t"LIKE VALUES?":j~"1. MOON"|"2. PLANETS""3. SUN""4. DEEP SKY OBJECTS"::"ENTER THE NUMBER OF YOUR SELECTION. ";NN1N41220N1250,1370,1450,"1/"(G)8"----------------------------------------">PG2001İ1030[:740r(Q$,1)"Y"ī1090"WOULD YOU LIKE TO PRINT THIS TABLE?";Q$(Q$,1)"Y"ī1100$1.A$"M"ī4308A$"S"ī840B0LV`:(10)OT PRACTICAL (LOWER ASA)":)T609301T0a"----------------------------------------":(13):"EXPOSURE TIME":"----------------------------------------""MINUTE(S)";14)"SECOND(S)";28)"FRACTION":(M);14)(T);28)OSURE VALUE (ASA) ";E"E0120*:8F0800O "ENTER F-STOP ";FW:e B0820}*"ENTER B-VALUE ";B4A$"S":Q$"N">670HR:"ASA= "E\:"F-STOP= "Ff:"B-VALUE= "BpG2001910z::"EXPOSURE N5,2.8,2,1.8,1.4,0:380@:(13):(13):"ADIOS AMIGO!!!"Fx M=MINUTES T=SECONDS G=FRACTION OF SECONDSTF2(EB)MT60G1T:(14)::"EXPOSURE TIME"::"TO EXIT PROGRAM ENTER 0 FOR ASA.":"ENTER EXPF0600670 G2001560(:Z:"VALUES NO LONGER PRACTICAL (LOWER ASA)":e&:600t0T60580|:T0DF;9)(M);20)(T);31)"1/"(G)NIX"----------------------------------------"bl1030v 22,16,11,8,5.6,3.A$"M":Q$"N"@ :"----------------------------------------"r :"ASA= "E;13)"EXPOSURE TABLE";32)"B= "B: "----------------------------------------" "F/STOP";9);"MINUTE(S)";20)"SECOND(S)";31)"FRACTION" : I113 F13)::"EXPOSURE TIMES":# T::g ^ F=F-STOP OF LENS, E=ASA OF FILM,B=RRIGHTNESS VALUE OF OBJECT" h"TO EXIT PROGRAM ENTER 0 FOR ASA." r:: |"ENTER EXPOSURE VALUE (ASA) ";E E0120 B0ī420 "ENTER B-VALUE OF OBJECT ";B NTED IN A"- 5)"TABLE OF COMMON F-STOPS."Z :5)"2. THE EXPOSURE TIME PRINTED FOR"~ 5)"AN F-STOP OF YOUR CHOICE." "::"ENTER THE NUMBER OF YOUR CHOICE ";O ,O1O2ĺ:"PLEASE RE-ENTER WITH A 1 OR A 2.":290 6O320,720 @ J(" 5)"SINGLE F-STOP."- :5)"4. END"[ ::"ENTER THE NUMBER OF YOUR CHOICE ";N N1N4ĺ:"PLEASE RE-ENTER WITH A NUMBER FROM 1 TO 4.":210 N1110,320,720,650 ::"YOU NOW HAVE TWO OPTIONS:" :5)"1. EXPOSURE TIMES PRI:(20)::"MENUE"::::8 "THESE ARE YOUR OPTIONS:h :5)"1. A TABLE WHICH LISTS B-VALUES FOR" 5)"COMMON CELESTIAL OBJECTS." :5)"2. EXPOSURE TIMES PRINTED IN" 5)"A TABLE OF COMMON F-STOPS." :5)"3. THE EXPOSURE TIME FOR A)  :5$I120:10)"*";::CI112:10)"*";29)"*":[(I120:10)"*";:w27:16::"EXPOSURES":<:(20):"BY"F:(16):"JAN BYBEE"P(19):"AND":(15):"SCOTT KNAPP"::Z:(18):"1980":I12500:dn1680 x         ԧӠ٠Ԡ)a(ά)E@E()_q\d-a(ŠŠϠ٠ҬԧӠ)#a(ԠŠŠĠϠҮ)\d, a(ŠԠΠȠŠŬȬ)+a(Ӡ٠ŠƠŠŠӠ).a(ŠĠĠӧ)+a(ٮԧӠˠԠРϠ)!a(ӮŠĠΠ)ca(Ԡ)c*a(ŠԠԠƠԠĠӠ)-a(ԮҠԠΠŠϠ))a(ϠŠήנ)%_~'La@E(ɠנԠӠӠ),Va(ԠĠϠҬԠ))[a(ƠՠŠԠנӠΠ))`a(ˠȠҠӬԠ))ea(РծԧӠ٠Ԡ) ja(ή)t_~c)a(ˠԠŠ)!a(©)"a(é)\dR@$\d.`@9()%_83`@9()%_~5_L,8a(ƠΠԠӠԠɠàԠ)2=a(ҠԠĠՠӠӡ)_B`@9(),a(ҠŠƠӮҬԠ)+a(͠ŠϠҠΠנӠ)a(Ӯ)\d*a(ȠŠƠŠǠӠԠ),a(ŠҠŠҠӿŠ)'a(ŠҠƠŠԠҮ)\d"a(c*a(נΠΠϠŠŠ),a(ӬŠŠϠԠ).a(ӮŠŠϠĠ)'a(ӠҠӮŠΠ))a(ŠӠΠҠŮŠ),a(ԠƠŠӠԠŠŠӠȠŠĠҠή)*Wa(ԠԠҠϠԠՠ)\a(ҠԮ)aa(š)fq\_.pca(ԡէŠǠ٠Ĭ))za@E(ǠΠŠΡ)qq\M6\d$a(נƠŠĠӠ)/a(٬)E@E(ŠΠŠԠ). a(ŠӠȠŠ)a(Ҡή)\d R@*\d4`@9()%_p>`@9()%_p(Ha(ԠŬ)E@E(ŠŠ),Ra()%_p+a(ԧӠĠԠȠҠ),a(ĠŠƠŠΧԠĠԠҮ)\d(a(ŠԠȠȠŠŠ).a(ҠӠŠȮӠӠ٠).a(ƠŠŠҠӠȠ)a(ĠҠή)ƠŠǠ)*Xa(ŠҠƠӠȠ)]a(ĠҠο).ba(ȠӠŠ٠Ԡ)(la(ӠĠŠή)va(©)a(é٭)\dR@\d`@9(q\\d-a(נ٠ҠӠŠŠ)a(ŠĠҠο)\d R@c`@9()%_p&`@9()%_p*0a(ŠƠŠ٠ԠΠΠ)):a(Ԡ٬ԠԠŠҮ)D\d,Na(ȠŠT\d^]h]ԠŠҮr]|R@\d]<]ӠԠԿƠϬԠԠҠĠ]]`@9()%_,a(ŠΠ)E@E(ԠӠΠ٠Ů)'a(ԧӠĠԠȠΡ)_ŠԠȠȠŠŠԠ). a(ҠӠŠȮӠӠ٠).a(ƠŠŠҠӠȠ)a(ĠҠή)"\d,]6]ˠŠή@]*Ja(ԠӠŠŠƠŠԠ)Oa(ȠŠſ)׿)\d]=]ڤӠŠŠŠҠŠԧӮŠC]̠ŠĠϠ٠ӠҠҠŠԠŠή]R@\d)a(ˬ)E@E(ԧӠŠƠŠΧԠ)$a(ΠԠҠҠͮ)\d)a(& ]٠٠ӮĠӮ$]ؠӠŠԠ] (q2N@"rC@"rM6Z_xdccn[xa(ΠŠΠ)\d-a(ˬĠԠԠŠŠŠƠŠ)*a(ΠϠӠǠ٠Ӡ       *(Y400(Y400))0L31/ ,L0(.4M2.3)V .YDD31(M1)(L0L1L2L3)(M2)\ 3s 8 J.D. SUBROUTINE} <1050 >J0(365.25(Y1))((Y1)100)((Y1)400)1721425 @JDJ0YD:10.5)10 %  - DELTA DAYS -8 MM1:DD1:YY1B 1080N J1JD:a MM2:DD2:YY2k 1080u J2JD DD(J2J1):  - Y.D. SUBROUTINE - YY1900(Y100) $L10:L20:L30 &(Y4(Y4))0L11 ((Y100(Y100))0L21 DW1W$"SUNDAY":1 DW2W$"MONDAY":J DW3W$"TUESDAY":e DW4W$"WEDNESDAY": DW5W$"THURSDAY": DW6W$"FRIDAY":  -AGE OF MOON ROUTINE- JMJD9:M429.53059 MMJMM4(JMM4) M5MMM4.58 MO(M52,Y2 1014:940:9603 :"DAY OF YEAR = ";YDD "J.D.= ";J2] "DAY OF WEEK = ";W$v "AGE OF MOON = ";MO :"DAYS BETWEEN DATES = ";DD   -DAY OF WEEK ROUTINE- W(JD2)7((JD2)7) DW(W7.1) DW0W$"SATURDAY": J.D./Y.D. SUBROUTINE)9361:V"FIRST DATE (M,D,Y): ";M1,D1,Y1^:r1000:940:960"DAY OF YEAR = ";YD:"J.D.= ";J1:"DAY OF WEEK = ";W$:"AGE OF MOON = ";MO:: "SECOND DATE (M,D,Y): ";M2,D    (B): CD TO RECT0A(CDS(N))O(N)P2 HQ(1E(N))(1E(N))UAAP(N)kA2(((A2))Q){A0AP2AR(1E(N)2)(1E(N)(A))D(N)AAP(N) B(AA(N))I(N) 3000:PCDD(M30.6001)(Y365.25)63' 8 REC TO POLSR((X2)(Y2)(Z2))lR((R10000))10000yA(YX)A0APIAY0APIAQZR B(Q((1(Q2)))) POL TO RECT XR(A)(B) YR(A)(B) ZR ROTATE FOR R.A. COORD+R((Y2)(Z2))<Z0Z1E30IQ(ZY)YQ0QQPIi&Z0QQPIx0QQ.40928:ZR(Q):YR(Q):2000D304 DATE TO CDMMM:DDD:YYYY1900YY1900M3YY1MM1:M4MM12 RAAA15F6AAC:AD(A):AM(AAD)60:AS((AM(AM))60):AM(AM)@Q(B0):B(BC):BD(B):BM(BBD)60:BS((BM(BM))60):BM(BM)EA$"N":QA$"S"J:P$(N);^9:AD;" ";AM;" ";AS;:19:A$;" ";BD;" ";BM;" "BS;:31:RhN:210NET-EARTH,PRINT3 MM"/"DD"/"YY" "H":"HM" GMT":V A$"RA HMS":(RA)A$"EC DMS" "PLANET";:9:A$;:19:"DEC DMS";:31:"DIST AU" N19 N3290 XXE:YYE:Z0:300: SET SUN POS "4000:XXXE:YYYE ,RA500 .2000 0(E) ";:A$:RA(A$"R")Y ::" MONTH (1-12)";:M::" DAY";:D::" YEAR";:Y:1000 :" TIME, GMT (H) ";:H:" (M) ";:HM Q(H(HM60))24:CDCDQ GET EARTH VECTOR:XE,YE N3:4000 XEX:YEY 936: ITER EACH PLA248.87,2875.5,8039.7,20644,14298,22940 = T19:P$(T):T "MERCURY","VENUS","SUN","MARS","JUPITER","SATURN","URANUS","NEPTUNE","PLUTO" 936:" >*< EPHEMERIS COMPUTER >*<"::" -PAUL LUTUS 11/77" ::" OUTPUT = R.A. (R) OR ECLIPTIC .929671,.944587,3.90117+ nT19:A(T):Tx x.838815,1.369633,0,.861868,1.748931,1.980658,1.291102,2.296378,1.918122 T19:I(T):T .122246,.059244,0,.032284,.022786,.043410,.013468,.030902,.299115 T19:S(T):T( 43.43,214.1,101.9,1 <.20563,.006784,.016719,.093384,.0479528,.0574163,.0465173,.0121468,.2468242c FT19:D(T):T P.387099,.723332,1,1.523691,5.202168,9.569096,19.14567,29.94882,39.39304 ZT19:P(T):T d1.345649,2.290735,1.789792,5.857994,.244685,1.627539,2  CONSTANTS & DATA TABLE? PI3.141592654:C57.29577951KP2PI2O(9):E(9):D(9):P(9):A(9):I(9):S(9):P$(9)T19:O(T):T(87.9693,224.7009,365.2564,686.9796,4332.0446,10775.056,30572.21,60050.04,89952.82T19:E(T):TO     1"614b605f2000Pg"BEARINGS TO DX LOCATIONS ON ARRL COUNTRIES LIST"l"DEL - MEANS A COUNTRY DELETED FROM ARRL LIST"qv"DX LISTING CENTERED FROM ";W$;" FOR ";N${" DX PREFIX";15);"LAT/LONG";26);"MI";32);"K/M";37);"DE00 S5409T IS FLAG SET FOR BOTH CITIES AND DX LISTFUF1614LVUW250X 600 NUMBERED STATEMENTS READ THE SECOND SET OF DATA WHICH IS THE DX COUNTRIES LIST DATA[ 605 TO 610 FIND THE END OF THE FIRST DATA]M$,B,L2`M$"ENDATA-------------------------"%&KK10+JJ1X/ READ DATA % CHECK FOR END OF FILEe0M$,B,L2{5M$"ENDATA1"5979 GO PERFORM THE CALCULATIONS:1000?J;4);M$;25);D1;31);D2;38);R2AK10585BK0:A:5EI550N20 - 515 IS ENTRY POINT FOR CITIES ONLY (F=0 PRESET)<2000m"CITIES LISTING CENTERED ON ";W$;" FOR ";N$s "BEARINGS AND DISTANCES TO MAJOR US CITIES"" CITY";13);"LAT/LONG";26);"MI";32);"K/M";37);"DEG."!"---------------------------------------------"(475] NUMBERED STATEMENTS READ THE FIRST SET OF DATA WHICH CONTAINS THE US CITIES DATA AND PRINTS LIST F IS A FLAG TO SEE IF BOTH CITIES AND DX LIST ARE DESIRED. IF YES ENTER AT 510 & F=1F12-------------------------".L218018030?B909015I1000pB;10);L2;20);D1;30);D2;36);R2 CHECK THE LINE COUNTERKK1K55485BL22502000"LAT. LONG. MI K/M DEG"----------380rS$"7"9999w400$|Q~3:5);"ENTER NEW LOCATION CORRDINATES"Z168d2000"GREAT CIRCLE COORDINATES CENTERED ON ";W$"PROGRAMMED FOR ";N$"LATITUDE LONGITUDE MILES KILOMETERS DEG.""---------------" 5. BEARINGS AND DISTANCE TO USER"I)" SELECTED POINTS":m," 6. ENTER NEW LOCATION":1" 7. TERMINATE THE PROGRAM...."36S$@S$"1"400JS$"2"515TS$"3"605YS$"4"510^S$"5"700hS$"6"ANCES TO MAJOR"4" US AND WORLD CITIES":]" 3. BEARINGS & DISTANCE TO DX"" LOCATIONS FROM THE ARRL" " COUNTRIES LIST - LISTED BY"!" CALL PREFIX":$" 4. BOTH US CITIES AND DX LIST"&('J0 F0 2000P "SELECT THE FUNCTION YOU WANT AND ENTER THE NUMBER"V  :" 1. GLOBAL GRID CENTERED ON YOUR" " LOCATION (LAT. EVERY 15 DEGREES" " & LONG EVERY 30 DEGREES" " 2. BEARINGS AND DIST10:W$ : 3:5);"AKRON,OHIO -- 41.0 N. -81.7 N B 10q "WHAT IS THE LATITUDE OF THIS LOCATION? "w 10:A COVERT A TO RADIANS A1A3.14159180 20 "WHAT IS THE LONGITUDE OF THIS LOCATION?" 10:L1 DEGREES WITH DECIMAL PARTS"F :5);"-- NO MINUTES AND SECONDS --"_ 24:PAUSEI14000: "TO CONTINUE HIT ANY KEY-";:A$ :10 "WHAT IS YOUR NAME AND CALL? " :10:W$ 15:"WHAT IS YOUR LOCATION (HOME QTH) ?"  BETWEEN"1 n:"YOU AND THE REST OF THE WORLD."7 sf x:"LATITUDES IN THE NORTHERN HEM ARE (+)" "AND IN THE SOUTHERN HEM. ARE (-)":: "LONGITUDES IN THE EASTERN HEM. ARE (+)" "AND IN THE WESTERN HEM. ARE (-)":: 3);"ALWAYS USE*********" 2B 4 PROGRAMMED BY JAN A. HEISE, WA4V1D, NOV. 77N :24:A$} <"DO YOU NEED INSTRUCTIONS? - Y/N - ";:A$ ?A$"N"168 K:3 P15);"THIS PROGRAM": Z"CALCULATES GREAT CIRCLE BEARINGS,": d"STATUTE MILES, AND KILOMETERS:16368,0::1800O 3:"***************************************"V8"G R E A T C I R C L E B E A R I N G S":18);"A N D"#(::3);"D I S T A N C E S P R O G R A M" -21:"******************************                     ADAPTED FROM AN HP67-L PROGRAM GIVEN INIL 'MATHEMATICAL ASTRON-aL OMY WITH A POCKETvL CALCULATOR' BYL AUBREY JONESL:L-----------------------L G.H.PARKER - MAY 9'80L:L-----------------------V CX136:CY60.Kp (CX2),(CY2)(CX2),(CY2)OKr (CX3),(CY1)(CX3),(CY1)lKt (CX3),(CY)(CX3),(CY)Kv (CX3),(CY1)(CX3),(CY1)Kx (CX2),(CY2)(CX2),(CY2)K 2006K-----------------------K:K -JUPITER'S MOONS-K:L0:MR$(MR)#J (MR$)2MR$".00"=J (MR$)2MR$MR$"0"EJ 20iJ J0$;5(ML$));ML$;MR$;3);D0$oJ JH -----------------------JJ GRAPHICS ROUTINEJL JN -----------------------JR 3412JT 3J\ 0,12279,12279,1080,1080,12 Kf(365.25)(YY))((MM1)(30.6001))DDY12(Y14)694025.5EI1010bI -----------------------zI -PRINT ROUTINE-I :I -----------------------I D0$"W":M00D0$" E"I M0(M0)I ML(M0):ML$(ML) J MRM0(M0):MR(MR100.5)108:2:"W":8:39:"E"'H13:20:"N"/H16MH"Date (M,D,Y):";MM,D1,YYbH18:27:"Radii"mH34,18H19:"Time (Hrs UTC):";TTH::HDDD1TT24HYYYY1900(YY100)HMM2.22068H YYYY1:MMMM12HY1(YY100);IDAYS(60 GMX,MYGVV1+GK(V)MX:P(V)MY1G8G0CGV14RGK(V),P(V)XGiGV0:3:1220G-----------------------G DAYS FROM 1900 ROUTINEG-----------------------G:1:6:"POSITION OF JUPITER'S MOONS"G3:20:"S"H8881008FTT999Ā"F:::,F2030IF@-----------------------eFE CALC. FOR GRAPHICS FJ-----------------------FRX(((MZ)(RAD)))RMFRY(((MZ)(RAD)))(((DZ)(RAD)))RMFMX(((RX95)RD).5)136GMY(((RY84)RM).5)EMZZ4:RMRD:1700+E(M1((Z1RAD))R0AE*M2((Z2RAD))RBWE,M3((Z3RAD))RCmE.M4((Z4RAD))RDuE020E2M0M1:J0$" I":3020E4M0M2:J0$" II":3020E6M0M3:J0$"III":3020E8M0M4:J0$" IV":3020E"Time (Hrs UTC):";TTFTT)))R9-DL(28.07(((HJ)(RAD)))10.406)FDZ(((HJ)(RAD)))LYDM(AS(Z))DEGeDNL173kD:uD1760DZ1AMJS0NDMZZ1:RMR0:1700DZ2BMJS1NDMZZ2:RMRB:1700DZ3CMJS2NDMZZ3:RMRC:1700DZ4DMJS3NATIONS#CI-----------------------4CLAS0DAYSS4ECQBS1DAYSS5VCVCS2DAYSS6gC[DS3DAYSS7mC`:~CeFS8DAYSS9CjIR6DAYSR7CoGR8DAYSECt:CyH(((2F)(RAD)))50(((F)(RAD))).521GD~J(((2I)(RAD)))(.1673)(((I)(RAD7225.328BR80.9025179(B R95.53726B$E221.647||6III"AAA>>AAAAIII qQAA>AA?@@@ A"@@@@ >AAA> ^!QA>F) 2III&?@@@? @   ccxCEIQa>> >0000>|X_**$bd#P VI6A""A"">`@ >EIQ>@BFIIQb3MIA!9EEE'1IIJ< q6III6)IIFhA""A""""* `PHDHP`cAIUcA`@`\BB\`T8* | >"DD"|8 0`||D((H06 B<4H42JL04LH0R@y'yЀ€ƀȀฐ><""88 <""<$<8(< &"""  $ $ ****$$$$"""""<""< 4 < <""""<"""""**"">>6>6"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> ">"""A~DD~ P"""A>*""@@  |*(((  "($$$"8  8  >"6*">>>>*>><> ?:{> ; b%%#%% p$0L(*)+H)))HB ,0IH*&&h*H&&h&f$H)%(Ș)%(e))%()%(e))hh8Ж%i $h8L,*(+)hHH h k h#ɠ$ H h Lɇ , fNh#`HH(*))+*I*e++hh`$FHHɑ ɗ8f hHH%2h)BB*B*B*HeBBhmCFB08f$ 0NB0)(*))+B$,0I*e++h h$ɠ HH h h`L$0 hɠHL  I$$!$!(*e))e++8) )L ) L"$(*))+*!e++`$ H))? @(hF  ɓ#Ɂ$ɍ$ɘ $ ɕ(`L FF` `( P & $( P ɛɍ ' $  %i $ ' "` $ H % " % "h`!678 9R  ?BC , L UU**ժU*U*b"     1))((1A12))E&A(A1A2): AZIMUTH = ATN(SIN OF AZ / COS OF AZ)O01860Y:2020D REMOVAL OF AMBIGUITIES IN ATN FUNCTIONNA01890X1930bA201910l2010vAP522010A01990A201970AP5A20103(L5)(H)(D1)(D1)(L5): SIN OF ELEVATIONEE2(1(E3E3))TE(E3E2)bE02170tEI6R52170 CALC OF AZIMUTH, AA2(D1)((L5)(E))A2A2((L5)(L5))((E)(E))A1(L5)(D1)(L5)(D1)(H)A1((H)(D(L1(L124)24)%JL(L(L24)24)NT CALC OF GHA, G, FROM SIDEREAL TIMEa^G(L24)P5R1phGP51670{rGGP5|1710G016901710GGP5 CALC OF LOCAL HOUR ANGLE, H, FROM GHAHL6G CALC OF ELEVATION, E1ENSION (R1) AND DECLINATION (D1)HD1(L7)(L8).397821(L7).917463aD1(D1((1D12)))zA2(L7)(L8)(D1)A1((L7)(L8).917463(L7).397821)(D1)A(A1A2)"1860,R1A6L1.065709822T1@LT241.0027386.646055.274R5(K22K4).186R5(K3)JL8L8.214R5(2K2).114R5(2K5)L8L8.059R5(2K22K4).057R5(K2K32K4)K6K5.6593R5(2K4)6.2303R5(K2)1.272R5(K22K4)L75.144R5(K6).146R5(K52K4) CALC OF RIGHT ASCE100)1440(B100)24"nT5T1TAxK1B(.751213.0366011T5)cK2B(.822513.0362916457T5)K3B(.995766.00273777852T5)K4B(.974271.0338631922T5)K5B(.0312525.0367481957T5)L8K1.658R5(2K4)6.289R5(K2) L8L81LIAN DATE - 2397547.5 FOR 0 HOURS UTC6T1J17472.5Z D9(B(B100)100)(B100)60D6(E1(E1100)100)(E1100)60D7D9D6(D8D7I2D701350<1380FD802220PBE1Z CALC OF SUB-MOON LAT & LONGdT(B(B100)30(M9)((M10)2)/tJ2((Y1853)4)1C19~1270T((Y1852)4)111190^C11h1200qC10M91240M111240C201250C21J1365(Y1852)D30(M3)((M2)2)J2((Y1852)4)C1C2%JJ1J2: JUB$"Y"980990.E12400:B0:1000AE1S(N):BQ(N)nMF(N):DV(N):YY(N):Y1Y((Y100)100)tz$I12. CALC OF JULIAN DATE8M31160B((Y1853)4)111120LC11V1130`C10jJ1365(Y1853)D?"::"ENTER '0' IF NONE: ";PR. B$"Y"9237 926C E12400K B0s E1S(N):BQ(N):MF(N):DV(N):YY(N) Y1Y((Y100)100) PR :1:200:5:"POSITION OF THE MOON AT "M"-"D"-"Y1 200::"GMT"8)"AZ"16)"EL"24)"GHA"32)"DEC":12:1:2000:5 H10:"ENTER STARTING TIME"::200:Q R"ENTER MONTH: ";F(N):k f"ENTER DAY: ";V(N): p"ENTER YEAR: ";Y(N): uB$"Y"921 z200::"STARTING TIME: ";Q(N): "ENDING TIME: ";S(N)::200 :5:"WHAT SLOT IS PRINTER IN 6(L6U660)R5; "ENTER PRINT INCREMENT, MINUTES: ";I:A e "IS PRINTOUT WANTED ONLY WHEN" :"MOON IS NEAR HORIZON? (Y OR N) ";B$ :5:B$"Y"710 I6100:830 "BELOW WHAT ELEVATION IS" :"PRINTOUT WANTED ? ";I6 >:23:5P5360: CONV TO RADS+ IF1ė:5:650Y N"ENTER STATION LATITUDE, DEGREES: ";L5: X" MINUTES: ";U5: b"ENTER STATION LONGITUDE, DEGREES: ";L6: l" MINUTES: ";U6: vL5(L5U560)R5 LTIB" J13 T210 ^. hXX02000:XX< :2:200X :13:"REFERENCE DATA"e :200:q 23,5: F(25),V(25),Y(25),Q(25),S(25) A(X)(XD510.5)10 &B(X)(X(X))P5 0P523.1415926535 :D5360P5: CONV TO DEGS DR MOON FINDER/ BY AL JENSEN, WA7TIBN ADAPTED FOR THE APPLE II~( FROM TIME-SHARE PROGRAM BY EIMAC INC. (R)d300XX039:"-";:XX:XX039:"*";:XX:,:7:21069:14:"MOON FINDER" @11:9:"BY AL JENSEN WA7     M$(TM):TS$(TS):L2$(L2):LN$(L2$,2):LN$(LN$,1)ULN$"."L2$L2$".0"3(M$));M$;6(D$));D$;9(Y$));Y$;18(O2$));O2$;24(TH$));TH$;27(TM$));TM$;30(TS$));TS$;39(L2$));L2$:S$"7"500S$"8"540S$"R"E 'E'"::,D"TYPE DATE (M,D,Y) = ";M,D,Y2FK -PRINT SUBROUTINE-g::13);SN$;" DATA":3)"DATE";13)"ORBIT";24)"TIME";34)"LONG.":M$(M):D$(D):Y$(Y):Y$(Y$,3):424M$" ":D$" ":Y$" "O2$(O2):TH$(TH):T"* TO EXIT PROGRAM TYPE 'E'"::;0"ORBIT NUMBER = ";O2A2a@:::13);SN$;" DATA":: B"* SELECT DATE FOR WHICH YOU WANT":" FIRST PASS DATA."::"* TO DISPLAY NEXT DAY DATA, TYPE ANY":" LETTER EXCEPT 'E'"::"* TO EXIT PROGRAM, TYPP1:TS(TSP.5)P#LLO2KLL1>L2(LLDZ(LLDZ))DZWP10:L2(L2P.5)P],:::13);SN$;" DATA":::"* SELECT ORBIT NUMBER OF INTEREST":" AND INTER BELOW":!-"* TO DISPLAY NEXT ORBIT TYPE ANY":" LETTER EXCEPT 'E'"::T111.8044L1312.8*KT1.700896625=KL25.51240506CZHZ24:MZ60:DZ360yO2(((JDJ1)HZT1)KT)1HZ24:MZ60:DZ360TTO2KTT1TDTTHZ(TTHZ)TH(TDHZ)TM((TDHZTH)MZ)TS((TDHZTH)MZTM)MZAL LONG. (DEG)-KT1.720144357: HRS/ORBITLKL25.80370079: DEG/ORBITRl -RUSSIAN RS INPUTSuO10J12443808T14.59111033L1297.0101KT2.00654187KL30.227 -TIROS N INPUTSO10J12443859 HRS)'L1285.30: INITIAL LONG.(DEG)FKT1.915716375: HRS/ORBITeKL28.73736842: DEG/ORBITk -OSCAR 8 INPUTSO10: INIYIAL ORBITJ12443573: INITIAL DASY (J.D.)T119.85811144: INITIAL TIME (HRS)L1332.2416: INITIM11MDMD1%M2L50MDMD3;M2L51MDMD2PDMDD0:MM1dM12M1:YY1pDD1: CALCULATE ORBIT  -OSCAR 7 INPUTSO10: INITIAL ORBITJ12442367: INITIAL DAY (J.D.)T117.0568: INITIAL TIME (Z :XA$:A$"E"Ā&131/320H410:1080:260:420]:112:180:142{320:410:1080:260:420A$:A$"E"ĀO2O21:270:422:152MD31: INCREMENT DAYSM4MDMD1M6MDMD1M9MDMD121:270:422:Z::X. tSN$;" DATA":23:A$< uA$"E"ĀM vSL$"2"111S wq x320:410:1080:260:420 zA$:A$"E"Ā {180: (D=D+1) |JDJD1:260::420:122 320:DD1:1080 410 X13:Z15JDJD1:180:260:420: 2SL$"1"100" 3SL$"2"1103 4SL$"3"120D 5SL$"4"130U 6SL$"5"140f 7SL$"6"150v 8SL$"7"10| 9 d300:410:270:422 fA$ hA$"E"Ā i jO2O21:270:422:102 n300:O2O21 o410 pX13:Z15 rO2OY":( ("(4) FIRST PASS FOR 15 DAYS":N )"(5) ALL PASSES FOR GIVEN DAY": *"(6) FIRST PASS FOR GIVEN DAY":" THEN SINGLE ORBITS ON REQUEST": -"(7) SELECT ANOTHER SATELLITE": ."(8) STOP": /"YOUR SELECTION ? ":SL$ 1SL$"0"480USSIAN RS":230:34! S$"E"ĀD S$"N"SN$"TIROS N":240:34L 10T ":l #9)SN$;" MENU":: $"(0) ";SN$;" INFORMATION": %"(1) SINGLE PASS FOR GIVEN ORBIT": &"(2) 15 PASSES FROM GIVEN ORBIT": '"(3) FIRST PASS FOR GIVEN DAIT PROGRAM"::/ "SATELLITES AVAILABLE :":E " OSCAR 7 (7)"Z " OSCAR 8 (8)o " RUSSIAN (R) " TIROS N (N)" :"WHICH SATELLITE ? ":S$: S$"7"SN$"OSCAR 7":210:34 S$"8"SN$"OSCAR 8":220:34 S$"R"SN$"R4 -OSCAR PROGRAM- -G,PARKER,WA6OHT-S-------------------------p -ORBIT CONSTANTS ARE LOCATED STARTING AT  LINE 200. -CONSTANTS UPDATED 4/80- -------------------------  : 8)"SATELLITE ORB           TIME(UT) LONGITUDE-W"$+% "M#N1ZH1100U#S10;X#"LONGITUDE (DEG WEST) : ";ZG]#Z360Zj_#"ORBIT NUMBER : ";Wti#7500~n#7000q#F11İ8300s#%16:13&%(M$,3M2,3);" ";(D);", ";Y1900(%(16384)1279500)%:16368,0*%"ORBIT Y): ";Z$*#M(Z$))+#Z$(Z$,(Z$)1)@,#(Z$,1)"/"9003U-#Z$(Z$,(Z$)1)b.#D1(Z$)w/#Z$(Z$,(Z$)1)0#(Z$,1)"/"90071#Z$(Z$,(Z$)1)2#Y(Z$)A#M09015F#D109015K#"CROSSING TIME : ";ZL#H1(Z100) Y$"N"8325 F10" 8399? "REFERANCE DAY ",G D$R I17Z UI D$(U$,3I2,3I(3I2))8399 I "LEGAL DAYS ARE: "; I17 (U$,3I2,3I(3I2));" "; I 8350 (#"REFERENCE ORBIT (M/D/FILE. TYPE 0 TO RUN A TRIAL";$ O2 O08025F " PERIOD(MIN),M Pi " DRIFT (DEG WEST) ",p T{ TT1 F10  "PREDICTING FOR ";N$ l " SUPPRESS UNAVAILABLE ORBITS"; Y$ Y$"Y"8340 F11 8350RY OSCAR 6 OR OSCAR 7....":7 @"SATELLITE NAME: ";N$N YN$"OSCAR 6"8050e ^N$"OSCAR 7"8070o h8090} r OSCAR 6 wP114.994 |T28.7486 F11 8200  OSCAR 7 P114.945 T28.7362 F10 8200 N$;" IS NOT ON 13U% (U$,U0,U1U0)" MON"7682E (U$,U0,U1U0)" THU"7682e (U$,U0,U1U0)" SAT"7682o 7699{ D1(D) H1(DD1)24 N1((H1(H1))60.5) H1(H1) W, H1100N1; "", ((360Z)1000.5)1000  "T MM12 7020" M27085. L(2)298 7038J L(2)307038V L(2)30` 7020f  LDD1(H1(N1S160)60)24 ~ 7000 (D)D17620 D1(D) 9500 UU1 U77620 U1 F107682 U03U2 U x2 "ORBIT TIME(UT) LONGITUDE-W"? J0ISI WWSU ZZTSp Z(Z360(Z360))360| DDPS 7600 J X lDL(M)7035 q7099 {Y4(Y4)07070 ~DDL(M)1 MM1 M127020 YY1&  L(12)< 32,29,32,31,32,31,32,32,31,32,31,32[U$"SUNMONTUEWEDTHUFRISAT"M$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"I112L(I)I77900F9000P"NUMBER OF DAYS : ";IZII13dS1nPP6024     >LNS$(C);"'S ORBITS FOR ";M1;"/";D1;" TO ";M2;"/";D2;"/";YRnV"----------------------------------------"`"ORBIT NO.","TIME","LONG."j,"HHMM:SS","DEG. W"tC2A1A2~::M1;"/";D1;"/";YR;"; DAY ";C2:J(RT(C)60.5)60\HRӭRT(C)1440ī1050%RO(C)RO(C)1?PEPN(C)PS(C)RO(C)YINLN(C)LS(C)RO(C)mRT(C)RT(C)PERC(C)RC(C)INRT(C)1440ī990RT(C)RT(C)1440$RC(C)RC(C)360.C28 CALCULATIONS & PRINTINGB:PR14::PR:PF3;"/80"::760? FINDING ORBITS TO 1 DAY BEFORE DESIRED DAYRC2RD(C)A11kRO(C)RO(C)OD(C)2PEPN(C)PS(C)RO(C)INLN(C)LS(C)RO(C)RO(C)RO(C)(OD(C))OD(C)2RT(C)RT(C)PE(OD(C))RC(C)RC(C)IN(OD(C))M1,D1,M2,D2. FINDING D'TH DAY OF THE YEAR? A1D1:A2D2N*M11ī850]4C21M11o>A1A1MO(C2)wHC2RM21ī890\C21M21fA2A2MO(C2)pC2z(A1A2)(A1RD(C))ĺ"ILLEGAL DATE(S)"::"DATES MUST BE AFTER ";M3;"/";DCALCULATION RANGES OF DATES'C1NS.04{D31:M31:C2002RD(C):D3D31:D3MO(M3)ĪD3D3MO(M3):M3M31C2OF(C)0ī1350:"FOR ";NS$(C);", WHAT RANGE OF""DATES DO YOU WISH YOUR ORBITS"  "FOR? (ENTER M,D,M,D) ";S:OF(C)1:C:690sv:"WHICH ONE DO YOU WANT OUTPUT FOR? (ENTERA 0 WHEN DONE) ";J$:((J$))J$ĪJ$"OSCAR "J$J$"OSCAR 0"J$""ī690J10:C1NS:NS$(C)J$ĪJ1CC:J10ĺ"NOT AVAILABLE":630OF(J1)1630 INPUTING & )"Y" (12)!C1NSC&C1ĺ"AND ";:C2(C2)ĺT0NS$(C);" ";[:CpD"ARE AVAILABLE"N SATTELITE SELECTIONX:"DO YOU WANT DATA FOR ALL OF THEM? (INPUT'ALL' OR 'SOME') ";J$bC1NS:OF(C)0:Cl(J$,1)"A"āC1NPS(C),LN(C),LS(C),ID(C),AD(C),IN(C),AN(C),AL(C),CN(C),OD(C)BCdD$;"CLOSE OSCARLOCATOR FILE"k0 PRINTER ENABLE DECISION; SET PF TO 1 IF PRINTER IS ENABLED, OTHERWISE TO 0:(12)"DO YOU WISH A PRINTED OUTPUT? ";J$PF(J$,1MENT EQUATION IS: LN-LS*ROAD$;"OPEN OSCARLOCATOR FILE, L200"MC1NSrD$;"READ OSCARLOCATOR FILE,R";CJ$,J1$: J1$ IS ORBIT TYPE; NOT USEDJ$NS$(C)ĺ"WRONG FILE":D$;"CLOSE OSCARLOCATOR FILE":;RD(C),RO(C),RT(C),RC(C),PN(C),TION (LN), AND SECOND NUMBER IN INCREMENT EQUATION h ALSO INPUT MIN. AND MAX. DAY ORBIT LONG., MIN. AND MAX. NIGHT (ID, AD, IN, AN),SATTELITE ALTITUDE (AL),INCLINATION (CN), AND MAX. NO. OF ORBITS/DAY (OD) r PERIOD EQUATION IS: PN-PS*RO| INCRE0,31 T FETCH REFERENCE DATE (RD), REFERENCE ORBIT NUMBER (RO), REFERENCE ORBIT TIME (RT), IN MINUTES ; REFERENCE EQUATORIAL CROSSING (RC),2 ^ FIRST NUMBER IN PERIOD EQUATION (PN), SECOND NUMBER IN PERIOD EQUATION (PS), FIRST NUMBER IN INCREMENT EQUA_ RD(J),RO(J),RT(J),RC(J),PN(J),PS(J),LN(J),LS(J),ID(J),AD(J),IN(J),AN(J),AL(J),CN(J),OD(J) "D$;"CLOSE OSCARLOCATOR FILE" , SETTING UP MONTH ARRAY 6MO(12) @C112:MO(C):C:YR4(YR4)ĪMO(2)29 J 31,28,31,30,31,30,31,31,30,31,3R FILE,R0" J$} J$"THIS IS THE FILE FOR THE PROGRAM 'OSCARLOCATOR'"ĺ"WRONG FILE":D$;"CLOSE OSCARLOCATOR FILE": YR,NS OF(NS),NS$(NS) J0 LA,LO: EARTH STATION LATITUDE AND LONGITUDE C1NS NS$(C) C JNSTIONS? ";J$ :(10):& D$(4)` ("YES",(J$))J$ĺD$;"RUN OSCARLOCATOR INSTRUCTIONS CHECKING FOR CORRECT TEXT FILE, AND FINDING WHICH SATTELITE IS WHERE WITHIN THE TEXT FILE D$;"OPEN OSCARLOCATOR FILE,L200" D$;"READ OSCARLOCATO+d FINDING OSCAR'S EQUATORAL CROSSINGSon CHANGING 'OSCARLOCATOR FILE' WILL ADAPT PROGRAM FOR ANY ORBITx BY BILL FOOTE, FOR 1980:::(10)" OSCARLOCATOR":" BY BILL FOOTE (20):"DO YOU NEED INSTRUC          ŭҠҍŭŭӠӠŠŠҠŠ͠ҧҠҠҠҍŭ  OR DOCUMENTATIONd(09,254,359,50,153,904.3155,98.99,12 @ "OSCAR 8","CIR",131,11109,54.6,65.0,103.2524985,4.32579E-06,25.81379386,9.98633E-07,265,337,75,146,1500,102,13 JD$;"CLOSE OSCARLOCATOR FILE"TD$;"LOCK OSCARLOCATOR FILE"^h SEE 'OSCARLOCATOR' F? "RD:RN:RT:RC:P1:P2:I1:I2:ID:AD:IN:AN:AL:CN:ODF ,Cq 1 80,2: YEAR AND NUMBER OF SATTELITES 3 35.25,120.75: MORRO BAY'S LATITUDE AND LONGITUDE%6 "OSCAR 7","CIR",131,25085,47.75,82.2,114.9498617,2.76336E-07,28.7375752,4.8528E-S LONG. W BY LESS THAN 360 DEGREES.e  ***********************************************************q C1NS D$;"WRITE OSCARLOCATOR FILE,R";C NS$,OT$,RD,RN,RT,RC,P1,P2,I1,I2,ID,AD,IN,AN,AL,CN,OD NS$:OT$: SATTELITE NAME AND ORBIT TYPERIAL CROSSING, FIRST NAND SECOND NUMBER IN PERIOD EQUATION, AND FIRST AND SECOND NUMBER IN INCREMENT EQUATION# ALSO DAY MINIMUM & MAXIMUM LONG. W,NIGHT MIN. & MAX. LONG., SAT. ALTITUDE (IN KM), INCLINATION,AND GREATEST NO. OF ORBITS WHICH WILL PROGRES PROGRAM 'OSCARLOCATOR'"$ YR:NS0 LA:LO\ "OSCAR 7":"OSCAR 8": SATTELITE NAMES *******************************************************m SATTELITE NAME, ORBIT TYPE, REFERENCE DAY, REFERENCE ORBIT TIME (IN MINUTES), REFERENCE EQUATO7 AND 8 ONLY!!! ----- ******"A ::"LAST UPDATE: 5/10/80"M ::: "PRESS RETURN WHEN READY TO INITIALIZE 'OSCARLOCATOR FILE'. ";A$ D$;"OPEN OSCARLOCATOR FILE,L200" D$;"WRITE OSCARLOCATOR FILE,R0" "THIS IS THE FILE FOR THE1d ESTABLISHING TEXT FILE FOR 'OSCARLOCATOR'Sn LAST UPDATE: OSCARS 7 AND 8ws LAST REFERENCE UPDATED:1-1-80x BY BILL FOOTE:::YR,NS,LA,LO10D$(4)"***** WARNING!! UPDATE FOR OSCAR ******" "***** ---- !! ! ! ! ! !!GAIN"2"WHEN IT PRINTS ORBITAL PERIOD AND IN-"B"CREMENT."HNu$"NOTE: ALL TIMES AND DATES ARE"." GIVEN IN GMT (GREENWICH MEAN"8" TIME, OR UNIVERSAL COORDINATED"B" TIME). GMT MAY BE CONVERTED"&LTO HAVE A PRINTED OUTPUT, OUTPUT WILL"Q"BE DUPLICATED ON THE SCREEN AND THE"~"PRINTER. IF YOU HAVE SELECTED NOT TO""HAVE A PRINTED OUTPUT, THE COMPUTER""WILL WAIT FOR YOU TO PRESS A KEY AFTER""IT PRINTS EACH DAY'S ORBITS, AND AEFORE THE DATE OF THE LAST"4z"REFERENCE UPDATE.":f" THE COMPUTER WILL NOW CALCULATE""YOUR ORBITS BETWEEN THE SPECIFIED DAYS."2000"IT WILL TAKE A FEW SECONDS BEFORE IT""BEGINS PRINTING. IF YOU HAVE SELECTED"&"ST RESPOND":>"WITH 2 DATES IN THE FORM 'M1,D1,M2,D2',"iH"WITH M1 AND D1 BEING THE STARTING DATE,"R"AND M2 AND D2 BEING THE ENDING DATE."\"YOU WILL RECEIVE AN ERROR MESSAGE IF"f"M2 AND D2 ARE BEFORE M1 AND D1, OR IF"p"EITHER IS B" FOLLOWING THIS, A PROCEDURE IS BE-"V "GUN WHICH WILL BE REPEATED FOR EVERY""SATTELITE YOU HAVE CHOSEN TO RECEIVE" "OUTPUT FOR. FIRST, YOU WILL BE ASKED"*"OVER WHAT RANGE OF DATES YOU WISH YOUR" 4"ORBITS TO BE WITHIN. YOU MUUST RESPOND WITH THE"B"FULL NAME OF THE SATELLITE, UNLESS IT"q"IS AN OSCAR SATTELITE. THEN, FOR OSCAR"{2000"8, FOR EXAMPLE, YOU MAY ENTER '8' OR""'OSCAR 8'. THIS IS THE ONLY EXCEPTION""TO TYPING THE FULL NAME."* FOR ALL"8"OF THEM. IF YOU RESPOND WITH 'ALL' YOU"a"WILL, LATER, GET ORBITAL INFORMA-""TION ON ALL LISTED AS AVAILABLE. IF,""HOWEVER, YOU RESPOND OTHERWISE, YOU""WILL BE ASKED WHAT SATELLITES YOU WANT""OUTPUT FOR. YOU MD"ANYTHING IS PRINTED. IT WILL BE RE-"TN"ENABLED ONLY IF YOU ANSWER 'YES' TO"xX"THE PRINTER ENABLE DECISION."~bl" AFTER THIS, YOU WILL BE INFORMED"v"WHICH SATELLITES ARE AVAILABLE FOR OUT-" "PUT, AND ASKED IF YOU WANT DATASWER WITH 'YES' AND DO"! 2000K"NOT HAVE THE PRINTER PROPERLY CON-"x"NECTED. NOTE: IT IS NOT NECESSARY TO"&"ENTER 'PR#1' BEFORE PROGRAM EXECUTION."0"IF YOU DO, NO ERRORS WILL OCCUR, AND":"THE PRINTER WILL BE DISABLED BEFORE")"THAN THESE WILL BE INTERPETED AS A NO."1 ^ " AFTER THIS, YOU WILL BE ASKED IF" "YOU WISH A PRINTED OUTPUT. IF YOU DO," "YOU MUST HAVE THE PRINTER PLUGGED INTO" "SLOT ONE, TURNED ON. THE COMPUTER WILL""'HANG' IF YOU ANITHIN THE PROGRAM, YOU WILL"I "BE ASKED IF YOU WISH TO SEE THESE IN-"v "STRUCTIONS. YOU SHOULD ANSWER WITH A" "NO, UNLESS YOU WISH TO SEE THEM AGAIN," "IN WHICH CASE, YOU SHOULD ANSWER WITH" "'Y', 'YE', OR 'YES'. ANYTHING OTHER"+ DE-"3 T"SIGNED AS AN AID IN SATTELITE LOCATION."_ ^"IT WILL, UPON COMMAND, GIVE TIME AND" h"LONGITUDE OF EQUATORIAL CROSSINGS FOR" r"ALL ORBITS VISABLE FROM A GIVEN LOCA-" |"TION WITHIN A SPECIFIED RANGE OF DATES."  " ONCE WE INSTRUCTIONS"5 "HIT RETURN TO RUN OSCARLOCATOR"S "HIT TO TERMINATE"c 24:18:A$x A$(27)ė:3: "A$(13)ĺ:(4);"RUN OSCARLOCATOR" , 6" PAGE 1" @: J" 'OSCARLOCATOR' IS A PROGRAM RUCTIONS" 8; "DURING PROGRAM EXECUTION, A PAGE OF g "TEXT WILL BE DISPLAYED. HITTING ANY" "KEY WILL CAUSE THE NEXT PAGE TO BE" "DISPLAYED. PRESSING WILL RE-" "TURN YOU TO THIS POINT." 18 "HIT ANY KEY TO SEE THy3d INSTRUCTIONS FOR THE PROGRAM 'OSCARLOCATOR'nn FOR AN EXPLANATION OF HOW THE PROGRAM WORKS, SEE THEx DOCUMENTATION AT THE END OF 'OSCARLOCATOR' BY BILL FOOTE, ON 2-19-80::255:PAGE1 ::" OSCARLOCATOR INST"" " " " " """""""""