¸¹™uG‰GV±IÃÁDEÌËKAÙFÌKÃDÙA¤MÏT±LÓLÁPÒLOC¤YÒÊE¨B¨Y±X±Y¨Y²X²P¤HÚÉÌSUÎAÓÑP¨LÐLÏTÚD¤DÓDELAÙZØA¨D¨ÄL¨Q¨R¨ÒV¨ÖAÌAÚZÓMÌMÚNÉP²ÃÚPÉÐZÚØFÄHÁT²CLÁSLÁYÙXØRÓVÓHÓLÍPÇDÒRÑRÍHÅDÍHÄMØPÍDÇNÓWY¨ZOUNÄK¨U¨CÉPRÔÙÇ€ €@@@€@ !"#€$%&'@(@)*@+@,@-.@/0123456789:;<=>?@ABCDEFGHIJKLMNOPQRS@TU@V@WXYZ[11‰;@,¤;@,™;@,;@",<<¨9@ ,©9@ ,«9@ ,¬9@ ,­9@ ,(<<¯9@ ,Ö9@ ,“9@,–9@,’9@,2..×9@ , 9@ <@ ,Ô9@,</6·-@1…6¾-@W)W€/6¥-@'@F/6º-@6Ø-A`'6->'wx/6Ž-·$K6Ù-P-6™. +V*MJSUNP)-6.Peterborough, Ont.Z36-A6Š-@'6ˆ-@&36‹-@Pd A**INTRO**›È **** MAIN CALC'N LOOP ****›Ò-6›-@#‘-@@ - A…× 6¨8›,-‚6©8›,-ª6«8›,-œÜ6›-›%@ ‘æ›-@@ ë›"@AUð A@õ 6¬8›,-Ÿ6­8›,-®6¯8›,-°ú 6“8›,-±6–8›,-²ÿ › A !6“8@,-ž!6–8@,-³ A€!6“8@,-´!6–8@,-µ$##6‚-¶$ 8‘<@,% 8‘<@,"* ‚!·*6‚-++‚$?‘U,&P:‚$?‘U,,$·'‚ 6@c A0u,!‚ 6‚-‚%·! A1&&6¸- 8‘<@,$G:‚& 8‘<@,,6 6‚-‚%¸; ‚!·6‚-‚&· A@!‚ 6‚-‚%·! A E336ª- 8‘<@,% 8‘<@,$G:‚& 8‘<@,,J&&6œ- 8‘<@,$G:‚& 8‘<@ ,,O$T6¹-¨8@,&¨8›,YO:¹,!º*¹ 6¹-¹%·^O:¹,!º*¹!6¹-¹&·cGG6Ÿ-M:©8›,$©8›,%©8@,$©8@,&@$©8›,$©8@,$E:¹,,h##6»-+©8›,%©8@,%Ÿ,$?Pm((6¼-M:++»$+»&©8›,,,'+©8@,$Ÿ,,,r//6½-@$+6D:¼'M:6¼$¼%@,,%@W,w(¹ (6®-¾$+¨8@,%º&½,$¥|(¹!(6®-¾$+¨8@,%º%½,$¥'®!@$6®-®&@$' A…†'® 6®-®%@$' A‹4¹ 46°-G:¨8@,%º&½,$@#D@%¾$«8›,4¹!46°-G:¨8@,%º%½,$@#D@%¾$«8›,• *** COMPUTE AZ AND EL ***›š 6¿-À&®Ÿ ¿ +6@, 6¿-¿%@$¤¿!@6¿-¿&@$©6¿-Ž$¿$@® 6°-Ž$°³ 6Á-E:,6Â-G:,¸6±-G:°,$Â%E:°,$Á$E:¿,½6Ã-+±'M:6±$±%@,, 6±-D:Ã,Ç6²-+G:°,&Â$G:±,,'+Á$E:±,,Ì6Ä-+²'M:6²$²%@,,Ñ6²-6D:Ä,%@W`Ö¿!6²-·&²Û 6±-¾$±à 6²-¾$²å$ê*** POSITION SUN ***›ï6Å-¾$+¨8@,%º,$¥ô'Å!@$6Å-Å&@$' Aù'Å 6Å-Å%@$' Aþ6Æ-G:¨8@,%º,$@#D@ 6Ç-À&ÅÇ 6@6Ç-Ç%@$ Ç!@6Ç-Ç&@$6Ç-Ž$Ç$@ 6Æ-Ž$Æ6ž-G:Æ,$Â%E:Æ,$Á$E:Ç,!6ž-D:ž'M:6ž$ž%@,,&6³-+G:Æ,&Â$G:ž,,'+Á$E:ž,,+%%6³-6D:³'M:6³$³%@,,%@Wc00Ç!6³-·&³5 6ž-¾$ž: 6³-¾$³?$D*** POSITION MOON ***›I!!6È-A‡%A`$¶'@'2€N 6€-È AS 6È-€X6É-?$¶%AUt3] 6€-É Ab 6É-€g 6É-È&Él6Ê-·$+G:Ž$É,,q 6È-È%Êv 6Ë-È{ 6Ì-È$¥€'Ì!@$6Ì-Ì&@$' A@…'Ì 6Ì-Ì%@$' AEŠ6±-Axi&¶$?)T 6±-Ë&±” 6€-± A™ 6±-€ž6Í-@3$G:±$Ž,£6Î-Í%@#D$G:Ë$Ž,¨ 6Ï-À&Ì­Ï 6@6Ï-Ï%@$²Ï!@6Ï-Ï&@$·Ï!@)Ï 6@$¼6¿-Ž$Ï$@Á 6Î-Ž$ÎÆ6´-G:Î,$Â%E:Î,$Á$E:¿,Ë6´-D:´'M:6´$´%@,,Ð6µ-+G:Î,&Â$G:´,,'+Á$E:´,,Õ%%6µ-6D:µ'M:6µ$µ%@,,%@Wc0Ú¿!6µ-·&µß 6µ-¾$µä 6´-¾$´é´!@…)´ @$î 6Ð-µó6Ñ-Å%@&Ë$¥øÑ!@$6Ñ-Ñ&@$ýÑ!@6Ñ-Ñ&@$3Ñ6@*Ñ@36™7@<@,. A• )Ñ 6@)6™7@<@,.((Ñ!@(6™7@<@,.)$)Ñ 6@)6™7@<@,.) (Ñ!@(6™7@<@,.(%$*6€-+€$&P:€$,,$A`$4$è0†"6§-F:AY,0AYí))6Ò-Ae$%ˆ%++Š&@,$@1,òŠ@A%÷LL6Ò-Ò%P:+&@,$?%,&P:+?u,$P:+&@,'A,%@,ü A5++6Ò-Ò&P:Š$?@%@0,%P:$?%,++6Ò-Ò&P:+?u,$P:$?,%@, 6Ó-Ò&Br(•1980 BASE›6¶-Ò&BqXu1960 "›556À-?W$Ó%@G%+++£%‹,'@$,$?W,%‹À @$AeÀ!A@6À-À&A@$6À-À&@$ AP)À!6@$A€.À 6A@6À-À%A@36À-À%@$ Ae8À!A=6À-À%@$B ACALCULATE›G†"AY§L4(>:A%,"-4AR@Qkk( PLANÁÔÁÒÉUM- P:%?P,/P:Š%?P,/P:ˆ%?P, AT +P:‹$A,,$? LMTVU:(+P:À$A,,$? LST Œ LAT. ¢ LONG.L-@6@U(DEG[( ` A4 SKYCOLOR›e3›-@@ @3-@7›%@j(A&›$@o ›t-@@ y''šAPApAA~( ƒ++(#              ˆ,,(#N NE E SE S A%’( —++(#       œ,,(#S SW W NW N¡ A%¦ ( «++(#          °++(#E SE S SW Wµ A%º ( ¿++(#             Ä++(#W NW N NE EÉ*** PRINT PLANETS ***›Î#‘-@@#6’8‘,-“8‘,Ó''’8‘, @)’8‘,!@…AØ%š"@6Ô8‘,-–8‘,% AuÝ-š"@#6Ô8‘,-–8‘,&A€- Auâ-š"@#6Ô8‘,-–8‘,&@- Auç11š"@*–8‘,!Ap*–8‘, A`Aeì11š"@*–8‘,!*–8‘, @Apñ!6Ô8‘,-–8‘,&Ap! Auö6Ô8‘,-–8‘,%@û''Ô8‘, )Ô8‘,!A€A 6”-’8‘,6•-Ô8‘,&&6—-@!&P:+”$?!,%?P, 6˜-P:+•$?!,%?P, -˜—(™7‘<‘, ‘-@6@"(K†K( ÃÙÃÌÉÎÇ ?$P:+ƒ%?,$@,‰  =Quit  Ù $#Õ"@A0(&Õ"@(>:AS,& A0- A2ESOUNDS›2$6‡-F:Ad,$AdAU7†A1 * CYCLING›<.@.@@K:A†A1F$)@„$„"AUAK!!„"@C)„"@EA1M„"@€ A`P!!„!@h*„ @ˆApU APZ%„"@i6š-@% A_%„"@‡6š-@% Ad%„"@ƒ6š-@% Ai%„"@x6š-@% An As›-@A ›x06†-6„-%+0@}##@@K:‚,( ( (,( Another Horizon? Y/N ‡$)@¡$¡@‰AeŒJ( (*(  Å   ×   Ó   Î -(J( CHOOSE A LETTER‘m( (2($(YOU CAN CHANGE HORIZONS USING THESEZ(# LETTERS WHILE VIEWING THE DISPLAY)](m( –2)@¡¡"@i(6š-@2 A`›%¡"@‡6š-@% A` %¡"@ƒ6š-@% A`¥%¡"@x6š-@% A`ª¡"@'A´"@ B" A¹,( (,( Same Date, New Time? Y/N¾$)@¡$¡@‰A•Ã(( Last LMT: ‹È- A€)( Enter new LMT: -‹Í"( ("( ...CALCULATING...Ò: B@,¦-@P0 ¦: A×%( (%( Another Date? Y/NÜ$)@¡$¡@‰Aá@ A#Eæ'( ('( Another Place? Y/N ë$)@¡$¡@‰A%ð@ A"Põ+( (+( Cycle Time or Lat.? Y/Nú$)@¡$¡@‰AuÿV(>:A%,"-@@2( - CYCLES - D-@@VAR@n)(!During Display, hit + or - key,(R(! Then H D M Y or L to alterU(n( Èour, Äay, Íonth,  F( Ùear Or  Ìatitude(F($ The display will change +/- 1 Hour//(&[Day/Month/Year or degree of Latitude]Q*("each time. To increase or decreaseQ("the step changes use > OR < keysM($( Hit to Quit.'(M(! CommandS take effect one cyclejj(bafter you hear a (usually delayed) cycle key signal. Only one change is accepted per cycle."%)@¡@% A',( (,( List 'planet' data? Y/N ,D)@¡¡"@‰D(# (S)CREEN OR (P)RINTER?-&)@¡¡"@€& AP1( A2)@¡(HOLD SCREEN›6%(!( Another Go? Y/N %¤;¤4YACLOSE #1›@(>:A%,EG( (&( Change sound? Y/N 3)@¡G¡@‰A%JK( (*( (1)Original (2)Beep (3)None-(G( Pick a Number: KÕO,Õ @)Õ!@"(, AT AYG( (&(  QUIT TO ÍÅÎÕ? Y/N3)@¡G¡@‰A^W( (W(I HOKAY!.....Now, there's a great big wide sky to observe outside.c''( Go out and see for yourself!hBAR@(5( Have Fun..... B)@¡m% D:AUTORUN.BASÆ*** INTRODUCTION ***›M@(>:A%,R9-@@ 9(PLEASE WAIT......LOADING ARRAYSW A0\(6-@D06¢-@x0(6£-5@a 6Œ-6-Ž$-@(>:A%,-AR@Ê@+Ï=-@@=(#Position and time zone are set for:ÔA( ($(  Latitude: Œ'(A(  Longitude: ¢Ù ( (  Time Zone: £Þ(( That's (ã'( ('( Any Changes? (Y/N) èD#@@K:0)@¡D¡"@'A!uí¡@‰A#EòHAR'-@@H( ÷j A"…6($ Enter Latitude: (Deg.xx) X( [ + for N or - for S ] \b6Œ-j6-Ž$üL('( Enter Longitude: (Deg.xx)H( [ + for W or - for E ]L¢þdŒ!@)Œ 6@(B( INVALID LATITUDE...TRY AGAIN!V›-AZ ›d A"P d¢!A€)¢ 6A€(B( INVALID LONGITUDE...TRY AGAIN!V›-AZ ›d A"P !!6£-P:+O:¢,'@,%?P, ¢ 6£-6£ 1(1( That's standard Time Zone £ -OK? p(p(d If you are on Daylight Saving time or in a non-standard time zone then use óïìáò standard times ( in entries. +(+( Enter Location Name: (optional) 4 ( 446. $ ,(( OK ? (Y/N)¤,¤4NA"P) %@ B%(>:A%,. FAR@'-@@F( Date & time are set for:3 >( (  Year.... : #(>(  Month.... : Š8 !(!(  Day...... : ˆ= ( (  Time (LMT):‹B %(%( Any Changes? (Y/N) G e-@@ (?("  Please use hours and hundreths:e(! 11.5 for 11:30 or 1.25 for 1:15L D#@@K:0)@¡D¡"@IA#•Q ¡"@'A"PV ¡@‰A$P[ @ A$` '-@'ARe . A$.( j ( Enter Year: o (( Enter Month:  Št (( Enter Day :  ˆy (( Enter Time: ‹~ L(( OK? Y/N ?@@K:L)@¡ƒ ¡"@xA#E %@ B%(>:A%,’ -(>:A%,@-AR@— 9-@@6( Select a horizon (Initial)9(œ &(&(  ÅAST 0 TO 180 ¡ &(&(  ×EST 180 TO 360 ¦ &(&(  ÓOUTH 90 TO 270 « &(&(  ÎORTH 270 TO 90 ° a( ( ( LETTER?@@@K:M)@¡a¡"@'A#Eµ %¡"@i6š-@% A%º %¡"@‡6š-@% A%¿ %¡"@ƒ6š-@% A%Ä %¡"@x6š-@% A%É A$PÎ (-@@%@$š(( -->Ó +-@@+(CHOICE OK? (Y/N)Ø $)@¡$¡"@xA$PÝ @(>:A%,â '-@@'AR@ç 2,($ Excuse me while I calculate......./(2(ì *(*( Please wait 6 sec.for displayñ ,( ( (,( *=* *=* *=* *=* *=*ó S( (0("  ×ÈÅΠÐÌÁÎÅÔ ÓÃÒÅÅΠÉÓ ÖÉÓÉÂÌÅ S(  ÐÒÅÓÓ ¼Ð¾ ÔÏ ÐÒÉÎÔ ÉÔ® ö ¦-@A% ¦û 6†-( A¸ **** PLANETARY DATA ****›½ #A0% ›-@@ Ç &‘-@@ "Ÿ&6 8›<‘,-ŸÌ  ‘ ›Ñ OO0.071425,3.8494,0.388301,1.34041,0.3871,0.07974,2.73514,0.122173,0.836013›Ö OO0.027962,3.02812,0.013195,2.28638,0.7233,0.00506,3.85017,0.059341,1.33168›Û AA0.017202,1.74022,0.032044,1.78547,1.0,0.017,3.33926,0.0,0.0›à PP0.009146,4.51234,0.175301,5.85209,1.5237,0.141704,1.04656,0.03142,0.858702›å NN0.001451,4.53364,0.090478,0.23911,5.2028,0.24934,1.76188,0.01972,1.74533›ê PP0.000584,4.89884,0.105558,1.61094,9.5385,0.534156,3.1257,0.043633,1.977458›ï OO0.000205,2.46615,0.088593,2.96706,19.182,0.901554,4.49084,0.01396,1.28805›ô OO0.000104,3.78556,0.016965,0.773181,30.06,0.27054,2.33498,0.031416,2.29162›ù KK0.000069,3.16948,0.471239,3.91303,39.44,9.86,5.23144,0.300197,1.91812›þ $ *‚ 6B0 6‚-+‚%B(1… ,* A0u *‚ 6Ac 6‚-+‚%AbƒR,* A0€ *‚ 6A0 6‚-+‚%A(1… ,* A0… $ *** CYCLE DISPLAY ***› (6ƒ-@„"@E(6ƒ-6@! A3& ")@„6…-„"6†-@+ A3, :-@@#:( OK...CYCLING..PATIENCE,PLEASE!0 #‡!@*‡ @V# A35 '‡"@U6ƒ-ƒ$@' A1P: 3‡"@T6ƒ-ƒ'@)ƒ @3 A@? "‡"@6ƒ-O:ƒ," A1PD (‡"@6ƒ-6@$ƒ( A1PI ‡"@ A•N -…"@r6‹-‹%ƒ#6‰. HOUR- A1uS ,…"@h6ˆ-ˆ%ƒ"6‰. DAY, A1€X .…"@w6Š-Š%ƒ$6‰. MONTH. A1…] ,…"@‰6-%ƒ"6‰.YEAR, A1b 8…"@v6Œ-Œ%ƒ!6-%Ž$ƒ16‰. DEG.LAT.86.d UŒ!@€)Œ 6@€,-@%@#=( LAT.TOO HIGHK(>:AS,U A•f …"@vA1g 5‹!@$6‹-‹&@$+6ˆ-ˆ%@5 A1ui 5‹6‹-@$%‹+6ˆ-ˆ&@5 A1wl 5ˆ!@06ˆ-ˆ&@0+6Š-Š%@5 A1€n 5ˆ @6ˆ-@0%ˆ+6Š-Š&@5 A1‚q 5Š!@6Š-Š&@+6-%@5 A1…r 5Š @6Š-@%Š+6-&@5 A1†v &6‹-?$P:‹$A,& A{ &6‹-?$P:‹$A,& A€ ""***PRINT PLANET POSITIONS***›… ?(>:A%,((?($'PLANET' AZIMUTH ELEVATION (Deg.)Š #‘-@@#6’8‘,-“8‘,  6”-’8‘,6•-–8‘,” 6—-+P:”$A,,$?™ 6˜-?$+P:•$A,,ž !(!( ™7‘<‘, ˜—£  ‘¨ $­ *** CHIMES *** FOR HZ›² ''šA3%A2A2UA3`· ›-@6?¼ ‘-6@$›@$›Á A"2@–@O:‘,A2@@@O:‘,Æ  ‘ ›Ë 7„-@32„7 „Ð $Õ *** 'MUSIC' *** FOR HZ›Ú ›-@@"@ß ‘-@@ä œ-@@6@é ##2@›%‘@œ&@î  œ ‘ ›ó (%2@($ø ""*** ANTIMUSIC *** FOR HZ›ý ›-A@6@P ‘-@@ œ-@6@ 2@›%‘@œ  œ ‘ › (%2@($ ""** ANTICHIMES *** FOR HZ› ›-@6?% ‘-6@$›@$›* A"2@@`@O:‘,A2A!@O:‘,/  ‘ ›4 7„-@32„7 „9 $> *** WHEEEP! ***›C ›-A @6@H 2@›@@M  ›R %%2@W $\ !!*** DAY/NIGHT SKY COLOR ***›f &0@@@&'TEXT'›k 6-@%P:ž$? ,p  @A4Uu !@A4…z ??A4UA4`A4eA4pA4uA4€A4… A0@@70@@A A4„ A0@@@70@@@A A4‰ A0@@@70@@@A A4Ž A0@@ @70@@ @A A4“ A0@@@70@@@A A4˜ A0@@@70@@@A A4 A0@@@70@@@A A4¢ $ !!*** CYCLE BACKWARDS FIX ***›ª3…"@h6ƒ-ƒ$@$)6…-@r3 A1`´3…"@w6ƒ-ƒ$@0)6…-@h3 A1P¾3…"@‰6ƒ-ƒ$@)6…-@w3 A1€È…"@rA1Pˆ Bs AQs3 PLANATARIUM P:%?P,/P:Š%?P,/P:ˆ%?P, AT +P:‹$A,,$? LMT’::3+P:À$A,,$? LST Œ LAT. ¢ LONG.—3 œ""***PRINT PLANET POSITIONS***›¡/3/3$'PLANET' AZIMUTH ELEVATION (Deg.)¦#‘-@@#6’8‘,-“8‘,« 6”-’8‘,6•-–8‘,°6—-+P:”$A,,$?µ6˜-?$+P:•$A,,º!3!3 ™7‘<‘, ˜—¿ ‘À 3 3Ä$ì Aup** PRINT SKY SCREEN **›qHHGR 0 SCREEN DUMP ADAPTED FROM COMPUTE!S 2ND BOOK OF ATARI GRAPHICS›uO6Ù-@/@@S:O@@P:z A%6Ù-% @>:@,„Ú-@#‰½-@@9Ž -½Ú)@Û“Û"@ 6Û-@y˜Û @26Û-@2*@Û ½¢ @ Ú§@@¬-±$€ D:SKYPLOT.TB