' +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 completel? @0@4@|@@@@˜ @@@@Ʃ@@z'@7@}Ɯ0LZα˜̜Μ Lz@P`p#ˠ͠ōL?@ALH0L HL,HȽ8HG }FH>ȱH?,+$8}`LIF}>թ}>}F𷍋1˜}@?>>??>Ȋ> XJJD:DXXX:MXXM:YXXY:1070,NDJDXJ:2I #13.1 GST TO GMTh IN=YY,MM,DD,HX OUT=HXnx21601500YXYY:MXMM:DXDDAAND.06570982033AAAAB:AAHPN(AA)HXHXAAHXHPN(HX)HXHX.99727XJ>NXNX.0657098:NXNXB9HHXXH:MXXM:SXXS:1560URHXHX1.002738:HXHXNXeTHXHPN(HX)o\1723uf{kl #13.2 NO DAYS SINCE JAN 0.0m IN=YY,MM,DD OUT=NDnpYXYY:MXMM:DXDDXXDX:XMMX:XYYX:MX1:DX0:1070DX:XYMX:DX0:MX1:1070:YXXZ=SXJD2415020:TXSX36525q RR6.6460656(2400.051262TX)(.00002581TXTX)UXRR(24(YX1900)) B24UX!YXXZ:MXXY:DXXX%'( #12.1 GMT TO GST PT2)*XJJD:DXXX:MXXY:10704NXJD:MXYP:SXSS1560#HXHXZC3HXHPN(HX)?1723:EmYXYY:MXMM:DXDD:XHHH:XMYP:XSSSs #12.1 GMT TO GST IN=YY,MM,DD,HH,YP,SS OUT=HX 20402087 #12.2 CONSTANT BXZYX:XX(HH(HX):YPFX:SSSX:S31HHHH:.4O #9 LOCAL TIME TO GMTe IN=CH OUT=HXkuHXCH1500&HXHXZC0HXHPN(HX)D1723Nlq #10 GMT TO LOCAL TIMEr IN=HH,YP,SS OUT=HH,YP,SSs vHXHHCHHXHH:MXYP:SXSS+SXSX608"MXMXSXE,MXMX60R6HXHXMX^rCHHX:hHXCHn #8 DECIMAL TO HMS IN=HX OUT=HH,YP,SSS30:HX0S31:HX(HX)FXHX(HX):FXFX60:SXFX:FX(FX)SX((SX(SX))60):7):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): #7 HMS TO DECIMAL IN=HH,YP,SS OUT=HX,GX((CXEX)(30.6001))7(DDCXEXFX(30.6001GX)R2GX13.5MMGX1:1350_<MMGX13|FMM2.5YYDX4715:1390PYYDX4716nx} #6 DAY OF THE WEEK~ IN=JD OUT=DX$AX((JD1.5)7)DXAX(AX)DX(DXy z #5 JD TO CALENDAR DATE>{ IN=JD OUT=YY,MM,DDD|QJJJD.5gIX(JJ):FXJJIXIX2299160AXIX:1270AX((IX1867216.25)36524.25)BXIX1AX(AX4)CXBX1524 DX((CX122.1)365.25)EX(365.25DX)  !  #4 JULIAN DATE<  IN=YY,MM,DD OUT=JDB X YXYY:MXMM:DXDDb YZYXl MZMX .MX2YXYX1:MXMX12 BAX(YX100) LBX2AX(AX4) VCX(365.25YX) `XD(30.6001(MX1)) jJDBXCXXDDX1720994.5 t8)(MM2(MM2))ML31: (MM7)(MM2(MM2))ML31c (MM7)(MM2)(MM2(MM2))ML30 (MM7)(MM2(MM2))ML30 (YY4(YY4))(MM2)ML28 (YY4(YY4))(MM2)ML29 DDDD1:DDMLMMMM1:DD1 MM12MM1:YYYY1 " KC$(10)"SCHWASSMANN-WACHMANN 1":KC$(11)"NEUJMIN 1 ":KC$(12)"CROMMELIN ":KC$(13)"OLBERS ":KC$(14)"PONS-BROOKS ":KC$(15)"HALLEY " 20000  INCREMENT DAY BY ONE CODE (MMC$(2)"TEMPLE 2 ":KC$(3)"HANEDA-CAMPOS ":KC$(4)"SCHWASSMANN-WACHMANN 2":KC$(5)"BORRELLY " xKC$(6)"WHIPPLE ":KC$(7)"OTERMA ":KC$(8)"SCHAUMASSE ":KC$(9)"COMAS SOLA )360), HPN(X)(24X)(((24X)24)24) cPN$(1)"MERCURY ":PN$(2)"VENUS ":PN$(3)"MARS ":PN$(4)"JUPITER ":PN$(5)"SATURN " dPN$(6)"URANUS ":PN$(7)"NEPTUNE ":PN$(8)"PLUTO " lKF4 mKC$(15)~ nKC$(1)"ENCKE ":KNkDX$(7)$PI3.1415927-PX1FVE$"Astro-Calc 5.5"L j INVERSE SINE AND COSINE AND DEGREE/HOUR CORRECTION S(X)(X(XX1))180PIC(X)((X(XX1))PI2)180PI DPN(X)(360X)(((360X)360                                ɤɤɄ٤ɤɤɤȤɤ€ȤɤȤ€Ʉɀɤɤ撅ҙ鬁ɤɤɤ€€ɤɤɤ€٤٤ɤɤɤɤɤȤɤɤɤɤɄɤɤɤɤɤɄɠɤɤɤɤɤɤɤȤɤɤɤɤɤɤɤ怈退ͥ˴退ͥ˴ɤɤɤɤɤɤɤɀɤɤȤɤɤɤɤ n768 x62450# I027946 I,0140,191:? 768J 62450V 140,80y I1100:X(1)280:Y(1)192 X,Y::768 1(4);"BLOAD FLIPPER2"1 :230,64:62450>49234,0E3i0,0279,500,100279,1500,191r(768}2624507140,09I0191:X(49200)<X(I15)140140FX,I:P768Z62450 d140,080,96140,191200,96140,0 ɤȤɤɤɤɤɤɤ؄̤˴ɬɤɦɁɤ餒٤ͥˤͥ˴ҙͥ˴鬀ɤɤɤɤɤɤɤɤȀɤɤɤɤɤɤɤɤɤɤɤɤɤɤɤɀɤɤɤɤɤɤɤɤɤɤɤɤ撍ͥ˴٤ͥ˴ɤɤɤɤɤɤɤɤɄȤɤɤɤɤɤɤȤɤɤɤɤɤɄɤɤɤɤɤɤɤͥ˴٤̥˴ɤɤɤɤɤɤɤɤɄ頒ɦɥɤ餒٤ɤɤȤɤɤɤɄȤɤɤɤɀɤɤɤɤɤɤ˴ɬɤɦɥɤ褒٤ɠɀɤɤɤɤɤɤɤɄȤɤɤɤɤɤɤɀȤɤɤɤɤɤɤɤɤɤȤɤɤɤɤɤɤɤɤɤɤɤɤɤɤɤ,T ,U ,T`(ͥ˴٤ͅ˴ͥ٤ͥ˴ɤ餒لɦɥɤ餒٤ɤɤɤɤɤɤɤɀȤɤɤɤɤɤɤɤͥ˴٤ͥ˴ͅɴ٤ͥ˴鬁ɤȤɤɤɤɤɤ€ɀɤɤɄɤɤɤɤȤɤɤɤɤɄɤɤɤͥȴ鬀٤ͥ˴ɄɤɤɤɤɤɤɤȤɤɤɤɀɤɤɤɤɀɤɤɤɤɤɤɤɤɤɤɤɤɤɤɥô退ͥˀ٤ͥ˴鬀ɄȤɤɤɤɤɤɀȤɤɤɤɤɤɤɤɤЄ˴ɬɤɥɤ餒٤ɤɤɤɤɤɤɤɤ` ɤɤɤɤɤɠɤɤɤȤɤɤɤɤɤ             ,T; ,U@ ,T`(@ ɤɤɀɤɤɄȤɤ        ɤɤɤɤɤɤɤɤɤɤɀɤɤɤɤɤɤɤɀȤɤɤɤɤɤɤɤɤɤɤɤɤɤɤɤťÀ退ؤͥ˴٤ͥ˴ɤɤɄɤɤɤɤɤɤɤɤȄɀɤɤɤɤɤɤɤɄɤɤɤɤɤɤɤɤ€鄀؄ͤ˴ɬɤɦɥɤ餒ل撁ؤͥ˴٤ͥ˴ɤɤȤɤɤɤɤɤɤɤɤɤ€ɀɤɤɠɤɤɤɤɤɤɤɤɤɤɤɤɤɤɤɀɤɤɤɤɤɤɤɀɤɤɤɤɤɤɤɤɤɤɤ *END LOOP*'j"H":"A":(4);"PR#0"LEDLE@DSNMY8179Y80YP179YP0ı]"M";Y82.5;",";X82.5:"D";YP2.5;",";XP2.5:X8XP:Y8YP:{$ * SWITCH TO SEA COLOR *."C";J1:8 * SWITCH TO LAND COLOR *B"C";J2:L SETUP SCREEN *V(4);"PR#1":(18):"I":"M0,-700":"I": `* 470)XXXXXS:YYYYYS:ZZZZZS>770: *ROTATE *T860: *TILT UP *iXO999PR$"M"XO999PR$"D"XP(YY)CX:YP(ZZ)1030 *PLOT LINE HERE *XPXP.625:YP33.14.663YPPR$"M"X8XP:Y8YP:XOXRARAPI'4R1RARH:RD(XXXXYYYY)C>XXRD(R1):YYRD(R1)IH]R * TILT DOWN *s\RD(ZZZZXXXX)fXX0RAPI2:900pRA(ZZXX)zXX0RARAPIR1RAVTXXRD(R1)XX:ZZRD(R1) * MOVE (OR PLOT) TO XP,YP 940::+EX0MX:XO999:EY0MXEXWAXEXEY:AYEY:370:ZZD:YYAYMX10000xXXAXMX10000YY2:940::1130: *DONE PLOTTING, FINISH * *ROTATE*XX0800 YY0RAPI2:820RAPI2:820 RA(YYXX)*XX0 SET UP PLOTTING DEVICE OR SCREEN *QXS.04:YS.04:ZS.04: *SCALING FACTORS *oAX0MX:XO999:AY0AX370:ZZD:YYAYMX10000:XXAXMX10000YY2940::AY0MX:XO999:AXAYMX370:ZZD:YYAYMX10000:XXAXMX10000YY2 ZZ0590'& * GOING INTO WATER *B0ZZZ3:YYY3:XXX3:950h:1070:ZZ0:YYYT:XXXT:Z2ZT:620D * COMING UP OUT OF WATER *NZZZ3:YYY3:XXX3:950X1090:ZZZT:YYYT:XXXTbZ2ZZlX2XX:Y2YY:v * DISPLAY HERE *#1110: BXMXAX D(BX,BY)(D):<  * PUT IN SEA LEVEL HERE *N XO999500n ZZ0İ1070:Z2ZZ:ZZ0:620} 1090:610 Z20ZZ0610 Z20ZZ0Z2ZZ:ZZ0:620 W3ZZ(ZZZ2):X3(X2XX)W3XX:Y3(Y2YY)W3YY:Z30 ZTZZ:YTYY:XTXX D2 JAXXEYE:AYYE:D(D1D2)2(1)L2L4:4208 T@ ^:a h * RETURN DATA FROM ARRAY *p rAYMY390 |BYAY:BXAX:400 BYMX1AY:BXMXAX DD(BX,BY):  * PUT DATA INTO ARRAY * AYMY440 BYAY:BXAX:450 BYMX1AY:YEIBXESK= AXXE:AYYEIB:370:D1D:AYYEIB:370:D2Dk D(D1D2)2(1)L2L4:AXXE:AYYE:420q y :  HEIGHTS ALONG DIAG. * "XE0MX1SK ,YEIBMXXESK 6AXXEYEIB:AYYEIB:370:D1D @AXXEYEIB:AYYEIB:370:D2"--> ";N xN% 640: **DRAW**? * HEIGHTS ALONG X *Q YE0MX1SKe XEIBYEMXSK AXXEIB:AYYE:370:D1D:AXXEIB:370:D2D D(D1D2)2(1)L2L4:AXXE:AYYE:420 : * HEIGHTS ALONG Y * XEMX1SK 3.1416:RHPI30180:VTRH1.28 <N1LE:L100001.8NS F"WORKING ON LEVEL ";Ni PIBMX2N:SKIB2 Z150: ASSIGN HEIGHTS ALONG X IN ARRAY _N d220: ASSIGN HEIGHTS ALONG Y IN ARRAY iN n290: ASSIGN HEIGHTS ALONG DIAG. IN ARRAY sF ! INTEGER DS,N,MX,BX,BY8 ! INTEGER D(128,64)c"1) BLUE 2) GREEN 3) RED 4) BLACK""ENTER WATER,GROUND COLOURS ";:J1,J2 FRACTALSD(128,64)"NUMBER OF LEVELS ";LE(DS2:N1LE:DSDS2(N1): 2MXDS1:MYMX2:PI  P#a0 Pa0L@@ PP P` P0 P`0:180007"PFRE1(L$(CC)):20480::TT110::16000F" NX(16392)^"!NA$(8)Ĺ16392,X1w"*NA$(21)Ĺ16392,X1}"4N"1uPT"!>C27CC64:CCC:1200:18000N!>(C26)(C37)CC21:CCC:1200:18000a!>C((1)10)1o!>C1C46}!>C2C44!>C3C58!>C4C63!>C5C39!>C6C45!?C7C47! ?C8C40!?C9C41! ?C10C61!%?CCC"*?120DDA:DARA :RA0MDDA+ :SP10DA7.3H ::"BLOAD SEND2,A$5000"U :20495,Xi >C((1)LIM)1 >RA0AQAQ1:AQ5DADA.075:DAMDDAMD >NNNN1:NN0ĺ:"SPEED ";((10DA8)".0",3);" ";:NN24 >AQ5AQ0:SPSP.075:SPMDSPMD2) Letters and Numbers"::"3) Letters, Numbers and Punctuation"[::"==>";C:C1LIM26k:C2LIM36::"Enter NUMBER of words/min ";DA:DA10DA7.3::"F)ixed or I)ncreasing ";:N$:N$"I"ĺ:"Increasing from ?";:RA:RA10RA8 :RA0MARROW KEYS AND TO QUIT"0V'L$"T":1500F`'A$:A$" "10090Xe'20000:10070j':"1) SEND ONLY"::"2) COMPUTER SEND, YOU REPEAT"::"==>";A$:A$"2"15000t':"BLOAD SEND,A$4040":16463,X:16448@::"SELECT"::"1) Letters ONLY"::"S,SOYUZ,PROGRESS,COSMOS,BRASILSAT,MAGIC,COLUMBIA,T38,SCA,SPACEH ZZZy 25:"BLOAD BEEPCASS,A$4000":16392,12:180 16449,SP2:16448::':"SEND MORSE VIA A KEY CONNECTED TO":"JOYSTICK PORT BUTTON 0".'258':"SETUP TONE"B'"USE EACTANCE,FREQUENCY,AMATEUR,NOVICE,FREQUENCIES,BELLING,LEE,PROTOTYPE,ARGUS,MAGNIFIER,LAMP> THESE,TESTS,HAD,BEGUN,IN,DECEMBER,AND,WERE,CONNECTED,WITH,THE,DEVELOPMENT,PROGRAM,FOR,THE,BIG,NEW,ARIANE,VARIANT,4,1,VIKING,KOUROU,5000,V16,ELA1,SPOT,VEGA,ULYSSETHROUGH,HIGH,STROBE,TRIMMER,R2930,SINGLE,HIGH,LOCAL,FLASHING,MICROWAVE,PASSIVE,79,1295,TIMER,MODULE,WINDOW,REAR,POCKET,HIGHWAY,ZERO,ZEBRA,YET,OUTSIDE,ZENERX MULTITECH,COMPUTERS,LESS,PERSONAL,COLOUR,MATRIX,DAISYWHEEL,DATARECORDER,COMPATIBLE,ENERGIZER,RNEGATIVE,ANYONE,NO,TIME,TO,BE,CUT JUBILEE,AMATEUR,RADIO,OCTODER,INSTITUTE,JOURNAL,ISSUE,1933,1983,DEADLINE,PRESIDENTIAL,COMMENT,PROGRAMMABLE,WORLD,BUSINESS,POUNDING,INTERNATIONAL,AUSTRALIA,OFFICIAL,BEGIN,DIVISIONAL,VARIOUS SPECIAL,CERAMICS,FEED,CUT,IT,FIRST,THE,LIGHTER,TO,BE,SURE,THE,TORCH,IS,OPERATING,WONDERFUL,I,TURN,IT,OFF! COLONEL,WHAT,ARE,YOU,TALKING,ABOUT,YOUR,UMBILICAL,WONT,REACH,OVER,THERE,HE,CANT,RECONNECT,MY,OXYGEN,LINE,IN,TIME,SILENCE,PATRICK,SHOUTED,I,NOTHING,YOU,ARE,COMMANDER,VERY,THOUGHTS,YOU,HAVE,OUTLINED,CROSSED,MY,MIND,THE,ONLY,WAY,TO,CUT,THAT,BOLT,IS,FOR,SOMEONE,TO,GO,OVER,THERE,AND,CUT,THAT,BOLTS WE,WILL,HAVE,TO,UNSHIP,ONE,OF,THE,AMU,NO,TIME,FOR,THAT,YOU,SAID,SO,YOURSELF,SO,IF,YOU,WILL,AID,ME,I,WILL,GO,OVER,THERE,AND,1230,HOURS,YESTERDAY HARDWOOD,DOWEL,INSIDE,A,EDGE,OF,MERE,MILES,HIS,IS,NOT,A,HAPPY,LOT,HIM,WAVELENGTH,EMERGENCY,LOW,SITTING,WEDGED,NEAR,I,AM,DONE,DO,SUPERHETRODYNE,LIFE,LONG,END STOP,HIM,OPERATED,CLUMSY,GLOVED,HANDS,HE,DREW,OUT,THE,TORCH,THE,E,OPERATING,DAILY,APPROXIMATELY,42,CARS,WENT,THROUGH,EARLY,FRIDAY,MORNING,PICNICKERS,AND,SKIERS,MADE,UP,37,PERCENT,OF,THE,VISITORS RESCUE,WORKERS,ARE,DIGGING,TO,RECOVER,THE,BODIES,OF,147,PEOPLE,WHO,WERE,BURIED,WHEN,AN,AVALANCHE,HIT,A,MOUNTAIN,TOWN,ATNNOT,BE,AVOIDEDk RADIOMETERS,ARE,FITTED,TO,THE,CONVAIR,370,AND,542,HOW,THEY,APPROACH,THE,SKIING,SEASON HAS,STARTED,AND,156,MILLIMETERS,OF,SNOW,HAS,FALLEN,ON,MOUNTAINS,ABOVE,1497,METERS,ALL,MOTORISTS,ARE,REQUESTED,TO,CARRY,CHAINS,3,LIFTS AR"."Ĺ16385,DA3-16384:16449,DA3:164483> (C);U"16449,SP:16448:v@16449,SP73:16448:" ";: THIS,PROTOTYPE,DETECTED,AIR,TURBULENCES,AT,RANGES OF,UP,TO,160,KILOMETERS,GIVING,25,TO,38,SECONDS,WARNING,EVEN,IF,THE,AREA,CA6Ĺ16449,SP73:16448:" ";:6.16449,SP:16448:HT1(L$(C))h(L$(C),T,1)"-"Ĺ16385,DA(L$(C),T,1)"."Ĺ16385,DA316384:16449,DA3:16448(C);:T1(L$(C))(L$(C),T,1)"-"Ĺ16385,DA(L$(C),T,1)C5C39"C6C45*,C7C4786C8C40F@C9C41UJC10C61dT1000:200vT1(L$(C))(L$(C),T,1)"-"Ĺ16385,DA(L$(C),T,1)"."Ĺ16385,DA316384:16449,DA3:16448(C);C((1)6)1$C:DAMDDAMDMNNNN1:NN0ĺ:"SPEED ";((10DA7.3)".0",3);" ";:NN24tAQ5AQ0:SPSP.075:SPMDSPMDC27CC64:1000:200(C26)(C37)CC21:1000:200C((1)10)1C1C46C2C44C3C58C4C633C1āA1C1:A$:<A$:ZTZTD:ZT50ĺ"":dNL1(A$):C((A$,NL,1)):1500:RASPAQAQ1:AQ5SPSP.075:AQ0:SPMDSPMDD0DD1:A$:1600:1861600:182C((1)LIM)1 RA0AQAQ1:AQ5DADA.0751:NN30170'NN0:LELE1:LE26Ā0170b::"WORDS/MIN ";DA:DA10DA7.3:RADA:MDDA:"F)ixed spaces or I)ncreasing ";:N$:N$"I"ĺ"Increasing from WORD/MIN ";:SP:SP10SP7.3C((1)NW)1::D1:CDNW182SP0SP10RA7.andom characters"::"2) Random Words"::"3) Letters (Repeated)"P:"==>";N_N1ė:15lN2180::"NUMBER WORDS/MIN ";DA:DA10DA7.3:RADA:MDDALE1C((1)5):C0C((1)26)1:C64C:1000:172C64LE:1000 NNNN..":L$(55)"--...":L$(56)"---..":L$(57)"----.":L$(48)"-----" dL$(46)".-.-.-":L$(44)"--..--":L$(58)"---...":L$(63)"..--..":L$(39)".----.":L$(45)"-....-":L$(47)"-..-.":L$(40)"-.--.":L$(41)"-.--.-":L$(61)"-...-" eA:"CHOOSE,"::"1) RD PP P` @ P0 P` (79)"---":L$(80)".--.":L$(81)"--.-":L$(82)".-." FL$(83)"...":L$(84)"-":L$(85)"..-":L$(86)"...-":L$(87)".--":L$(88)"-..-":L$(89)"-.--":L$(90)"--.." PL$(49)".----":L$(50)"..---":L$(51)"...--":L$(52)"....-":L$(53)"....."? ZL$(54)"-.. "BLOAD BEEP2.OBJ,A$4040"; "BLOAD BEEP.OBJ,A$4000" (L$(65)".-":L$(66)"-...":L$(67)"-.-.":L$(68)"-..":L$(69)".":L$(70)"..-." 2L$(71)"--.":L$(72)"....":L$(73)"..":L$(74)".---":L$(75)"-.-":L$(76)".-.."3 <L$(77)"--":L$(78)"-.":L$ :"F)ixed or I)ncreasing ";:N$:N$"I"ĺ:"Increasing from ?";:RA:RA10RA7.3 :"F)ixed spaces or I)ncreasing ";:N$:N$"I"ĺ"Increasing from WORD/MIN ";:SP:SP10SP7.3 SP0SP10RA7.3 RA0MDDA:DARA RA0MDDA 200("T"):1500:A$:A$" "İ20000:9, :5 150 :"SELECT"::"1) Letters ONLY"::"2) Letters and Numbers"::"3) Letters, Numbers and Punctuation" :"==>";C:C1LIM26 C2LIM36 :"Enter NUMBER of words/min ";DA:DA10DA7.3T2L$(130)::"MORSE PROGRAM BY BRYAN BURGESS"BT11500:^SP8:DA8:LIM48:NW365:"S)end or R)ecieve ";A$:A$"S"10000A$"T"3000:"SETUP OF TONE.."::"USE ARROW KEYS TO CHANGE AND "::"TO QUIT SETUP"25$ C                 撍ͥ˴٤ͥ˴ɤɄɤɤɠɤɤɤɤɤɤɤɤɤɤɤɤɤȀɤɤɤɤɤɤɄȤɤɤɤɤɤɤɤɤ˴ͥ˴٤ͥ˴ɤɤɤɤɤɤɤɤɀ˴ɬɤɦɥɤɤȤɤɤɤɤɤɤɤɤɄȤɤɤɤɤɤɤɤɤ€€ɤ٤ɀ˴ɬɤɦɥɤ餒٤€ɀɀɤɤɤɤɤɤɤɄɤɤɄɤɤɤɤɤɤɤɤɤɤɤɤɤɄL 8L 8L 8L 8   8L 8  8  Ζ8L }L }Ld}!L }#Ld}(Ld}-Ld}2L }4Ld}9Ld}>Ld}CLd}HLd}MLd}RLd}WLd}\Ld8   8   8  R 8   8   8   8  . 8  e 8L 8Ld|L |Ld|Ld|L |Ld|Ld|Ld|L |L |Ld|Ld|L |Ld|L |L |L |Ld|L |Ld|Ld|L }Ld}Ld} Ld}L }L }L }LdLd|ELd|JL |LLd|QLd|VL |XLd|]Ld|bLd|gLd|lLd|qLd|vLd|{L |}Ld|Ld|Ld|L |Ld|Ld|Ld|Ld|Ld|L |L |Ld|{Ld{Ld{L {Ld{Ld{Ld{Ld{Ld{Ld{Ld{Ld{Ld|Ld|Ld| Ld|L |Ld|Ld|Ld|"Ld|'Ld|,Ld|1Ld|6Ld|;Ld|@{ULd{ZLd{_Ld{dLd{iLd{nLd{sLd{xLd{}L {Ld{Ld{Ld{Ld{Ld{Ld{L {Ld{Ld{Ld{Ld{L {Ld{Ld{Ld{LdLdLdLdLdLdLdLdLdLdLdLdLd{+Ld{0L {2Ld{7Ld{LdCLdHLdMLdRLdWLd\LdaLdfLdkLdpLd>m a X`m7@qX`Rc T`f/:zn{/@|X0K|`Ҋ}}d'0}7~ (~>BZ~["~# >K=pעLdLd LdLdV@`TŃ I<6@@XPp R҅=@zH`0@xp`ht;@\)UpqHt333XEM1[p4pOQ4 66i jq LV.6 z  o  LzEnter Time (HH,MM,SS) z  '  އ  j  8  I@ w C s YoL{N Ï 5 { Lz`LcM3j춀{|S\O (YJ~ڀ:h3sa@$A&y@YO#'I p y  '  t  Ӄ  3  I@ w MG s YoLyN Ï 5 y Ly` w B s  Lz SET LATITUDE  z  o  LLzEnter LATITUDE (N+/S-) 4z  '    I@ w B s YoLtzN Ï 5 rz L%z` w C s  Lz CHANGE TIMELw` w E s  LxRISE AND SET TIMES x  o  L yEnter RA HH,MM,SS x  '  5  ڂ  F  I@ w E s YoL@yN Ï 5 >y Lx` w MG s  LyRISE AND SET TIMES ly  o  LyEnter DEC HH,MM,SSv` w F s  LwECLIPTIC TO EQUATORIAL w  o  Lx%Enter Ecliptic Latitude HOUR,MIN,SEC w   L`x( 7x    '    )   I@ w F s YoLxN Ï 5 x ]F s  LvECLIPTIC TO EQUATORIAL v  o  Lw%Enter Ecliptic Longitude HOUR,MIN,SEC v   LZw( 1w    '  ˆ    u  I@ w ]F s YoLwN Ï 5 w LW+) u  '  w  I@ w xB s YoLuN Ï 5 u Lu z c i # ҇ s` w uE s  L'v LST TO GST v  o  L`vEnter Local Sidereal time Dv  '  8    j  I@ w uE s YoLvN Ï 5 v L5v` w o  LtEnter Greenwich Sidereal time t  '  q  ׅ  1  I@ w D s YoLuN Ï 5 u Lt` w D s  LHu GST TO LST =u  o t` w xB s  L}u SET LONGITUDE ou  o  LuEnter Longitude (E-/D s  LsGMT TO LOCAL TIME s  o  LtEnter Greenwich Time s  '  _   Ć  I@ w 9D s YoL8tN Ï 5 6t Ls` w 9D s  Lot GMT TO GST dt  o s` w D s  Lt GST TO GMT t   :  I@ w D s YoLrN Ï 5 r L*r` w C s  LsLOCAL TIME TO GMT r  o q` I@ w ~C s  L=s TIME ZONE 3s  o  LksEnter Time Zone Zs  '  ҇  I@ w ~C s YoLsN Ï 5 s Ls` w 9AL q  o  LqEnter Time (HH,MM,SS) q  '  އ  j  8  I@ w C s YoLrN Ï 5 r Lq` w D s  L\rDECIMAL HOURS TO HH/MM/SS Br  o  LrEnter Decimal time yr   J  ' 5 p LUp` w A s  Lp JULIAN DATE p  o  LqEnter JULIAN Date p  '   I@ w A s YoL;qN Ï 5 9q Lp` w >A s  LpqDAY NAME gq  o Up` w C s  LqHH/MM/SS TO DECIMrect (Y/N) o   ŏ`  Lo%Change or RETURN to accept (C/RETURN) o   LpC 5  p ` { ` w >A s  LGp CHANGE DATE ;p  o  LvpEnter DD,MM,YEAR dp  '  ~  ΂  i  I@ w >A s YoLpN a ` LnPERIOD n  Z aLn YEARS n  ` ̍ LoNEXT PERIGEE n   # aL*o YEARS "o   # f # aLMo DAYS Go  `  Lo( ho   LoCor Lm~~~~~~~~~~~~~~ m  LmCOMET m  k  n [n n n` LnRIGHT ASCENSION  n  E v * 7 aL6n: 4n  aLIn: Gn  a ` LunDECLINATION dn  _ v * 7 aLn: n  aLn: n ~ d 5 #  B V \ W ~ D $Lm l <~ т  ~ d ! i l K ȅ K ~ D $ p} N i ( L0m N KLm ~ D $L_m N  m w n [n n n s @Lj ~ h $Lvm m @Lj ~ z $LHLm m  Lj X ̍   ̍k  '  ~  ~ $Lk X ̍   ̍ Lk~~~~~~~~~~~~~~ k  ~ $LLl    aL0l) -l   1 ~ $Ll LtlENTER COMET NUMBER `l  '  h Lj ~ D $Ll I@ #p l <~ т  ` X ̍   ̍ Lj~~~~~~~~~~~~~~ j  LjCURRENT COMET > j  k  L*k1) CHANGE COMET k  LMk2) CALCULATE DATA ;k  Lkk 3) DATA PAGE ^k  Lk 4) MAIN MENU |k  Lk ENTER OPTION DECLINATION i  U aLi: i  aLi: i  N a ` Lj RIGHT ASCEN. i  aLj: j  aL.j: ,j  a ` LWj PHASE Ij  L  LmjE   kj Lj   I a ` l I a RISE h  aLh: h  ǀ aLh: h  < a ` T Li TIME OF SET h  aLi: i  aL&i: $i  a (Li l <~ т  ~ d  Lfi ON `i  g aLyi/ wi  aLi/ i  ?~ a ` ` Li q ' q 2; I ~ z $Lg 2; I +h w h h i i @j s @L?c ~ D $Lh +h w @j s @L?cLh h  L?c X ̍   ̍ LUh~~~~~~~~~~~~~~ Fh  h h i i I LhINFORMATION FOR THE MOON uh  ` ' Lh TIME OF c ~ $Lf I@ #p I@ z 4 m ; l <~ т  ~ d f9  R V ~ $LSg U v * 7 R ߃ K v * 7 +h w i i s @L?c ~ D $Lsg I@ #p I@ Wu I@ y ~ D $Lg 4 m ; l <~ т  ~ d ; ~ h $ p} ~ z $ L:f 4 m ; l <~ т  ~ d ; q ' q * v * 7 Ā 9 v * 7  ~ z $Lf  R V U v * 7 R ߃ K v * 7 ~ h $Lf +h w h h s @L?d I@ #p I@ Wu I@ y ~ h $ p} ~ z $ Le X ̍   ̍ L e~~~~~~~~~~~~~~ d  LDe&ENTER HEIGHT ABOVE SEA LEVEL IN METRES e  Lye& ~~~~~~ Re   Le==> e  '   PHASE c  Lc3) MOONRISE & MOONSET c  Lc 4) ALL [1-3] c  Ld 5) DATA PAGE d  L2d 6) MAIN MENU %d  LTd ENTER OPTION Fd  '  ~  ~ $Ld +h @L?c ~ $LH ~ h $ p} ~ z $ L  .    ͏   & LbBRIGHTNESS b  1 a`   ͏   & L0cBRIGHTNESS c  ` ^` X ̍   ̍ Lic~~~~~~~~~~~~~~ Zc  ' Lc1) MOON'S POSITION }c  Lc2) MOON'S   ͏   / LaTIME OF RISE a  S aLa: a   aLa: a  a`    ͏   8 LFbTIME OF SET 5b  aLYb: Wb  0 aLlb: jb  a` 1  LbE   b Lb I   L`DISTANCE IN AU `  ` ^` ~  L`E   ` L`a I   ~    ͏    LQaSIZE IN ARCSEC. @a  ~ a`   ͏    LaSIZE IN ARCSEC. a  ` ^`  _: _  D a`    ͏   L_PHASE _   ߌ # aL`% ` ` $~  L'`E   %` L` I   !~    ͏   L`DISTANCE IN AU |`  $~ a`   ͏ ^  G aL^: ^   a`    ͏ `    ͏   L_RIGHT ASCENSION  _  _ aL0_: ._  aLC_: A_  ݈ a`    ͏   ̍ L_DECLINATION y_  + aL_: _  aL ]   aL]: ]  y aL]: ]  ʉ a` q  L]SUN:- ]  T  ' L%^TWILIGHT START ^  9 aL8^: 6^  0~ aLK^: I^  ~ a` q  Lo^SUN:- i^   ' L^TWILIGHT END ^  ~ aL^:   ' L\ANGULAR SIZE \  aL\: \  aL\: \  a` q  L]SUN:- ]  ֌  ' LA]SUNRISE AT 0]  S aLT]: R]  aLg]: e]  ш a` q  L]SUN:- ]  '  ' L]SUNSET ATL[: [  aL[: [   a` q  L[SUN:- [   ' L\DECLINATION \  aL$\: "\  ΅ aL7\: 5\  @ a` q  L[\SUN:- U\  I  ' L\DISTANCE IN KM r\  a` q  L\SUN:- \ ~ D $LZ 1 2 %2 [ w ^ ^ R_ _ ` ` a b {b s @LAWLZ Z  LAW X ̍   ̍ L*[~~~~~~~~~~~~~~ [  h[ [ F\ \ ] v] ] Z^ ^ ^ R_ _ ` ` a b {b q  L}[SUN:- w[  ' L[RIGHT ASCENSION [  B a'    ~ $LAW ~ D $L-Z I@ #p l <~ т  ~ d  ~ & ,  v * 7 \ ڈ V v * 7 ( A ~ D $LGZ I@ Wu I@ y ~ D $LZ   V  $  χ q v * 7 P  g χ q v * 7 - ~~~~~~~~~~~ X  LX 1) MERCURY X  LX2) VENUS X  LX3) MARS X  LY 4) JUPITER  Y  ~ $LYL |W   ͏ LW< W  [ w ] Z^ s @LQR ~ $L!V I@ #p l <~ т  ~ d & v * 7 ?  v * 7 } ˅ = ~ $L_V l <~ т  ~ d & & Z E ~ $LV l <~ т  ~ d I@ Wu I@ y  z r Շ  &  P LT I@ #p l <~ т  ~ d I@ Wu I@ y ~ h $L1U  z r Շ  &  P Έ   v lj [ w ] v] s @LQR ~ z $LxU I@ #p l <~ т  ~ d I@ Wu I@ y  z r Շ  & ~ z $LU ( b 6 -~ dž ~ n ~ , D ł ~  ~ $LH ~ $LS [ @LQR ~ $LJT I@ #p l <~ т  ~ d & v * 7 ?  v * 7 } ˅ = [ w h[ [ s @LQR ~ D $LT I@ #p l <~ т  ~ d & & Z E [ w F\ \ s @LQR ~ h $ LR"2) SUN'S DISTANCE AND ANGULAR SIZE R  LR3) SUNRISE AND SUNSET R  LS 4) TWILIGHT  S  L7S 5) ALL (1-4) *S  LUS 6) DATA PAGE HS  L{S7) EXIT TO MAIN MENU fS  LS ENTER OPTION S  '  q g 4 l <~ т  ~ d l l E" 7 ! 5 ~ $LR I@ w G 3H s @LH ~  $LQR ~ $LAW ~ $L?c ~ $LjLCR AR  LH X ̍   ̍ L{R~~~~~~~~~~~~~~ lR  ' LR1) SUN'S POSITION R  ډ t Ӄ 3 I@ w E MG s @LH ~ $L9Q x I@ Ty I@ y I@ Wu I@ #p 8 4 ݂ I  y w 4 փ 6  y   $ ~ $LQ  4 z r l l " y g 4 l l " y d l <~ т  ~ d  4 E" 7 v " 7 ~  j I@ w uE s @LH ~ 1 $L(P v I@ Wu z r ~ 4  m " 7 q ׅ 1 I@ w D s @LH ~ ΋ $LxP v I@ w ň 4  x  y   4 ,  y L " ~ ΋ $LP  v * 7 5 ڂ F V v * 7 7 q ׅ 1 I@ w D s @LH ~ ( $L#O ~t I@ #p l <~ т  ~ d X ى  ڏ   l d X ى h ~ ( $L|O l <~ т  ~ d t 4 څ 4 E" 7 _ Ć I@ w 9D s @LH ~  $LO %u I@ Wu t 4 څ 4 z r Ć I@ w 9D s @LH ~ $LN s s b 4 dž Շ  7 އ j 8 y : I@ w C s @LH ~ ŋ $LN Lt I@ #p l <~ т  ~ d X ى  ڏ   l d X ى h b dž l } т ~ Q~ ։ ! ~ ŋ $LNd X ى l <~ т  ~ d ! h  ڏ I@ w MB s @LH ~ z $L+M q 4 m ;  y : I@ w D s @LH ~ $LiM *r = v * 7 އ j 8 I@ w C s @LH ~ $LM r 4 m ;  y : s Շ  7 _ $LKLc ~  (LK I@ ~ $L/L #p l <~ т  ~ d X ى  ڏ   l d X ى h I@ w A A MB s @LH ~ D $LL p ։  ?~ i ΂ g ~ ! h ։  ڏ I@ w >A MB A s @LH ~ h $LL Oq l <~ т  ~ and Set J  LJ 14) THE SUN J  LJ15) THE PLANETS J  LK 16) THE MOON J  L#K17) THE COMETS K  L?K 18) Data Page 1K  LVK19) EXIT MK  L}KEnter Your Selection gK  '  ~  ~ $LK I@ @LH ~ cond I  LI6) LMT to GMT I  LI7) GMT to LMT I  LJ8) GMT to GST I  L$J9) GST to GMT J  LAJ10) GST to LST 2J  L^J11) LST to GST OJ  LJ'12) Ecliptic to Equitorial Co-ordinates lJ  LJ13) Rise ;  ̍ LH~~~~~~~~~~~~~~ H  LH1) GREGORIAN to JULIAN Date H  L"I2) JULIAN to GREGORIAN Date I  LDI3) Day of the Week 0I  LzI'4) Hour/Minute/Second to Decimal Hours RI  LI'5) Decimal Hours to Hour/Minute/Seփ aLG: G  6 a` &  LGOBJECT:- G   e LG GMT RISE G  y aLH: H  aL$H: "H   a` &  LKHOBJECT:- BH   e LgHSET bH  $ aLzH: xH  aLH: H  8 a` X ̍   aLF: F   aLF: F  x a` &  LFOBJECT:- F   J LGECLIPTIC LATITUDE G   aL+G: )G  , aL>G: B/ A A A MB xB B ~C C 9D D D uE E ]F F @ J c - q  @ c - q C P ' q ' q c   p}   c F a}  ߀ p}  c f a}   c M i S c  i p} V c  i a} 7  7 T; M + c  i p} : c  i a} K c  i c 0~ }  c  i } - c  i } c  y} g}    c i  y c  i p}  c  i c 0~ }  c  i } - c  i } c  y} g}    c i  $ * g} v L< XL<%INTERNAL ERROR, DOES NOT RISE OR SET <  @LH y  v c  i p} V c  i } y c  i } a} ; y * >  c i ; y 8 v 5 ; G M > y c  i p}  ܆  V  W ^ d ;Lg< c  i : U  c i U A X c  i p} c  i m} -~ X c  i p} c  i m} ` T; ͌ ~   c M i S c  i : p} V c  i : i ( $ c  i K $ c  i + #    ' $ c  i   * r~ ~ #` g $  c  i Q ` ~ c  i  Ɗ ϊ ؊ |` f9 *  M V  ԋ 4 f9 *׎ 9 I u~ $ G c c  i ) ~ c  i  ^ c  i : % ~ c a c ( c  i M c  i  * ~ ~ c a ' u~ $ G c  i 6 * 3 ' c z#   Ҡ ͮҠ" ͮǠ"ͮ " вЮʠ вʠ IJ д̷ұҲ Ҡ îΠ" îԠ" Ҡ ϲʠz Š РϠ ϭϠϲm Ůʰ ŠϭӠ ҵĠK c RHA1:DHG1:2632:R1LRDT:S1LSDT:RHA2:DHG2:2632:R2LRDT:S2LSDT h TR(24.07R1)(24.07R1R2):TS(24.07S1)(24.07S1S2) m GD(G1G2)2 r X((OIPI180)(GDPI180)) s UIC(X) w X.0145835939(UIPI180):YS(X)!| DT240Y(GD THFX.533128 HXTH:1723, HX(HX)D" AHHX:AMFX:SASX:JT eU #45 SUNRISE & SUNSETV IN=YY,MM,DD,OI,LN OUT=UH,UM,US,VH,VM,VSW ^ 2700_ L1L:A1AD:G1GX:LL.985647:B0:2510:L2L:G2GX:A2AD` XMMX.016718(MXPI180)+ LNXEC278.833549 LDPN(L)A B0K 2510] RZAD:DZGX:c  #44 SUN'S DISTANCE & SIZE IN=#42.1 OUT=AH,AM,SA,RX VXMXEC 2660 FX(1.016718(VXPI180)).999720508 RX1.495985E8FXY,MM,DD OUT=NDh %i 1020:2670/k 1045Cn NDJD2444238.5Ix O j #42.1 SUN'S POSITION IN=YY,MM,DD OUT=RZ,DZ  2660 NX(360365.2422)ND NXDPN(NX) MXNX278.83354282.596403 MXDPN(MX) EC(360PI)OIPI180)(DHPI180)):UIC(UI)UR X.566667:Y((XPI180)(UIPI180)):YS(Y)|T DT(240Y)(DHPI180):DTDT3600V LSLSDT:LRLRDTW LSHPN(LS):LRHPN(LR)Z d e #42.2 NO. DAYS SINCE f JAN 0.0 1980g IN=YNTERNAL ERROR, DOES NOT RISE OR SET"::10998:20000LJ LHC(LH):LHLH15hK LR24RHLH:LRHPN(LR)uL LSRHLHM LSHPN(LS)O #32.2 ATMOSPHERIC DISTORTION IN=OI,DH,LR,LS OUT=LR,LS '"P UI((0AD0ADAD360:2580, X0AD02580K X0AD0ADAD180:2580Q j ADAD15:RZAD:DZGXp v! ( #32.1 RISE AND SET) IN=OI,RZ,DZ OUT=LR,LS* < RHRZD DHDZH LH(OIPI180)(DHPI180)5I (LH)1ė::"I8676(LPI180) GXS(GX)Q Y(LPI180).91746406(BPI180).397818676c X(LPI180)o 2550:u  #27.2 TAN CORRECTION IN=AD,X,Y OUT=AD  AD(YX):ADAD180PI Y02570 X0AD0ADAD180:2580 X0  LXLN15! HXHXLX1 HXHPN(HX); 1723A G h #27 ECLIPTIC TO EQUITORIAL ENTRY @2505 IN=OL,OS OUT=GX,AD ENTRY @2510 IN=L,B  LOL:BOS GX(BPI180).91746406(BPI180).397811723 & #14 GST TO LSTB IN=HH,YP,SS OUT=HXH ^ HXHH:MXYP:SXSSh8 1560v= LQLN15B HXHXLQD HXHPN(HX)L 1723V ` a #15 LST TO GSTb IN=HH,YP,SS,LN OUT=HXc j HXHH:MXYP:SXSS 156(4);"RUN ";A$d$0 B$"A"ĺ(4);"RUN ";A$d;A$d,TYPE TERMINATE WITH ZZZ  1,ASTRO-CALC ASTRO2,A,ZZZ ::::17);"OPTIONS""========================================" A:T11A::" (";T;") ";:A$:A$:6 (:" (";T;") EXIT "h Z:"========================================"u c"===>"; dB$:B$""100 nB$:(B$)0((B$)A1)100 xB(B$) A1BĀ T1B:A$,B$: B$"B"ĺ(4);"BRUN ";A$ B$"A"$ NUMBER OF FILES,NAMES{ SECOND DATA=NAMES,TYPE TERMINATE WITH ZZZ  1,ASTRO-CALCPICRUNNER,A,ZZZ  ::::17);"OPTIONS""========================================" A:T   33,40::< 16:10::"TURN THE VOLUME UP":U "BLOAD VOICE.OBJ0"eT11000:T1611:26:T::"UP";::T1:26:" ";TT140:(2"RUN OXYGENE"960.29,138.1,86.2,8.18,4.054,.705,12S0 1969.83,102.9,62.8,8.55,4.182,0.577,13.40 1974.12,334.1,319.6,15.03,6.087,0.105,9.70 1966.94,334.0,347.2,17.93,6.858,0.775,15.0 0 1956.82,86.4,250.4,27.89,9.173,0.919,28.91" 1956.46,150,85.4,693.024,.549,12.5B/ 1978.77,12.016,131.7,5.37,3.066,.64152,5.805p/ 1974.7,123.3,126.0,6.51,3.489,0.386,3.7/ 1974.36,67.8,75.1,6.76,3.576,0.632,30.2/ 1970.77,18.2,188.4,7.47,3.821,0.351,10.2/ 1958.44,150,155.1,7.88,3.958,0.144,4$0 1 OUT=E).? NB:CN IS SMALL E IN EQUATION5.AES1E6=.FEMO.PDECN(E)Mb.Z(D)ES3950.d(D)ESDED(1CN(E)):EEDE:3920.n.. #57 COMET DATA.. 1974.32,160.1,334.2,3.3,2.209,.847,12/ 1972.87,310.2,119.3,5.26,PLANET- IN=#50 OUT=IG"-E-IGLSL:IG.5(1(IGPI180))K-Q-o- #56 APPARENT BRIGHTNESS- IN=#50 OUT=IT--M((SRP)(CA(IG))):MM(10):MM5:MM26.7-ITM:-<-= #43 SOLVE KEPLERS EQUATION.> IN=M,CN (QP)(HX)",*MI(QP)FX:CI(QP)SX>,.3720:3780:3810:QP:D,tg,u #53 DISTANCE/LIGHT TIME/SIZE,v IN=#50 OUT=IH,IJ,w,PR3R3SRSR2R3SR((SLLL)PI180),P(P),RP.1386,TT0P,IHP:IJT:,- #54 PHASE OF + 3260:RHAD:DHGX:2632D+HXLR:2440:TRHX:HXLS:2440:TSHXZ+YXYZ:MXMZ:2185+WWND:HXTR:2220:TRHX:NDWW:HXTS:2220:TSHX+TRTRZC:TRHPN(TR)+$TSTSZC:TSHPN(TS) ,(HXTR:1723:IH(QP)(HX):IM(QP)FX:IS(QP)SX:HXTS:1723:HINET * @* L(RR((ADLL)PI180))(RDRR((ADLL)PI180))]* L(L):LL180PI:LLADk* LDPN(L)* B(RD(UIPI180)((LAD)PI108))(RR((ADLL)PI180)):B(B):BB180PI* 2510:PL(QP)AD:PK(QP)GX:* * * QP18+ 2660) T) AA(RD((LLAD)PI180))(RRRD((LLAD)PI180)):AA(AA):AAAA180PId) L180LLAAr) LDPN(L)) B(RD(UIPI180)((LAD)PI180))(RR((ADLL)PI180)):B(B):BB180PI) 2510:PL(QP)AD:PK(QP)GX:) * #50.3 OUTER PLA5964034(H RR(1.0167182)(1.016718(VEPI180))>(I R3RRj(\ X((SLQ)PI180)(IPI180):UIS(X)(f Y((SLQ)PI180)(IPI180)(p X((SLQ)PI180)(z 2545:ADAD15( ADADQ:RDSR(UIPI180):QP23500( ) #50.2 INNER PLANETNP(360PI)E(MPPI180)EE.' SLDPN(SL);' VPSLUUa' SR(A(1EE))(1E(VPPI180))' NE(360365.2422)(ND1.00004)'" NEDPN(NE)'* MNE98.83354102.596403'4 LLNE(360PI).016718(MPI180)98.83354'6 LLDPN(LL)(> VELL102.972,.25387,39.78459,17.137,109.941,8.2,4.073E-65& X& #50.1 COORDINATES OF PLANETS& IN=DATA+YY,MM,DD OUT=PL(),PK()& :T1PX:TP,EE,UU,E,A,I,Q,T0,CA:& NP(360365.2422)(NDTP)& NPDPN(NP)& MPNPEEUU' SL665397,.055616,9.554747,2.489374,113.488834,165.6,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.,.0067826,.7233316,3.394435,76.4997524,16.92,1.721E-5$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-49%D 29.45771,165.322242,92.DC(X)"# T(HDLH)15:TT.99736# WRTRT:SWTST|# HXWR:1723:WH(HX):WMFX:WSSX:HXSW:1723:HU(HX):MUFX:SUSX# # # .24085,231.2973,77.1442128,.2056306,.3870986,7.0043579,48.0941733,6.74,1.918E-65$& .61621,355.73352,131.289579TS:1723:VH(HX):VMFX:VSSX:%" 8" #46 TWILIGHT|" IN=#45 OUT=WH,WM,WS,HU,MU,SU" " X((OIPI180)(GDPI180)):LHC(X)" X((108PI180)(OIPI180)(GDPI180))((OIPI180)(GDPI180))# HPI180):DTDT3600)! TRTRDT:TSTSDTE! TRHPN(TR):TSHPN(TS)m! HXTR:2432:TRHX:HXTS:2432:TSHX}! MXMZ:2185! HXTR:2220:TRHX:HXTS:2220:TSHX! TRTRZC:TRHPN(TR)! TSTSZC:TSHPN(TS)" HXTR:1723:UH(HX):UMFX:USSX:HX$:24:1:" ";:1:"WAIT..";D@*@+3:1:"DATE:-";:8:"GREGORIAN";:28:KD;"/";KM;"/";KY;:@ +3:1:"DATE:-";:4:8:"JULIAN ";KJ;:@+3:1:"DATE:-";:5:8:"JULIAN DAY ";QJ;"/";KY;: A +3:1:"DATE:-";::HHTS:2210:TSHX??'+?'13:VE$E?$'13:"~~~~~~~~~~~~~~"?.'11010:11020:11030:11040:11050:11060:11070:11080:11090:11130:11140:11150?8'11160:11170:11180:11190?B'11200:11210?*>@*23:1:"PRESS A KEY TO CONTINUE";:QQOIPI180)(GXPI180):UIC(UI)8>4720:X0.567MZ2_>Y(XPI180)(UIPI180):YS(Y){>DT(240Y)(GXPI180)>DTDT3600>TRTRDT:TSTSDT>YP0:SS0>HHTR:2400:TRHX:YP0:SS0:HHTS:2400:TSHX?HHTR:2210:TRHX:YP0:SS080)((RX(G2PI180)PS)(RX(G2PI180)(HJPI180)PC)):G2(G2):G2G2180PI_=yHJHJ15=~R1HPN(24A1HJ):R2HPN(24A2HJ)=S1HPN(A1HJ):S2HPN(A2HJ)=TR(12.03R1)(12.03R1R2):TS(12.03S1)(12.03S1S2)=GX(G1G2)2!>UI(HX)>HXC(DDD.5:4820:4880:=: #35 GEOCENTRIC PARALLAX ]: & FIGURE OF THE EARTHv: IN=OI,HI OUT=PS,PC: Nb:H=HEIGHT IN METRES::UX(0.996647(OIPI180)):UXUX180PI:HIHI637814;PS0.996647(UXPI180)HI(OIPI1MP9t49zMD0.996985(1.0549((MWEC)PI180))E9MZ0.5181MDV9MP0.9507MD\9b9}9 #66 MOONRISE MOONSET9 IN=YY,MM,DD,HH,YP,SS OUT=MR,MS 9945009L1LM:B1BM:A1AD:G1GX:HH12:45009L2LM:B2BM:A2AD:G2GX:DBM((LMNM)PI180).089683441:BMS(BM)@8\LLM:BBM:2510:F8]c8^ #63 MOON'S PHASE }8_ IN=MOON DATA OUT=FM8`8fDLMLS:FM.5(1(DPI180))8k8p8q #65 MOON'S DISTANCE SIZE8r PARALLAX9s IN=#61 DATA OUT=MD,MZ,AEA3 7EC6.2886(MWPI180)<7A40.214(2MWPI180)R7LMLMEVECAEA4u7 VX0.6583((2(LML))PI180)7LMLMVX7 NMNM0.16(MXPI180)7*Y((LMNM)PI180)0.995970374X((LMNM)PI180)7>25507CADAD157HLMNMAD*8RLSL: KEEP FOR PHASE C6LM13.1763966ND64.975464:LMDPN(LM)q6MWLM0.1114041ND349.383063:MWDPN(MW)6NM151.9504290.0529539ND:NMDPN(NM)6EV1.2739((2(LML)MW)PI180)6AE0.1858(MXPI180):A30.37(MXPI180)7MWMWEV(LLL)PI180))))180PIL(5NLDPN(L)r5XB(((R(UIPI180)((LDL)PI180))(RR((LLL)PI180))))180PI5bLLD:25105l55 #61 THE MOONS POSITION55 IN=YY,MM,DD,HH,YP,SS OUT=AD,GX 5515105DDDDHX24:27006E(360PI)0.016718(MEPI180)98.8335494 LLDPN(LL)N4&VELL102.596403^4+EW0.01671840RR(1EWEW)(1EW(VEPI180))4:RRRLD180LL(((R((LLL)PI180))(RRR((LLL)PI180))))180PI5DRRRLD(((RR((LLL)PI180))(RRR((VPI180))93X((LOO)PI180)(IPI180):UIS(X)o3Y((LOO)PI180)(IPI180):X((LOO)PI180)32550:ADAD15OO:ADDPN(AD)3LAD3RR(UIPI180)32665:NE360365.2422ND1.000043 NEDPN(NE)3MENE3.762863)4LLN 2qT1KF&2rPE,WA,OO,TP,AU,EW,I,2sd2|1020:NJD:YXPE:MXC1:DX0:1045:NNJD:NN365.25u2M(360N)TP2MDPN(M)2MMPI1802CNEW:39002V((1EW)(1EW)).5(E2)2V2(V):VV180PI2LVWA 3R(AU(1EWEW))(1EW.47,16.843,0.93,44.6R1, 1954.39,94.2,255.2,70. 98,17.2,0.955,74.2 16 1986.112,170.011,58.154,76.0081,17.9435,0.9673,162.23841h1i #57.2 COMETS POSITION1j IN=YY,MM,DD,KF OUT=AD,GX1k1l2mT18:A,A,A,A,A,A,A,A,A:"1Pa:"6) DATA PAGE"::"7) EXIT TO MAIN MENU"OPa24:"ENTER OPTION ";:QQ_PaQQ720000~PaQQ6İ26000:10998:25000QaQQ1İ10000:31010:YYKY:MMKM:DDKD:2700:HXRZ:1725:PAHH:PBYP:PCSS:HXDZ:1725:PDHH:PEYP:PFSS:26000::26100:261120000ONQQ1425000(OOQQ15251509OOQQ1627000JOOQQ1728000ZOa"":20000Oa:13:VE$:13:"~~~~~~~~~~~~~~"Pa8:"1) SUN'S POSITION"::"2) SUN'S DISTANCE AND ANGULAR SIZE"::"3) SUNRISE AND SUNSET"::"4) TWILIGHT"::"5) ALL (1-4)WX:YPWK:SSWL:1510:DZHX:OIQL:2620NNQQ13HHLR:LNKL:YP0:SS0:2410:LRHX:HHLS:YP0:SS0:2410:LSHX:YYKY:MMKM:DDKD:HHLR:2210:KGHH:KHYP:KSSS:HHLS:YYKY:MMKM:DDKD:YP0:SS0:2210:QWHH:QYSSONQQ13İ10000::11200:11210::10998:HX:HHWZ:YPWG:SSWV:1510:OSHX:2505MNQQ12HXAD:1723:WWHH:WIYP:WJSS:HXGX:1723:WXHH:WKYP:WLSS:10000::11160:11190::10998:20000'NNQQ13İ31170:10000:31180:10000:31190:10000:31130:10000:31010:HHWW:YPWI:SSWJ:1510:RZHX:HH31130:HHKS:YPKT:SSKU:LNKL:2310:QRHH:QTYP:QUSS:10000::11150::10998:20000LNQQ11İ31140:10000:31130:LNKL:HHQR:YPQT:SSQU:2410:KSHH:KTYP:KUSS:10000::11140::10998:20000'MNQQ12İ31150:10000:31160:HHWY:YPWT:SSWU:1510:OL00::11140::10998:20000KNQQ9İ31100:10000:31010:YYKY:MMKM:DDKD:1020:KJJD:1420:QD$DD$:MM1:DD0:1020:QJKJJDKNQQ9YYKY:MMKM:DDKD:HHKS:YPKT:SSKU:2210:WHHH:WMYP:WSSS:10000::11090::10998:20000ULNQQ10İ31120:10000:M:SSWS:ZCKZ:1910:QHHH:QMYP:QSSS:KNHX:10000::11080::10998:20000JNQQ8İ31090:10000:31010:YYKY:MMKM:DDKD:1020:KJJD:1420:QD$DD$:MM1:DD0:1020:QJKJJD:XHWH:XMWM:XSWS:YXKY:MXKM:DXKD:JDKJ:2031KNQQ8KSHH:KTYP:KUSS:1000::11130::10998:20000iINQQ5İ31060:HXKN:1725:QHHH:QMYP:QSSS:10000::11080::10998:20000INQQ6İ31070:HHQH:YPQM:SSQS:1510:KNHX:31075:ZCKZ:1830:WHHH:WMYP:WSSS:10000::11090::10998:20000KJNQQ7İ31080:31075:HHWH:YPWDD:2160:QJND:JDKJ:1420:QD$DD$:10000::11010:11040:11030::10998:20000HNQQ3İ31040:YYKY:MMKM:DDKD:1020:KJJD:YYKY:MMKM:DDKD:2160:QJND:1420:QD$DD$:10000::11040::10998:20000INQQ4İ31050:HHQH:YPQM:SSQS:1510:KNHX:1000Selection ";:QQ0GpNQQ18İ10000:10998:20000=GqNQQ19ĀOGuNQQ14İ10000GzNQQ1İ31010:YYKY:MMKM:DDKD:1020:KJJD:1420:QD$DD$:MM1:DD0:1020:QJKJJD:10000::11020:11030:11040::10998:20000PHNQQ2İ31020:JDKJ:1230:KYYY:KMMM:KDo GST":"9) GST to GMT"FRN"10) GST to LST":"11) LST to GST":"12) Ecliptic to Equitorial Co-ordinates":"13) Rise and Set"F\N"14) THE SUN":"15) THE PLANETS":"16) THE MOON":"17) THE COMETS"FaN"18) Data Page"FbN"19) EXIT"GfN:"Enter Your 2:13:"~~~~~~~~~~~~~~"rE4N"1) GREGORIAN to JULIAN Date":"2) JULIAN to GREGORIAN Date":"3) Day of the Week"E>N"4) Hour/Minute/Second to Decimal Hours":"5) Decimal Hours to Hour/Minute/Second":"6) LMT to GMT"FHN"7) GMT to LMT":"8) GMT tTIC LATITUDE ";WZ;":";WG;":";WV;:nD+17:1:"OBJECT:-";:10:18:"DECLINATION ";WX;":";WK;":";WL;:D+17:1:"OBJECT:-";:10:21:"GMT RISE ";KG;":";KH;":";KI;:D+17:1:"OBJECT:-";:29:21:"SET ";QW;":";QX;":";QY;:D NE*N13:VE$:C+11:1:"TIME:-";:8:12:"LOCAL SIDERIAL ";QR;":";QT;":";QU;:C+17:1:"OBJECT:-";:10:"RIGHT ASCENSION ";WW;":";WI;":";WJ;:C+17:1:"OBJECT:-";:10:19:"ECLIPTIC LONGITUDE ";WY;":";WT;":";WU;:#D+17:1:"OBJECT:-";:10:20:"ECLIPME:-";:8:"LOCAL MEAN ";QH;":";QM;":";QS;:|BR+11:1:"TIME:-";:8:13:"GREENWICH MEAN ";WH;":";WM;":";WS;:Bz+11:1:"TIME:-";:8:15:"DECIMAL TIME ";KN;:B+11:1:"TIME:-";:8:14:"GREENWICH SIDERIAL ";KS;":";KT;":";KU;:F18:QD$;:JA*+7:1:"POSITION:-";:12:"LONGITUDE ";(KL);:KL0ĺ" E";\A++KL0ĺ" W";bA,+A4+7:1:"POSITION:-";:12:9:"LATITUDE ";(QL);:QL0ĺ" S";A5+QL0ĺ" N";A6+A>+7:1:"POSITION:-";:12:8:"TIME ZONE ";KZ;:4BH+11:1:"TI ~~~~~~":11:1:"==>";:HI`i(QQ3)(QQ4)HHQH:YPQM:SSQS:YYKY:MMKM:DDKD:4770:MRHPN(TR):MSHPN(TS):HXMR:1723:MAHH:MBYP:MCSS:HXMS:1723:MDHH:MEYP:MFSS aiQQ4MHAD:MGGX:HXMH:1723:MHHH:MIYP:MJSS:HXMG:1723:MGH_i24:"ENTER OPTION ";:QQ=_iQQ5İ27500:10998:27000N_iQQ6ī20000_i(QQ3)(QQ4)İ10000:31010:10000:31130:10000:31190*`i(QQ3)(QQ4)ė:13:VE$:13:"~~~~~~~~~~~~~~":10:"ENTER HEIGHT ABOVE SEA LEVEL IN METRES":" ;:11:17:"BRIGHTNESS ";IT;:T^f1:PN$(PX);:1:17:"BRIGHTNESS ";0;:y^xi:13:VE$:13:"~~~~~~~~~~~~~~"^i8:"1) MOON'S POSITION"::"2) MOON'S PHASE"::"3) MOONRISE & MOONSET"::"4) ALL [1-3]"_i:"5) DATA PAGE"::"6) MAIN MENU"2]wf1:PN$(PX);:1:16:"SIZE IN ARCSEC. ";0;:w]f11:1:PN$(PX);:11:18:"TIME OF RISE ";IK;":";IL;":";IM;:]f11:1:PN$(PX);:11:19:"TIME OF SET ";IN;":";IO;":";IP;:#^fI$(IT):((I$,4),1)"E"I$(I$,5):IT(I$):11:1:PN$(PX):i\lfI$(IH):((I$,4),1)"E"I$(I$,5):IH(I$):11:1:PN$(PX);:11:15:"DISTANCE IN AU ";IH;:\mf1:PN$(PX);:1:15:"DISTANCE IN AU ";0;:]vfI$(IJ):((I$,4),1)"E"I$(I$,5):IJ(I$):11:1:PN$(PX);:11:16:"SIZE IN ARCSEC. ";IJ;:HT END ";PU;":";PV;":";PW;:6[Df11:1:PN$(PX);:{[Nf11:1:PN$(PX);:11:12:"RIGHT ASCENSION ";IA;":";IB;":";IC;:[Xf11:1:PN$(PX);:11:13:"DECLINATION ";ID;":";IE;":";IQ;:\bf11:1:PN$(PX);:11:14:"PHASE ";(IG100);"%"; ";PH;":";PK;":";PJ;:XZf3:1:"SUN:-";:7:8:"SUNRISE AT ";PL;":";PM;":";PN;:Z&f3:1:"SUN:-";:8:8:"SUNSET AT ";PO;":";PP;":";PQ;:Z0f3:1:"SUN:-";:9:8:"TWILIGHT START ";PR;":";PS;":";PT;:[:f3:1:"SUN:-";:10:8:"TWILIG26230Ye26240:26250:26260^Ye3:1:"SUN:-";:8:"RIGHT ASCENSION ";PA;":";PB;":";PC;:Ye3:1:"SUN:-";:4:8:"DECLINATION ";PD;":";PE;":";PF;:Yf3:1:"SUN:-";:5:8:"DISTANCE IN KM ";PG;:Zf3:1:"SUN:-";:6:8:"ANGULAR SIZE 26180:26190:26200:26210:26220:26230:26240:26250:26260::10998:25150]Xb"":25150cXeXe:13:VE$:13:"~~~~~~~~~~~~~~"Xe26100:26110Xe26120:26130Xe26140:26150Xe26160:26170Xe26180:26190Xe26200:26210Ye26220::31190)WzbQQ2OIQL:RZAD:DZGX:2600W{bQQ2HXLR:LNKL:2440:YYKY:MMKM:DDKD:2200:ZCKZ:1980:IKHPN(HH):ILYP:IMSSW|bQQ2HXLS:LNKL:2440:YYKY:MMKM:DDKD:2200:ZCKZ:1980:INHPN(HH):IOYP:IPSSMXbQQ2İ3700:3770:3800:26000::R"XVabQQ1ĺ"5) SATURN":"6) URANUS":"7) NEPTUNE":"8) PLUTO"::"ENTER CHOICE ";:PXiVfbQQ1ī25150VpbQQ2İ10000:31010:YYKY:MMKM:DDKD:QPPX:2660:3250:HXAD:1725:IAHH:IBYP:ICSS:HXGX:1725:IDHH:IEYP:IQSSWubQQ2İ10000:31130:10000DbXUHb:"1) CHANGE PLANET"::"2) CALCULATE DATA"::"3) DATA PAGE"::"4) MAIN MENU"tURb:"ENTER CHOICE ";:QQUSbQQ3İ26000:10998:25150UTbQQ4ī20000V\bQQ1ė:13:VE$:13:"~~~~~~~~~~~~~~":"1) MERCURY":"2) VENUS":"3) MARS":"4) JUPITE:POVH:PPVM:PQVSFT bQQ5İ3000:PRWH:PSWM:PTWS:PUHU:PVMU:PWSUT*bQQ5İ26000::26100:26110:26120:26130:26140:26150:26160:26170::10998:25000T4b"":25000T>b:13:VE$:13:"~~~~~~~~~~~~~~"TCb:"Current planet >";PN$(PX);"<";U000:31010:YYKY:MMKM:DDKD:2700:HXRZ:1725:PAHH:PBYP:PCSS:HXDZ:1725:PDHH:PEYP:PFSSS bQQ5YYKY:MMKM:DDKD:2700:2800:PGRX:PHAH:PKAM:PJSATbQQ5YYKY:MMKM:DDKD:10000:31130:10000:31190:OIQL:LNKL:ZCKZ:2900:PLUH:PMUM:PNUS:POVH:PPVM:PQVS:26000::26140:26150::10998:25000RaQQ4İ10000:31010:YYKY:MMKM:DDKD:10000:31130:10000:31190:OIQL:LNKL:ZCKZ:2900RaQQ4İ3000:PRWH:PSWM:PTWS:PUHU:PVMU:PWSU:26000::26160:26170::10998:25000^SbQQ5İ100::10998:25000QaQQ2İ10000:31010:YYKY:MMKM:DDKD:2700:2800:PGRX:PHAH:PKAM:PJSA:26000::26120:26130::10998:25000QaQQ3İ10000:31010:YYKY:MMKM:DDKD:10000:31130:10000:311909RaQQ3OIQL:LNKL:ZCKZ:2900:PLUH:PMUM:PNUS ";:23:1:WY,WT,WU:10000::11170::30000:Q$"N"ī31151Bpyzpy:11180::22:1:"ECLIPTIC TO EQUATORIAL";:30001qy22:1:"Enter Ecliptic Latitude HOUR,MIN,SEC":23:1:" ";:23:1:WZ,WG,WV:10000::111]oy22:1:"Enter Local Sidereal time ";:QS,QT,QU:10000::11150::30000:Q$"N"31141coyoy:11170::22:1:"ECLIPTIC TO EQUATORIAL";:30001";KC$(KF)etm:"1) CHANGE COMET"::"2) CALCULATE DATA"::"3) DATA PAGE"::"4) MAIN MENU"e~m:"ENTER OPTION ";:QQemQQ1ė:13:VE$:13:"~~~~~~~~~~~~~~"emQQ1Ģ6:T115:T;") ";KC$(T):&fmQQD:1003:26:" ON ";DD;"/";MM;"/";YY:/dk:[dk10:"DECLINATION ";MH;":";MI;":";MJ:dk11:"RIGHT ASCEN. ";MG;":";MK;":";MN:dl12:"PHASE ";:D$(MO)dl((D$,4),1)"E"D$(D$,4):MO(D$):MO:dlMO0.000:MO:e`m:13:VE$:1:10998:27000ci"":27000Dclk:13:VE$:13:"~~~~~~~~~~~~~~"dcvk27610:27620:27630:27640ck5:"INFORMATION FOR THE MOON":ck8:"TIME OF RISE ";MA;":";MB;":";MCckck9:"TIME OF SET ";MD;":";ME;":";MF;'dk(MDMA)YYKY:MMKM:DDK:27000;biQQ2İ10000:31010:10000:31130:10000:31190biQQ2HHQH:YPQM:SSQS:YYKY:MMKM:DDKD:4770:MRHPN(TR):MSHPN(TS):4701:MOFMbiQQ4İ4701:MOFM:27500::27610:27620:27630:27640:27650::10998:27000ciQQ2İ27500::27650:H:MKYP:MNSS>aiQQ3İ27500::27610:27620::10998:27000aiQQ1İ10000:31010:10000:31200:HHQH:YPQM:SSQS:YYKY:MMKM:DDKD:4500:MHAD:MGGXbiQQ1HXMH:1723:MHHH:MIYP:MJSS:HXMG:1723:MGHH:MKYP:MNSS:27500::27630:27640::10998لͤ˴ɬɤɦɥɤ退ɤɄɤɤɤɤɤɤɤɤɤɀɤɤɤɤɤɤɤɤͥ٤ͥ˴٤ͥ˴˴٤ͥȀɤɤɤɤɤɤȤȀɀȤɤɤɤɤɤɤɤɤɤɤɤɤɤɤɤɤɤɤ謀ͥ˴٤ͥɤɤɤɤɤɤȤȤɤɤɤɤɤɤɤɤɀȤɤɤɤɤɤɤɤɤɤȤɤȤɤɤɤɤɤɤɤɤͥ˴٤ͥ˄ɤɤɤɤɤ€ɀɤɤɤɤɤɤɤɤɀЄͤ˴ɬɤɦɥɤ餒ɤɤɤɤȤɤɤɤɤɤɤɤɤ@ ɤɤɤɤɤɤɤɤɤɤɤȀɤɤɤɤɤɤ€               er Time (HH,MM,SS) ";:QH,QM,QS:10000::11080::30000:Q$"N"31200LsyPSS ";:WX,WK,WL:10000::11190::30000:Q$"N"31181@n}п888|><~><<<<@ <<>~>8           itten by Bryan Burgess 1987"P :"Thanks to the Student and The Hawk ":23:1c "RUN ASTRO2"T,144H140T,191HL i0:136T,144H136T,191H:145T,144H145T,191HS j7Y nf x49236,0 "BLOAD PIC.CONT,A$4000" 49237,0 A$ ::10:15:"Please wait.." 2:15:"Astro-Calc."::"The Astronomical Calculator" :"Wr<nyff~f@dD8@DT||8|D8$L><<< ><~f>f8(MEPDDʐQ) PLADDDD2422)(N(D))(8551~~~~~~~~02,131.5S OF3.69bbȈDD252017,1DD.070WMF>@1733,6.7n}п3,33 888|180)(G>HX):243<~><<<<TSHPN( @ <<>~X.01458>8TR:          <<<:4888@8@n|88ETRES:n98n9@n<UXP.996f>><<<>>f>vx(AD)3D@0167rPDLDdD@DI1802tD$dD8%37,16~`>ff~f62.2384N20.29@dD8@DT||8|D85,9.70$L69.4024, c  i a} ^ Í X ^ g [ d a g q d  q ` XL & Ӊ ` & i B I r c { I B p} c  i g} ~ r r~ I r~ l ~ #  V ` ~ 6 & 9 c  i  c  i : g} ہ L% X L$%INTERNAL ERROR, DOES NOT RISE OR SET $  @LH ށ  ہ Ձ ہ @ c ށ q ؁ d q d c  i p} > c  i a} 7  7 + c  i p} : c  i a}   c i  N i L#$ . i ( p}  i  L#   Lr$ . i  p}  i ( L#$  H Lr$ . i  p}  i  Lr$ . i ( p}  i & Lo$   Lr$ K   V `  ; c  i : p} > i y v q v * ` 7 v  o  y  v q v * `  r~ O ~ ~ c  i ~ p} ~ c  i 1 } u~ c  i } m} S  S u~ c  i ~ p} ~ c  i : 1 j} K u~ c  i + #` . E ~ v  y  v v q v * ` ?~ } g Q~ T~ @ ~  l Q~ v ى c C Q~ } v f Ӊ ` !  ?~ } g Q~ c~ ! ~ ]~ c~ q c~ s v q v u v * ` 7 v  u c v  s v q v * ` 7 v  y v q v * ` ?~ } g Q~ 7 !L! ~ T~ @ l Q~  v } w Ӊ , ) p}  ) ) m} " } :  U = ~ } C Q~` ى c C Q~ v f ӏL FRIDAY  o L SATURDAY  o T~ ` 7 v Č Č y v `  v l Ɂ y i (LM  Ɂ y v y # s Ӏ Ӏ ր # Ӏ # # y # 4 ր ́ $L 7 4`` L P  V (L Ս K~ <~L ލ K~ <~` ى  c i # Q~ Q~ # K~ N L T~  Q~ T~ # Q~ ` L3 SUNDAY ) o LN MONDAY D o ; Li TUESDAY _ o q L WEDNESDAY z o L THURSDAY  o I 䙇 # m} ] } #  v # N~ S ։` ى T  # Մ Ӏ ؄ n &L ؄ L& \ ҄ c  i # ؄  p} } # j} c ] i # Q~ ] H~ # t c y i # S w Ѐ p} y M # j} d V ݋ (L  P  } 9~ p} } 9~ # d}  p} D $ L d Ʉ } 9~ p} } 9~ # d} $ p} D $ L m Ʉ g  d Ƅ L:    d ΋ LW   ?~  <~` ?~ } g Q~ ~ ~ D &L  } } ы } # J p} }  o LH ŋ ( p} M  } M  # |}  L R Ʉ  p} M  } M  # |} $ L1 R Ʉ ( p} D   p} M  } M  # |} $ Lx [ Ʉ  p} M  } M  # |}  L [ T LCOMAS SOLA  o LSCHWASSMANN-WACHMANN 1  o LNEUJMIN 1  o LDCROMMELIN - o ̍ LlOLBERS U o LPONS-BROOKS } o LHALLEY  o q LHANEDA-CAMPOS  o LSCHWASSMANN-WACHMANN 2  o I L,BORRELLY  o LTWHIPPLE = o ֌ L|OTERMA e o ' LSCHAUMASSE  o c  i  p} l~ c  i   a}  c i o~ R u~ I r~ : c  i :  p} u~ O c  i g} p} l~ c  i  a}  c i ~ U r~ #`  @ p a d & u~ d  ' I ' $ c I c i % I % _   B p} c  i g} " I   , & p}  c  i &  a} "   (L8  p} u~ c  i  } u~ c  i   y}  c i m} R   L8 l~ G   c i   r~ / & І p}  c  i &  a}  G l~ c  i p} Ƈ c  i g} +  7 G l~ c  i p} Ƈ c  i g} K G l~ c  i + #  A  I  r~ : c  i   & i B ~  ~  ~  ~  ~  ~  ~  ~ 1 k    ˅    D   ӆ  ,  Ç 1 X ى  ΅ }  l Q~ j ى  ]   K c i  I  c  i  / _2  ) p} / a} c W p} M : g}  .8580.77515.0 4L41956.8286.4250.427.899.1730.91928.94L51956.4615085.469.4716.8430.9344.6 5LO51954.3994.2255.270.9817.20.95574.2 R5L51986.112170.01158.15476.008117.94350.9673162.2384 c '    ~  1970.7718.2188.47.473.8210.35110.23L41958.44150155.17.883.9580.14444L.41960.29138.186.28.184.054.7051214L]41969.83102.962.88.554.1820.57713.4`4L41974.12334.1319.615.036.0870.1059.74L41966.94334.0347.217.936    Lk2`L21974.32160.1334.23.32.209.847122L31972.87310.2119.35.263.024.54912.53LL31978.7712.016131.75.373.066.641525.805O3Lz31974.7123.3126.06.513.4890.3863.7}3L31974.3667.875.16.763.5760.63230.23L3u o m} p} M o } ~ c  i } j} ǃ ǃ  ʃ   ʃ !~ ~` ~ l~ c  i  Q ` u ă p}  a} A   A      .`      c   &L2  L2  V ;  v g v " y ~ } ! 5 v ]" y 8 v ]" y q q v * ~ y # o ~ ր o ~ E o v * ~ | y # o ~ P ր o ~ [ o 1 2 %2 1 ` p}  o ~ f V o `  c  i  p}  c  i  ] a} r~ r~  c i r~  r~ I r~ : c  i : Z p}  l~ c i g} p}  c  i  a} ~ ~  c i ~ # ~ q  o ~ f V o `   : c  i o ` ~ D L/  c  i Z p}  c  i Z  a} c~ c~  c i c~  `~ r~ I r~ : c  i : Z p}  l~ c  i g} p}  c  i  a} ~ ~  c i ~ # ~ q c   B p}  c  i g} " I   M p}  c  i  a} " ~ c  i p} Ƈ c  i g} +  7 ~ c  i p} Ƈ c  i g} K ~ c  i + #   2 c      \  e    ~  Ç     1 i B p} g} Q I Q Y c h | B p}  c  i g} N Y ~ I ~ h ~  ~ p} c  i  a} r i B p} g} % I % 61.74E-4+L,84.01247 228.0708551 172.736328.04632319.21814.772989 73.87686465.87.597E-5,Lf, 164.79558260.3579 47.8672148.00900230.109571.771602 131.56064962.27.597E-5i,L,250.9209.439222.972.2538739.7845917.137109.9418.24.073E-621E-5*L +1.88089 126.30783 333.6908166.0933865 1.52368831.84980149.40329.364.539E-6 +La+11.86224 146.96636 14.009549.0484665.202561.304182 100.252017196.741.994E-4d+L+29.45771 165.322242 92.665397.0556169.5547472.489374 113.488834165. i   p  s v * y # _ ր Ć v * y # k ր ) ‚`L]*.24085231.2973 77.1442128.2056306.3870986 7.0043579 48.09417336.741.918E-6`*L*.61621 355.73352 131.289579.0067826.72333163.394435 76.499752416.921.7