`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JOZ PLANETS.DATAFvPLANETS.DATAFDATE.DATAr o DATE.DATAr oDATE.DATAr o  DIURNAL.CODEvgiBRIGHTSTAR.DATAbX HORZONT.CODEvgiCONSTELLAT.DATAN MAIN.CODEr=vgXI.TEXTr=vgSYSTEM.STARTUPgY DATE.DATAr o    GEOGRAPH.DATA\ HALLEY.DATA ALMANAC * SYSTEM.APPLEvg*S SYSTEM.PASCALvgiSTSYSTEM.MISCINFOETSYSTEM.LIBRARYgb SETDATE.CODEvg GEOLOC.CODEvg SUNALM.CODEvg MOONALM.CODEvgPLANETALM.CODEge name(צno roOZ PLANETS.DATAFvPLANETS.DATAFDATE.DATAr o DATE.DATAr oDATE.DATAr o  DIURNAL.CODEvgiBRIGHTSTAR.DATAbX HORZONT.CODEvgiCONSTELLAT.DATAN MAIN.CODEr=vgXI.TEXTr=vgSYSTEM.STARTUPgY DATE.DATAr o    GEOGRAPH.DATA\ HALLEY.DATA ALMANAC * SYSTEM.APPLEvg*S SYSTEM.PASCALvgiSTSYSTEM.MISCINFOETSYSTEM.LIBRARYgb SETDATE.CODEvg GEOLOC.CODEvg SUNALM.CODEvg MOONALM.CODEvgPLANETALM.CODEg&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&` - 9HL r 9 MȽ`H 9٠L rH $h`   -y6=CLjO808 0PLڥ8 0 ۥ``) ` )? Lvۢ 8` GڅFڅl```LۥH ۠' `H 9٠ hlQ`) թ` 9 Ȣ`JJJJ ϱ` r,p 0*P$ ۤ b ۢ`H - 9٠L r׊H 9h ɢ`) 2 r׭0` r׹)` ( `) ' r׹J)?L I@L3؊  L3؎,QLxת,c*A[ Lע0H)@hILө Ъhhh(`N`hhhhhhHH)> ` Yܠ0* )` r׮ ؎`(54#ƊgƈЪ 6`י ֙QRTW = Э*0 LqŐ`8Hh`HHH*@^]U)j7 [ )L3~ lJf)jjAUIL3ة0 $ڐ> L׈ ϐ8 (ֹH 7֥ +ֹP 7 7)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `\xDŽ XׅІ X?;78H<8H  8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83Iߐi ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴LјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύ߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮߝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  7ֈ k( F G  Xj0 Ю $Ӱ8 xH ߩ`Ǚx kh kL~ѩ@(LYLWҭH͍h (ͥpi)ͥˤ˹HH(x rh(`~Ȍ``hhh )hJ¥jJJhhihhhJi֍hhha [U8ſƅh)x h H('eƍ8ƅи ĘHH`ߠ ߮ È jh`@ fנ f׭0`L` CLL۠LۥHH j ڥhhLۦ vې` ۤOȄ`H$)A[hIH80(hI`i(L8(hI`LۥJ) )i i`¥ĥ`HH8(iPH ۠'(hH'O'OhhmhLۭJL80%`M8$LLLhhhhhhhhץHH` ܩȑآL ܥ8ؘ ܩ؈ȩؠ#hthuhhhhe|f}f~f` yexe~we}ve| z z` 8y~x}w|v ` z`u{"$v|w}x~ yz8`u{u{v|v|w}w}x~x~t`t )z )uz WLMҥ{t WLMҥtEzt ꢀ WLM rꅀ 9L;8\潪]L!\Z][JHjHL;hhhhh*68jh*vlhhjH*vjHHHlffff恩ŁhhL`0&&&&0ƁƁhhL`&悥F8`u8{I{FvfwfxfyyyFwv xvиtȱutХLSҠ UL;ҥXiXYLhthuhvhwtvȑtvL;ҥhe^hie_ije^jke_k_ik ʱhjL{^LhjL;h^h_ hhhhhhhhL;hjhkhejjhekkhhhihehhheiiXЀ_ʱhjkiL^Lhjhe||he}}hhhhh^eh_e^Ii^Ii_|ň.LM祊'|}0 |}L<|8|}L<|8優}HHL;hxhhhTL֥T8tUut8tXȥutYxT VLSҥRSLȱvȱwvLѥv8vwv8v` ^\_]`hh L;hh L;ҠX rLq ?L;hxhyhthuhvhw07ȱxv0vȱv,vwLR vȱvvwLRHHLHHLHHvtȥwtL;hhh^h_hhhhL;hjhkhejjhekk_ ʑjkL^LjL;hhh|h}\] z8Ƒ |5|8|}8\|ȥ]|8|ƍ8 ƍLoPQ |l|8|}8||ȥ}||8|}| iiL奌 㥎 㥊 㭭хх 㥐8ƑzLo` 8et|8|}Ƅ`t et HHH> o>HBtCu\8t\]u]\Z][ 8\Z][Lѥ]H\HuHtHAH@H > ޽Р SYSTEM.PASCAL Insert boot disk with SYSTEM.PASCAL on it, then press RESET#usthL'hح/0 !"opqr)VV#$6| š oɡa   áá0Oš *š  4TzY 000á'4á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń0ˡ +á! "ˡ  +Uz    00áQP 0á0 é000+-Í-ë0 á1 š5    šš$ !邚邫镫ë퓡h  ! "ˡ ɡ!  ! "ˡf á3 á,  )á á ávˡ á cń# Ȅ ꚹ6áÄ7  .*š  šš!ꂚꂫꕫëS  ! "ˡ! "ˡ ë  qT8T "ˡU  Íáɡ 럚肚X  šš  ġƁ\Ƃ6&06ˡ6áց\8 ˡ :9 "&8(2ȡ2'*2 ?2 1TU-bi ( 6!0 צ Press RESETBBBBBBN 8>4 v$PASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD FILEPROC 0LސLh)thh)htLީ lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHLMhHHLMҩ%lHHLMhhh |~hve| z~~8|eztl8冨Lߤ 0 8`hh ߦt~LL'   UF_f^L#ޠ UhvhwhthuXY^LOޱtvtuvw_LްLL~hvhwv~`ޅvaޅwhthutbޅtcޅutvv ȱtvtv %l HHL;ҩHHL;ҢhtExx0tEtttx u|f}jtz) wzf{jv8vtw݅x݅yyHxHxyyHxHxu9݅xy9݅yyHxHxyt yHxHHviHLMҩHHLMҩHHL?? lXLLd쾿  .Tá " * ȡ*ńȄ4šáRתPńȄ ,ń.áš蕿@šQȡ2 š:X f Ą ɡ  RR.\OSˡ2Error writing exec file-O QSSl/E9Eá"0צS#  צ, P#  צ, I# Qš/[áZ[á-Z`,TT\3# Z[, Z[, ,/S/U\P6W\-SS\OSˡ2Error reading exec file-,QS OiȡF ōɍ ō ȍ  dč "쓡ë 쓡ת!!9 D*驁&F+OQ迶QQQŶSOQ / & ,Í ˫hp(&:0:azȄaA:)~áë  ÄÄȄĄMȄtˡ 3Rˡ 3=˄+&ȡ 3& |&$&!F:F FˡFFD' Type צ to continue) <! ȡ   צ0H" ġ  *@#3$$&ˡ 3 36%ꢫ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTO3 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á4w4]ץĄ쓡"á  :"ë á 쓡ת$ (   d˯7 H Pצצ22ȡ523 ,ȫ$* "ë넡, ~ *Í2~ š˄ `1 b~ éÍ~  , %ɡšɡš  PꟚšw#ńE z 0 ń Ȅ! ~Í`~W ˡ! !~q|3?Bp  v\EL "$&(*,.02468:<>@BDFHJLNPRBx-~}cy*צ LEXTOKEN IS: 02"KKKK@LLNOOTQ<< xH$V ,  9   &*$á09ō>##$ á> á>>á>낫š ꓡ5š땫Ě@6"á1ꓡ삫Ú š K6"á61 ɚ V @VBBChCfDEE>FFFhGGXHHH"JbJJآ   1צ Exec err #   á,أ J2ˡ.$  š t@3  ,á"áIllegal file nameצNo file ́3́4ʁ4́5ʁ5ˡ  not codeʁ41ʁ5"ˡ Bad block #01Ɓ1aݡ9צ Linking...ݢ`ڤá Zxȡ2ݤˡ"ޢ`ݤۼ: TڪƁ Ɓ "á9̂.ʁ ʁ"ˡ  Ɓ Ɓ Vj ުPڶڳ@@YyÍ, 4ۢڤ ɡ$ڪP-19:!1ׯ)Illegal filenamenTޢ ȡSڤ ˡ@۳-ܢ0ۤ צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initialized 6:rNP  צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.1צCurrent date is C -C-C 99ȡצ"(C) Apple Computer Inc. 1979, 1980צ(C) U.C. Regents 1979%System re-initialized???תY6!  ת&צP%[VTUWX%Y7888% š tWelcome ?, to Apple II Pascal 1.1Based on UCSD Pascal II.18 6øYצ???JanתצFebMarתצAprMayתצJunJulתצAug Sepת צOct Novת צDec ???תצ?????? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,  7 :9CONSOLE:ת(:9YצSYSTERM:(8:99988:9  6 ۪1٦׷)צ: ܢܢH d    Y0&תת.ת Ɓf(ߡʁ% ʁbʁ%́bʁ%́%Y;??ٟá'C צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUTz>77:: צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ%ڤ  R   88( áצ Assemblingצ Compiling...á999':::::&:(áצAssembleצCompile what text? ( ׯ&,á (+(צ.TEXT888Ä8 "ˡ$צ Can't find ::9 ƀצ:9 ƀ:SYSTEM.SWAPDISK&ġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣš ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU7AX0NNP3 "jC(,. C fpP @$ j4 6L $.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3쓡 Xצ Linking...  ˡ&צ Restarting...צ U not allowedxRpUT-Há6OKTU 6   ˡFצJCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [1.1]P')%?áSF=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execתP')%W 6!W,z3SȡU/U[,-Z N:98:9á.Y(Y*SYSTEM.ATTACH   áá'*SYSTEM.STARTUP % áá :(šR.%+(]ˡ([8]+(\"á%[צ Terminator=[צ , change it?)צNew terminator:[UO צ: ) Running...ء ء   Swapping is VonoffצToggle swapping? VVzNew exec name+00.0.0ȡ#+.//a/zȄ +./ ..+EXEC/ׯjUTVP+\"á(TS.OQ[QQP+  Hm% á.צNested exec commands illegal"צError opening execd Z6PO6 "ء PKצExecuteצ what fileצ? Pš7`  7 š+ š%SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CODEFš5.CODEׯ.:(7,*SYSTEM.WRK.CODE[*]תצTo what codefile? ( צO,á<צ$88š8(8X+,,"ˡ  Can't open ,   áث á ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ Pת   ١  n ١ á9 ٓ/! !!١ˡY   9    ' sU7z ;|hvhwhhxylxMz|vwlvl llhzh{hƁhh-۲z0ݡߑ ع      y  &  * عteVG8  )  T uh[NA4'á +-ÍNTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L E M.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codefil $ "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:IG BBBBBBBBB'"G-Graphic Utility Addition Feb 1985 Stu Chapman  @v&b 1:5P;B$PR\LONGINTIPASCALIOCHAINSTUTRANSCENSCREENHEERRORHANASTROCALTIMEFORMTRIG ORBITALELUNARTERTURTLEGRTURTLEGRAPPLESTU  !-48?N[ (not saved) No workfileS%  O ?(&Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SYš š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅ!!P!x!P %',@@JBGD> Z`<@X áޢá ~תޢޢޢ024<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!!Ȅۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ024<& צ ) ! 767䚹 :V@28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ ÄݓۃhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,L5IL,h h'(ʈ D.ł( Ł|} ŀ}|ƀL;~HHL,~HH~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL\ ~~8ʈƅ  ILlL, Dɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂBEGIN RECNUM := RECNUM-1; .BYTE := BYTE+FRECSIZE; .WHILE BYTE > FBLKSIZE DO ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); IZE < FBLKSIZE THEN ,BEGIN N := FBLKSIZE DIV FRECSIZE; .WHILE RECNUM-N >= 0 DO 0BEGIN RECNUM := RECNUM-N; 2BYTE := BYTE+N*FRECSIZE; 2WHILE BYTE > FBLKSIZE DO 4BEGIN BLOCK := BLOCK+1; 6BYTE := BYTE-FBLKSIZE 4END 0END ,END; *WHILE RECNUM > 0 DO ,LOCK,N: INTEGER; "BEGIN SYSCOM^.IORSLT := INOERROR; $IF F.FISOPEN THEN &WITH F,FHEADER DO (BEGIN BLOCK := 0; BYTE := FBLKSIZE; *IF (RECNUM < 0) OR NOT FSOFTBUF OR 2((DFKIND = TEXTFILE) AND (FRECSIZE = 1)) THEN ,GOTO 1; (*NO SEEK ALLOWED*) *IF FRECS ' "PROCEDURE FSEEK(VAR F: FIB; RECNUM: INTEGER); PROCEDURE FREADREAL(VAR F: FIB; VAR X: REAL); "PROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER);   IMPLEMENTATION $ "PROCEDURE FSEEK(*VAR F: FIB; RECNUM: INTEGER*); $LABEL 1; $VAR BYTE,B:L,VSNNNNNNNNNNNYO MIHA<4-('  AH3P|v:n ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,L5hhhhhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆL>ʈƅ ~~擥 ~ 抦|ɥ8包~ƅLlII懩&&u`hh HHHHHL,} ei|ʽ 8襁i}}ʈƍƎƋƊЌإLl2d|e~28ʈƅyʈƅƉ` DL?Ł|}ƅL\E||怦}ʚH恺8倅偪ʈƅ})H揥L\LlL,E0LL DL\ ILlL,ELL DL\Ee8刅刪ʈʈww&~ʈƅFyʈƅ$ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "  IMPLEMENTATION E :::&:(xáצAssembleצCompile what t--)vPINTEGER vREAL $|CHAR 6BOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE row,column:integer;s:string);  (* position a string at row,column on the crt *)  PROCEDURE CENTER_AT(row:integer;s:string);  (* Centers a string on 80 columns *)   Type crtcommand = (CALL_CLEAR,HOME,CLEAR,ERASEOL,ERASEOS,UP,DOWN, 3LEFT,RIGHT,BEEP ) ; 3 %setofchar=set of char; %  PROCEDURE CRT(cc : crtcommand ) ;  (* do crt command Apple Pascal Version *) PROCEDURE DISPLAY_AT(??2 ?  ??  1?   ?=~@:?^>[' ~ ~>?  ȡ!2? 5? f   '~~5?. ????2 ?  ??  1?   ?=~@:?^>[' ~ ~  ġ+@ነ? ?> ??   '~~5?. ??  ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??tI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*     4? ŽDnP42D<.CODECEND.CODECODEPDISKҎԎ,nr r nrnʤr INT^n6 6 \^^\n6 r <INTP3XTT "FUNCTION SIN(X:REAL):REAL; "FUNCTION COS(X:REAL):REAL; "FUNCTION EXP(X:REAL):REAL; "FUNCTION ATAN(X:REAL):REAL; "FUNCTION LN(X:REAL):REAL; "FUNCTION LOG(X:REAL):REAL; "FUNCTION SQRT(X:REAL):REAL;   IMPLEMENTATION E BBBLNz)ext? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what codتPš++0تPRš&+R+P&P0&Ršز&RPز&PR,VV"6h ssembleצCompile what text? ( ׯ,á(+( "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צ*SYSTEM.WRK.CODE[*]To what cod `TRUE vxNIL MAXINT Xv     READ |REPROCEDURE CALL_SCREENSPACE(row,column,rptfactor:integer);  (* erase a line of text from specified position to position *)  (* row1,col1 to row2,col2 (requires 80 columns *)  PROCEDURE ACCEPT_INTEGER_AT(row,column,limi.ȡ# Oá  *D?š!ȡ ȡ\! pسؼ!ȡ ؼP!@^ Tˡo/11ȡTܛ.á// ܛ0ڂ22ȡ// /á سm;b تPRتP(,,Tá   0á    ** * * Cá:.á @.á  á2 **ȡ   **ȡ   áz,zUzá,á60z0zȡ 000z0zȡ 00 á1,P/1z/zȡ 1/0//š+XyD2  @ ת ááá2>>ȡ.>>ȡ  áˡP 6U jZj P, ,áZ  ,áZ  Z,z$ P     Z( b . ~ צPá.  0á  .  .>>P>Q>P!عl{oc WK ?3' guaWMC9/%       ~ H *)   FUNCTION GETKEY(var ch:char; valid:setofchar; shiftlock:boolean):char ;  (* Get valid key typed at keyboard NO ECHO *)   FUNCTION ASK(Question : string; row,column:integer ;DefaultAns:char)  : boolean ; (* ask yes or no question and return boolean result yes=true; no=false *)   IMPLEMENTATION E ard WITH ECHO and assigns it to *)  (* a variable There is no default char *)   FUNCTION GETKEY(var ch:char; valid:setofchar; shiftlock:boolean):char ;  (* Get valid key typed at keyboard NO ECHO *)   FUNCTION ASK(Question : string; row,column:integer ;DefaultAns:char)   (* comes default value *)  FUNCTION GETCHAR(validset:setofchar):char;  (* Obtains a character from the keyboard WITH ECHO and assigns it to *)  (* a variable There is no default char SIZE blanks (asci 32) *)  PROCEDURE ACCEPT_STRING_AT(row,column,maxlength:integer;var S:string);  (* returns a string value to variable S or if return is pressed S be- *) returns a real value to variable RN or if return is pressed before *)  (* input RN becomes defualt value passed to procedure *)  PROCEDURE FILLSTRING(size:integer;var sourcestring:string);  (* right justifies a string by padding witht:integer;var INT:integer);  (* returns an integer value to variable INT or if return is pressed *)  (* before input INT becomes default value passed to procedure *)  PROCEDURE ACCEPT_REAL_AT(row,column:integer;limit:real;var rn:real);  (*B& VPR á6ɡ'ɡ P QP ٕ3TLݪPצ(Y/N)  @@ 0020 áYá Ná2X  h`n"$@d$?š!ȡ ȡ\! pسؼ!ȡ ؼ$(* Www=day of week Mmm,YYYY=Month and year,hh:mm=hours &mins of UT*) $ $PROCEDURE GET_ZODIAC_CONST (ApparentLong:real; var Zconst: string); $(* returns the constellation of the zodiac in which a body resides *) $(* given apparent longitude ApparentBOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE `TRUE vxNIL MAXINT Xv dd YYYY hh:mm UT *) $(* 123456789012345678901234 *) --)vPINTEGER vREAL $|CHAR 6; VAR CALENDARDATE : STRING) ; $(* From the integral part (J) and the fractional part(F) of the *) $(* Julian day number this procedure returns the calendar date *) $(* as a string with a length of 24 resolved in 3 fields as follows*) $(* Www Mmm $ $ $PROCEDURE GETJD(M:INTEGER; D:REAL; Y,H,N:INTEGER; VAR J,F:REAL) ; $(*This procedure returns the julian day number in two parts-- *) $(*The integral part,J and the fractional(decimal) part,F *) $ $PROCEDURE GET_CALENDAR_DATE(J,F:REALצIllegal block number PIllegal buffer +$d;vN(wN/ j٪P ˄ áצ Can't find צPlease insert *Press to continue, to esc,, áT TצError reading numeric dataצRing buffer overflow Diskette write protected {צIllegal block number PIllegal buffer +$d;vN(wN/ j٪P ˄ áצ Can't find צPlease insert *P file name File already open File has not been opened צError reading numeric dataצRing buffer overflow Diskette write protected {ice went off line צFile not on directory צIllegal file name צNot enough room on diskVolume not on line צFile not found Duplicateצ I/O error #  عצ Bad block צDevice called not on lineIllegal i/o request Hardware error ..* reboot DevALMANACSYSTEM.WRK.CODE6 z|z6 b6 *,,ASTROC:SYSTEM.SWAPDISKALMANAC:ERRORHAND.TEXT*SYSTEM.WRK.CODE[*]ASTROC:SYSTEM.SWAPDISK  PROCEDURE DISPLAY_IO_ERROR(errortype:integer); PROCEDURE WRONG_DISK(diskname:string;diskerror:integer);  IMPLEMENTATION E ֍br r b^br  ALM`b6 6 ^``Pb6 r  B& VPR á6ɡ'ɡ P QP ٕ3TLݪPצ(Y/N)  @@ 0020 áYá Ná2Long *) $(* expects ApparentLong argument to be within the required range of *) $(* zero to 360 degrees *) # $FUNCTION DAY_OF_YEAR( month,day,year : integer ) : integer ; $(* This function returns the day of the year from 1..365 or 356 *) $ $FUNCTION DECIMAL_YEARS(month,day,year:integer) : real ; $(*This function returns the year with decimals in the form Y.yyyy *) $ $FUNCTION LOCAL_SIDEREAL_TIME(month,day,year,hours,minu?? JdT0G@LB} 䊃C>_) >㊐C㊐Ȧ A⊐ l9ThuתP-FriתP!SatתP[QG=3)̀ƀPƀ Qƀƀǡƀצ Ǣƀƀƀ ƀ|ƀ ƀSƀ:ƀ*ƀ U.T.ƀPJ8Y  ?̀ƀ ƀSQƀP*P  ɡ*̀ƀ0ƀ*QƀP?ƀ??ƀƀƀƀƀƀƀ̀ʀTSunתP]MonתPQTueתPEWedתPPƀצMarPƀΦAprתPƀצMayPzƀΦJunתPmƀצJulP`ƀΦAugתPSƀצSepPFƀΦOctתP9ƀצNovP,ƀΦDecתP wlaVK@5* ƀP  ɡ!ƀ̀ƀצ ƀƀQƀP|P SP  ɡSá   o á$ödÍ     á S á    9 á     ;x?'C+GI1M5Q١   á   ƀצJanPƀΦFebת  < 䊖? ܂  d ߏ Ꮒ I㏊C܊ؼؼ?ټ?CC SagתPvCC CapתPNCC AqrתP&CC PscתPP nVšá /. ĄpA GemתPB C CanתP C-C LeoתP-CYC VirתPYCpC LibתPpCwC ScoתPwCC OphתP @C  "$&,: CCCA PscתPAPB AriתPPBB TauתPBB@5yá @!á @Îá @e á @á @!á @á @6vá @ؚbá @2Ná @f:á @.&á @áǸń @}Ǹá @gĽǹá @S\Ǻá @ٽǻá @WǼá @ֽǽá @"mǾá @ǿá @dhá @á @}á @á  *) $ $ $IMPLEMENTATION L E $(*This function returns the local sidereal time in hours and *) $(* decimals in the range of zero to 24 hours *) $ $FUNCTION UNIVERSAL_FROM_SIDEREAL(SiderealTime : real; month,day, )year,hours,minutes : integer; WestLongitude:real ) : real ; $(* This function returns the Universal Time in hours and decimals *) $(* from zero to 24 from a specified sidereal time tes:integer ; >WestLongitude : real ) : real ; $(*This function returns the local sidereal time in hours and *) $(* decimals in the range of zero to 24 hours *) $ XA  @ AފpB<á , ڊڊdd܏  ۂ܏  ۂ jCO  < ?Y =  A  A A A (R   =㊐?Y  A  A^ ߹g޹,  "$&*,@޹"  +- o>A9AA<áP  ɡ̀ƀ0ƀQƀP1P  1̀ƀ0ƀ1QƀPZP  ɡZ̀ƀ ƀZQƀP̀ƀZPƀצ:Qƀ1ǡƀצ:ǢƀƀP ɡ/̀ƀ0ƀ/QƀP̀ƀXPƀצ:Qƀ/ǡƀƀP 8 JAAAA܊pBpB<á+ǡXPJ AAAA܊pB<á ġ PMתP ġ  AMתPá XP /P  ɡX̀ƀ ƀXQƀPAAAA܊pB<áܳA/P P  ɡ/XXצ X/QXP ɡXXצ0XQXPXX/PXצ:QX (* returns decimalhours which may or may not be in the range of *)  (* zero to 24 *)   FUNCTION HOUR_RANGE(Decimalhours : real) : real ;  (* returns hours and decimals in the reqired range of zero to 24 *)   IMPLEMENTATION L E 12345678 *)   FUNCTION DAYLIGHT_SAVINGS_TIME(Month :integer ; Latitude : real; @decimalhours : real ) : real ;  (*adds one hour to time in hours&decimals during the summer months *)  (* returns decimalhours which may or may not be in the range of *)  (* zero to 24 *)   FUNCTION HOUR_RANGE(Decimalhours : real) : real ;  (* returns hours and decimals in the reqired ran (* 12345678 *)   FUNCTION DAYLIGHT_SAVINGS_TIME(Month :integer ; Latitude : real; @decimalhours : real ) : real ;  (*adds one hour to time in hours&decimals during the summer months *) -)vPINTEGER vREAL $|CHAR 6BOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE `TRUE vx(Decimalhours : real ; var Time: Fstring ) ;  (*Returns a time in hours and decimals into a string of length 8 with *)  (*the time formatted into hours,minutes,and seconds as: hh:mm:ss *) -E CALL_CIVIL_TIME(DecimalHours : real; Var CivilTime : string);  (*Returns decimal hours to Civil Time in A.M. or P.M. as a string *)  (* of length 7 hh:mm XM Hours range from zero to 12 minutes 0-59 *)   PROCEDURE CALL_HRS_MINS_and_SECONDS   PROCEDURE CALL_UNIVERSAL_TIME(DecimalHours : real; var Universaltime : ?string ) ;  (* returns decimal hours as a string with a length of 5 hh:mm *)  (* hours range from zero to 24, minutes 0 to 59 12345 *)   PROCEDUR A A (S `hd Vz` , ڊڊdd܏  ۂ܏  ۂ jCO Ar$ ƀ0ƀQƀP1P  1̀ƀ0ƀ1QƀPZP  ɡZ̀ƀ ƀZQƀP̀ƀZPƀצ:Qƀ1ǡƀצ:ǢƀƀP  USES TRANSCEND;  (* Apple Implementation of trancendental functions *)  FUNCTION R(degrees:real):real; FUNCTION SIGN(x:real):integer; FUNCTION D_RANGE(d:real):real; FUNCTION TAN(arg:real):real; FUNCTION ATN(sine,cosine:real):rea2C- H9 ݳ>1ܳR>z 7Ő۳@ a:7 ڳA >yI7S ٳ
I@%x<5CSC)CCCCl rl* DI@@I@'d? I@T?>I@%x<5CSC)CCQÄI@I@ DI@@I@'d? I@T?B?ÄÄI@Ä I@ÄI@|ÄI@I@bad argument in unit trigצin FUNCTION TAN צcalled from your program%l; FUNCTION ARCSIN(sine:real):real; FUNCTION ARCCOS(cosine:real):real; implementation E ,,ASTROC:SYSTEM.SWAPDISK ̅(צ ALMANAC:TRIG.TEXT- %̅,ړצLis*SYSTEM.WRK.CODE[*] ASTROC:SYSTEM.SWAPDISK. ݳ9?I,ܳ; Q8۳Y@@1 :۳57 ڳYBj ?:0 ٳB. f?\+8j سTCm dG͕:8 ޳79߳A)\C` Ff9 ݳ?>ܳ= 8 𐃽۳? 0:|Z7 ڳCE ?  9 ] 67  ٳCBQ% E?_57 6  سCs F=9 ޳6Ž߳A½nC =Eij9    1{<1M<>B 13' 1>>Ll 1=(1p=ial horizontal parallax *)    IMPLEMENTATION E BOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE `TRUE vx (* E = periodic corrective term *)  (* LAMBDA = moon's ecliptical longitude *)  (* BETA = moon's ecliptical latitude *)  (* PI = moon,s equator-)vPINTEGER vREAL $|CHAR 6BOOLEAN BSTRING ,TEXT INTERACTLINPUT xOUTPUT fbKEYBOARDFALSE `TRUE vx* F = moon's mean distance from it's ascending node *)  (* omega = longitude of the moon's ascending node *) -1900 Jan 0.5 DT *)  (* MI = moon's mean anomaly *)  (* M = sun's mean anomaly *)  (* D = moon's mean elongation *)  (   USES TRANSCEND ;  (* Apple Implementation System.Library *)   PROCEDURE ADD_PERIODIC_LUNAR_TERMS(T,MI,M,D,F,Omega : real ; Var lambda, Dbeta,pi : real ) ; D  (* T = time in Julian Centuries from the epoch ,:&tC2 C9ͬ 6S  ݳAܳ==5 7~۳E?3 #: ׳'8 ڳB$ |?[: ٳBH >jQ:j ڼټ޳8߳BB~ [C9K ݳAfܳ<'h 6S۳?4 z:7 ڳC >(9f 67  ٳCp ?穳9o 6  ڼټ޳80b߳xB̽߳%CtC2 C9ͬ 6S  ݳAܳ==5 7~۳E?3 #: ׳'8 ڳB$ |?[: ٳBH >jQ:j ڼټ޳8߳B೅C>H DR9 6S  ݳA>ܳd= 9Ug۳@n ;Xs{7 ڳCf' ?:Q 7  ٳB _?90b 6  س/CYw D: ޳69s57  ݳ@a{ܳE= +9j۳? ;67 ڳC ?`t8: 6  ٳB ? Y9 7  سaC T =E=:D ޳Q9߳DCq<  1;C 1;% 1; א 1;y  1; 1};$1p;0 10;  1*;Q 1;6  1; 9; `:L  : 9O=  9Ő   9f@33<8RI,ȡ't,?R s?bT=? <' <9t*,93  t+,9n t,,9_ Z9vQ<Ct$,9) t%,9Ʋ t&,9? t',9i  t(,9 t),t,L: t,/: t ,:t!,: t",:  t#,9 t,:  t,:| ht,:eSt,:4 t,: t,Z:] t,: t,:R t,:B`t,:uȐ  t,:qt,:  t ,s;>ː t,9  t,; t,;dʐ  t,:  t,< t,< t , t,>- t,1>Met,b= t,== t,=Dk:- /1 : 01: 119 l1ȡ'1B^t,  *1;:  +18:  ,15:q  -1:Ð .1$1:R%1:h  &1:k} '1i:ղ (1T:J  )1;O]1;c  1 ;C  !1;? "1;J #199  9{i   O98  59Ug  /9 8Ȳ 8 8() 8I 8ͬ 8:U 8   4ZI? 5ZTL?Xs 6ZUO? 7Z)Q? 8ZNT?; 9Z)V?% :ZEY? ;Z[?Lo <Z(]?г =ZP_? >Z(b? ?ZLd?  @ZTf?] AZUh?D? 'ZO!? (ZC$? )Z '?| *Z)+?+L +ZR.?l ,ZR1?ս -ZA5?D .Z8?& /Z;?: 0Z>?> 1ZA?4 2Z.D?v 3Z.F? ZG>? ZT>ca Z >*r Z;>aq ZL>^ ZN>9 Z ? ZO?ٽ Z ?ƨ !Z; ?vm "ZB?F' #ZR?ս $ZP?y %ZX? &Z ZN1>н Z)C>oc ZET> Zf>Y Z(w>g ZP>탽 Z(>K  ZL>ȱ ZT>z7 ZU>ٰ ZO>? Z(>| ZC>}̽ ZE> 6تP+,+,ȡ+++V 0 Z Zʎ^ Z) ><0l   ڪP."ˡ[̄$ʄ$N.ʄ$M ń.ʄ$M  ʄ$̄$.ʄ$M .ʄ$M Y@ ) Sǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?r2 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ; $PROCEDURE CHARTYPE(MODE: INTEGER); $ "IMPLEMENTATION E $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION TURTLEY: INTEGER; $FUNCTION TURTLEANG: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $PROCEDURE WCHAR(CH: CHAR); $PROCEDURE WSTRING(S: STRING) MOVETO(X,Y: INTEGER); $PROCEDURE PENCOLOR(PENMODE: SCREENCOLOR); $PROCEDURE TEXTMODE; $PROCEDURE GRAFMODE; $PROCEDURE FILLSCREEN(FILLCOLOR: SCREENCOLOR); $PROCEDURE VIEWPORT(LEFT,RIGHT,BOTTOM,TOP: INTEGER); $FUNCTION TURTLEX: INTEGER; $FUNCTION T $TYPE $ SCREENCOLOR=(none,white,black,reverse,radar, 3black1,green,violet,white1,black2,orange,blue,white2); $ $PROCEDURE INITTURTLE; $PROCEDURE TURN(ANGLE: INTEGER); $PROCEDURE TURNTO(ANGLE: INTEGER); $PROCEDURE MOVE(DIST: INTEGER); $PROCEDURE*nzR  8̐   8{i 7  7E7E  7*ΐ 7  70b  ȡ(ζ> >  +8j 8̐   8{i 7  7E7E   BZOi?޽ CZ(k?7 DZCm?[ EZEn? FZGp? GZTr?  HZ s?yx IZ;t?hн JZLv?D KZNw?F LZ x?Re MZOy?Pp NZ z?g OZ;{?K PZB|?a QZR|?ٽ RZP}?4 SZX~? TZD~? UZO? VZC?[` WZ ?& XZ)?ؽ YZR?  ZZR?2 ZZá.ٹ# $ $FUNCTION PADDLE(SELECT: INTEGER): INTEGER; $FUNCTION BUTTON(SELECT: INTEGER): BOOLEAN; $PROCEDURE TTLOUT(SELECT: INTEGER; DATA: BOOLEAN); $FUNCTION KEYPRESS: BOOLEAN; $FUNCTION RANDOM: INTEGER; $PROCEDURE RANDOMIZE; $PROCEDURE NOTE(PITCH,DURATIH v-DRIVE $-P-v$-FNAM D.SETSINE1`--SETSINE2SETDEFAU-SETPORT -P -2(MAKEPOOF=2. F | R T DL X,j X & Z,DX p,vp,DY vBKGND PEEKSTRO,ADDRESS ,vDIRSRCe*e+)*)fjfjfj+*fjfjfj8 8) )` (J(F ((Lee Lw  )Lb I1Lb )QLb        xhXhhhhhhhhHH v # " `' & 8 ! 0"ee8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8heheHHL<  B  ""##8&$iT8&UU !  U"# UT`+%$Y)!p v hhhhhhhhhhH8 )%HHH`5>hhh)hh h h h hhhh &    0&!"   #"  ` ` `SN-(' . hhhhhhHH `  HH8H8  hhhL .+ rhh hehe)`%)8`)    L)ˢ   â LE % %  )  `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @'cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  Iif E J j 8  e e  `(J 8 e  ` Z Z< $ %$PQ $  ߩ $ Li`t^ JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8SETáSYSTEM.CHARSET  @! @4` - G`` 8`*UH)JJh & & f)4#ihh h2ɡhh h.آآآǿآآǿآآD ٚ SYSTEM.CHARؑؑ!ٹا ZZا Zا Zا ZZfا ZZا Z:ا Zا ZZb8 ؂ɡON: INTEGER); $ "IMPLEMENTATION E .CODESKSWAPDISKҎԎ,nr r nrnʤr LIT^n6 6 \^^\n6 r DLITURAS Phhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH! \L HHH`<hhhhhhHHLM0|GEOREAD TTPdÍnnSmnSS*P *TT Today is the T;]Tצ day of the year with sT*T to follow.TP**vjO 5MAIN b7l v|*P& ;P צPRINTER:CONSOLE:'A S T R O N O M I C A L A L M A N A CTTצfor TdTTPdÍnnSmnSS*P *TT Today is the T;]Tצ day of the year with sT*T to follow.TP**vjO 5MAIN;P*thR*P;**;P*rdR*P;**;P*thR*P& ;P צPRINTER:CONSOLE:'A S T R O N O M I C A L A L M A N A CTTצfor Td.Q.P,,?h;*;*P1G á ;**;P*thR*P;**;P*stR*P2G á ;**;P*thR*P;**;P*ndR*Pl3G á ;**Is this data correct ? Y šצ Writing . . . DATE.DATA"١1צProgram terminates    تP(O+O,+O-,-ȡ#..  'Specify Time of Day ? Y ĩġOHours [0-23] Minutes [0-59] <<?dצPrinted Copy Desired ? N éád 1*6*7.8*9*:*;*A*8Ŷ צ ASTRONOMICAL ALMANAC: Date inputצ+Astronomical Calculations for what date ? Month [1-12]   Day [1-31]   Year [YYYY] B\*PEPOCHREA $hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T?@AB ?UB`2<(^`L+L10`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !B A L M A N A C D A T A F O RGeographical Latitude :   , S NGeographical Longitude:    .4C E Wצ#Are you sure eB.pAeB. ኖpB <á  4P  P  ɡ4]]צ ]4Q]P ɡ ]]צ0] Q]P]]4P]צ:Q]?@AeB.pAeB.@0 Fast תP. Zero תP Slow תP*< 67   bpAbpA?Pئ++ ++ ++תPA*צ-- -- --Pצ-- -- --Pj܊<123ۥb R??  ?  AOU,((LRJCity & State [Country] ?  צ"Geographical Latitude [N or S] ? @@  צ Degrees ?  Z Minutes  ;,pBSá ,, צ"Geographical Longitude [E or W] ?    צ Degrees ?  Ǵ Minutes ?  ;1.111]. צ/ALMANAC: Geographical Location Input File . . .City & State [Country] ?  צ"Geographical Latitude [N or S] ? @@ this data is correct? Y *.pA?0T1צ GEOGRAPH.DATA"١UáHצ1No room on diskette. Please K(runch , then repeat ǡ]P`]]N ]R]PM]] ]R]P-]]S ]R]P 'IkZ C-٥ GŠ9ۥC< G 9RII6S JfG<GCAqrئAquariusתP dؼ LB̳A:ݼt9vQ ܼ:S[ ۼV:+ ڼ;  CGCޥ:@A>@?A@,The moon is new today. It is not observable.??צEThe moon is a waxing crescent tonight. It is visible during the early!evening hALMANAC:DATE.DATA"́9ʁ9ˡOʁ9 áצALMANAC:DATE.DATAʁ9,ʁ9Program aborts ިٳ?ܥ><><ݡPRINTER:CONSOLE:trcontinue.}ƀPƀƀʀ á0̀WProgram aborts ʀXʀX5!SiتP(O,O+,O-+-ȡ#.. .Q.P++=fƁ3.۪PڪPXƁƀ̀ƀ.Pƀ:QƀǡƀP̀̀ʀʀXƀ"WẀʀW á ƀ̀ƀצ Can't find ƀ.[ƀPƀƀ̀ƀPut in ƀ.Wƀ&. Then press the spacebar to B *4A:H@R;o:Cv:DĒ;/:67::8 :  8648886eB.4C>R?`= ?C8AJ:U)<<ƀۼƀżƀƀƀǼټƀ ƀƀAƀ߼ƀƀeB.ƀ̀ʀ | Ǧצ | 9 | |Pɡ! #צ +J-----------------------------------------------------------------------XPXX/PXצ:QXǡXPJ  `N RPM RP-S RP 'Ikצ Q|RǢצ continue.}ƀPƀƀʀ á0̀WProgram aborts ʀXʀX5!SizALMANACתPzצ DATE.DATAyצ DATE.DATA"˫xxJ áצALMANAC.DATE.DATA+Program aborts  IצPRINTER:ICONSOLE:?zALMANACתPzצ GEOGRAPH.DATAyצ GEOGRAPH.DATA"˫xxCODE׷sצSYSTEM.WRK.COdA""A Antares SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COA33 Rasalhague SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COAIA Vega צSYSTEM.WRK.COxw@A Regulus SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO!A@A Spica SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COffVA1 Arcturus SYSTEM.WRK.צSYSTEM.WRK.CO̼@@ Sirius SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COxw@ Procyon SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CODD@@ Pollux SYSTEM.WRK.CODE׷sWRK.CO@݃A Rigel SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COww@ww Capella SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO@7B Betelgeuse SYSTEM.WRK.CODE׷s Diphda SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COww7? Hamal SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COff@A Aldebaran SYSTEM.WRK.CODE׷sצSYSTEM.ppx ALMANAC:MAINI0V YNv  -- -- תP-- -- תPPצ RGǢצ Ǧצ PII " wbצ Your file is pSAVE IT Y ww 000x IuC.0\-wG>Aff G** ** תP** ** תP G-- -- תP-- -- תPPצ RGǢצ Ǧצ I* 0 0-0pצ PLANETS.DATA .t@Gv,,,E RISING AND SETTING OFvPáצ THE PLANETSPxvCáTHE CONSTELLATIONSתPVvBáTHE BRIGHT STARSתP6p.DATAץppPp**#II+ OBJECT NAME Rises South SetsIBNتP(O,O+,O-+-ȡ#.. .Q.P++IIIGpتP0"++˫xx:+ á +++צProgram abortsTd צ"TIMES OF TH!Read from which volume ? [4,5,9] 0 ,zALMANAC:תP.z#5:תP!zצ#9:P49 4$ pzPpǠP.ץpá!ppPצ.DATAUP&BPhO *_ F(ile ?Lv vvצALMANAC:PLANETS.DATAPצALMANAC:BRIGHTSTAR.DATAPئALMANAC:CONSTELLAT.DATAתPw File Name ?p pȡ3p:ázpPN áALMANAC:GEOGRAPH.DATA+צProgram aborts. .   ڥ  :ARISING-SETTING: P(lanets, B(right Stars, C(onstellations,SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO̔AB Nunki SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO33A Altair SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COA A Deneb SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COwwA4B Sadalmelik SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COA̾ Fomalhaut SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COzQPP ZzǪ ǷPšII0wlצYour user file is צSAVE THIS FILE? Y ww 00tĥ¼¼.ĥļeB.4C..eB.eB.¥¼eB.ƼԥļөP ɡ QPzP zɡzצ ME Azimuth Altitude II 0 0-¥ȼpA,pA..¥¼..¼eB.HE CONSTELLATIONSPVvBáצTHE BRIGHT STARSP6צ.DATAP**#ȩȼp**pP* Q*Local SIDEREAL TIME = g*Ƿ*PpIIצ.OBJECT NA.Q.P++IIIGpتP0"++˫xx:+ á +++צProgram abortsTd צ#THE LOCAL HORIZONTAL COORDINATES OFvPá THE PLANETSתPxvCáצTALMANAC:תP.#5:תP!צ#9:P49 4$ PǠP.ץá!Pצ.DATAUP&BPbI *_=JتP(O,O+,O-+-ȡ#.. ALMANAC:PLANETS.DATAPצALMANAC:BRIGHTSTAR.DATAPئALMANAC:CONSTELLAT.DATAתPw File Name ? ȡ/:áP!Read from which volume ? [4,5,9] 0 ,N áALMANAC:GEOGRAPH.DATA+צProgram aborts. .  CALTITUDE-AZIMUTH: P(lanets, B(right Stars, C(onstellations, F(ile ?Lv vvצProgram aborts  IצPRINTER:ICONSOLE:?ХмμpALMANACתPצ GEOGRAPH.DATAyצ GEOGRAPH.DATA"˫xxcontinue.}ƀPƀƀʀ á0̀WProgram aborts ʀXʀX5!SiALMANACתPצ DATE.DATAyצ DATE.DATA"˫xxJ áצALMANAC.DATE.DATA+.۪PڪPXƁƀ̀ƀ.Pƀ:QƀǡƀP̀̀ʀʀXƀ"WẀʀW á ƀ̀ƀצ Can't find ƀ.[ƀPƀƀ̀ƀPut in ƀ.Wƀ&. Then press the spacebar to B* HORIZONT A Scheat SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COffAAP  0 IuC.0\-wx ALMANAC:MAINI0 YR2N r  zQPP ZzǪ ǷPšII0wlצYour user file is צSAVE THIS FILE? Y ww 00t SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COUUUATEM.WRK.CODE׷sצSYSTEM.WRK.CO@B Ursa Major SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO@A\B Ursa Minor SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COxAB Virgo sצSYSTEM.WRK.COA Scorpius SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COA Taurus SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO@pA Triangulum SYSצSYSTEM.WRK.CO`@@B Psc Austr SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COA Pisces SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO?A Sagitarius SYSTEM.WRK.CODE׷SYSTEM.WRK.COA Orion SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO@ Pegasus SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COAA Perseus SYSTEM.WRK.CODE׷s@ Libra SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COUUuAp Lyra SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COA B Ophiuchus SYSTEM.WRK.CODE׷sצles SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COA B Leo SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO0ApA Lepus SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COSYSTEM.WRK.CODE׷sצSYSTEM.WRK.COA\B Gemini SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO@A Grus SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COA( HercuCODE׷sצSYSTEM.WRK.COHAA Cygnus SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COA B Delphinius SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COApA Draco צSYSTEM.WRK.COA Cepheus SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COAB Cetus SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO@ Coma B SYSTEM.WRK.צSYSTEM.WRK.COAA CanisMajor SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO@ CanisMinor SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO@@ Capricorn SYSTEM.WRK.CODE׷sWRK.COA A Auriga SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO@ B Bootes SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COhAA Cancer SYSTEM.WRK.CODE׷s Andromeda SYSTEM.WRK.CODE׷sצSYSTEM.WRK.CO? B Aquarius SYSTEM.WRK.CODE׷sצSYSTEM.WRK.COA Aquila SYSTEM.WRK.CODE׷sצSYSTEM.P  0 IuC.0\-wx ALMANAC:MAINI0 YR2N  MAIN LM2:PPLOTTERצALM2 HALLEY.CODE!!;"ASTRO ALMANAC: COMET HALLEY . . . ALM2:HALLEYצALM2 HELPER.CODE!!7ASTRONOMICAL ALMANAC:Help. . . ALM2:HELPER: 4CX,I r* "(-ASTRONOMICAL ALMANAC:File writing utility . .צ ALM2:STARPUTצALM2 ECLIPSES.CODE!!>#ASTRONOMICAL ALMANAC: Eclipses. . .צ ALM2:ECLIPSESALM2צ PPLOTTER.CODE!!Dצ)ASTRONOMICAL ALMANAC: Planet Plotter . . A2צEQSOLSTICE.CODE!!Nצ1ASTRONOMICAL ALMANAC: Equinoxes and Solstices . .ALM2:EQSOLSTICEצALM2SREALTIME.CODE!!Eצ)ASTRO ALMANAC: Local Sidereal Time . . .ALM2:SREALTIMEALM2צ STARPUT.CODE!!GצDIURNALq&ASTRONOMICAL ALMANAC: Altitude-AzimuthHORZONT4AV,E !"k(*8 ALM2צ MPHASES.CODE!!B(ASTRONONOMICAL ALMANAC: Moon Phases. . . ALM2:MPHASESALMGEOLOC ASTRONOMICAL ALMANAC: S(un . . .ALMANAC:SUNALM!ASTRONOMICAL ALMANAC: M(oon . . .צALMANAC:MOONALM#ASTRONOMICAL ALMANAC: P(lanets. . .צALMANAC:PLANETALM)ASTONOMICAL ALMANAC: Rising, Setting. . .NTER: ?áѩá)?˄N˄ (ASTRONOMICAL ALMANAC: Specify date . . .SETDATEצ9ASTRONOMICAL ALMANAC: Specify Geographical Location . . .RO ALMANAC: eqU(inox & solstice, sidereal T(ime, C(omet Halley ?P)צ:ASTRO ALMANAC: clear screen, N(ew page [printer] ?Pa)إ á  Ná(צPRI)צDASTRO ALMANAC: S(un, M(oon, P(lanets, D(ate, G(eog, V(erify, Q(uit ?P)BASTRO ALMANAC: F(moon phases, E(clipses, H(elp, X(planet plotter ?תP)צAASTRO ALMANAC: R(ising-Setting, A(ltitude-azimuth, W(rite file ? P)צCASTʂFatal, program terminatesƁ Ɓfʁ.ƁLocation on file is. . .Ɓf Printer . . .3צ OPEN CLOSEDƁ4012צASTRONOMICAL ALMANAC: צDate on file is . . . Ɓצ GEOGRAPH.DATA"̂ʂ̂ʂʂ á GEOGRAPH.DATAʂ~ʂ á@ צGEOGRAPH.DATA not found Select -> G(eo_Loc 7le..4צ DATE.DATA"̂ʂ̂ʂʂ áALMANAC:DATE.DATAʂʂ áA צFile DATE.DATA not found $(Select -> D(ate;ʂצError Fatal, Program aborts..4 .44./?ƀ̀ƀPut in ƀ.Wƀ&. Then press the spacebar to continue.}ƀPƀ á0#WProgram aborts $X$X5!SiƁƂ.4Ɓ`Opening Date fiȡ(ڞ&".۪PڪPXƁ"ƀ̀ƀ.Pƀ:QƀǡƀP$#$#Xƀ"WWë$$W á ƀ̀ƀצ Can't find ƀ.[ƀPƀB\*%Y8   Qˡ2Vá!  Reading . . .  M  VˡQáצ exec/i.textF5Vr<  . . A ANAC Version II.0 .Harford County (Md.) Schools Planetariums 1985צ ALMANAC:MAIN |K:STARTER.TEXT*SYSTEM.WRK.CODE[*]ASTROC:SYSTEM.SWAPDISK.+O,O.O/O/O 2O 2O2O3O4O4O4O5O6O :*C * #Welcome to the ASTRONOMICAL ALMBWELCOME %I%% Mercury ¾ꈂ<1Ί¾,ؓ*SYSTEM.L)/A0 Venus ¾ꈂ<1Ί¾,ؓ*SYSTEM.Ld$AS0 Mars ¾ꈂ<1Ί¾,ؓ*SYؓ*SYSTEM.L&QA^ Neptune ¾ꈂ<1Ί¾,ؓ*SYSTEM.LAGSTEM.LJf@mA Jupiter ¾ꈂ<1Ί¾,ؓ*SYSTEM.L= C Saturn ¾ꈂ<1Ί¾,ؓ*SYSTEM.L7A̬ Uranus ¾ꈂ<1Ί¾, Mercury ¾ꈂ<1Ί¾,ؓ*SYSTEM.L)/A0 Venus ¾ꈂ<1Ί¾,ؓ*SYSTEM.Ld$AS0 Mars ¾ꈂ<1Ί¾,ؓ*SYMILWAUKEE, WISCONSIN á.צNested .B33Bؓ*SYSTEM.L&QA^ Neptune ¾ꈂ<1Ί¾,ؓ*SYSTEM.LAGSTEM.LJf@mA Jupiter ¾ꈂ<1Ί¾,ؓ*SYSTEM.L= C Saturn ¾ꈂ<1Ί¾,ؓ*SYSTEM.L7A̬ Uranus ¾ꈂ<1Ί¾, Mercury ¾ꈂ<1Ί¾,ؓ*SYSTEM.L)/A0 Venus ¾ꈂ<1Ί¾,ؓ*SYSTEM.Ld$AS0 Mars ¾ꈂ<1Ί¾,ؓ*SYؓ*SYSTEM.L&QA^ Neptune ¾ꈂ<1Ί¾,ؓ*SYSTEM.LAGSTEM.LJf@mA Jupiter ¾ꈂ<1Ί¾,ؓ*SYSTEM.L= C Saturn ¾ꈂ<1Ί¾,ؓ*SYSTEM.L7A̬ Uranus ¾ꈂ<1Ί¾,ؓ*SYSTEM.LA2 Neptune ꈂ<1Ίꈼ,ؓ*SYSTEM.LFAMؓ*SYSTEM.LzjA޷ Neptune ¾ꈂ<1Ί¾,ؓ*SYSTEM.LnƑAPERRYVILLE,MD. á.צNested DDB""Bؓ*SYSTEM.LA Neptune ¾ꈂ<1Ί¾,ؓ*SYSTEM.L