' +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 ˆʎõĵ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-` ܫI볩쳢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#e original. If they are not identical, then Diversi-COPY beeps and gives a 'Compare Error'. Comparison mode works with 1-drive, 2-drives, formatting and mass production. At the end of a mass production session, we recommend that you compare your originaer 'C' will appear in the lower right corner of the screen. To leave comparison mode, hit 'C' again (the letter 'C' will disappear). While in comparison mode, Diversi-COPY does not write duplicates. Instead it compares an already written duplicate to th12 - Verify error / compressed data NOTE: To copy 40-track disks, hit '*' from the main menu (requires 40-track drives). *** Comparing Disks *** Diversi-Copy can compare 2 disks to see if they are identical. To enter comparison mode, hit 'C'. The lettdrive or motor speed error 2 - Write protected 3 - No address mark (D5 AA 96) 4 - Volume mismatch 5 - Wrong track 6 - Bad address data 7 - No data mark (D5 AA AD) 8 - Data checksum error 9 - No DE trailer 10 - No AA trailer 11 - Verify error / wrong byte 64K Apple II+ with an extra 128K card is just a little short of the 200K needed, but will work for almost all originals if a few sectors are unused. *** Error Numbers *** For the technically oriented, here is a list of possible disk errors: 1 - Empty already have a //e with a 64K extended 80-column card, then buy a 128K card from Titan, Legend, Omega, Prometheus or Abacus. The Abacus 128K card is the most versatile for the hobbyist (313 524-2444), but the other companies are larger and better known. A 192K 'Neptune' extended 80-column card may also be used. If you're buying a new computer for mass production, we suggest that you get a //e without an 80-column card. Then buy the 192K 'Neptune' extended 80-column card from Titan (313 662-8542). If you y full disks, however, you'll need to add extra memory to your computer. You need a total of about 200K to copy any disk. Diversi-COPY automatically recognizes the 64K extended 80-column card in the Apple //e, and all 16K and 128K cards in any slot. Thehe keyboard. While Diversi-COPY is writing to drive #2, put a new disk in drive #1, and vice-versa. *** Extra Memory *** You can mass-produce newly formatted disks on any computer, since Diversi-COPY will compress the unused sectors. To handle completela blank disk in drive #1 and hit to write each copy. On a 2-drive system, put blank disks in drives #1 and #2 and hit 'A'. Diversi-COPY will write to drive #1 and #2 alternately until you hit or get a write error. You never have to touch tcan then write multiple copies from memory without re-reading the original. If the original disk does not fit into the available memory, the program displays an error message. Otherwise, you will hear 2 beeps and see a new menu. On a 1-drive system, put on them. This means you cannot boot these disks. Note: a DOS 3.3 formatted disk has 32 extra free sectors. *** Mass Production *** Put your original disk in drive #1 and hit 'M'. Diversi-COPY will read this original disk into memory and hold it. You A$"B"ĺD$;"EXEC TUMBLE BUGS":CxA$"A"ĺD$;"BRUN SNACK ATTACK"bA$"D"ĺD$;"BRUN OUTPOST"rA$"X"ė:z10$"F"ĺD$;"BRUN SNACK ATTACK""$"F"ĺD$;"BRUN SNACK ATTACK"$;"BRUN SNACK ATTACK""$;"BRUN SNACK ATTACK"CK" 1012,0D$(4)! :? 18:"GAMES":18:"-----"\6:" [A] SNACK ATTACK"w:" [B] TUMBLE BUGS"(:" [C] PANIC"2:" [D] OUTPOST"P20:"PRESS 'LETTER' YOU WISH TO PLAY: ";:A$ZA$dA$"C"ĺD$;"BRUN PANIC"nժժժժժժժժժժժժժժժ  3?3 000 ?? ?6?3m  3 33m033 330  303m> 3?  30?36m3?33  >~> ?3ժժժժժ3 3[c3k 0[33 3[ck >[?> 3[c3w 3[00 [cc  >[3?3?0<<3???3???3?6??6?333333 3 3 3333333?? ;?  0>033  3? 3 00303 ?? ;??3 0>?0?$D ժժժժժժժժժժժժժժժժժժժժ?cc??wc 33 ?kc ? Ɋ`3e3 LL`Xi+ p L L ` Ɋ`1e1 LL` 2'L P  Ɋ`2e2 LLZ` 3'L G- a`I1ץɀ`kpukpuRW\|wr|wrRW\` 0$L ȅ.  Ɋ`0e0 ``L` 1'L   a`Q P ` `dթfשԅЇ臅 ee  ,$$`ɋ "$`` L'W,,Zb-c,[-b-c`Zb0c0[b0c0a0ȹtt`o ` o p p p `pppp`I`l @>8> @  >`ɀ L"  ` ` ` h `ꍀ`123`H( `hi( ``( p) p` + ``( p) p+ ``:;<=JPQRSTUVWcdjklmp…ą˅̅ۅ܅݅ީ*@ghiqrtvwxy BC L I `L  ` LLtɠ `EX`L0 PRTW`?vL  ` `(  `  ЁI ٩X` `0"2,""""***6"""""< >>0D  v ɱɳ) ` J `LJ` h `ֈ p  ` J""""""""""**6""""""""> > *&"&"" ,2"2,">,22, &"""  0 "" " ****&""""""&&,22, &< "" """>"""""""<  00>> " "*6<"">"""""""""""""">>>"2""""">""">>"  ">"6**"""""&*2""""""""""""*,"" "" ">""""?]]]]]kw]]]UUI]]]kwk]]]]]kwwwA_ow{}A}}]mui]swwwwwc`UUUUeY]]]c]]]cwTw666< (#21 *>*>> "2*&" >"  >"  ">c]UIe}Cc]]A]]]a]]a]]ac]}}}]ca]]]]]aA}}a}}AA}}a}}}c]}M]]c ~~ AwwwwwA]muyum]}}}}}}AqQw0P]]YUM]]c]]]]]ca]]a}}}c]]]UmSa]]aum]c]}c_]cAwwwwww?ѣ聀У聀ȁǀߨǀǀ聀ǀ聀ƀȁЃ聀􀀂Ѓ聀􀀂Ѓ聀䀀ǿѣѣǿѣ                   ߀߽ǷǸǸǸǸĀǸďďďď                                             ``;L`Lp              `C ȅ߅D D  `` ` C D`?v9 `: ` v?v`pv"`à L]vhh`@wx   @jj8jj  SHIELD~OFF:  t s   s   0% ~ s   0Lu ) s Ltt hLsPRESS~THE~KEY~FOR~THIS~FUNCTIONHtthL`tLxs  `o o Pst ` s0 @t s0Lt @tLut `t) p``0`Ls,-./,-./5Qq~nU>+ .BY   ` & & & i| i >s=s> ⤒` s s `ɛ|`   0`HtthH) s_%qqۥI  `n`8 H8hLpV4+ .BYcdd~zwuttvx|~hjklllkigecbaaabdfhjcddcD+ p8 q p? p p>`8 q`   qn`8 IiȐ$$*Nee 8e q`$ee 8e q```bi0eeq@qr`r rr@rʍ^pr r@r`rrrr qr r@r r^pD`>>p r@rr rr@r?7 q@                                                                                                                                 !!!!!!!"""""""#######$$$$ ܂Ԇ؃p@@p(@IMgo@̘ؓ‘=Ăނ݂Ղ݁Ђ؎؊І x ~x@~`03C 3  3  3xx|3~p샪腪@ ` 0  x  p|p~~|3~3 c C   !!""#$$%&&'(()*++,--./0012344567789:;<<=>?@AABCDEFGGHIJKLMNOOPQRSTUVWWXYZ[\~}|{zzyxwvuutsrqponnmlkjihgffedcba`_^^]\[ZYXWVUUTSRQPONMMLKJIHGFFEDCBA@@?>=<;;:9876654332100/.--,+**)(('&&%$$#""!  \\]^_`abcddefghijkllmnopqrsstuvwxyyz{|}}~a`_^]\[ZZYXWVUTTSRQPOONMLLKJIHHGFFEDCCBAA@??>==<<;::998877665544332211100///...----,,,,+++++*******)))))))))))))))))********+++++,,,,---...///000112223344556677889::;;<==>>?@@ABBCDDEFGGHIJJKLMMNOPQRRSTUVWWXYZ[\]^^_`abcdefghijjklmnopqrstuvwxyz{|}~~}|{zyxwvuttsrqponmlkjihgfedccb*>0(37#;= *?68."%(,=!0;  6 -"<(X0NBE4HL]AP[+3,?4V6()62::3MB\H".>\A*BH!9/ % &<49)%*= > ?$<3)'+">' 8(=?4, 8=!93*!0275"4%4 1)2 (  <%*>;;6 &'2>-XYB_MC/&Y O?$K\GH-D( U('O*C#F@^28Y O()E)>#8F5\T=Y1I2#5E7J95&]2+2"0^+0_:;2D\SI.G.KB^G>$(5#),5XH4;]_TL+7;X]A$2YS:/J3APRWUBT':ET,,+7%9QIR@,H+<,1\E!(5J>^53=;[[V@,!FG&R9^&5:M???????????33333300333333333333>>33333333333300333333??????????????3333 c3???3???? k3? 3;?  k3?3 ?;?3??3 ?; w??3 ?33??3 ?3 c??? 3?033U?? 0????3??3???;?`U3?3 >?? ??3?33?`U3?3 3?3?3??c??3???3???3???c?333337?3?3?3?U3???3?3??3?????`U3????33 3333`U33 33? ;?3?U?? >3?@``̌܏~~|~FpWF~|~~z xx x `d2`g>`d2Lx xx ``@@p@ d@@@@ dp@@``ǁʁʁʁʁǁƏ昃󃦓昃Əŏ̱̱̿̿۞Β׀݂݃ځ??3?<Ѐ3?3?????????????3?6Ѐ3??3?????33333333333Ѐ3 3>3333?33333330Ѐ? ;?>3?xp?|@|@~~~؄bӜلܜ韀ҶԅՈjz zjJ*Uz_z_z_z_z~~?|k׀׀쀀ր쀀րՀojժ|@|@p?x xp?/Uz_*u/Uz~*}?U~?|E`?g}~~~<=ݿjzy|JJ|zjz_z_z_z=_z<~~~~~?g}jko?mm?oj?|k*Ujjժժk*UjjʪoJ*jzʪlJ*j ʪlJ*j ʪoJ*jzʪj*Ujjժժj*Ujjժժ?UK*U+}/e+T+u/uJ*U.u/u*T.u/]J*U:u/]*T:u/WJ*Uju/Wz_ju/Uz_*u/Uz_*u?|ߪתת׫*׫ժ׮*׮ժ׺*׺*ժժ>$L?ɰL` `d p cdĠ ``Oĩ@ @ `UvlWAÏ Fo0 Siop^RXI*5N+<)58<<;9>?>-*:=$'$/ :!4)#+&6*5)9>8";(71*/!!'52#=7;&96>=:>22!36ఌః`H `hi `ĵ  LLhh`diL` ` d @Lee8@9L5MG89`?>fiS i@ @ `f7C?զbh L?¢e b LcĢ  L <`$ aa LꥠihPPRTQPi $0ohh`ggnnPPn`i pnPTLXiL@ pp TT`hhh e RLLde e eieɰ e RLLX B `Looj6LXj:o (  oj:` LPjIPT@ @  :L,  `J bhLb bɱɹ 8)L `L0 ABCdĢj䥌挩 H phiL d`f0MIddAfr>6de el ee ji l R d`Lde el ee% ji l RLLdPe e e8epcb LIcb cb b8bdcb LIc`H (`H` Ph` `ȥX` i+ pX``i ``cb `Lb@`b`bɈ`FDF` `+Υ)?Ͻ@ϥ)=?`*UcNccFvB;cbbch bbch  cLLc#b bch bbch LIcb cb bib x` t`ο`Iå` `` ɛ `ɒLɓDID I ` ``'?I?` `ee6@7)IC6n`LPH@hLPLXH@hLJiLee  ɀ B؅L 8Li'  `ee0@1@01`H@hLH@hLee 2     &&  TTg|fTg{f ff ee000@LZZ(($$  ҅ iT i      `  PPPPPPPP Bd8HIP&0H`x0`@@`@P0`@@BBBBBBBBCCCCCCCDDDLGGGGGGJJJJHHHHIII\\\\KKKK]]]^^^^__yz ( 26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPH@hL@U*ժ*U*U*UժժU*U*ժU*HX`dhhh` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.>>8?3 TTT***********UUUUUUUUUUUUUee@)  e)e-FJк`ن```@ ```@ @@  LiM$e#@0?8<63?00??0?33??0 ?33??3>0> p88p>>+ phXi+ ``* *67Xi+ X`) ҽ ```LH) hJJJJ ʈ&H) hJJJJ ʈ ` `u`u`L  `  LH) hJJJJ ʈ`     `      `  `   `   @  L L%  `L`ɒL L7ɠ0HXi҅ iT i 8L i' ӥ 0҅`  `   `   @  @v vL  `   `    L qq a`%QIJI `zz ` AB BC$CL`Li A BC `L& © ` `҅ iT i 8L i' Lp a`I1ץe̢U T `jRh}hy X y H `jL@   d ` L` j)` `ةՅԅ֩dթf fߩL  צ` @ LR0Sdթfשԅ֦Ľ ee&Pg(@ &'( &L`'(   6( `(cdt  4S `@,S, H# 1h 1 L3" 1 +<=  Ì<=  ÌLk L) ɲL ɳL J 1SSS- 00 I` 1`  8鱍  8鰍 l ,W ̉        LpQL^Q  "La 0LgжLf ɲ ɳ   L3 gee 1L381 8 8 8 1 32 0izz]`àɶLɲLL < =  Ìm  쉰0 쉰  ߩLk g A b Lk    8 ̉                              _^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІș橍0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^dJJLt ` s drdt1dtLt J J J JTQ` LKLiԠӠĠ٠ԮӮՍ٠ƠũŠ͠)F] P]ŠŠĠUZdededededeHdedededehU_d eHd ed ed ed ede#dededeUddededeDž V` Qz z yLWv`0 80 @```` Q y ⑩```㑭0 ޑ0 ޑ㑢``㑭0 ޑ0 ޑ㑢````a(ŠɠĠӍ  хۅ y 兙Dž 5``8)``4i x4 LIxy`i y` Qi y` Qi y` Qi y`х `х `LyLa Qхۅхۅ兪ʊ y` QʊхۅL1 z&zL`` xy``8)i `L`y y'兩Dž Qi  y`兩Dž QL ̀L`8)```77 P7 777 Ƈ 7 7 }LY X   ``ii zizi]L1L1 `Hh `LL 1 "L i |L i |xS7 # ,LɐLLL ,ɀLL  ,PLɠL  ,PLɠLL  ,PL `Ʉ T` T` ʬ T` ɦ T`!ćŇ L 삊L`i |`L8)LLL8)i `ii Ňi ći]LLLŇ%ć``F v `Dž `$/L:`3*O`0`X*хۅхۅۅ  хLLʆ6 Ȍ L L ʎ L L   ͣ ͢н`zz mz z*****z /?zzz xy``z= z) ziz Lu z z<;`; zizz/8xIiyxzizLz=`xy`` z)zJ` zɠJ 8zL  > >  ~~z`z خzzώz`' ziz |zLz) zʎ z`* ziz |zLz)Lz z z`Lz{ Ӏ r{`Lz{ Lz N{` Lz *z+zzJ0z1z `,z-zzJ2/X/X @2KJIMAASSiljm`cfadgzH)JJh & & f)H zh z`  zzL}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ȹ` ` s drdtL Uv`ͽp`Uv.r r` q q q q q 6t s.r.r 0 v vLtLet.r f| r /r.r``~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~LLLLLL!L$L'L*L- LVv # # #Lt`D.rQumQu) +r m+r n~0`n`=uхudtLuv +ruw+rv+r+rΊudtQumQu) `cp tt+r kp tt@cp kp+r`pٻp s`pp s`pppppUvdt.rz; zzDzdtLippp ~ c @~ s Ru 6t dr r s ~ ~ À |u u /r vLLLL L Lp ,r ,r q+r+r`s s`s+r0(pp 8pp`8 ppp0p` pp0p`p` s r`xdppcp p,r+r+rp ,r ,r q+r+r`pypp0p p0 pipLs s0` 0`cpdp p.r+r,rp+r+r  q,r` dppcp p,r+r+rp ,r ,r q+r+r`cqmppbqmpp+r0"+rp +rp0 pipLr`Qdppcp p,r+r+r`qaqdq phpdqaqcp`q`pdppcp`qdqaq phpdqaqcp`q`#dppcpp p ppdppcp pbq  qcq q q q q %q r dr ;v 6t` ppcp kpphppppcp kpphp`@0Let   I>"AQ @cpH)JJh & & f)H iph jp` kpdp #iihpgp`  8 cqbq`pdppcp@;@~|xp?`@ @ @ U**UT*(UP* U @*U*`Pxl\lfc`a`a`` p@` @@ pX8X L F @C @C @A @`@@`0p0 A;G0p``@;>7>0``@@66666w |n<|`8@@?;?8n@@`0p0 A;>7>>=@```6066666w|n|8|z?@=@;@m`l0lll lnx\xpxt~{w[@Y`X8X8XX\p8p`ph|vn63@1p0p0008`p`@000008```G@c1@?@3@@@`````p@ @@Gbg?@ @ @ @ @ `;D~N~@;>0v8><||66666w|`lq|x8 x8x88lllll?o^~N@;>v>~^<|66 686860w |l|8|<xx8l llplpl`nA|`lq|x8 x8x88lllllnxAXcxqp pp pppXXXXX\p0Gpc`1@`````|l|8|<xx8l llplpl`nAxXxp xxp pp XX1XaXaXA\p0p`@pp ```030c0C0C08```@``@7@?@3`f`F```p@@@@@7og@M@ @ @ @ `;o   0000`@NNNp_000``>`>`@ `?`0`0`0000@9@}@}@9~888@@a@a@a```s{{s&|p p p  CCC@@@fvvfLx```~@9@9@9@}    p x x p ~sss{   `pp`@ |fffv000000fvvfLx```~LllLp@3@3@3|7   XX0`?gggxԍ 􍹯  􍹯ӍITE ";F$ST$DTE$$NUM1I1NUMCPR(I):PD(I)I]D$;"CLOSE ";F$F"DEC is decimal degrees":*PI1NUMAZ"Point ";I;" ?:";Sd"";RA,MM,DECinRA(RA):HH(HH)xPR(I)RA(MM60):PD(I)DEC:::"File ?: ";F$D$(4)D$;"OPEN ";F$D$;"DELETE ";F$D$;"OPEN ";F$D$;"WR^  :PR(20),PD(20)A"Satellite Path Data Entry"::Y"Satellite?: ";ST$n#"Date ?: ";DTE$(:"No. Data Points?: ";NUM-NUM20ĺ"":402:"Enter each point as RA,MM,DEC where"<"RA is RA Hours, MM is RA minutes, aND"AXIPJe.RAXIPJe.RAXPPJbGX~'PIIPJPIIPJe.RAXRAXPPIIPJPIIPJPIIPJe.bGX~'PIIPJbGX~'PIIPJPIIPJe.RAXIPJe.RAXIPJe.RAXIPJe.RAXIPJe.RAXPJe.RAXIPJe.RiIXiIXPIIiJX~XiIXPIIiJX~iJX~iJX~PIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIIIPIIPIIPIIPIIPIIiIX~PIIiIXIIiIXPIIPIIPIIPIIPIIPIIPIIPIIPIIIIPIIPIIPIIPIIPIIPII72ZY$(((Z1)))1;2(ZY$)2ZY$"0"ZY$:13020Q;2ZZ$((((Z1(Z1))100)))r;2(ZZ$)2ZZ$"0"ZZ$:13040;2Z10ĺ"-";ZY$;".";ZZ$;" ";:;3" ";ZY$;".";ZZ$;" ";:;6 SAVE AS A FILE;6DD;"/";MM;6QP08;6(100PL(QP))100;7< :'Z1(0):'FFİ14000%:'10049:'(4);"CLOSE":O:. PRINT Z1 AS +XXc:.ZY$(((Z1)))}:.(ZY$)1ZY$"0"ZY$:.Z10ZY$"-"ZY$:12050:/ZY$" "ZY$:/ZY$;:Z1(0)::2Z132.52:2 PRINT Z1 AS +XX.XX:2Z10ĺ" 00.00 ";:;200039j'" ! ";:HXPL(QP):1723:Z1HH:12000:" ";D9o'Z1FX:12000s9t'" ! ";:HXPK(QP):1723:Z1HH:12000:" ";9y'Z1FX:120009~'" ! ";:Z1F(QP):130009'Z1D(QP):130009'Z1T(QP):130009'Z1M(QP):130009'9'::'PRĺ(4);"PR#3"M:DXDD:2670:NRN8:8=',8>'FFĺ:10134}8B'"----------RISE----SET-------RA--------DEC-------PHASE---AU----SIZE---MAG-"8G'F(0)1:M(0)26.88L'QP088V'PN$(QP);:Z1IH(QP):120008['Z1IM(QP):120008`'" !";:Z1HI(QP):120009e'Z1MI(QP):17 #56 APPARENT BRIGHTNESS27 IN=#50 OUT=M()i7M((SRP)(CA(F(QP)))):MM(10):MM5:MM26.7w7M(QP)M:7&2700:2800:2900:2900:3000:7'7'7'9980:RCRZ:DCDZ7$':35507.'100488'YXYY:MXMM:DXDD:2185:NJND:YXYY:MXMSIZE"6v IN=#50 OUT=D(),L(),T()K6PSR3R3SRSR2R3SR((SLLL)PJ)W6P(PS)e6RP.1386p6TT0P6D(QP)P:L(QP)R:T(QP)T:66 #54 PHASE OF PLANET6 IN=#50 OUT=F()66F(QP)LSL:F(QP).5(1(F(QP)PJ))66XTR:2220:TRHX:NDWW:HXTS:2220:TSHXA5TRTRZC:TRHPN(TR)Z5$TSTSZC:TSHPN(TS)5(HXTR:1723:IH(QP)(HX):IM(QP)FX:IS(QP)SX:HXTS:1723:HI(QP)(HX)5*MI(QP)FX:CI(QP)SX5.3720:3780:3810::100455t6u #53 DISTANCE/LIGHT TIME/PJ)((LAD)PJ))(RR((ADLL)PJ)):B(B):BBPJR4 2510:PL(QP)AD:PK(QP)GX:X4 }4 DO THE WHOLE KIT'N'KABOODLE 4 4 2660:21854 QP184 3260:RHAD:DHGX:26324HXLR:2440:TRHX:HXLS:2440:TSHX4YXYZ:MXMZ(5WWND:H34823 LDPN(L)U3 B(RD(UIPJ)((LAD)PJ))(RR((ADLL)PJ)):B(B):BBPJu3 2510:PL(QP)AD:PK(QP)GX:{3 3 #50.3 OUTER PLANET3 3 L(RR((ADLL)PJ))(RDRR((ADLL)PJ))3 L(L):LLPJ:LLAD3 LDPN(L)24 B(RD(UIPJ):UIS(X)'2f Y((SLQ)PJ)(IPJ):2p X((SLQ)PJ)M2z 2545:ADAD15h2 ADADQ:RDSR(UIPJ)w2 QP23500}2 2 #50.2 INNER PLANET2 2 AA(RD((LLAD)PJ))(RRRD((LLAD)PJ)):AA(AA):AAAAPJ2 L180LLAA3 L0LL360:E(VPPJ))!1 NE0.985607908N811" NEDPN(NE)F1* MENE3.76286306l14 LLNE1.9157416(MEPJ)98.8335416 LL0LLLL360:338218 LL360LLLL360:33841> VELL102.5964031H RR.999720508(1.016718(VEPJ))1I R3RR 2\ X((SLQ)PJ)(I0 '0 #50.1 COORDINATES OF PLANETST0 IN=PLANET DATA,YY,MM,DD OUT=PL(),PK()Z0 v0 TP,EE,UU,E,A,I,Q,T0,CA0 NP0.9856473N8TP0 NPDPN(NP)0 MPNPEEUU0 SLNP(2PJ)E(MPPJ)EE0 SLDPN(SL)0 VPSLUU 1 SR(A(1EE))(1,1.74E-4_/N 84.01247,228.0708551,172.736328,.046323,19.21814,.772989,73.876864,65.8,7.597E-5/X 164.79558,260.3579,47.8672148,.009002,30.10957,1.771602,131.560649,62.2,7.597E-5/b 250.9,209.439,222.972,.25387,39.78459,17.137,109.941,8.2,4.073E-61E-5Z.0 1.88089,126.30783,333.6908166,.0933865,1.5236883,1.849801,49.4032,9.36,4.539E-6.: 11.86224,146.96636,14.009549,.048466,5.20256,1.304182,100.252017,196.74,1.994E-4/D 29.45771,165.322242,92.665397,.055616,9.554747,2.489374,113.488834,165.6X:WSSX:HXSW:1723:HU(HX):MUFX:SUSX.- 4- Q- PLANET ORBIT DATA W- - .24085,231.2973,77.1442128,.2056306,.3870986,7.0043579,48.0941733,6.74,1.918E-6.& .61621,355.73352,131.289579,.0067826,.7233316,3.394435,76.4997524,16.92,1.72I(0)VM:, !, #46 TWILIGTE, IN=#45 OUT=WH,WM,WS,HU,MU,SUK, m, X(OIPJ)(GDPJ):LHC(X), X(0.3090169(OIPJ)(GDPJ))((OIPJ)(GDPJ)), HDC(X), T(HDLH)15:TT.9973, WRTRT:SWTST(- HXWR:1723:WH(HX):WMFHPN(TS)/+ HXTR:2432:TRHX:HXTS:2432:TSHX?+ MXMZ:2185g+ HXTR:2220:TRHX:HXTS:2220:TSHX+ TRTRZC:TRHPN(TR)+ TSTSZC:TSHPN(TS)+ HXTR:1723:UH(HX):UMFX:USSX:HXTS:1723:VH(HX):VMFX:VSSX , IH(0)UH:IM(0)UM:HI(0)VH:M2:DHG2:2632:R2LRDT:S2LSDT[*h TR(24.07R1)(24.07R1R2):TS(24.07S1)(24.07S1S2)l*m GD(G1G2)2*r X(OIPJ)(GDPJ)*s UIC(X)*w X.0145835939(UIPJ):YS(X)*| DT240Y(GDPJ):DTDT3600* TRTRDT:TSTSDT+ TRHPN(TR):TS)" AHHX:AMFX:SASX-), D(0)RX:T(0)TH60:3)T N)U #45 SUNRISE & SUNSET})V IN=YY,MM,DD,OI,LN OUT=UH,UM,US,VH,VM,VS)W )^ 2700)_ L1L:A1AD:G1GX:LL.985647:B0:2510:L2L:G2GX:A2AD)` XMMX*c RHA1:DHG1:2632:R1LRDT:S1LSDT:RHAz#?    ٠Ӯ߱ή ή߱ ή ήӮ ӠԱʠ ԠԠԲ Է+!Ը+Ϡ ԴԵԶ!Է$ Ը$Ԡ X:YCYYYH 8XSX1X011505 BYSY1Y01150E L PLOT STARS VBPĺ"";q `MAG(MAG)1:MAG1MAG1 jMAG5MAG5 tMAGX,Y ~  DATABASE LOADING :"LOADING DATABASE" D$(4) D$;"BLOAD STARSHAPES (768)" 232,0:,0SX1,SY10,SY10,00 @J1N:3000:1000:H J"":A$:CF5000Q T110m  DO SETUP CALCULATIONS PHDEC:DLRAL0 A(P0):B(P0) C(PH):D(PH) E(DL):F(DL) K02(1ACBDF) $XRK0DE:YRK0(BCADF) .XCX" "RA,Dec: ";R0,D0@ "Enter the field width in degrees-"R "Width: ";WIs "Border the map (Y/N): ";L$ "Beep a star plot (Y/N): ";B$ BP0 B$"Y"BP1 RSX53WI:L00.261799R0:P0D0RD "4:3 ,L$"Y"320 60,0SX16:RDPI180$ INFORMATION SCREEN8 16:"STARPLOT"L 16:"--------"S 5 "Starplot plots a stereographic map of" "the sky from a star database, of the" "region and field you select.":10 "Enter the RA,Dec of the field centre- 24570% DATABASE CONSTANTS/N602EF$"STARCAT1.OBJ"T(BASE24571Z2u<PI3.1415926:RDPI180F LOAD DATABASEK(232)0(233)390P2000ZSX560:SY192:YH0.5dCXSX2:CYSY2i5000n:40: xPI3.141592     DssRsDsBPCPCPCBPBPPIIiRD{4C4C4C4C4C4CNG  FROM DATABASE' HEREBASE5JN RA((HERE)(HERE1)60)0.261799m DEC(HERE2)(HERE3)60 DEC127DEC128DEC DECDECRD MAG(HERE4)10 MAG12.7MAG12.8MAG *T"tBPCNfAsRsG(MAG)1:MAG1MAG1( MAG5MAG55 MAGX,Y; P "":A$:90g  DATABASE LOADING :"LOADING DATABASE" D$(4) D$;"BLOAD STARSHAPES (768)" 232,0:233,3 .D$;"BLOAD ";F$;",A$6000" 8  CALCULATE RA,DEC & MADO SETUP CALCULATIONS) PHDEC:DLRAL0= "A(P0):B(P0)Q ,C(PH):D(PH)e 6E(DL):F(DL)| @K02(1ACBDF) JXRK0DE:YRK0(BCADF) TXCXX:YCYYYH ^XSX1X0400 hYSY1Y0400 m PLOT STAR rBPĺ""; |MAidth in degrees-"# "Width: ";WID "Border the map (Y/N): ";L$g "Beep a star plot (Y/N): ";B$p BP0 B$"Y"BP1 RSX53WI:L00.261799R0:P0D0RD 4:3 L$"Y"260 0,0SX1,0SX1,SY10,SY10,0 J1N:2000  STARPLOT" 16:"--------"$ 5Q "Starplot plots a stereographic map of"} "the sky from a star database, of the" "region and field you select.":10 "Enter the RA,Dec of the field centre-" "RA,Dec: ";R0,D0 "Enter the field w DATABASE CONSTANTS$N433: F$"STARCAT1.OBJ"IBASE24576Oj#PI3.1415926:RDPI180~( LOAD DATABASE21000<SX560:SY192:YH0.5PCXSX2:CYSY2Z:40:dPI3.1415926:RDPI180n INFORMATION SCREEN x16:"     4"MASTER DISKETTE CREATED ON 48K SYSTEM"a"BY W.TOOMEY 23/11/83"y(4:"Starplot Disk"234,7:8<(4);"CATALOG"A34,0FINXF NX8*JQQ14$4JCNJQ20::6>4);CN$(J):SH7:25:"Arrows to move"rR9:25:"RETURN to choose"\11:25:"ESCAPE to exit"f::(>4);CN$(J):(H(H::(>4);CN$(J):(H(H(HNXF th a field width of ";CW(Q);" Degrees."W20:"Hit any key to view constellation ":"Hit ESC to exit ";:A$::A$(27)QQS:5900:5090R0CR(Q):D0CD(Q):WICW(Q):280  SHOW 15 CONSTELLATIONS Q IS 'FIRST' CONSTELLATION 7:95 "5<23:"Do you wish to Restart, or Exit (R/E)";GFA$:A$"E"ĀQP5060[ZQQS~_QCNQCN14:S14:5900:5090d7:1:958n8:CN$(Q);" IS CENTERED ON"x:" R.A ";CR(Q);" Hours"" Dec ";CD(Q);" Degrees"'13:"wi"-->";A$:T(A$)%T2151203T85140BT135210QT275170a"";:51001:" ":SS1:S155090S0:QQ15:QCNQCN14 5900:50901:" ":SS1:S15090S14:QQ14:Q1Q1(5900:509021:" tions"!13);"--------------".CF5060PCN$(88),CR(88),CD(88),CW(88)4:"Please wait, retrieving constellations.";I1CN:CN$(I),CR(I),CD(I),CW(I):4:1:958:"Choose a constellation.."Q1:5900S0:CF17S:1:ULUM,2,30,300 TRIANGULUM AUSTRALE,16,-65,40F TUCANA,0,-65,40b URSA MAJOR,11.5,50,40| URSA MINOR,16,80,45 VELA,9.5,-50,45 VIRGO,13.5,0,50 VOLANS,8,-70,40 VULPECA,20,25,40:40:CN8813);"Constellaf SAGITTARIUS,18.5,-30,407p SCORPIUS,17,-35,50Qz SCULPTOR,0.5,-30,45k SCUTUM,18.75,-10,30 SERPENS CAPUT,15.8,10,40 SERPENS CAUDA,18,-5,50 SEXTANS,10.25,0,35 TAURUS,4.5,20,50 TELESCOPIUM,19,-50,40  TRIANG,40 PEGASUS,23.5,25,605  PERSEUS,3.5,-50,40L PHOENIX,1,-45,35b  PICTOR,6,-55,30y* PISCES,0.5,15,604 PISCES AUSTRINUS,22.5,-30,40> PUPPIS,7.75,-30,50H PYXIS,9,-30,40R RETICULUM,3.75,-60,30\ SAGITTA,19.75,20,300,40 LYNX,8,50,50. LYRA,18.75,35,30E MENSA,5.5,-75,40b MICROSCOPIUM,21,-35,40| MONOCEROS,7.25,0,45 MUSCA,12.5,-65,35 NORMA,16,-50,40 OCTANS,20,-90,50 OPHIUCHUS,17,0,45 ORION,5.5,0,40 PAVO,20,-65& HERCULES,17,30,6020 HOROLOGIUM,3.25,50,40H: HYDRA,11,-20,90^D HYDRUS,2,-70,50vN INDUS,21.5,-55,30X LACERTA,22.5,50,30b LEO,11,15,50l LEO MINOR,10.25,35,35v LEPUS,5.5,-20,30 LIBRA,15.25,-15,30 LUPUS,15,-40 CRATER,11.5,-15,40; CRUX AUSTRALIS,12.5,-60,30S CYGNUS,20.5,40,40o DELPHINIUS,20.6,15,30 DORADO,7,-60,30 EQUUELUS,21.25,5,30 ERIDANUS,3.75,-30,100 FORNAX,3,-30,30 GEMINI,7,20,45 GRUS,21.25,-50,30.5,-50,50h CEPHUS,22,70,406r CETUS,1.5,-10,60S| CHAMAELEON,10.5,-80,30l CIRCINUS,15,-60,40 COLUMBA,6,-35,30  COMA BERENICES,13,20,30 CORONA AUSTRALIS,18.75,-40,30 CORONA BOREALIS,15.75,30,30 CORVUS,12.5,-20,3 CAELUM,4.75,-40,302 CAMELOPARDIS,4.25,70,40I CANCER,8.5,20,40i" CANES VENACETI,12.5,40,30, CANIS MAJOR,6.8,-25,35 6 CANIS MINOR,7.7,5,30@ CAPRICORNUS,21,-20,40J CARINA,8,-60,40T CASSIOPEIA,1,60,30 ^ CENTAURUS,13G12.8MAG - LIST OF CONSTELLATIONSE ANDROMEDA,1,35,40\ ANTILA,10,-30,30q APUS,16,-80,30 AQUARIUS,22,-10,60 AQUILA,20,10,40 ARA,17.5,-55,30 ARIES,2.5,20,30 AURIGA,5.5,35,40 BOOTES,14.8,30,40233,3# D$;"BLOAD ";F$;",A$6000") F CALCULATE RA,DEC & MAGZ FROM DATABASEl HEREBASE5J RA((HERE)(HERE1)60)0.261799 DEC(HERE2)(HERE3)60 DEC127DEC128DEC DECDECRD MAG(HERE4)10  MAG12.7MANA,8,-60,40$&< CASSIOPEIA,1,60,30@&F CENTAURUS,13.5,-50,50V&P CEPHUS,22,70,40m&Z CETUS,1.5,-10,60&d CHAMAELEON,10.5,-80,30&n CIRCINUS,15,-60,40&x COLUMBA,6,-35,30 & COMA BERENICES,13,20,30& CORONA AUSTRALIS,18.75,-40,30',30% AURIGA,5.5,35,402% BOOTES,14.8,30,40K% CAELUM,4.75,-40,30i% CAMELOPARDIS,4.25,70,40% CANCER,8.5,20,40%  CANES VENACETI,12.5,40,30% CANIS MAJOR,6.8,-25,35 % CANIS MINOR,7.7,5,30%( CAPRICORNUS,21,-20,40 &2 CARIEC$DECDECRD&$MAG(HERE4)10A$MAG12.7MAG12.8MAGG$d$ LIST OF CONSTELLATIONS|$ ANDROMEDA,1,35,40$ ANTILA,10,-30,30$ APUS,16,-80,30$ AQUARIUS,22,-10,60$ AQUILA,20,10,40$ ARA,17.5,-55,30% ARIES,2.5,20 D$(4))# D$;"BLOAD NEWSHAPES,A$6000"<# 232,0:233,96Z# D$;"BLOAD ";F$;",A25000"`# }# CALCULATE RA,DEC & MAG# FROM DATABASE#HEREBASE5J#RA((HERE)(HERE1)60)0.261799#DEC(HERE2)(HERE3)60$DEC127DEC128DRK0DE:YRK0(BCADF)1"XCXX:YCYYYHF" XSX1X02150["*YSY1Y02150k"4 PLOT STARy">BPĺ"";"HMAG0MAG0"RPR12140,2160"\MAG1X,Y"f"pMAG218X,Y"z" DATABASE LOADING" :"LOADING DATABASE"#%!`J1N:4000:2000:MAGLMJN1+!j460 PLOT AN ARBITRARY VIEW:34,9:40"Enter the RA,Dec of the field centre-" "RA,Dec25:A$A(A$):A272909A8LMLM1:LM1LM1VA21LMLM1:LM5LM5mA54A48LMA48|A1365016:25:TRUE$(PR)16:25:A$A(A$):A8A21PRPR:YH0.50.1PR:720A27290A13ĺ"";:72018:"ESC to exit"$&10:25:TRUE$(BD)4010:25:A$V:A(A$):A8A21BDBD:550dDA27290zNA13ĺ"";:550X12:25:TRUE$(BP)b12:25:A$lA(A$):A8A21BPBP:600vA27290A13ĺ"";:60014:25:LM14:screen";25);TRUE$(PR)-FLAG$(FLAG)>20:1:958F23z"Do you wish to change the parameters N";(8);A$:A$"Y"520(A$)27Ģ10:1:958:FLAG1000,6000,8000A$:20:"Arrows to select""Return to move" lot plots a stereographic map of"M^"the sky from a star database, of the"uh"region and field you select.":10r"Draw a border";25);TRUE$(BD)|"Beep a star";25);TRUE$(BP)"Limiting Magnitude";25);LM"Print the PN$(0)"Sun":PN$(1)"Mercury":PN$(2)"Venus"_PN$(3)"Mars":PN$(4)"Jupiter":PN$(5)"Saturn"PN$(6)"Uranus":PN$(7)"Neptune":PN$(8)"Pluto"" INFORMATION SCREEN 'PP0,:40:616:"STARPLOT"@16:"--------"J5!T"StarpEFAULT PARAMETERSBD0#BP0,LM55PR0@FLAG2X PARAMETER STRINGSzTRUE$(0)"No ":TRUE$(1)"Yes"FLAG$(1)"View a part of the sky"FLAG$(2)"View constellations"FLAG$(3)"View planets position" PLANET NAMES,  24570% DATABASE CONSTANTS0N1106F(F$"STARCAT1.OBJ"U2BASE24995[<vFPI3.1415926:RDPI180P LOAD DATABASEZ(232)0(233)96110d3000nSX560:SY192:YH0.5xCXSX2:CYSY2PI3.1415926:RDPI180 D          0PD(Q):WI606 108046 NOW DISPLAY THE PLANETS6 QPR:PR0: TURN PRINT OFF^6 J08t6 RAPR(J)0.2617996!DECPD(J)RD6 !MAGJ66!20006 !6*!PRQ: RESET PRINT64!1150>!8510!8510NNF F(F(F(NFA A$:A(A$)5b 1:" ";55l A21QQ1:Q17Q17M5v A8QQ1:Q9Q9[5 A27290k5 A138270|5 Q:1:"->";5 20:1:9585 20:"Hit any key to view the planet":5 "Hit ESC to exit ";:A$::A$(27)81505 QQ9 6 R0PR(Q):D---------------------------------------".494 I08`4 " ";PN$(I);16);PR(I);28);PD(I)f4 4& 20:"Pick a Arrows to move"40 :"planet Return to choose"4: :" ESC to exit";4D Q94N Q:1:"->"; 5X ";P$*3P$""(P$)0P$"PLANETS.DATA"737:958M39:"Loading ";P$b3(4);"OPEN ";P$w3(4);"READ ";P$3DTE$3I08:PR(I):PD(I):3(4);"CLOSE ";P$3PP135:9583DTE$3" Planet";20);"R.A";30);"Dec"(4"02q$2v1913,2:1785,2:1145,76>2(17):(4);"PR#0":[2@ DISPLAY PLANETS g2J:40:2T12);"Planets Display"2^12);"---------------"2cPP81502h5:"Display the planets using which file?"2r:"> PLANETS.DATA";3|1:">QQ141JCNJQ20::-14);CN$(J):J1 7:25:"Arrows to move"i19:25:"RETURN to choose"111:25:"ESCAPE to exit"1(1X PRINT THE SCREEN1b(4);"PR#1"2lFLAG3ĺDTE$;30);"R.A ";(R0100)100;40);"Dec ";(D0100)100:703 width of ";CW(Q);" Degrees."M020:"Hit any key to view constellation ":0"Hit ESC to exit ";:A$::A$(27)QQS:6350:61200R0CR(Q):D0CD(Q):WICW(Q):10800 SHOW 15 CONSTELLATIONS0 Q IS 'FIRST' CONSTELLATION07:9581J/L1:" ":SS1:S161207/VS14:QQ15:Q1Q1G/`6350:6120Q/jQQSt/tQCNQCN14:S14:6350:6120/~7:1:958/8:CN$(Q);" IS CENTERED ON"/:" R.A ";CR(Q);" Hours"/" Dec ";CD(Q);" Degrees"013:"with a field.4:1:958:"Choose a constellation.."8.Q1:6350E.S0:CF1Y.7S:1:"-->";i.A$:T(A$)x.T216190.T86220.T136250.T27290.$"";:6130..1:" ":SS1:S156120.8S0:QQ15:QCNQCN14.B6350:6120ECA,20,25,40(-p CONSTELLATION SECTION4-z:40:>-CN88Y-13);"Constellations"t-13);"--------------"-CF6090-CN$(88),CR(88),CD(88),CW(88)-4:"Please wait, retrieving constellations.";-I1CN:CN$(I),CR(I),CD(I),CW(I):*URUS,4.5,20,50*, TELESCOPIUM,19,-50,40C, TRIANGULUM,2,30,30g, TRIANGULUM AUSTRALE,16,-65,40}, TUCANA,0,-65,40, URSA MAJOR,11.5,50,40, URSA MINOR,16,80,45, VELA,9.5,-50,45, VIRGO,13.5,0,50, VOLANS,8,-70,40 - VULP0+: RETICULUM,3.75,-60,307+D SAGITTA,19.75,20,30U+N SAGITTARIUS,18.5,-30,40n+X SCORPIUS,17,-35,50+b SCULPTOR,0.5,-30,45+l SCUTUM,18.75,-10,30+v SERPENS CAPUT,15.8,10,40+ SERPENS CAUDA,18,-5,50+ SEXTANS,10.25,0,35, TAPHIUCHUS,17,0,45%* ORION,5.5,0,40:* PAVO,20,-65,40S* PEGASUS,23.5,25,60l* PERSEUS,3.5,-50,40* PHOENIX,1,-45,35* PICTOR,6,-55,30* PISCES,0.5,15,60* PISCES AUSTRINUS,22.5,-30,40*& PUPPIS,7.75,-30,50+0 PYXIS,9,-30,4S,5.5,-20,30%)h LIBRA,15.25,-15,30;)r LUPUS,15,-40,40N)| LYNX,8,50,50e) LYRA,18.75,35,30|) MENSA,5.5,-75,40) MICROSCOPIUM,21,-35,40) MONOCEROS,7.25,0,45) MUSCA,12.5,-65,35) NORMA,16,-50,40) OCTANS,20,-90,50* O3,-30,30( GEMINI,7,20,455( GRUS,21.25,-50,30M( HERCULES,17,30,60i( HOROLOGIUM,3.25,50,40(" HYDRA,11,-20,90(, HYDRUS,2,-70,50(6 INDUS,21.5,-55,30(@ LACERTA,22.5,50,30(J LEO,11,15,50(T LEO MINOR,10.25,35,35 )^ LEPU CORONA BOREALIS,15.75,30,308' CORVUS,12.5,-20,30Q' CRATER,11.5,-15,40r' CRUX AUSTRALIS,12.5,-60,30' CYGNUS,20.5,40,40' DELPHINIUS,20.6,15,30' DORADO,7,-60,30' EQUUELUS,21.25,5,30' ERIDANUS,3.75,-30,100( FORNAX, AQUARIUS,22,-10,60+% AQUILA,20,10,40A% ARA,17.5,-55,30W% ARIES,2.5,20,30n% AURIGA,5.5,35,40% BOOTES,14.8,30,40% CAELUM,4.75,-40,30% CAMELOPARDIS,4.25,70,40% CANCER,8.5,20,40%  CANES VENACETI,12.5,40,30& CANIS(HERE)(HERE1)60)0.261799=$DEC(HERE2)(HERE3)60V$DEC127DEC128DECe$DECDECRDz$MAG(HERE4)10$MAG12.7MAG12.8MAG$$ LIST OF CONSTELLATIONS$ ANDROMEDA,1,35,40$ ANTILA,10,-30,30$ APUS,16,-80,30%Y#f#pMAG218X,Y#z6# DATABASE LOADINGP# :"LOADING DATABASE"\# D$(4)}# D$;"BLOAD NEWSHAPES,A$6000"# 232,0:233,96# D$;"BLOAD ";F$;",A25000"# # CALCULATE RA,DEC & MAG# FROM DATABASE#HEREBASE5J$RA(A(P0):B(P0)#"C(PH):D(PH)7"E(DL):F(DL)N"K02(1ACBDF)p" XRK0DE:YRK0(BCADF)"XCXX:YCYYYH" XSX1X02150"*YSY1Y02150"4 PLOT STAR">BPĺ"";"HMAG0MAG0"RPR12140,2160#\MAG1X,D !B4:3!LBD1120>!V0,0SX1,0SX1,SY10,SY10,0c!`J1N:4000:2000:MAGLMJN1i!jz!tFLAG38410!yFLAG49000!~"":A$:!PR1İ7000!FLAG1000,6000,8000,8600! DO SETUP CALCULATIONS!PHDEC:DLRAL0":401 "Enter the RA,Dec of the field centre-"G "RA,Dec: ";R0,D0p "Enter the field width in degrees-" "Width: ";WI $20:"Hit any key to view the field": ."Hit ESC to exit ";:A$::A$(27)290!8RSX53WI:L00.261799R0:P0D0RH0.50.1PR:720A272905A13ĺ"";:720T18:1:868:FLAG$(FLAG);` 25:A$A(A$):A8FLAGFLAG1:FLAG1FLAG1 A21FLAGFLAG1:FLAG4FLAG4*A272904A13770>460 PLOT AN ARBITRARY VIEW :34,90vA27290%A13ĺ"";:600514:25:LME14:25:A$[A(A$):A27290wA8LMLM1:LM1LM1A21LMLM1:LM5LM5A54A48LMA48A1365016:25:TRUE$(PR)16:25:A$A(A$):A8A21PRPR:Y00"A$:20:"Arrows to select"8"Return to move"K"ESC to exit"b&10:25:TRUE$(BD)r010:25:A$:A(A$):A8A21BDBD:550DA27290NA13ĺ"";:550X12:25:TRUE$(BP)b12:25:A$lA(A$):A8A21BPBP:60""Limiting Magnitude";25);LM(O"Print the screen";25);TRUE$(PR)UfFLAG$(FLAG)w20:1:95823"Do you wish to change the parameters N";(8);A$:A$"Y"520(A$)27Ģ10:1:958:FLAG1000,6000,8000,86616:"STARPLOT"&@16:"--------"-J5ZT"Starplot plots a stereographic map of"^"the sky from a star database, of the"h"region and field you select.":10r"Draw a border";25);TRUE$(BD)|"Beep a star";25);TRUE$(BP)FLAG$(4)"View satellite path"4 PLANET NAMESePN$(0)"Sun":PN$(1)"Mercury":PN$(2)"Venus"PN$(3)"Mars":PN$(4)"Jupiter":PN$(5)"Saturn"PN$(6)"Uranus":PN$(7)"Neptune":PN$(8)"Pluto"" INFORMATION SCREEN 'PP0,:40:5926:RDPI180' DEFAULT PARAMETERS0BD09BP0BLM5KPR0VFLAG2n PARAMETER STRINGSTRUE$(0)"No ":TRUE$(1)"Yes"FLAG$(1)"View a part of the sky"FLAG$(2)"View constellations"FLAG$(3)"View planets position"!"  24570% DATABASE CONSTANTS0N1106F(F$"STARCAT1.OBJ"U2BASE24995[<FPR(20),PD(20): PLANETS/SATELLITE POSITIONSP LOAD DATABASEZ(232)0(233)96110d3000nSX560:SY192:YH0.5xCXSX2:CYSY2PI3.141             _PHkDLkkDLkLIkDLkkDLkNF NNF 7BACFF 7BACFF 7BACFF 7BACFFF 7BACFF 7BACFBACFNF 7BANF 7BANF 7BAF 7BANN$(I);16);PR(I);28);PD(I)!5 L5& 20:"Pick a Arrows to move"w50 :"planet Return to choose"5: :" ESC to exit";5D Q95N Q:1:"->";5X A$:A(A$)5b 1:" ";5l A21QQ1:Q17Q176v A8QQ1:ing ";P$4(4);"OPEN ";P$24(4);"READ ";P$<4DTE$W4I08:PR(I):PD(I):m4(4);"CLOSE ";P$v4PP145:9584DTE$4" Planet";20);"R.A";30);"Dec"4"---------------------------------------"44 I085 " ";P DISPLAY PLANETS "3J:40:>3T12);"Planets Display"Z3^12);"---------------"g3cPP81503h5:"Display the planets using which file?"3r:"> PLANETS.DATA";3|1:"> ";P$3P$""(P$)0P$"PLANETS.DATA"37:95849:"Load4);"PR#1"U2lFLAG3ĺDTE$;30);"R.A ";(R0100)100;40);"Dec ";(D0100)100:70302oFLAG4ĺDTE$;12);"R.A ";(R0100)100;22);"Dec ";(D0100)100;30);ST$;40);"Width: ";WI:70302q2v1913,2:1785,2:1145,762(17):(4);"PR#0":3@ 01 SHOW 15 CONSTELLATIONS?1 Q IS 'FIRST' CONSTELLATIONL17:958Z1JQQ14o1JCNJQ20::14);CN$(J):1 7:25:"Arrows to move"19:25:"RETURN to choose"111:25:"ESCAPE to exit"1(1X PRINT THE SCREEN 2b(" R.A ";CR(Q);" Hours"=0" Dec ";CD(Q);" Degrees"q013:"with a field width of ";CW(Q);" Degrees."020:"Hit any key to view constellation ":0"Hit ESC to exit ";:A$::A$(27)QQS:6350:61201R0CR(Q):D0CD(Q):WICW(Q):108;:6130&/.1:" ":SS1:S156120C/8S0:QQ15:QCNQCN14S/B6350:6120r/L1:" ":SS1:S16120/VS14:QQ15:Q1Q1/`6350:6120/jQQS/tQCNQCN14:S14:6350:6120/~7:1:958/8:CN$(Q);" IS CENTERED ON"0:"Please wait, retrieving constellations.";R.I1CN:CN$(I),CR(I),CD(I),CW(I):~.4:1:958:"Choose a constellation..".Q1:6350.S0:CF1.7S:1:"-->";.A$:T(A$).T216190.T86220.T136250.T27290/$""6,80,45- VELA,9.5,-50,453- VIRGO,13.5,0,50I- VOLANS,8,-70,40`- VULPECA,20,25,40|-p CONSTELLATION SECTION-z:40:-CN88-13);"Constellations"-13);"--------------"-CF6090-CN$(88),CR(88),CD(88),CW(88)*.4:PENS CAPUT,15.8,10,402, SERPENS CAUDA,18,-5,50K, SEXTANS,10.25,0,35b, TAURUS,4.5,20,50~, TELESCOPIUM,19,-50,40, TRIANGULUM,2,30,30, TRIANGULUM AUSTRALE,16,-65,40, TUCANA,0,-65,40, URSA MAJOR,11.5,50,40- URSA MINOR,15,60'+ PISCES AUSTRINUS,22.5,-30,40@+& PUPPIS,7.75,-30,50U+0 PYXIS,9,-30,40q+: RETICULUM,3.75,-60,30+D SAGITTA,19.75,20,30+N SAGITTARIUS,18.5,-30,40+X SCORPIUS,17,-35,50+b SCULPTOR,0.5,-30,45+l SCUTUM,18.75,-10,30,v SER25,0,45* MUSCA,12.5,-65,355* NORMA,16,-50,40L* OCTANS,20,-90,50d* OPHIUCHUS,17,0,45y* ORION,5.5,0,40* PAVO,20,-65,40* PEGASUS,23.5,25,60* PERSEUS,3.5,-50,40* PHOENIX,1,-45,35* PICTOR,6,-55,30+ PISCES,0.5,10)@ LACERTA,22.5,50,30-)J LEO,11,15,50I)T LEO MINOR,10.25,35,35`)^ LEPUS,5.5,-20,30y)h LIBRA,15.25,-15,30)r LUPUS,15,-40,40)| LYNX,8,50,50) LYRA,18.75,35,30) MENSA,5.5,-75,40) MICROSCOPIUM,21,-35,40* MONOCEROS,7. DORADO,7,-60,30*( EQUUELUS,21.25,5,30F( ERIDANUS,3.75,-30,100\( FORNAX,3,-30,30q( GEMINI,7,20,45( GRUS,21.25,-50,30( HERCULES,17,30,60( HOROLOGIUM,3.25,50,40(" HYDRA,11,-20,90(, HYDRUS,2,-70,50)6 INDUS,21.5,-55,3LUMBA,6,-35,30 -' COMA BERENICES,13,20,30Q' CORONA AUSTRALIS,18.75,-40,30s' CORONA BOREALIS,15.75,30,30' CORVUS,12.5,-20,30' CRATER,11.5,-15,40' CRUX AUSTRALIS,12.5,-60,30' CYGNUS,20.5,40,40' DELPHINIUS,20.6,15,30( MAJOR,6.8,-25,35 -& CANIS MINOR,7.7,5,30I&( CAPRICORNUS,21,-20,40_&2 CARINA,8,-60,40x&< CASSIOPEIA,1,60,30&F CENTAURUS,13.5,-50,50&P CEPHUS,22,70,40&Z CETUS,1.5,-10,60&d CHAMAELEON,10.5,-80,30&n CIRCINUS,15,-60,40'x COD !B4:3!LBD1120>!V0,0SX1,0SX1,SY10,SY10,0c!`J1N:4000:2000:MAGLMJN1i!jz!tFLAG38410!yFLAG49000!~"":A$:!PR1İ7000!FLAG1000,6000,8000,8600! DO SETUP CALCULATIONS!PHDEC:DLRAL0":401 "Enter the RA,Dec of the field centre-"G "RA,Dec: ";R0,D0p "Enter the field width in degrees-" "Width: ";WI $20:"Hit any key to view the field": ."Hit ESC to exit ";:A$::A$(27)290!8RSX53WI:L00.261799R0:P0D0RH0.50.1PR:720A272905A13ĺ"";:720T18:1:868:FLAG$(FLAG);` 25:A$A(A$):A8FLAGFLAG1:FLAG1FLAG1 A21FLAGFLAG1:FLAG4FLAG4*A272904A13770>460 PLOT AN ARBITRARY VIEW :34,90vA27290%A13ĺ"";:600514:25:LME14:25:A$[A(A$):A27290wA8LMLM1:LM1LM1A21LMLM1:LM5LM5A54A48LMA48A1365016:25:TRUE$(PR)16:25:A$A(A$):A8A21PRPR:Y00"A$:20:"Arrows to select"8"Return to move"K"ESC to exit"b&10:25:TRUE$(BD)r010:25:A$:A(A$):A8A21BDBD:550DA27290NA13ĺ"";:550X12:25:TRUE$(BP)b12:25:A$lA(A$):A8A21BPBP:60""Limiting Magnitude";25);LM(O"Print the screen";25);TRUE$(PR)UfFLAG$(FLAG)w20:1:95823"Do you wish to change the parameters N";(8);A$:A$"Y"520(A$)27Ģ10:1:958:FLAG1000,6000,8000,86616:"STARPLOT"&@16:"--------"-J5ZT"Starplot plots a stereographic map of"^"the sky from a star database, of the"h"region and field you select.":10r"Draw a border";25);TRUE$(BD)|"Beep a star";25);TRUE$(BP)FLAG$(4)"View satellite path"4 PLANET NAMESePN$(0)"Sun":PN$(1)"Mercury":PN$(2)"Venus"PN$(3)"Mars":PN$(4)"Jupiter":PN$(5)"Saturn"PN$(6)"Uranus":PN$(7)"Neptune":PN$(8)"Pluto"" INFORMATION SCREEN 'PP0,:40:5926:RDPI180' DEFAULT PARAMETERS0BD09BP0BLM5KPR0VFLAG2n PARAMETER STRINGSTRUE$(0)"No ":TRUE$(1)"Yes"FLAG$(1)"View a part of the sky"FLAG$(2)"View constellations"FLAG$(3)"View planets position"!"  24570% DATABASE CONSTANTS0N1106F(F$"STARCAT1.OBJ"U2BASE24995[<FPR(20),PD(20): PLANETS/SATELLITE POSITIONSP LOAD DATABASEZ(232)0(233)96110d3000nSX560:SY192:YH0.5xCXSX2:CYSY2PI3.141           TURN OFF PR FLAG:2#J1NUM3:<#RAPR(J)0.261799D:F#DECPD(J)RDN:P#MAG0X:Z#2000^:d#e:i#3{:k#PRQ: RESTORE PR:n#1150>!8510!8510NTREDISPLAY#98":"Satellite: ";ST$89=":"Date: ";DTE$S9B":"Data Points: ";NUM{9L":"Centre: ";R0;" R.A ";D0;" Dec"9V":"Width?: ";WI9`"1080: DRAW STARS9(# NOW DISPLAY SATELLITE PATH9-#1: DRAWS SHAPE TABLE DIFFERENTLY:/#QPR:PR0: ing which file?" 8!7:"> ";P$B8!P$""(P$)0Ģ7:958:8660X8!9:"Loading ";P$m8!(4);"OPEN ";P$8"(4);"READ ";P$8"ST$8"DTE$8"NUM8"I1NUM:PR(I):PD(I)8"8$"(4);"CLOSE ";P$ 9."NH(NUM2)1:R0PR(NH):D0PD(NH): CENTURN PRINT OFF7 J08/7 RAPR(J)0.261799@7!DECPD(J)RDL7 !MAGJ6V7!2000\7 !s7*!PRQ: RESET PRINT}74!11507! DISPLAY SATELLITE PATH7!:40:7!10);"Satellite Display"7!10);"-----------------"8!5:"Display satellite usQ9Q96 A27290&6 A13827076 Q:1:"->";H6 20:1:958t6 20:"Hit any key to view the planet":6 "Hit ESC to exit ";:A$::A$(27)81506 QQ96 R0PR(Q):D0PD(Q):WI606 10806 NOW DISPLAY THE PLANET7 QPR:PR0: 01 SHOW 15 CONSTELLATIONS?1 Q IS 'FIRST' CONSTELLATIONL17:958Z1JQQ14o1JCNJQ20::14);CN$(J):1 7:25:"Arrows to move"19:25:"RETURN to choose"111:25:"ESCAPE to exit"1(1X PRINT THE SCREEN 2b(" R.A ";CR(Q);" Hours"=0" Dec ";CD(Q);" Degrees"q013:"with a field width of ";CW(Q);" Degrees."020:"Hit any key to view constellation ":0"Hit ESC to exit ";:A$::A$(27)QQS:6350:61201R0CR(Q):D0CD(Q):WICW(Q):108;:6130&/.1:" ":SS1:S156120C/8S0:QQ15:QCNQCN14S/B6350:6120r/L1:" ":SS1:S16120/VS14:QQ15:Q1Q1/`6350:6120/jQQS/tQCNQCN14:S14:6350:6120/~7:1:958/8:CN$(Q);" IS CENTERED ON"0:"Please wait, retrieving constellations.";R.I1CN:CN$(I),CR(I),CD(I),CW(I):~.4:1:958:"Choose a constellation..".Q1:6350.S0:CF1.7S:1:"-->";.A$:T(A$).T216190.T86220.T136250.T27290/$""6,80,45- VELA,9.5,-50,453- VIRGO,13.5,0,50I- VOLANS,8,-70,40`- VULPECA,20,25,40|-p CONSTELLATION SECTION-z:40:-CN88-13);"Constellations"-13);"--------------"-CF6090-CN$(88),CR(88),CD(88),CW(88)*.4:PENS CAPUT,15.8,10,402, SERPENS CAUDA,18,-5,50K, SEXTANS,10.25,0,35b, TAURUS,4.5,20,50~, TELESCOPIUM,19,-50,40, TRIANGULUM,2,30,30, TRIANGULUM AUSTRALE,16,-65,40, TUCANA,0,-65,40, URSA MAJOR,11.5,50,40- URSA MINOR,15,60'+ PISCES AUSTRINUS,22.5,-30,40@+& PUPPIS,7.75,-30,50U+0 PYXIS,9,-30,40q+: RETICULUM,3.75,-60,30+D SAGITTA,19.75,20,30+N SAGITTARIUS,18.5,-30,40+X SCORPIUS,17,-35,50+b SCULPTOR,0.5,-30,45+l SCUTUM,18.75,-10,30,v SER25,0,45* MUSCA,12.5,-65,355* NORMA,16,-50,40L* OCTANS,20,-90,50d* OPHIUCHUS,17,0,45y* ORION,5.5,0,40* PAVO,20,-65,40* PEGASUS,23.5,25,60* PERSEUS,3.5,-50,40* PHOENIX,1,-45,35* PICTOR,6,-55,30+ PISCES,0.5,10)@ LACERTA,22.5,50,30-)J LEO,11,15,50I)T LEO MINOR,10.25,35,35`)^ LEPUS,5.5,-20,30y)h LIBRA,15.25,-15,30)r LUPUS,15,-40,40)| LYNX,8,50,50) LYRA,18.75,35,30) MENSA,5.5,-75,40) MICROSCOPIUM,21,-35,40* MONOCEROS,7. DORADO,7,-60,30*( EQUUELUS,21.25,5,30F( ERIDANUS,3.75,-30,100\( FORNAX,3,-30,30q( GEMINI,7,20,45( GRUS,21.25,-50,30( HERCULES,17,30,60( HOROLOGIUM,3.25,50,40(" HYDRA,11,-20,90(, HYDRUS,2,-70,50)6 INDUS,21.5,-55,3LUMBA,6,-35,30 -' COMA BERENICES,13,20,30Q' CORONA AUSTRALIS,18.75,-40,30s' CORONA BOREALIS,15.75,30,30' CORVUS,12.5,-20,30' CRATER,11.5,-15,40' CRUX AUSTRALIS,12.5,-60,30' CYGNUS,20.5,40,40' DELPHINIUS,20.6,15,30( MAJOR,6.8,-25,35 -& CANIS MINOR,7.7,5,30I&( CAPRICORNUS,21,-20,40_&2 CARINA,8,-60,40x&< CASSIOPEIA,1,60,30&F CENTAURUS,13.5,-50,50&P CEPHUS,22,70,40&Z CETUS,1.5,-10,60&d CHAMAELEON,10.5,-80,30&n CIRCINUS,15,-60,40'x CO AQUARIUS,22,-10,60+% AQUILA,20,10,40A% ARA,17.5,-55,30W% ARIES,2.5,20,30n% AURIGA,5.5,35,40% BOOTES,14.8,30,40% CAELUM,4.75,-40,30% CAMELOPARDIS,4.25,70,40% CANCER,8.5,20,40%  CANES VENACETI,12.5,40,30& CANIS(HERE)(HERE1)60)0.261799=$DEC(HERE2)(HERE3)60V$DEC127DEC128DECe$DECDECRDz$MAG(HERE4)10$MAG12.7MAG12.8MAG$$ LIST OF CONSTELLATIONS$ ANDROMEDA,1,35,40$ ANTILA,10,-30,30$ APUS,16,-80,30%Y#f#pMAG218X,Y#z6# DATABASE LOADINGP# :"LOADING DATABASE"\# D$(4)}# D$;"BLOAD NEWSHAPES,A$6000"# 232,0:233,96# D$;"BLOAD ";F$;",A25000"# # CALCULATE RA,DEC & MAG# FROM DATABASE#HEREBASE5J$RA(A(P0):B(P0)#"C(PH):D(PH)7"E(DL):F(DL)N"K02(1ACBDF)p" XRK0DE:YRK0(BCADF)"XCXX:YCYYYH" XSX1X02150"*YSY1Y02150"4 PLOT STAR">BPĺ"";"HMAG0MAG0"RPR12140,2160#\MAG1X, to exit" &10:25:TRUE$(BD)0 010:25:A$R :A(A$):A8A21BDBD:550` DA27290v NA13ĺ"";:550 X12:25:TRUE$(BP) b12:25:A$ lA(A$):A8A21BPBP:600 vA27290 A13ĺ"";:600 14:25:LM14:25:en";25);TRUE$(PR) ) FLAG$(FLAG): 20:1:958B 23v "Do you wish to change the parameters N";(8); A$:A$"Y"520 (A$)27Ģ10:1:958: FLAG1000,6000,8000 A$:20:"Arrows to select" "Return to move" "ESCplots a stereographic map of"I ^"the sky from a star database, of the"q h"region and field you select.":10 r"Draw a border";25);TRUE$(BD) | "Beep a star";25);TRUE$(BP)  "Limiting Magnitude";25);LM  "Print the screPN$(0)"Sun":PN$(1)"Mercury":PN$(2)"Venus"_ PN$(3)"Mars":PN$(4)"Jupiter":PN$(5)"Saturn" PN$(6)"Uranus":PN$(7)"Neptune":PN$(8)"Pluto" " INFORMATION SCREEN 'PP0 ,: 616:"STARPLOT" @16:"--------" J5 T"Starplot EFAULT PARAMETERS BD0# BP0, LM55 PR0@ FLAG2X PARAMETER STRINGSz TRUE$(0)"No ":TRUE$(1)"Yes" FLAG$(1)"View a part of the sky" FLAG$(2)"View constellations" FLAG$(3)"View planets position" PLANET NAMES,   16383% DATABASE CONSTANTS0N1106F(F$"STARCAT1.OBJ"U2BASE24995[<vFPI3.1415926:RDPI180P LOAD DATABASEZ(232)0(233)96110d3000nSX280:SY192:YH1.0xCXSX2:CYSY2PI3.1415926:RDPI180 D          SPLAY SATELLITE PATH;:-#1: DRAWS SHAPE TABLE DIFFERENTLY\:/#QPR:PR0: TURN OFF PR FLAGi:2#J1NUM:<#RAPR(J)0.261799:F#DECPD(J)RD:P#MAG0:Z#2000:d#:i#3:k#PRQ: RESTORE PR:n#1150>!8510!8510N$9=":"Date: ";DTE$19B":"Data Points: ";NUMY9L":"Centre: ";R0;" R.A ";D0;" Dec"n9V":"Width?: ";WI9`"::23:"Centre on point: ";18);NH9j"23:18:"";Q9t"Q(Q):Q0QNUMNHQ9~"R0PR(NH):D0PD(NH)9"1080: DRAW DATA:(# NOW DIusing which file?""8!7:"> ";P$D8!P$""(P$)0Ģ7:958:8660Z8!9:"Loading ";P$o8!(4);"OPEN ";P$8"(4);"READ ";P$8"ST$8"DTE$8"NUM8"I1NUM:PR(I):PD(I)8"8$"(4);"CLOSE ";P$8."NH(NUM2)198":"Satellite: ";ST TURN PRINT OFF7 J0817 RAPR(J)0.261799B7!DECPD(J)RDN7 !MAGJ6X7!2000^7 !u7*!PRQ: RESET PRINT74!11507! DISPLAY SATELLITE PATH7!:40:7!10);"Satellite Display"7!10);"-----------------"8!5:"Display satellite 1:Q9Q96 A27290(6 A13827096 Q:1:"->";J6 20:1:958v6 20:"Hit any key to view the planet":6 "Hit ESC to exit ";:A$::A$(27)81506 QQ96 R0PR(Q):D0PD(Q):WI606 10806 NOW DISPLAY THE PLANET7 QPR:PR0:;PN$(I);16);PR(I);28);PD(I)#5 N5& 20:"Pick a Arrows to move"y50 :"planet Return to choose"5: :" ESC to exit";5D Q95N Q:1:"->";5X A$:A(A$)5b 1:" ";5l A21QQ1:Q17Q17 6v A8QQading ";P$4(4);"OPEN ";P$44(4);"READ ";P$>4DTE$Y4I08:PR(I):PD(I):o4(4);"CLOSE ";P$x4PP145:9584DTE$4" Planet";20);"R.A";30);"Dec"4"---------------------------------------"44 I085 " " DISPLAY PLANETS $3J:40:@3T12);"Planets Display"\3^12);"---------------"i3cPP81503h5:"Display the planets using which file?"3r:"> PLANETS.DATA";3|1:"> ";P$3P$""(P$)0P$"PLANETS.DATA"37:958 49:"Lo4);"PR#1"U2lFLAG3ĺDTE$;30);"R.A ";(R0100)100;40);"Dec ";(D0100)100:70302oFLAG4ĺDTE$;12);"R.A ";(R0100)100;22);"Dec ";(D0100)100;30);ST$;40);"Width: ";WI:70302q2v1913,2:1785,2:1145,762(17)::(4);"PR#0":3@,40p CONSTELLATION SECTION'z:1CN88L13);"Constellations"g13);"--------------"tCF6090CN$(88),CR(88),CD(88),CW(88)4:"Please wait, retrieving constellations.";I1CN:CN$(I),CR(I),CD(I),CW(I):4:1:9520,50! TELESCOPIUM,19,-50,40: TRIANGULUM,2,30,30^ TRIANGULUM AUSTRALE,16,-65,40t TUCANA,0,-65,40 URSA MAJOR,11.5,50,40 URSA MINOR,16,80,45 VELA,9.5,-50,45 VIRGO,13.5,0,50 VOLANS,8,-70,40 VULPECA,20,25ETICULUM,3.75,-60,30.D SAGITTA,19.75,20,30LN SAGITTARIUS,18.5,-30,40eX SCORPIUS,17,-35,50b SCULPTOR,0.5,-30,45l SCUTUM,18.75,-10,30v SERPENS CAPUT,15.8,10,40 SERPENS CAUDA,18,-5,50 SEXTANS,10.25,0,35 TAURUS,4.5,17,0,45 ORION,5.5,0,401 PAVO,20,-65,40J PEGASUS,23.5,25,60c PERSEUS,3.5,-50,40z PHOENIX,1,-45,35 PICTOR,6,-55,30 PISCES,0.5,15,60 PISCES AUSTRINUS,22.5,-30,40& PUPPIS,7.75,-30,500 PYXIS,9,-30,40: R,30h LIBRA,15.25,-15,302r LUPUS,15,-40,40E| LYNX,8,50,50\ LYRA,18.75,35,30s MENSA,5.5,-75,40 MICROSCOPIUM,21,-35,40 MONOCEROS,7.25,0,45 MUSCA,12.5,-65,35 NORMA,16,-50,40 OCTANS,20,-90,50 OPHIUCHUS, GEMINI,7,20,45, GRUS,21.25,-50,30D HERCULES,17,30,60` HOROLOGIUM,3.25,50,40v" HYDRA,11,-20,90, HYDRUS,2,-70,506 INDUS,21.5,-55,30@ LACERTA,22.5,50,30J LEO,11,15,50T LEO MINOR,10.25,35,35^ LEPUS,5.5,-20A BOREALIS,15.75,30,30/ CORVUS,12.5,-20,30H CRATER,11.5,-15,40i CRUX AUSTRALIS,12.5,-60,30 CYGNUS,20.5,40,40 DELPHINIUS,20.6,15,30 DORADO,7,-60,30 EQUUELUS,21.25,5,30 ERIDANUS,3.75,-30,100 FORNAX,3,-30,3040< CASSIOPEIA,1,60,307F CENTAURUS,13.5,-50,50MP CEPHUS,22,70,40dZ CETUS,1.5,-10,60d CHAMAELEON,10.5,-80,30n CIRCINUS,15,-60,40x COLUMBA,6,-35,30  COMA BERENICES,13,20,30 CORONA AUSTRALIS,18.75,-40,30 CORON AURIGA,5.5,35,40) BOOTES,14.8,30,40B CAELUM,4.75,-40,30` CAMELOPARDIS,4.25,70,40w CANCER,8.5,20,40  CANES VENACETI,12.5,40,30 CANIS MAJOR,6.8,-25,35  CANIS MINOR,7.7,5,30( CAPRICORNUS,21,-20,402 CARINA,8,-60,CDECRDMAG(HERE4)108MAG12.7MAG12.8MAG>[ LIST OF CONSTELLATIONSs ANDROMEDA,1,35,40 ANTILA,10,-30,30 APUS,16,-80,30 AQUARIUS,22,-10,60 AQUILA,20,10,40 ARA,17.5,-55,30 ARIES,2.5,20,30  D$;"BLOAD NEWSHAPES,A$6000"3 232,0:233,96Q D$;"BLOAD ";F$;",A25000"W t CALCULATE RA,DEC & MAG FROM DATABASEHEREBASE5JRA((HERE)(HERE1)60)0.261799DEC(HERE2)(HERE3)60DEC127DEC128DECDE:YRK0(BCADF)(XCXX:YCYYYH= XSX1X02150R*YSY1Y02150b4 PLOT STARp>BPĺ"";HMAG0MAG0RPR12140,2160\MAG1X,YfpMAG218X,Yz DATABASE LOADING :"LOADING DATABASE" D$(4)N:4000:2000:MAGLMJN1"j3tFLAG38410E~"":A$:UPR1İ7000nFLAG1000,6000,8000 DO SETUP CALCULATIONSPHDEC:DLRAL0A(P0):B(P0)C(PH):D(PH)E(DL):F(DL)K02(1ACBDF) XRK0DE0*"Enter the field width in degrees-"<"Width: ";WIg$20:"Hit any key to view the field":."Hit ESC to exit ";:A$::A$(27)2908RSX53WI:L00.261799R0:P0D0RDB:3LBD1120V0,0SX1,0SX1,SY10,SY10,0`J1868:FLAG$(FLAG); 25:A$JA(A$):A8FLAGFLAG1:FLAG1FLAG1o A21FLAGFLAG1:FLAG3FLAG3}*A272904A13770>460 PLOT AN ARBITRARY VIEW:34,9"Enter the RA,Dec of the field centre-""RA,Dec: ";R0,DA$A(A$):A272905A8LMLM1:LM1LM1RA21LMLM1:LM5LM5iA54A48LMA48xA1365016:25:TRUE$(PR)16:25:A$A(A$):A8A21PRPR:YH0.50.1PR:720A27290A13ĺ"";:72018:1:+  4600',;%  ":< 6 .19!  %. %=) +2#7 *+"# 4)$ -/  :  # 7- 65"5:",-/## 8&+;Y(9 #%/(7" "2J  **5 1"(9 ): ((8 83"+   68 ; 2% ')#  8, 5,* + 55*>#.!:   7 %"8<+ 2 a-+) $&/. '2'%247#   9% - )- /*  : :: !$  +$ '2: =- 67913 % /1;,9 3,0%,+ (9"5;7;      -$$R;9-- ???,--%??? --?9-- 'm %g--?e?--%??g-=<e?m)>-,6?$ 5'-* $ 6,* $?6- 6?$d-e -616-?'d$M16 ?$:66NI$6?$ % .$$?. me-66?N -?'$,-6?'$Mvu e$vv$ e-->-ki1 1080#& NOW DISPLAY THE PLANETB& QPR:PR0: TURN PRINT OFFM& J08c& RAPR(J)0.261799t&!DECPD(J)RD& !MAGJ6&!2000& !&*!PRQ: RESET PRINT&4!1150>!8510!8510N851001:" ";$%l A21QQ1:Q17Q17<%v A8QQ1:Q9Q9J% A27290Z% A138270k% Q:1:"->";|% 20:1:958% 20:"Hit any key to view the planet":% "Hit ESC to exit ";:A$::A$(27)8150% QQ9% R0PR(Q):D0PD(Q):WI60&----------------------"$($ I08O$ " ";PN$(I);16);PR(I);28);PD(I)U$ $& 20:"Pick a Arrows to move"$0 :"planet Return to choose"$: :" ESC to exit";$D Q9$N Q:1:"->";$X A$:A(A$) %b (P$)0P$"PLANETS.DATA"&#7:958<#9:"Loading ";P$Q#(4);"OPEN ";P$f#(4);"READ ";P$p#DTE$#I08:PR(I):PD(I):#(4);"CLOSE ";P$#PP1#5:958#DTE$#" Planet";20);"R.A";30);"Dec"$"-----------------1913,2:1785,2:1145,761"(17):(4);"PR#0":N"@ DISPLAY PLANETS V"J:r"T12);"Planets Display""^12);"---------------""cPP8150"h5:"Display the planets using which file?""r:"> PLANETS.DATA";"|1:"> ";P$#P$""CNJQ20:: !4);CN$(J):=! 7:25:"Arrows to move"\!9:25:"RETURN to choose"z!11:25:"ESCAPE to exit"!(!X PRINT THE SCREEN!b(4);"PR#1"!lFLAG3ĺDTE$;30);"R.A ";(R0100)100;40);"Dec ";(D0100)100:7030!q"vW(Q);" Degrees."@ 20:"Hit any key to view constellation ":{ "Hit ESC to exit ";:A$::A$(27)QQS:6350:6120 R0CR(Q):D0CD(Q):WICW(Q):1080  SHOW 15 CONSTELLATIONS  Q IS 'FIRST' CONSTELLATION 7:958 JQQ14!J:SS1:S16120*VS14:QQ15:Q1Q1:`6350:6120DjQQSgtQCNQCN14:S14:6350:6120w~7:1:9588:CN$(Q);" IS CENTERED ON":" R.A ";CR(Q);" Hours"" Dec ";CD(Q);" Degrees" 13:"with a field width of ";C8:"Choose a constellation.."+Q1:63508S0:CF1L7S:1:"-->";\A$:T(A$)kT216190yT86220T136250T27290$"";:6130.1:" ":SS1:S1561208S0:QQ15:QCNQCN14B6350:6120L1:" "- -&0-))--9#- -1' -/-C4- - '-'-$/-- 1-  --9-0-8 - -%;-1-/$- ;-1)-%-:- 3/-- 9- -/'- 0-4- / - - .--!-L:-3#-#:-,0-#9-- "E2- 6#- "$-)G-&-:-, 4,  , 3 ,:+,44,","6, ', 2, 3$,-#,-,!,,9,08,  ,#, , #,9, ., , $,(,,*!,44, "4,,C,%,$2 ,,+ , '+, ,;#,+,.., 7---*/-,8- /-1-!.- -1 - 9--* , , / ,  ,,K, ,%,2:,,/,.," ,, ,  ,+,4, ,(, .,1A ,,,:,(4,.,(,,&,0#,95.,) +,,$,(,,",), #!, -!,;,", ,1,I, %, 4, , ',"-,// +,%$++9:+ ,+ +&+0+02+:+;+ +26+(+ 3++++++$+ 9+$!++1+9+&+)+  + +M++6 + 1+ ++4++";+8+ '+9;+: +1%+9+ +&+9+,6,,,5,8,2*@%*6B+,M0+8+ + ! +#+ $1+6$6+-+:+:+ '+%+.!+&+(+ ;+((+ 1/+++ +4+,+$+ 59+8+(-+6()+3+ 7 ++ +&"+  +,+3#+.+ $+,,+(+$+;++ +/++%++:+* * /***,4*)4*# *4*+5*K)*+ *;-9*,8*2* *!* 5 *, * 5**- * '$*4*4*!&* 6*& * * !)*2*5*.***&+* * -** 8"*0*-=*$*%*$&* %Q* 46**:*1*4*6*+* *))1 ) ) )/)().) ).9)9)-R)-!*. **/2*85** $**7 *-+* 1*"**9* #*>;*;9*G*4 *0*(9**2&*.**/-**'*: 4* -**+*V*$)*$0 *.1*5***" **5*( "(%( ;(8 (((($ (1($)(,R( 7). ) 33)(3)$) )0)')1),1 )-) 9)38)&) ') ,))74)-)%;).)'&)0)0)%-) 9)%*).) $),')5,)95) #$) )(,)/)$) )")!>8)'+:/'!3( ( ( 7(+()0(56(2 7( 0((:"(2*(1#((;4(!-$(;(-(#(-( +(..( -(/+( (! ( 6 (:#/(<( (+ (6(%( 10( 2(33( 1%(,'(; ((0( )(7(6(#6((+2)( ('(/ &;#&86& 4&7&.&.''8'#/'7+9''7' '$'9) ')'3'')!', ')$'$' ;'2%''1'H' 68'  '."';1''64.'8'+9' )/'''6'%' '9'(''(' ''3' '/*' '&;& $1& -&#"& 5" & 3&*&.& :&, &0F& E&.& &/&8'&&)&,0&.&#&8%&&7'& % & ;&('&9&&/& &8&& &&&&6 & ,& :0& -& !E/& (&+'&!5&%.& & '&-& & & &8 &$3$$ )$7$$$9$+ $ .//%-%,%2%8 %7%;6%4#%3%+8% ,%6% "%&% %.6%&$%/+% % % %%584% %2%1%% %,%%4#%/%3,%-*#%5%276%'7% 53%)%34%0% .,% 2;% ,4%/ &'.#1#0###H,#,# # .#4## # #%0%## / # #%$#%#3# # #-;#)#4!:$,$ $ 2.$ $ !$1$$$-,$*$(7$ -+$%$6$1$6$$56$@$&/$(($ ?$ $# 8$$.$$) 2!!" " -"""4"5#".," " 1)", "-=2":" "2!"5"191" " :" *7"+" !"8"8;" 1"0" ) 6"!":"2$"(",8#4#1B #9#:##&2#  # #;#*&8#+.# # .#.2#%# !3#2# 8##)*: 3)-A+F!19 9  1  ' 'M% *   1 5 '4 : ) 08 ) " 61 /  +!::! 9!(! ! )!! !! ! !!;/!- 6!<+!14! : !! "$!!*!.! 7!6?)! !) 9(:1%55+ :  -.+2  %  4 %+ "; ,5*/// )2G2 & ./ C(:%792. 1 . :; #;2 "3;0 /$0% 4,"D",304,"N",273,"O"3x 243,"S",212,"A",181,"J"P 151,"J",120,"M",90,"A"j 59,"M",31,"F",0,"J"I024:RARR(I)"M";RA;",0":"J0,5""R-7,25":"Q1":"P";(I)300D$;"OPEN PLANETS.DATA"D$;"READ PLANETS.DATA":RA(8,366) D$(4)3RR(X)47218XC DRAW AXESVD$;"PR#1"::m#(18):"A":(18)v("I"2"C0"7"L0"<"M472,0":"D40,0,40,-732"FI112:M,M$P"M40,-";M2:"J-5,0"Z"R-20,5":"Q1":"P";M$dn 33 "C";QZRR(RA(I,1))("M";Z;",0"5J0DAYHZRR(RA(I,J))\"D";Z;",-";2Jd:s'D$;"PR#0";"PR#0""PR#0"DA$I08:RA(I,DAY)'A$::DAYDAY1:220W,D$;"CLOSE PLANETS.DATA"a6"L0"s@I03:"C";IAZRR(RA(I,1))B"M";Z;",0"JJ0DAYTZRR(RA(I,J))^"D";Z;",-";2Jh:r"L1"|I48}Q0:I8QI4~"N",273,"O")x 243,"S",212,"A",181,"J"F 151,"J",120,"M",90,"A"` 59,"M",31,"F",0,"J"vI024:RARR(I)"M";RA;",0":"J0,5""R-7,25":"Q1":"P";(I)300D$;"OPEN PLANETS.DATA"D$;"READ PLANETS.DATA"DAY1:RA(8,366) D$(4)3RR(X)47218XC DRAW AXESVD$;"PR#1"::m#(18):"A":(18)v("I"2"C0"<"M472,0":"D40,0,40,-732"FI112:M,M$P"M40,-";M2:"J-5,0"Z"R-20,5":"Q1":"P";M$d n 334,"D",304, Y"HIT RETURN TO SAVE ";Z$- ^F$F$".OBJ"A h:"SAVING ";F$j rD$;"BSAVE ";F$;",A";ST;",L";ADST1p |FSTSTSTSTSTST@STFD1,RM DS$"-"DD128DD3 AD2,DD:AD3,DMJ MS$"-"MG128MGW AD4,MG` 140r " END OF FILEx ,~ 6 @15:958:D$;"CLOSE ";F$ J15:"OBJECT CODE STARTS AT ";ST;" AND IS":ADAD5 TADST1;" LONG, WITH ";N;" STARS.": A$ 18:A$ X(0)- A$""140? A$"END"300S RH((A$,1,2))g RM((A$,3,2))y DS$(A$,7,1) DD((A$,8,2)) DM((A$,10,2)) MS$(A$,12,1) MG((A$,13,3))10 NN1:ADAD5 20:N;20);AD AD,RH:A  :$13);"STAR CONVERTER"?13);"--------------"F(4o2"WHAT FILE DO YOU WISH TO CONVERT?"|<"->";F$F:P"STARTING ADDRESS ";STZ:"HIT RETURN TO START ";Z$nD$(4):N0:ADST5xD$;"OPEN ";F$D$;"READ ";F$    . . #.3;. '. & ..++.( 5.#).7 ...'. *1.-. (6)..+.9.6 . ?. . &;./. &'.+2.. 5+ ..1.*3 .4*.3.5 .".*. '%.:.%.;.%.8 .X.)(. 4.1.+.8; . ".5%..&0....%3!. .!. .#..5$. 6 . %.$.)..:. ..,.6.2.5.9.2-. ';.;. ..2G. "1.!3./.1/.'1 -5$-;/- -0-1-  -:5-- &- - +"- 46-6'-4-%- 3!-5-. - 8-A+---)--*-9A8- 3@+-+-#-2-)H - .- 8-(@- 3--$5- 7- -#2--69-,.&). .!#.-:. .5..).A0AAAA24 #AA24AAAA24-#HXHXAA=#HXHPN(HX)N#HXHX.99727T#Z#`#` u#a #15 LST TO GST#b IN=HH,YP,SS OUT=HX#c # # LXLN15# HXHXLX# HXHPN(HX)# # # #27 ECLIPTIC TO EQUATORIAL$ ENTRY@No. DAYS SINCE JAN 0.00"m IN=YY,MM,DD OUT=ND6"n\"XXDX:XMMX:XYYX:MX1:DX0:1070~"XJJD:DXXX:MXXM:YXXY:1070"NDJDXJ:"" #13.1 GST TO GMT" IN=YY,MM,DD,HX OUT=HX""AAND.0657098"B10İ2033 #AAAAB1:A #12.2 CONSTANT B!C!XZYX:XXDX:XYMX:DX0:MX1:1070:YXXZo!XZYX:XXDX:XYMX:DX0:MX1:1070:YXXZ!SXJD2415020:TXSX36525! RR6.6460656(2400.051262TX)(.00002581TXTX)!UXRR(24(YX1900))! B124UX!%!j"k #13.2   IN=HX OUT=HH,YP,SS& S3(HX)3 HX(HX)C HH(HX)S3X FX(HX(HX))60p SX((FX(FX))60)} FX(FX) HXHXS3 YPFX:SSSX     #12 GMT TO GST  IN=YY,MM,DD,HH,YP,SS OUT=HX  !7)DXAX(AX)5DX(DX7):DX(DX).5DXDX1BDX(DX)DX$(0)"Sunday ":DX$(1)"Monday ":DX$(2)"Tuesday ":DX$(3)"Wednesday":DX$(4)"Thursday "DX$(5)"Friday ":DX$(6)"Saturday "DD$DX$(DX): #8 DECIMAL TO HMSYXYY:MXMM:DXDDYZYX)MZMXE.MX2YXYX1:MXMX12VBAX(YX100)jLBX2AX(AX4)~VCX(365.25YX)`XD(30.6001(MX1))jJDBXCXXDDX1720994.5tx} #6 DAY OF THE WEEK~ IN=JD OUT=DX$AX((JD1.5)(MM2(MM2))ML308(YY4(YY4))(MM2)ML28Y(YY4(YY4))(MM2)ML29yDDDD1:DDMLMMMM1:DD1MM12MM1:YYYY1(Y4YY)(M4MM)(D4DD)10160:10201003 #4 JULIAN DATE IN=YY,MM,DD OUT=JD"Zone ";ZC:"Latitude ";:(OI);:OI0ĺ" S":190E" N"Kk INCREMENT DAY BY ONE CODE1020:1400:10040:9990(MM8)(MM2(MM2))ML31(MM7)(MM2(MM2))ML31(MM7)(MM2)(MM2(MM2))ML30(MM7) to printer: N";(8);:"";PR$:PR(PR$"Y"):FF0::"Dump to a file: N";(8);:"";PR$:PR$"Y"105hFF1:"File >PLANETS.DATA";:7:"";FF$:FF$""(FF$)0FF$"PLANETS.DATA"iPRĺ(4);"PR#1":"Longitude ";:(LN);:LN0ĺ" E":170" W";PN$(3)"Mars ":PN$(4)"Jupiter ":PN$(5)"Saturn "odPN$(6)"Uranus ":PN$(7)"Neptune ":PN$(8)"Pluto "e"Input the YEAR,MONTH,DAY ";:YY,MM,DDf"Input LATITUDE,LONGITUDE ";:OI,LN:ZC((LN15))bg"Stop at YY,MM,DD ";:Y4,M4,D4::"Dump(24X)24)24)C" ASTRO-CALC MK IV"~:" APPLE VERSION MARCH 1986"(:" BY BRYAN BURGESS"2:::<PN$(0)"Sun "5cPN$(1)"Mercury ":PN$(2)"Venus ":#)(4);"PR#3":10PI3.1415927:PJ180PI6 T INVERSE SINE AND COSINEv AND DEGREE/HOUR CORRECTION| S(X)(X(XX1))PJC(X)((X(XX1))PI2)PJDPN(X)(360X)(((360X)360)360)HPN(X)(24X)((              !!! ! ! ! ! !!!!!!!R*Z0Z h:r"L1"!|I484}Q0:I8QI4?~"C";QRZRR(RA(I,1))g"M";Z;",0":ZZ0vJ1DAY1ZRR(RA(I,J))(ZZ0)10ĺ"M";Z;",-";2J"D";Z;",-";2JZ0Z:'D$;"PR#0";"PR#0"DRDRD DAY1A$:A$+I08:RA(I,DAY)1DDAYDAY1:220a,D$;"CLOSE PLANETS.DATA"k6"L0"}@I03:"C";IAZRR(RA(I,1))B"M";Z;",0":Z0ZJJ1DAY1TZRR(RA(I,J))Y(ZZ0)10ĺ"M";Z;",-";2J^"D";Z;",-";2Jc0LLAA3 L0LL360:3482,3 LDPN(L)n3 B(RD(UIPJ)((LAD)PJ))(RR((ADLL)PJ)):B(B):BBPJ3 2510:PL(QP)AD:PK(QP)GX:3 3 #50.3 OUTER PLANET3 3 L(RR((ADLL)PJ))(RDRR((ADLL)PJ))3 L(L):LLPJ:LLAD 4 R%2\ X((SLQ)PJ)(IPJ):UIS(X)@2f Y((SLQ)PJ)(IPJ)S2p X((SLQ)PJ)f2z 2545:ADAD152 ADADQ:RDSR(UIPJ)2 QP235002 2 #50.2 INNER PLANET2 2 AA(RD((LLAD)PJ))(RRRD((LLAD)PJ)):AA(AA):AAAAPJ3 L18UU$1 SR(A(1EE))(1E(VPPJ)):1 NE0.985607908N8J1" NEDPN(NE)_1* MENE3.7628630614 LLNE1.9157416(MEPJ)98.8335416 LL0LLLL360:338218 LL360LLLL360:33841> VELL102.5964031H RR.999720508(1.016718(VEPJ))2I R3R37,109.941,8.2,4.073E-60 @0 #50.1 COORDINATES OF PLANETSm0 IN=PLANET DATA,YY,MM,DD OUT=PL(),PK()s0 0 TP,EE,UU,E,A,I,Q,T0,CA0 NP0.9856473N8TP0 NPDPN(NP)0 MPNPEEUU0 SLNP(2PJ)E(MPPJ)EE0 SLDPN(SL)1 VPSL2.489374,113.488834,165.6,1.74E-4x/N 84.01247,228.0708551,172.736328,.046323,19.21814,.772989,73.876864,65.8,7.597E-5/X 164.79558,260.3579,47.8672148,.009002,30.10957,1.771602,131.560649,62.2,7.597E-50b 250.9,209.439,222.972,.25387,39.78459,17.1435,76.4997524,16.92,1.721E-5s.0 1.88089,126.30783,333.6908166,.0933865,1.5236883,1.849801,49.4032,9.36,4.539E-6.: 11.86224,146.96636,14.009549,.048466,5.20256,1.304182,100.252017,196.74,1.994E-4!/D 29.45771,165.322242,92.665397,.055616,9.554747,HXWR:1723:WH(HX):WMFX:WSSX:HXSW:1723:HU(HX):MUFX:SUSXG- M- j- PLANET ORBIT DATA p- - .24085,231.2973,77.1442128,.2056306,.3870986,7.0043579,48.0941733,6.74,1.918E-6.& .61621,355.73352,131.289579,.0067826,.7233316,3.3940)UH:IM(0)UM:HI(0)VH:MI(0)VM:(, :, #46 TWILIGT^, IN=#45 OUT=WH,WM,WS,HU,MU,SUd, , X(OIPJ)(GDPJ):LHC(X), X(0.3090169(OIPJ)(GDPJ))((OIPJ)(GDPJ)), HDC(X), T(HDLH)15:TT.9973, WRTRT:SWTSTA- SDT + TRHPN(TR):TSHPN(TS)H+ HXTR:2432:TRHX:HXTS:2432:TSHXX+ MXMZ:2185+ HXTR:2220:TRHX:HXTS:2220:TSHX+ TRTRZC:TRHPN(TR)+ TSTSZC:TSHPN(TS)+ HXTR:1723:UH(HX):UMFX:USSX:HXTS:1723:VH(HX):VMFX:VSSX", IH(32:R1LRDT:S1LSDT:RHA2:DHG2:2632:R2LRDT:S2LSDTt*h TR(24.07R1)(24.07R1R2):TS(24.07S1)(24.07S1S2)*m GD(G1G2)2*r X(OIPJ)(GDPJ)*s UIC(X)*w X.0145835939(UIPJ):YS(X)*| DT240Y(GDPJ):DTDT3600+ TRTRDT:TSTXTH:1723) HX(HX)-)" AHHX:AMFX:SASXF), D(0)RX:T(0)TH60:L)T g)U #45 SUNRISE & SUNSET)V IN=YY,MM,DD,OI,LN OUT=UH,UM,US,VH,VM,VS)W )^ 2700)_ L1L:A1AD:G1GX:LL.985647:B0:2510:L2L:G2GX:A2AD)` XMMX8*c RHA1:DHG1:2678.83354( LDPN(L)( B0(( 25108( RZAD:DZGXP( PL(0)RZ:PK(0)DZ:V( x( #44 SUN'S DISTANCE AND SIZE( IN=#42.1 OUT=AH,AM,SA,RX( ( 2660( VXMXEC( FX(1.016718(VXPJ)).999720508( RX1FX( THFX.533128 ) HIN=YY,MM,DD OUT=ND'g )'i 1020:2670='n N8JD2444238.5C'x I' d' #42.1 SUN'S POSITION' IN=YY,MM,DD OUT=RZ,DZ' ' 2660' NX.985647332N8' NXDPN(NX)' MXNX3.76286' MXDPN(MX)' EC1.9157416(MXPJ)( LNXEC2 #32.2 ATMOSPHERIC DISTORTION?&O IN=OI,DH,LR,LS OUT=LR,LSb&P UI(OIPJ)(DHPJ):UIC(UI)&R X.566667:Y0.00989004(UIPJ):YS(Y)&T DT240Y(DHPJ):DTDT3600&V LSLSDT:LRLRDT&Z &d &e #42.2 No. DAYS SINCE JAN 0.0 1980'f AD(YX):ADADPJ'% X0ADAD180;% AD0ADAD360T% ADAD15:RZAD:DZGXZ% `%! y%( #32.1 RISE AND SET%) IN=OI,RZ,DZ OUT=LR,LS%H LH(OIPJ)(DHPJ):LHC(LH):LHLH15%J LR24RHLH%L LSRHLH%M LSHPN(LS):LRHPN(LR)&N2505 IN=OL,OS OUT=GX,AD1$ ENTRT@2510 IN=L,B7$ k$ GX(BPJ).91746406(BPJ).397818676(LPJ)y$ GXS(GX)$ Y(LPJ).91746406(BPJ).397818676$ X(LPJ)$ 2550:$ $ #27.2 TAN CORRECTION$ IN=AD,X,Y OUT=AD$ %( 80:1'PI3.1415927:PJ180PI- K INVERSE SINE AND COSINEm AND DEGREE/HOUR CORRECTIONs S(X)(X(XX1))PJC(X)((X(XX1))PI2)PJDPN(X)(360X)(((360X)360)360)HPN(X)(24X)(((24X)24!""" " " " " """""""""          PIIPJe.bGX~'PIIPJPiIXPIIiJX~iJX~iJX~PIIPJPIIPJIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIPIIIIPIIPIIPIIPIIPIIiIX~PIIiIXIIiIXiIXiIXPIIiJX~XPIIPIIPIIPIIPIIPIIPIIPIIIIPIIPIIPIIPIIPIIPIIPIIPIIPPII;" ";:<6 SAVE AS A FILE2<6(4);"OPEN ";FF$J<6(4);"DELETE ";FF$`<6(4);"OPEN ";FF$w<6(4);"WRITE ";FF$<6DD$;" ";DD;"/";MM;"/";YY<6QP08<6PL(QP):PK(QP)<7< 7(4);"CLOSE ";FF$<7$;/ZY$;:Z1(0):";2Z132.52;;2 PRINT Z1 AS +XX.XXS;2Z10ĺ" 00.00 ";:g;2ZY$(((Z1)));2(ZY$)2ZY$"0"ZY$:13020;2ZZ$((((Z1(Z1))100)));2(ZZ$)2ZZ$"0"ZZ$:13040;2Z10ĺ"-";ZY$;".";ZZ$;" ";:<3" ";ZY$;".";ZZ$13000:'Z1D(QP):13000.:'Z1T(QP):13000B:'Z1M(QP):13000H:'P:':e:'PRĺ(4);"PR#3"q:'Z1(0):'FFİ14000:'1004:':. PRINT Z1 AS +XX:.ZY$(((Z1))):.(ZY$)1ZY$"0"ZY$:.Z10ZY$"-"ZY$:12050;/ZY$" "ZY08#9V'PN$(QP);:Z1IH(QP):1200089['Z1IM(QP):12000T9`'" !";:Z1HI(QP):12000i9e'Z1MI(QP):120009j'" ! ";:HXPL(QP):1723:Z1HH:12000:" ";9o'Z1FX:120009t'" ! ";:HXPK(QP):1723:Z1HH:12000:" ";9y'Z1FX:12000:~'" ! ";:Z1F(QP):1004G88'YXYY:MXMM:DXDD:2185:NJND:YXYY:MXMM:DXDD:2670:NRN8:8='" Twilight begins ";WH;"H ";WM;" Twilight ends ";HU;"H ";MU8B'"----------RISE----SET-------RA--------DEC-------PHASE---AU----SIZE---MAG-"8G'F(0)1:M(0)26.89L'QP(F(QP)PJ))7757 #56 APPARENT BRIGHTNESSK7 IN=#50 OUT=M()7M((SRP)(CA(F(QP)))):MM(10):MM5:MM26.77M(QP)M:7&2700:2800:2900:2900:3000:7'7'DD$;" ";DD;"/";MM;"/";YY;7'9980:RCRZ:DCDZ7$':35508.' #53 DISTANCE/LIGHT TIME/SIZE;6v IN=#50 OUT=D(),L(),T()d6PSR3R3SRSR2R3SR((SLLL)PJ)p6P(PS)~6RP.13866TT0P6D(QP)P:L(QP)R:T(QP)T:66 #54 PHASE OF PLANET6 IN=#50 OUT=F()6 7F(QP)LSL:F(QP).5(1YXYZ:MXMZA5WWND:HXTR:2220:TRHX:NDWW:HXTS:2220:TSHXZ5TRTRZC:TRHPN(TR)s5$TSTSZC:TSHPN(TS)5(HXTR:1723:IH(QP)(HX):IM(QP)FX:IS(QP)SX:HXTS:1723:HI(QP)(HX)5*MI(QP)FX:CI(QP)SX5.3720:3780:3810::100455t6uLDPN(L)K4 B(RD(UIPJ)((LAD)PJ))(RR((ADLL)PJ)):B(B):BBPJk4 2510:PL(QP)AD:PK(QP)GX:q4 4 DO THE WHOLE KIT'N'KABOODLE 4 4 2660:21854 QP184 3260:RHAD:DHGX:26324HXLR:2440:TRHX:HXLS:2440:TSHX 5 B0( 2510( RZAD:DZGX7( PL(0)RZ:PK(0)DZ:=( _( #44 SUN'S DISTANCE AND SIZE( IN=#42.1 OUT=AH,AM,SA,RX( ( 2660( VXMXEC( FX(1.016718(VXPJ)).999720508( RX1FX( THFX.533128( HXTH:1723( HX(HX)'i 1020:2670$'n N8JD2444238.5*'x 0' K' #42.1 SUN'S POSITIONh' IN=YY,MM,DD OUT=RZ,DZn' x' 2660' NX.985647332N8' NXDPN(NX)' MXNX3.76286' MXDPN(MX)' EC1.9157416(MXPJ)' LNXEC278.83354' LDPN(L)(ORTION&&O IN=OI,DH,LR,LS OUT=LR,LSI&P UI(OIPJ)(DHPJ):UIC(UI)u&R X.566667:Y0.00989004(UIPJ):YS(Y)&T DT240Y(DHPJ):DTDT3600&V LSLSDT:LRLRDT&Z &d &e #42.2 No. DAYS SINCE JAN 0.0 1980&f IN=YY,MM,DD OUT=ND'g X0ADAD180"% AD0ADAD360;% ADAD15:RZAD:DZGXA% G%! `%( #32.1 RISE AND SET}%) IN=OI,RZ,DZ OUT=LR,LS%H LH(OIPJ)(DHPJ):LHC(LH):LHLH15%J LR24RHLH%L LSRHLH%M LSHPN(LS):LRHPN(LR)&N #32.2 ATMOSPHERIC DIST$ ENTRT@2510 IN=L,B$ R$ GX(BPJ).91746406(BPJ).397818676(LPJ)`$ GXS(GX)$ Y(LPJ).91746406(BPJ).397818676$ X(LPJ)$ 2550:$ $ #27.2 TAN CORRECTION$ IN=AD,X,Y OUT=AD$ $ AD(YX):ADADPJ% AAA24#HXHXAA$#HXHPN(HX)5#HXHX.99727;#A#G#` \#a #15 LST TO GSTv#b IN=HH,YP,SS OUT=HX}#c # # LXLN15# HXHXLX# HXHPN(HX)# # # #27 ECLIPTIC TO EQUATORIAL$ ENTRY@2505 IN=OL,OS OUT=GX,ADm IN=YY,MM,DD OUT=ND"nC"XXDX:XMMX:XYYX:MX1:DX0:1070e"XJJD:DXXX:MXXM:YXXY:1070t"NDJDXJ:z"" #13.1 GST TO GMT" IN=YY,MM,DD,HX OUT=HX""AAND.0657098"B10İ2033"AAAAB1:AA0AAAA24#AA24A!XZYX:XXDX:XYMX:DX0:MX1:1070:YXXZV!XZYX:XXDX:XYMX:DX0:MX1:1070:YXXZt!SXJD2415020:TXSX36525! RR6.6460656(2400.051262TX)(.00002581TXTX)!UXRR(24(YX1900))! B124UX!%!j!k #13.2 No. DAYS SINCE JAN 0.0" S3(HX) HX(HX)* HH(HX)S3? FX(HX(HX))60W SX((FX(FX))60)d FX(FX)q HXHXS3 YPFX:SSSX     #12 GMT TO GST  IN=YY,MM,DD,HH,YP,SS OUT=HX    #12.2 CONSTANT B *(DX7):DX(DX).5DXDX1)DX(DX)DX$(0)"Sunday ":DX$(1)"Monday ":DX$(2)"Tuesday ":DX$(3)"Wednesday":DX$(4)"Thursday "DX$(5)"Friday ":DX$(6)"Saturday "DD$DX$(DX): #8 DECIMAL TO HMS  IN=HX OUT=HH,YP,SSYZYXMZMX,.MX2YXYX1:MXMX12=BAX(YX100)QLBX2AX(AX4)eVCX(365.25YX)~`XD(30.6001(MX1))jJDBXCXXDDX1720994.5tx} #6 DAY OF THE WEEK~ IN=JD OUT=DX$AX((JD1.5)7)DXAX(AX)DX(YY4(YY4))(MM2)ML28@(YY4(YY4))(MM2)ML29`DDDD1:DDMLMMMM1:DD1xMM12MM1:YYYY1(Y4YY)(M4MM)(D4DD)10160:10201003 #4 JULIAN DATE IN=YY,MM,DD OUT=JDYXYY:MXMM:DXDD$:(4);"WRITE ";FF$ &,2R INCREMENT DAY BY ONE CODEo1020:1400:10040:9990(MM8)(MM2(MM2))ML31(MM7)(MM2(MM2))ML31(MM7)(MM2)(MM2(MM2))ML30(MM7)(MM2(MM2))ML30er: N";(8);:"";PR$:PR(PR$"Y"):FF0::"Dump to a file: N";(8);:"";PR$:PR$"Y"105hFF1:"File >PLANETS.DATA";:7:"";FF$:FF$""(FF$)0FF$"PLANETS.DATA"iPRĺ(4);"PR#1"nFFĺ(4);"OPEN ";FF$:(4);"DELETE ";FF$x(4);"OPEN ";FFars ":PN$(4)"Jupiter ":PN$(5)"Saturn "fdPN$(6)"Uranus ":PN$(7)"Neptune ":PN$(8)"Pluto "e"Input the YEAR,MONTH,DAY ";:YY,MM,DDf"Input LATITUDE,LONGITUDE ";:OI,LN:ZC((LN15))Yg"Stop at YY,MM,DD ";:Y4,M4,D4::"Dump to print)24):" ASTRO-CALC MK IV"u:" APPLE VERSION MARCH 1986"(:" BY BRYAN BURGESS"2:::<PN$(0)"Sun ",cPN$(1)"Mercury ":PN$(2)"Venus ":PN$(3)"M