LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)"f '07LZn_aibFORTRAN FTNSCAN FTNCODE INITIALIFINALIZEEXECSTMTDECLSTMTEXECDONE CHAINSTUSOSIO PRIMS2 PRIMS2 III.PCL.19u' ,FORTRAN.CODE62) .FORTRAN.ERRORS<|v-)SOSERRORS |M.SYSTEM.LIBRARY6j2 READ.ME.FIRST& >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L :&'Apple /// Fortran Compiler 1.0  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ȡ̂̂?ʂ̂ʂˡ̂ʂƂ ʂƂ ÄʂƂ ÄKDŽ ʂ ̂ʂPšP̂ʂʂʂ? ʂ̂  š<`ȡ*ġ  Ƃ Ƃ ɡ#Ƃ ̂2Ƃ20Ƃ2Ƃ QƂ2P?%FORTRAN.ERRORS"šȡ̂/ȡ̂Cȡ̂Vȡ̂wmȡ ̂lNjȡ ̂_ǟȡ̂Rȡ̂Egȡ̂8|ȡ̂+ǐȡ̂džȡ̩> ej& i& &9B ئתP 0 á(6 ? š$  á Z߫` r 9_?ee;:& <   e< j& i& '@&99?e&'::'&VFf8@۟á ɡܡښۚ%b a4ڟڢ_áآښˡښ Dۨߟˡ  I  ڻá ߫` r 9_?ee;:& <   e< j& i& '@&99?e&'::'&8)V)áګ)>ة)ɡ ک)ګ)+)۟á ɡܡښۚ%b a4ڟڢ_áآښˡښ Dۨߟˡ  I  ڻá ( ߢߢ ߣ b٢٢ ٢ ٢ ٢٢ ٢ <ۢۢۢښۢٚȡۢ ((ۣ ( ۢۢ ۣ r ڟڢؚޢ ޢޢޢd  ڨ ߟ!  ߥ /  BáٚFٯ "ٵ ˡڢٚˡڢٚۡB \ڨȡߢ ((ߣ ޢ ޢ ޢ ޢޢ  | ޢޢ ޢ ޢ ޢ ޢ N ޢޢ ޢ ޢ ޢ ޢ xLޢޢޢޢ ˡ%AZAޢ/'!B؟ˡ_ۢáJۣۢ ڟˡ$á ۢ ٚ8nبٹ  ޢޢ ޢ ޢ ޢ ޢޢ ޢٻޢޢ b?F Dž򩈴 ݢádžݢáݢǧ ݢݢݢݢښ ˡ. á ڢ ٿݢܚLJ  I ۹(-#(کɡګ&# 6 ghצ Memory available   eȡ1eɡ(e  eed7 ȥ`Ʉ_ۂ^^ תP>=n***** Error number:   in line:  צ***** Error number:   in line:  צ>)^2ˡ <^ >zX e,ˡá <,eeآ"š آÍá ˡ.á1`.ث` á ``P  á"     N`ɡ ` `` ˡazȄ ˡ á 0  á\ ɡ, ġ) ȡ詉``*WqV  0ȡ& á(0   öE˄Eá  áA ȡ& +á -á  QV. E. #צEQV. OT. uE. צT. SND. AR. 0AT(+Y5 "$&6 H .á  ,**P**<T:ȡ> ġ ũ č   F ZRUE. צALSE. צT. E. צQ.``n `ɡ ` ``*`ɡ ` `` ˡazȄ : BڪP`-/.0/.0/0//0-`2Z P5Pġ á')|1^_`5`á<Íˡ <^_`é ˍ`á#áÍ 55 P5.TEXTU5Pee "ˡK Can't find   to include.  44 P  55'@P5 Ǡ5Pj& 55צ 5 Q5hf&4+4B` `߂`߂Hڕ Hڕ  Ä ޫ``ڞ`ڂ`ڂ š  3襐,ġ ꩑,4צ.TEXT  צ.TEXT ` H `ڞ`ڂ`ڂ@ צSEPARATEb) XREFׯa צSWAPc  0ÍɄ ɡ)á  ˡ˚ 0Íš$BšN to continue, ESCAPE to stop compilation.'R'D&-؝'Dá 3`<楒á *CÍcÍ å Ä$á  צINCLUDE 3 USESׯ צEXTU` i&^^/ 6š  $  á  B ˥ Í Ʉ% aĶ zȄ  ٶ ٿáPD\T d&!~Compilation interrupted. צ5Press RETUR^ .  ˡܩHá; š& HšH ٕۂHšHšܩH۞ۂ,ܢ+ܣ+j&آ'@PآǠPj& צ آQhf&jأ+j&e,ˡ ġá&,,)-R Z>^ġieéeÍd襀   ؿ`ɡ ` `` ˡazȄ ؤÍ򥈵ؤġؤɡ``    á''ˡ(`ɡ `'``'á ``ܡ쩀á  `ؤá``. áګ`m*á ``Nؤ B;4z"$G*,. "$&(*,F<9? f< 0áln٩mákmقؿ۩*ؚۢٚۢګ*L(+;9+;#&,,,,,,,, ,  ,  ,  ,  , ,,,,,, ٕǀȄ ٕhpȡۢ;á<;ġǑۢ;ۢ;ۢ;ڏ_ ááڢڢ(ڢڢ((Tب  hńKá$á +ˡ+!áLosu\ˡ*5=-Ȅ (2/)8Zȡg)%#0áȡWJ 6x <bń*ɡ$xȡx#7ˡɡ $"<j1npqܢ1š "ɡ $!W/  H  <EO3ܢ'á  MI#Sńcá-á܀< PWdWPȡ$ ɡ WYS]áá %%"Bá$ȡWJF)2[ȄLFd2"ˡ꩏"ٟˡ  ۣ ɡۣ eȡ$ ۣ ۣ ڟˡ  ۣ ڟˡ 8p& B ڢdcb أ آ ٚaˡǔaa`R _O9*FOOBAR.FOO[*]"ˡ$9צ FOOBAR.FOO[*]"ˡǔ_`a^pdġdۢ;ddcb ۣáۢnۢ 3Í4ȄGkšJkȡkklɡǐllkC \ ``ؚ```á)9`.ġ4+;M,áH   .س 3 klˡǐkll2kkؿkġkkdd2kkǀkġkkdd6k,ɡȡP &jh^r$ bNd 2p( h  6 8Uu   éÍÍá6á+áءá 3ȡ(áá  ^   ۤá`ɡ ` `` ˡazȄ ڤɡȥڤ˄p=áDá  R(áJ ˡ- áݡ á  ` ܫ`̥ܤˡܤȄܿܤáܤá``"Uu   é Í Í á6 á+ áء á 3 ȡ( á á  ^,,,,,,,,,,,, ,! ,"!,#".#.$.%.&.'.(.). *. +. ,. -. ../.0.1.2.3.49596789:;4:bV n\$& 0 b 0áقؿ۩ؚۢٚۢګL(;9;#&,,,,,,,, ,  ,  ,  ,  , ,,,,,,d0OVERLAYׯdP"ˡ=PP.CODE#P"ˡ.ˡ  @@צ &caaȡ``ȡ2@`.a?`H" j @ &# @  @׷d@ 0 P*SYSTEM.LIBRARYת0׷p0 0צIN>P 0 0׷%0 0צOVERLAY!צCharacter function " " ignored á ˡá)+ps  á צ ˶ ˄6ɡ&צ ٛá á ȡG ARGxxߢ  ߢߢá ߚ  áᚶ á á á áꩂ>GצCharacter function " " ignoredöÍááhȡTURTLEׯ RANDOMׯ  ˄  % á 㥏%   á öÍ ȡ ٛaٛzȄ ٛٛ ( 8 >L á آUá آEáآآ0áآآآ˶˄ n R ׯ /'ˡ/'ˡܹ/.á  x p/*á/*ˡ/)á B<4~>PhL " "$&(*,:<@Dnp+|L:P.Xġ(ȡ//_áIMPLEMEN״ jBOOLEAN OCHAR ׯ 6FUNCTION IMPLEMENׯ hINTEGER OPROCEDURׯ 6REAL VA//_á𥈵/ÍALFA /˄楈/áȡ/ 0//ˡ쥈/á1ȡ//ɡै/--<.ġ..á../../aĶ/zȄ / /&/ á //á /../ á/{á/}á/:á ж/;á ҥ/ֲ COS TAN ASIN ACOS ATAN ATAN2 !SINH "COSH #TANH $LGE %LGT &LLE 'LLT (EOF )CHAR *آJ.-á .ABS MOD AMOD ISIGN SIGN IDIM DIM MAX0 AMAX1 AMAX0 MAX1 MIN0 AMIN1 AMIN0 MIN1 SQRT EXP ALOG ALOG10SIN &#&#O&#Pڨ ٚػ&0INT IFIX REAL FLOAT ICHAR AINT ANINT NINT IABS ,,,,,,,,,,,, ,! ,"!,#".#.$.%.&.'.(.). *. +. ,. -. ../.0.1.2.3.49596789:;4:bV n\$& ˡ``c.a``ɡnbġb?bbbcb ``ȡ!ܶ`@```ܢܢb`?bddb.a``ö`ÍIȡ,b?b?@ڛb`ö`ÍV.a--š. /. .ˡ"`ábaac `ġ)aa9`aˡǕ`````R  ؟ˡ ٢ǐ .ȡ;c  ׷ ٣ÄÄ E @ ,?צFORTIO-?צFORTIO.?צ FORTFUNCS9? REALMODES?צ TRANSCENDlk34 _ba!%&é́ʁʁȡʁʁ́ÁŹʁʁȡAʁAZÁʁʁʁIʁNȄʁʁʁ́c>=ƀ?bZ $v :( J* ʁʁbb@ ,?צFORTIO-?צFORTIO.?צ FORTFUNCS9? REALMODES?צ TRANSCENDlk34 _ba!%&é́ʁʁȡʁApple /// Fortran Compiler [A3/P&8hgfƀ́ƁƀPƁ1.0SƁצSƁצ]TƁPƀ?b?́bʁȡKcb ́ʁ ʁʁʁʁʁbb&9Hצ5>= *** NONE ***<>H"šHCONSOLE:ׯH.CONSOLEׯ=ڪP-././ȡ,.ȡ-.- - -..-:X P ƀצ.צ/Ä.CODEײ˄'nj.CODEǑ"š5 List to what file? תHצ'ת'צH&5what codefile ? ת5צ*SYSTEM.WRK.TEXT3*SYSTEM.WRK.CODEת"š צ&5&9צL'@PSYSTEM.WRK.CODE_.TEXTײá5"šn5תP5&5&95ׯe5"š!ײ5''&1&9+5'@PSYSTEM.WRK.TEXT_Pצ 5Qhf&j Total linesשgf&i`,To ġ&%++צ I/O Error # +[+P++P+.Q+ צ.Press RETURN to continue, ESCAPE to terminate.ם'R'D&-'Dá&9תCompile what text? ת5צ*SYSTEM.WRK.TEXTPeAZȡ򥈵),* + -/ = (.' ^ "ع@$EF  ! & 0  á  ˡM>Z ,Ƃ-` ̄b á+Uá`<fȡ09ȡȡ&#     333 ?%á % á 0Ķ9Ȅ %65..  צINTEGER+צREALLOGICALׯ   SUBROUTINEׯ FUNCTIONׯ    ׯ   $T%dlkȡc kُkُk@ُkُkُkُk k(@hdhk 5 ؟ˡܢܢÍubܢ ܢ aȡ  ܢá  ܢ۟ˡ  $i  ؟ˡ=٢٢Í٢٢ bÄظ>=^ צ lines.   errors.Smallest available space =  צ words.^ צ lines.   errors. qpst(u;vA ȡ3c  ܣÄ ܢܢ2d"qpsrtu;v- >%á veˡ[4b\?b3d"lnkm*2 (c ۢMAINSEGXר?ġ4إ#إ M,M Mdr?ȡإ   EXTERNAL zצ INTRINSIC Zצ PROGRAM <צ COMMON SIZE=ܣ  `btV:ˡ<۟ˡ0ń # ETmܣ á   ܣ /   ܢá FUNCTION SUBROUTINE ܢ ܢ ,EXTiܢ bá$ܢ   ,FWD9,ܢ  ܢ  ɡ ٢k INTEGER dצ REAL M LOGICAL 6צ CHAR*  s^2K؟ˡܢ *****ܣ  ܢ *  ܢá9/ 䩋4 b% bád4]!ˡSȡ (( (ܹcb ˡ,ȡ ( 4bb˄ <^VvXS<$%^ ؚقȡ' 9_ ˡ~ȡ  ˡ  ˡġ  d cb bábd_4 _ `š9`aˡǔ`aˡȡ/   ˡ 3  Lȡ ڢá  ڢڣ  W_L%dcb 3ġ0ˡdۂb3cbN E dɡ  7` ؟ˡڢڢÍڢ ڢ `>;צ'The following procedures are undefined:;צ'The following procedures are undefined:>; )` cb ld3..ȡ ۟ˡc//á PROCEDURE צ FUNCTION 00ȡ//á:0צPROCEDURE DUMMYxxPA 0  ; IMPLEMENTATIOٛ0  z ڢ aڣ šXצ(VAR צ xxPڣ ȡ0A 0  ,)oˡi(ˡR VAR ARG00תP0  0  :ˡ  J %  تP+,+,ȡ+++dš  d.VD آצ INTEGER  REAL׮  BOOLEAN׮ ~á צ CHAR Z ALFA תPdġٛ0dd ōٛ0 Smallest available space =  צ words.g_ X` P > ^LB |b h4& 2d"qpsrtu;v- >%á á쩏$ ؟ˡآáأ ˡ&``&(ˡأ ۟ˡ ''áǗ'' HF5 O@1á9dd    ˡá ˡá áǩ˶ ]á bá.áOáN.M " )% !B?<9631.+)'%#r á˄á  )á^ˡˍ_|áń  áVá. ágٿĥˍdWPȡ0``'á W cع;WRMHC? : 51-ásړؓǖلǪؓGBMO  oÍ-oá$آH  á á Ǐ6 ؄ǀء,áSTATUS=% NEW OLD ACCESS=% DIRECT SEQUENTIALFORM=% UNFORMATTE FORMATTED RRECL=#ءǓ ˡǔ PRINT Ǖġ !a   9dګ,l6 F ár á á Ǐˡ}FILE=á  Ǒ ̢dښ: yˡljá ˡrá     ágášˡás3ásۢ áۢ ۟ásá ˡNj,9ddُܟˡ} ágSd.`prt.    áܢTO!á ljNJ f  ár á á Ǐá?צSTATUS=& DELETE KEEP ǐ ǡ á [áPˡǦ ܢܫdWGܩd"!Ǡá ǡásˡ áˡ Ǣءءء!ڡ! !br á 'á á ǟۡá``á   áǥháܢܚdWGܩd"G á  SD5>]acegN"L átצREC=.ۡǛá  ǜ8צEND=*ǝڡǞ  ܓڍ  áݩd  $  I! I!dǙásٓܮ ˡ޶Í ǚá  L  J  9 á ˡ;áǘáˡlj9dީd á; ˡNjá} ˡNjá% ˡNj   9dܩd   á W"á  WÄ W(á  W&á 3Wá6á  Wá  Wá Wá}á W2F á  Wá} á  W     á 4ث ááá--á - áع524-1(0#7/%" $+á 3      6˄4+ áá áá 4ث ááá , , áá4 Í| ˄4, áá áVá:áá á 27m :** áj ˄4+ áá)*áá + 4)áz++ Í| آإ$Ǩ ٢Ä2&؟ˡ!٢٢ أ ٢آˡR٢áٮO٢٢Í٢Í٢ÍáǨٮ 3áná$ Z'.áá# ٟá $ ٟá% ٟá á^&؟á !٢ أ ٢آ٢٥$Ǩ$ٮ2 ٨ آ á ˡ4#$ˡá <ˡ6ááˡ8ˡáˡ9šNġ:  šۢˡXsrá آá(   Fآá*2ˡ%%آáá آأ ڢÍTۢڢۢڢۢۢ ڢ ?ۢ ڢ ۢۢ ڢ 2"ۢػۢۢۢ b?ۢ ۢá ۢػ ۢáM3ɡ 33ǒۢ3%ڟˡڢ  ڢ3!"#ۣ $xۣ %qۣ &jۣ 'c(_)[*Tb`^\Z\WUSQOMKIGBKFOJSNIKMOQSUWY[]_ac^`bd_]á٢ۢá%ڟá;ۢػۢۢۢ b?ۢ ۢ  ڢ Wع0145%(      ,'á W&(á W)ۢááۣ [ۣ  M x%á Wعf48:z;u6p7k"f#a$\9Wá}á W%2&-'((#$mjgda^[XURO,)&&á Wá}á #á Wá}á Wȡ.,á١Í I t$á Wá}á Wȡ/-á١Í W I!d橉d " á Wá}á W  5!d  橉d*á Wá}á WI!R á Wá}á W 5!Z!á Wá}á ˄5- áá á á áع$I8H2E,D&K C,( (0Pع524-1(0#7/%" $+ N6 ..ء.ءˡ7 .//á*ˡ7 / ˡ72 <00á*ˡ7 0 ˡ72 <ˡ8ٟˡ(á٢ ٢áړf٩٢٢٢dث  : vbáwU qB9dd٩٢٢ث; (á 4``áx9ánG dˡdá)9 oáp q9ddárˡsצTHENtˡu !`áˡlj á; ˡNjá} ˡNjá3 ˡNj   9d i68 lfámY آآإ$٢٢Í>7 j ٟˡ1 ág kdث,ˡ`šK "dWP ''ȡ  (= &*,.WoP 1 6 á$ ٟáM% ٟá ٥$ '٢á á`ɡI  ''ȡ6((á (( (( ٫٫ ġ٫    (* š " ; ߮ń˄˄ á; ˡ"عá á ፡ع  ȡiá*  á  8Ä"    ٫ ˡ&Ä Ä = dr(u-ݢ 42 2á$ $ ߟá ߢ ÄeɄ$2 ߟá$ -ߢá ߢߢ˄ : X 3d32"5ܫ#ݢܚ(ܟˡ(((ܟˡܢ q2psrt(u;v á;XX X    ݢá   ڟˡڢݢڢݢܟáۢݚáޡá  5ب $ݟáݥ$ݢݢáZ3ɡ 33ǒXX3X b?X 2V"(lnkm*šẂ́9ʁˡǕ́́ʁʁȡQʁš(ʁ́́9ʁˡǕʁʁ́ʁ́_ 4áܥ ݟˡ" ݢ $OO[*]"ˡ$9צ FOOBAR.FOO[*]"ˡǔ_`aaWńĺʁʁȡJʁˡǐ9Wʁnˡǔʁ́9kWlnˡǔnlmk 23dpBU 3Lj ۨڨáR ȡ' azȄ     ǍǎU xdpB2U"V(*mdš_O9*FOOBAR.F8! Jب ޢáiNޢޢd(ߩߢdߢߢޢݚxá$ ؟á$ آá ٢á3٢٣ ٣ ٢٢  R< árˡsצTHENXzDˡu ! ੏dثá0{# !dکd| Íá10,9   ágId( ᩏdܚ˄}áˡ~ =ǁ>á( áB $  (( (آ أ 8 آآ أ آ آ  'N oéoÍ\oá ( (ٟˡ(((ٟˡá  ˡ1á ˡ<  0y8,؟ˡ á m ٟˡaáUˡ,    L(٢((( á (( ɡɡ ˡ š-  ????  ڂ ˡ á2   áh áP  ˡ: ˡ!   䚹 ˡ.  á*w ˄Oá7š+珂ˍ*ߏ ˡ^ á;  ݕá   ˡ)ˡ,  ݕ  H"؟ˡۣ ٟˡ٢á ۢ ۢ ٟˡ4ۢ ٢÷0٢ ٣ ۢ ښ%ٟˡ٢á ٣ ˡGo ' ˡ  ˡšث$$؟ˡ إ$cb ڢboá/ȡ6 @ /Uȡ6"m 4$؟ˡ4٢"AZA٢٢;AZȡ/AZAڢڢINȄ"$')*2o5r oá-o26NONAME6إ%ث$oá 4F4dlnkm $ˡ8 ة$ آآ$ړ١"NxRtv ` ^ Bn!!!"N##F$$%%T&'Z'~''' (8(\((\*++4,.\/p013J41b*lx B  "$&(*,.02468:<>@BI1qRVXr\^\Fdjln{ B` `)۟ˡۢáۢ ء ?1١@1צFORMAT ENDIF9?B١@کÄt `c (U(< ?ETURN +EALdצEWIND Yצ UBROUTINEd)TOP AVEdYצRITE Yw Wp   "$&(*,.02468:<>@BI1qRYUNCTIONdYצOTO<YF=IMPLICITd2צNTRINSICdצNTEGERdYצOGICALdYצPEN YצAUSE ROGRAMdYEADDצOMMONd/HARACTERdLOSE YO8/צATAdIMENSIONdYNDFILE >Yצ QUIVALENCEd?צXTERNALd(LSEIF:צLSE; ߢ ߣ&ߢ I!ߢI!dߢ @?س عYSSIGN YACKSPACE YצONTINUE6UALL7 ۢágXۢۢhCٟˡ'ڮ ddۢۢښۢdH ?ˡá .AAߢ ߣߢ ߢdߢ٢  ( +N $$ q2psr5toá tt(u;vleȡ;eɡ2e eedAPár $ "ܟˡ ܯ "55 ܢ ۟áڢܚá ˡ}g áooÄZá 6 6NONAMEר%6۟á-إ6١ݢڻݢܥ%á& ٟˡr$ ؟ˡ3آá#آآ ٣ ٢آˡR"( آ ٣ آ٢آإ$Qˡ   á&á' ٢ '٢  á& ب ٢٢٥$٢á؟á0ڢڢڢ b?ڢ ڢ sآآÍ\ڢآڢآڢآڢ آ ڢ آ ?ڢڢ آ ""ˡ.ˡ:آ @ؚݢ٢ښáNá"ȡڢ áˡšáڢáܡáˡ- .á$ % ٟá+؟á  áآ ښأ ˡ٢ښ(:á ˡޡ7 ؟ˡ$آآ˄: أ áˡ9Dáݩ'ݢ٫'á$ ؟á إ$آáآ%ޟˡޢˡ"  ߢ"߫"h  z ר á:á     á&؟áڟˡbڢáڢáFڢ ?6ڣ á+ڢ ؚأz áۢ Aޢ[áRۢ B$ ڟˡ+ޢޢښڣ ڢˍEڢDáۢ ޚޚáˡšá$  \ڨ"ߟˡ  Pȡ)AZAߢؚߢٚáڡáˡA] Pá$ ۟á ۥ$áۢáۢáۣ ˡߡCޟޢáޢޢޡTPG,צINTEGERmREALWLOGICAL>צ CHARACTER! áá ááy  ˡS áá    á ^á  =á4 &á4   M  áܚáˡáݡ á&á˂ˡ ˡáˡ9ˡ ښؚáˡáݡ á&á# áȡLߡ Í ٟ؟ˍOWK>á$  á$  á á3 H ˡ áIáIJ  áuá)á8ōK ȡ* á  Y  ȡ6!!á !! ר!!  Íáނȡ ٟˡȡ؟ˡٟ؟Í6 6NONAME6إ%ث$T ٟ؟˄ˡNá šNɡڕڕȡ ń  ˡ   iۢá"إ6Pۢ bá%ۢ Uۢ aۢ V١ܢܢˡTܢá&3ɡ 33ǒܢ3ܢ2ܫ$áܢ á á` o2á ˡW bˡá, 7ń  ۂ0``H lá*צFUNCTION á Äáٟˡ]ݢ!LݢÄZݢáݢˡRݢݢػݢܚȍbáڡ  ` `١FORMATeá س xعOMMONצHARACTERتPRš+R+PP4تPRšG+R+PGP4GRšزGRPزGPR0ȡپ á* š*۾١:/˄ /P /ádefined.੏ˡ֩d dáܩšad ȡ ک؟ˡ2 ˡ#áعǤ*ˡ >7bˡ$$=   %!U",.1v(J  ׷ ǃ>Bצ Label  not defined.D Label צ not defined.੏ˡ֩d dáܩšad ȡ ک؟ˡ2 ˡ#áعǤ*ˡ >7bˡ$; ȡ# á dǣ ׷ ǃ>Bצ Label  not defined.D Label צ not ,9d ȡ ؟ˡC ˡ*ádcnj؟ˡ á詉dWݟˡY dON SIZE=ܣ  `btV:ˡ<۟ˡ0ń # ETmv(udroá$Â-ˡDŽˡ dášܢ ܢ ,EXTiܢ bá$ܢ   ,FWD9,ܢ  ܢ  ɡ    EXTERNAL zצ INTRINSIC Zצ PROGRAM <צ COMMs^2K؟ˡܢ *****ܣ  ܢ *  ܢá9/ܣ á   ܣ /   ܢá FUNCTION SUBROUTINE n%ܟá^ݢݢݢ  ݢ ݢܢ߻ܢؚܢܢ ܢ ?ܥ% ٢k INTEGER dצ REAL M LOGICAL 6צ CHAR*  mnĺʁȡ~ˡ "Lˡǐ*؟ˡ+́ʁʁɄʁڕʁˡǐX  )ޟˡݢáD 3%ܟá#ݣ ܢ ۚܢ!ܫ!ܥ%ͦHbN6 צIMENSIONצ QUIVALENCEצXTERNALUNCTION MPLICIT/צNTRINSICצNTEGEROGICALצROGRAM rצEALZצ UBROUTINE צAVE)CS"yK  nX˄۩Ä"M.`<ٓء 6<Xr4N t  vPATAצIMENSIONצ QUIVALENCEצXTERNALUNCTION MPLICIT/צNTRINSICצNTEGEROGICALצROGRAM rצ< 0ݪPܪP0š YY0PYǠYPF D ۮ   ڪPXP šEצ:š  >#צ*צ:á >š{-NVWf-N@ȡQ-Pצ:-á:ײPN? XP ??زP>پ/ˡ צ/P?8??زP>? pp~*0hh]hh\h[e^ȱ_A[ x^L8 )H(H`DA=:7310' lh(h)hhhhhhhhh]hh\h_^[B[ x^ȑ_)H(H`<93/,*)& jh(h)hhhhhhh\h[dC[ x(H`Rh(h)hhhhhhhhh\h[d[ xȑ⨪])H(H`0,*)Veh(h)hhhhhhhhh`hh^h_h\h][@[ xaȑ)H(H`:7531.,+& hh(h)hhhhh)hhhhh\h[`[ x)H(H`2h(h)hhhhhh[a[ x\ȑ)H(H`>h(h)hhhhhhii[\]b[ x)H(H`Lh(h)hhhhhhii[\]c[ x)H`hah^h_h]hh\h[[ xȑ)H(H`?97531.*(' fh(h)hhhhЍ L h(h)hhhhhhh\h[[ xȑ)H(H`"@h(h)hhhhhh[[ x\ȑ)H(H`>h(hȑ)H(H`A:7431.*(' hh(h)hhhhЍL h(h)hhhhύ1hhhhhhh\h[`[ x]_ȑ^`)H(H`M;7421.+$! th(h)hhhhэL_ h(h)hhhh΍5hhh[ xȑ)H(H`"@h(h)hhhhύ&hhhhh\h[[ xm]m^^m_j^jȑ)H(H`MA=;:2/.,) th(h)hhhhэNL7 h(h)hhhh΍7hhh _h*`^ah]hh\h[[ xh(h)hhhhhhh_h`hhh\h^][[ xȑ)H(H`86.*'$"!^h(h)hhhhhhh_h`hhheheL :h(h)hhhhhhh\h[[ xȑ)H(H`"@h(h)hhhhhhh\h[hh^hh]hh\h[[ xȑ)H(H`,)&" Nh(h)hhhhhhhhh_h`hh^]h\h[[ xaȑb)H(H`B@742.,+(! rh(h)hhhhhhhhh_h`hhheheLj @Lh(h)hhhhhhh^hhh]\[[ xȑ)H(H`0&# Rh(h)hhhhhhhhhhe]dhcha[t_u`hbhhh\[ x^ȑ)H(H`SROMIHGFEDB8652h(h)hhhhhȑ)H(H`QA10-*'%$lh(h)hhhhhhhhhhhhhh_]^\[[ xb`ȑca)H(H`A@=:7541.'$ h(h)hhhhhhhh]\[[ xȑ)H(H`%"hh]\[[ xȑ)H(H`%"Lh(h)hhhhhhhhhh_]^\[[ xȑ)H(H`-,)&#! ^ÍL č>h(h)hhhhhhh`hhhhh_]^\[[ xh\h^`]_ a[[ xȑ)H(H`8430-*'%$ lh(h)hhhhhhh fh*geh]hdhhbhchah`r^s_hh\[[ xȑ)H(H`]ZWVUSPNLHGFED;865h(h)hhhhhhYL) 5h(h)hhhhhhhh^_h]hh\h[[ xȑ)H(H`G0-+($"!`h(h)hhhhhhhhhh[\][ x^ȑ)H(H`+(%#"Zh(h)hhhhhhhhhhVb < 0ݪPܪP0š YY0PYǠYPF D ۮ   ڪPXP šEצ:š  >#צ*צ:á >š{-NVWf-N]L( )H(H`40-+*!Vh(h)hhhhhhhhh\h][D[ x^ȑ)H(H`,*'%$Th(h)hhhhhhh\h[E[ xȑ)H(H`"@h(h)hhhhhh  x)H(H` Dh(h)hhhh)H(H`Copyright 1981,1982,1983 Apple Computer, Inc.2347h*h+HH+H*H`&&&&v~.T4JPVz :@* : 8 R  x'? ':'_áVLˡ=OONnjO: ǎOOצ.O'? ':  'cܣܣܢܣ'_á<ܣܣܢܢ ܣܢ۝':ܢܣL :  :á⢀á=⢀ˡ*⣀''''⣀ޑ  'cNNá''? ':N:pNáV'Q˄NˍN':DŽšDŽ'=DŽ'\á'_ 9:;<=O>?^:#@ 00 00 00A@'c!=<š'c : ᓡ E˄ RˡÂÏá :  áá:sá:Kצ.CONSOLE8 '? :'? :ǀ'=:áˡ-''''ݑ9   NSOLEׯ9צ .SILENTYPE.PRINTERׯۚᢀᢀڟˡᢀ0ᢀ'á ''''ᢀښᣀ'_ᣀ'_ᢀᢀᢀ ō, B<<š'cDE'5̀ƀ5ƀҦ.TEXTƀҪ5Lš?̀ƀ5ƁR;ƁRƀҦ..ƀҪ5OQSx|~ 'c ˡ ܪá nj צ.Ǎ .CO55.5/˄5#˄&5̀ƀҧ'@Pƀ5ƀҪ55߾.á'(''5ɡ ƀתƀ5ƀƀҪ'(V''Nƀ.TEXTׯ 5ƀ.CODE׷'5̀ƀ5ƀҦ.CODEƀҪM''Dƀ.TEXT׷ƀצ.COƀҦ QƀҪá@55̀ƀҧ'@Pƀ5ƀҪ5 5/á5š~5 ˡ(5/5̀ƀצ/ƀ5ƀҪL55̀ƀצ.ƀ5ƀҪ555 :5/& 55'(š5 Ą.0ܝ'ڝ'ŕȡ ڂ 5 ܳ ƀǀǓ ƀǀš ƀ :š\55 ˡ,5̀ƀ Pƀצ/Qƀ5ƀҪ5̀ƀ Pƀצ QƀҪ5̀ƀ P  ߿5̀ƀnjƀҦ ǍƀҪ5%á'55̀ƀҧ'iPƀ5ƀҪ:55*áV5á%5̀ƀҦ#4:ƀ5ƀҪ"5̀ƀצ#4ƀ5ƀҪ5#áƀ   &'ޝ'ڝ'޾ˡ''š''ڝ'ݞ'ޝ'ۂ'ޝ''ݝ'ݝ'š'ˡ ڪKKš-K/ˡ$./ÍKKK/ KPצQ   Ȅ2Z۪M OL: LwOO˄aN'L:LG'ML:L+'ڝ'#'۝'$'ܝ''''ġ ':'٭$'ɡ'á%'ٝ':ئתPġّڞڿ'  áۡڞ-> `š2ڡ  šńۑ D:#//   : ::.oolean; Function SOS_G_Seg_Info ( SegNumb : Integer; Var FiveInts ) : Boolean; Function SOS_G_Seg_Numb ( SegAddr : Integer; Var SegNumb, RetCode ) : Boolean; Function SOS_Rel_Seg ( SegNumb : Integer; Var RetCode ) : Boolean; {$ENDC} v'cKKšKá*KšKKڝ'_ KKKK: K;LLKnjL: ǎLLצ.L 'cOOá   *Oؾ'=ÄOQˍ ؝'UšO؂ܕġROOč <OOO۞O ٪ە؞š,OO'OOO OOݕOO؞ޡOO؂Oá OO<ٝ':ˡB'c'ڣ,ڢڣ1'ڣ-Bڣ-š#ڢڣ/ ڢڣ0 ڢڣ1'ڣ-ڢڣ/ ڢڣ0 ڢڣ1 ' ؤ3ۢ'Nۣۢ* '>ۣۢ*:< '''?:*!؂šؕ&22ۿ2ڿ2 /020202*010ō  Z "' ؤ3'ڢ+ڣ+ڢ,dڣ,dڢ- ڢ.ڣ- ڢڣ2'ڣ.ڣ+š5ڢڣ/'ڣ+ڢڣ0'ڣ,ڢڣ1'ڣ-uڣ,š,ڢڣ/ ڢڣ0KJKȡJJJ'= 6ܪP10' 032200012ɡOšOɡš//JšJ//JšJ/2+2,2-2.2//202/212022212/2/ 2mptyئ%Pathname does not specify a directoryתZ0mP<&u_C+bVVצ SOS error VV_f Jت'X'M'N9R٪Juplicate volume errorצNot a block deviceצSegment request deniedצSegment table fullצInvalid segment numberצSegment not foundئInsufficient heap spaceתצ?No files were selected from directory or the directory is et foundתئVolume not foundתئFile not foundתئDirectory is fullתצIncompatible file formatצEnd of file would be exceededئPosition out of rangeתצAccess not allowedצ File is busyצNot a SOS volumeצDVGdɡ'VV0VV.VVVVצ.V šڹئDevice name not foundתצResource not availableצ I/O errorئDevice is write-protectedתצInvalid pathname syntaxئPath no'cۣš'=ۣۣۢ'=ۣڿN צ8016.037.039.043.064.068.069.070.073.074.076.077.078.080. VV ǖVצ(082.087.088.225.226.227.228.251.252.253.ǾV ɡ(VVצ00VV.SCAPE to terminate.ם'R'DK-K'Dá9L ''cá'"'cˡ'?:6ڝ'<؝'=٪JKJKȡJJJ 0ˡ :á::ࣀ''''ࣀ'  تJ JˡI:IL̀ƀצCannot remove ƀǚƀ̀ƀLnjƀ.Ǎƀ .Press RETURN to continue, E? >Lˡ0DŽɡ(š#ނDŽšDŽ ޞނj( >'cݣL ݢ>Lá ݢ>''á ȡ'c ˡ}áFࣀš'= :̀ʀʀ'=ʀʀ ʀʀʀ'OʀÄYʀʀ š š'DŽšDŽʀʀ%šDŽšDŽʀʀʀߚʀʀʀˍۍʀʀʀ'_r'ʀQ˄ʀˍʀ':QʀDŽšʀDŽʀʀ'=ʀ'\áL'? ':QʀáLʀILˡCR̀ƀʀnjƀצ: ǎƀRƀ.ƀ'? ':QLáʕڢڣڢKڣٿڢڣٝ'=ٝ'9Í ڢKڣR'c̀ʀʀġʀá''? ':Qʀʀʀ:ʀá"ʀ'_ʀ ʀá>ʀʀʀ'_ʀʀ ʀ&8?š&؂؏0@!ġ% 'W%?@&bAm!DŽ$#ؓء*ɡ#Ä! ٝ'D'`5  '`ٝ'R á '`.#š 'WánšY'W!@|'W'W 'Xو'ݾ'9ˡܧ'ݾ-T//GMMnjM ǍM۾ ܏۾0* `0 ߪצ*%Í5$Ä&̀ƀnjƀƀ'X))'2ʁ9Ɓ<ʁ8ʁ2 Ɓ<ʁ7ʁ6F'>Ɓ3Ɓ4:́:!؝'D 'X.E* f-'`<#''''+''?':)'&'`J.۝'ō:''ʁ5'ʁ;>''''+''?'Ɓ4:́:)ʁ2ʁ5,́9Ɓ7Ɓ6#Ɓ<'ʁ2Ɓ<R Ɓ<''M'́8Ɓ<ʁ8ʁ2'NƁ<ʁ8ʁ2'́9''& 'XƁ<ƀDƀD]DDʁ;'&2 <8<99pDƀƀ].%́;ʁ;'`'?Ɓ:Ɓ4:́:ƀ׷ƀ׷]׷׷́5ƀ́2ƀʁ2šƀ́2]ʁ2š]́2ʁ2š́2ʁ2LšĹ2Lʁ2''ʁ2'ʁ5'66ȡ Ǒ)Ǎ)*ǎ)66ȡ Ǒ)Ǐ)))*66ȡ'U)ǐ)*66ȡ'U)ǐ)''?:,Td,ئ׷`2š2; 9*(39<8߭V&'bš'>'a'b:'b*'تII'bš''a'bI'bI'b<('bġ''a'bؿ'b'b())))*)*)*)+Z'?:))*nj)ǑBǒ ? BǓ"UBǔU"BǕ6***"B'?:ǖF)))&BǗ3HxpBǘ6***"BǙF)))&Bǚ3HxpB'?:T %''ߝ'á/'?':'?':'!'a 'ɡ'F'a'b'':,' dž*IBLJI*BLjBlj  BNJnjnjnjnjnjnjnjBNjnjnjnjǏnjnjnjnjBnj| BǍ B'?:ǎ |BǏ Bǐ B'?:$##O#$ؓؿ$C࿶CCCCCCCC0B''ߝ'š&%(ɡ''&%' '.'Z'?':'DŽ!Ą%צLine is too long!צצ-!I?@|&'V? צš!A!#%') &)L" move cursor, ƀצ and delete characters4ƀ̀ƀצI for ƀ"ƀצ modeƀϦ1D deletes from the cursor to the end of the lineצ'ESCAPE restores original line (if any)-'& ')'X  'XǛán!mˡ'Tؓء  ǯǿ!"צreplace "צinsert'&'&̀ƀ and  Ǖá^!ȡ2?@! |& 'X!0!'!?@|&A\!Hˡ'TLjbšM?@!&|'W&'W 'Xá!Sɡ;|'W 'XVDŽš%צLine is too long!צצ-)š $ ̀ƀnjƀƀġ^áU۪USSá UצBS/US RRSá Uת#UUƀSRƀU/Uצצ^ˍצ/Ä̀ƀUnjƀƀ8$á1/á̀ƀnjƀƀ$á]/צ:Ä!̀ƀnjƀ/Ǎƀ̀ƀnjƀƀܦ׷ צč*צ=/Í 5&1Q '''()Qá!̀ƀnjƀצ.ǍƀaY JˡǘǙǚ'# '"JǑǑǑ'# '"JˡǘǙǚ'# '" JǑǑǑ'# '" J|I ) Ǒ)ǒ) ) )ء'M)٢(ء'N)'R)>KڟɄK'U)ښڟˡKښ'S):Ɓ:ƀnjƁ:/ǍƁ:GH(4ɡ &Fƀʀ́:ʁ:ƀߪʁ: Ɓ&Ɓ&ʁ: Ɓ&ʁ:Ɓ&ʁ:Ɓ&!ʁ:ʁ:ʁ:ʁ:á ʀݸʀݚʀݸ F)*))))0Gڶš!ܶڕ:Hƀ۪Lڪ٪L̀̀ƀ''/ƀ%ƀ́:Ɓ:ƀnjƁ:צ.ǍƁ:ƀʀˡ &FƁ&Ɓ&̀ƀʀܿƁ&ƀʀܞƁ&á%ƀ۪ۧ'@'@)á צN݂ݑN݂۪٦תئתá&Eܑ/ ܑˡN݂ݑNצ۪=šNNɡNݕN ,E۶šLSYSTEM.LIBRARY.תצTSƀ\1&5VUWWšW.áWWƁWƁTS#RQ$SQátxX5á ۧ'@''NNnjN.ǍN ܑ/ ܑá[-['Dá&5́ƁnjƁƁxǝƁW''fW/ˡ^Wɡ \ת\ƁWƁ\.TEXT׷\.CODE׷!́ƁnjƁצ.ǍƁVUWWšW=áWZ'Rá'%*ۦ*'UZƀ'\'٪Z'RˡƁ1۪''!́ƁnjƁ.ǍƁצTSƀ\1&5''PƁxPO6Ɓ1OˡOƀ́ƁƀnjƁ.ǍƁ צ.Press RETURN to continue, ESCAPE to terminate.'R'DY Y'UZ')G'9۝'D'R'U'TZ"')ƁZ'Dá&5צ=š'UZZ'UZ'TÍ/Íj!́ƁnjƁצ/ǍƁ́ƁnjƁ=ǍƁVU!' 59Nš'!' ݧ''19'!Ne0f 4ުġ ׷ VU#VUצ=šY2/á&ÝƁnjƁ=ǍƁYړVUTƁ')'X'Mצ: P.'N9́%Ɓ%צCannot create Ɓ%ǚƁ%́sƁsPnjƁsצ.ǍƁs צ.Press RETURN to continue, ESCAPE to terminate.'R'DO-O'Dá9'ǍƁr צ.Press RETURN to continue, ESCAPE to terminate.'R'DO-O'Dá9'!' 59Nš'!' ݧ''19'!Nc0d 3ڪƀާ'ƀ'٪'!' ƀƀ19 NNȡNPׯ'!Ʉf ,2ڪƀާ'ƀ'٪'!' ƀƀ19 NNȡNPׯ'!Ʉf'X'Mצ: P.'N9́%Ɓ%צ Cannot open Ɓ%ǘƁ%́rƁrPnjƁrצ. Argument ƀMǕƀ is missing.ǡƀ צ.Press RETURN to continue, ESCAPE to terminate.ם'R'DL-L'Dá9ئתh'Xצڡ'!' 59;'!' #؝'R'DL"L'Dá9lSSɡ ƀתƀƀSƀƀ.CODE׷!̀ƀnjƀ.ǍƀSS/S RRSˡ,ƀSRƀƀSRRƀ.ˡ צܪ ܪצjHJL,(1٪'!/צM̀ƀ5@Lá'U)K.Má'T)K.N    ^ ڕڞ-' -   ת  P Z J ڕڞ:0 ڕڞxQnELName File Type Blocks Modified Time Created Time Length תPL\'bš'٢'a'b'b'b'R)>^ڟɄڮ^'U)ښڟˡڮ^ښ-8_.'ál  آצNo more informatiońhƁh for the " Ɓh Ɓh" optionƁhצ-&[mm'T)W ˡiá]ڟ˶m˄-ٶnánnmm'T)Wġ 'U)V Z)*)))) ]ˡǕǖǗ5 ] ǑǑǑ5 ]ˡǘǙǚ5] ǑǑǑ5]WڟɄW'U)ښڟˡWښ'S)5@Xmánnmm'U)W ˡjá]ڟ˶n˄-ٶmánnmm'U)Wġ 'T)V Ynánnš''a'b 'b 'b.VˡVvVˡ}VoV.U˄) )ۢڳ ڶ Ǒ)ǒ) ) )ء'M)'bš'ۢ'a'b'b'bء'N)'R)[ Ǔ[ Ǖ ǖ Ǘ }}}}}ǘ}Ǚ}ǚ}}} } } ǔ} vo}v o v o v o v o  T'b JJlI ák JkJjlKš(KKK)šK)KKKK KKlkLLáLJlJJlR)\[*\ٶ)ض^č))+ FSɄ+ߞ߂ ̂ƂnjƂ/ǍƂ!jAl 6تJ)JKKKá  KKIkI"ˍfKFšKFKKKKáJ Ɓg:&'?Ɓ9:( U "$qqǕáO[ and move up and downצ selects, unselects gives directory infoƁ$-á˄ʂ ̂ʂġ 'U) K*KƁ̂ƂƂ is no longerƂ#ƀ selected.ת#ƁƁ š1ƀ̂ƂƁ#Ƃצ $ƂƀGƂ#Ɓ #Ɓצfrom the list.Ɓƀ-'#'"'#'"+''?:! '` á'Rޝ'RÝ'`.޹á'?:'X) KMá'?:'X) KNá'ˡ ˄  á0 #'S) ileת#ƁOnly one file may be selectedת#Ɓ6Ɓ$̂ƂצSelect max of ƂƁ6Ƃצ filesƂ#Ɓ̂ƂצOnly ƂƁ6 Ƃ files may be selected Ƃ#Ɓá!Ɓ̂ƂƁ#Ƃצ $Ƃ#'` IK''> #Ɓ9Z'?Ɓ9:%!&6'#'"'#'"+''?Ɓg:),)'#'"*()*NJ) ̂ʂȡ Ǒ) Nj)*)*)'S)ʂL'`ȡáCƁ$Select only one fIڕڞI:nnJ'&'&E -'&O `ƀE'#9ŝ'#ɍ9'#'"ŝ'"ɍ'"'$ɡ'$'"'$š '"'$`ƀ Fȡ!á ᑚ&6'$š'$ L Lnnھ/ánڞ'M'Nn ?'n  Un ɡType = תProDos=תn ooo(on #ڕڞn%Pn/Qn5Pn?Qnǀn# Z'? : L+''?;:), ,+ *)*)'S) _'`\''>:!'` á'Rߝ'RÝ'`.߹á'?:'X) *'U)^á'?:'X) 'S)'T)^ L+''?;:'? :[N+*V $zF  bbצ and move up and downצ-ޡL_ ,[٪צEnter option letters׷4 (type 'R'Da"a'Dá^^'9'̀ƀ'njƀ^Ǒƀa'צ']aa''a ''a]]a'9á''*SHELL/SHELL.CODEתP']'9ˡ'] á]]']TDOUTa,'>*:*צ odometersa'ZZf`۪`'']''@'٦ת^^^'9^^'9^'9''צ'^'צ' '7ڡNParameter(s): 'צ',6RPS Data RPS IndexAFDiscardAFModel AFReptFMTScreenLibתP,-,-ȡ ,', ,,'...JanFebMarAprMayJunJulAugSepOctNovDecתP, -,-ȡ,',,,צ.CONSOLEP '<'<STDINa '='=Sǀ''HUnknown Badfile Codefile Textfile AsciifileDatafile Binary Fontfile תP,-,-ȡ ,', ,,HFotofile BasicprogBasicdataWPfile Sosfile Type = 13Type = 14DirectoryתP,-,-ȡ ,', ,4'5'6'7'8' 9' 0,-,-ȡ' ,3,,, -,-ȡ'c,,,''@'i'i++á 'i'@PB+/'i+ ,,+á+:'i+ ,,+á 'i'@P 'i+,'?ɡ 'D'?':''Y'X'W 'V 'U 'T 'S 'R'Q'P'O'N'M'L'K'J'I'H'G'F'E'D'C'B'A'@ '?'_'9'\':'W';'V'<'R'=\'>''R''U ' ''0'1'2'3'ޭ *)e$ l7تPȡ'X'MUnable to open console for . I/O error code ّ .'NRa'_'^']'\'['Zhgáchddd dedábhhbhÍbr and move up and downצ to select an option to unselect an optionצor just type the optione-;ؼeShgˡ%gWcghˡgZ ghˡgYa'?`_:`'X) gWgZgddd dؼdSS'&'?Ɓu_:`f![a( C "$__eǯǿg[ee ebe ˡSihc,[N+)ʁnn[mXae'`ʁgg ágYginmU'`gW''>eZ_:`!'`ee á'Ree'RÝ'`e.egddd dؼdSgjá'?`_:`'X) gWgYgiáƁq_:`ƁqáƁq Ɓq? ƁqƁq ƀRZZʀƁqƁq?'>Ɓq_:`jápf!\['X'MצInvalid options file format.'N&7^]$ƁuZ'?Ɓu_:`%`T[OR'De-e'Dá9ee'RǯǿZƀ́ZʁȡBƀZddd dd ˡ ؼdZZe'Rá &7f nmij́́klƁqƁqƁq\Ɓq[Ɓq Ɓq?ƁqZƀʀHZá3'>צ̀  ̀ʀȡʀá$Ɓ*No help file exists.תƀ TƁ*́ƁצFile ƁǑƁʀƀƀ́ƁƀnjƁ.ǍƁצHelp file not available, sorry.Ɓ*ƀצ.Press RETURN to continue, ESCAPE to terminate.'צ ? for help): \[#ƀתƀ')aeźeʁȡBe deddeee')ƀ'R'Dǯǿe"')ƀe'Dá9eǯǿ'9ˡ'''֝']]\dc'] ˧']'9˄']aa'>ç']'9˄@]]']aaná '\'=atá '\'< '\ad a>a<Íc'\a]]\\d'\'9]]c}''֝'a'֝''֝''e/b''a<á'<eצSTDIN: 3'<'=eצSTDOUT: 4'=''@'٦תR&(>8.'š'&'?ġ '?';''<9'('''`'&''%''?''!constant 014:Identifier too long 015:Character constant extends to end of line 016:Character constant zero length 017:Illegal character in input 018:Integer constant expected 019:Label expected 020:Error in label 021:Type name expected (INTEGER, REAL, LOGIcified on $ compiler directive line 008:Unrecognizable $ compiler directive 009:Input source file not valid text file format 010:Maximum depth of include file nesting exceeded 011:Integer constant overflow 012:Error in real constant 013:Too many digits in 001:Fatal error reading source block 002:Nonnumeric characters in label field 003:Too many continuation lines 004:Fatal end of file encountered 005:Labeled continuation line 006:Missing field on $ compiler directive line 007:Unable to open listing file speO^cCHARSET SOSDATA <ARMINTR <ATTNCHARDEVNUM &&ORIGSTATDISARMINb<DEVNUM xxORIGSTATd^##!$$%H% &%'(4&F(8==vDDEO|WLY j )-/>1p256^669v::::;N;;>:>d>EEEG@H|HH$MxMMMMNBNOO@SUSTVWXZ_```aa@b~&a ' NUMB \\RETCODE UPLOAD <Xi/`ਊ LXVi/^ਊ LVXZ\^਩ `਩ b਩ d਩ -.;T>:HH`z01234567890MJC><99j' b4:Z~}lec`^[XWTGD'h*h+hh/0h-h,+H*H`20'$"J'hhhhifi+e,eii\i/dਊ L\Zi/bਊ LZ9'#'"'$') XhZh[hhhhhuhno^alȑk)t\n]ok[HZH`pb.CONSOLExmkmk፴vwȑ୳୴`CAL, or CHARACTER[*n]) 022:Integer constant expected 023:Extra characters at end of statement 024:'(' expected 025:Letter IMPLICIT'ed more than once 026:')' expected 027:Letter expected 028:Identifier expected 029:Dimension(s) required in DIMENSION statement 030:Array dimensioned more than once 031:Maximum of 3 dimensions in an array 032:Incompatible arguments to EQUIVALENCE 033:Variable appears more than once in a type specification statement 034:This identifie following procedures were called but not defined: 097:This procedure was already defined by a $EXT directive 098:Maximum size of type CHARACTER is 255, minimum is 1 100:Statement out of order 101:Unrecognizable statement 102:Illegal jump into block 103:La a separate compilation 093:Fewer actual arguments than formal arguments in FUNCTION/SUBROUTINE call 094:More actual arguments than formal arguments in FUNCTION/SUBROUTINE call 095:Type of actual argument does not agree with type of format argument 096:The087:Error in type of argument to an INTRINSIC FUNCTION 088:SUBROUTINE/FUNCTION was previously used as a FUNCTION/SUBROUTINE 089:Unrecognizable statement 090:Functions cannot be of type CHARACTER 091:Missing END statement 092:A program unit cannot appear inctual type 083:Letter expected 084:Type of FUNCTION does not agree with a previous call 085:This procedure has already appeared in this compilation 086:This procedure has already been defined in another unit via a $USES command Constant expected 078:Type conflict in DATA statement 079:Number of variables does not match number of values in DATA statement list 080:Statement cannot have label 081:No such INTRINSIC function 082:Type declaration for INTRINSIC function does not match ats cannot appear in DATA statements 073:COMMON variables cannot appear in DATA statements 074:SUBROUTINE names, FUNCTION names, INTRINSIC names can't appear in DATA statements 075:Subscript out of range in DATA statement  076:Repeat count must be >=1 077:068:Adjustable bound must be either parameter or in COMMON prior to appearance 069:Adjustable bound must be simple integer variable 070:Cannot have more than 1 main program 071:The size of a named COMMON must be the same in all procedures 072:Dummy argumenarations can only be used for dummy arrays 066:Adjustable-size array declarations can only be used for dummy arrays 067:Assumed-size array dimension specifier must be last dimension CE'd CHARACTER items must be the same 061:Illegal assignment - types do not match 062:Can only call SUBROUTINES 063:Dummy parameters cannot appear in COMMON statements 064:Dummy parameters cannot appear in EQUIVALENCE statements 065:Assumed-size array decl or REAL 053:Type of argument must be INTEGER, REAL, or CHARACTER 054:Types of comparisons must be compatible 055:Type of expression must be LOGICAL 056:Too many subscripts 057:Too few subscripts 058:Variable expected 059:'=' expected 060:Size of EQUIVALEN048:Mixed CHARACTER and numeric items not allowed in same COMMON block 049:CHARACTER items cannot be EQUIVALENCE'd with non-character items 050:Illegal symbol in expression 051:Can't use SUBROUTINE name in an expression 052:Type of argument must be INTEGERthe same location in a COMMON block 045:EQUIVALENCE statement extends a COMMON block in the negative direction 046:EQUIVALENCE statement forces a variable to two distinct locations 047:Statement number expected pears in a COMMON block 041:Variables in two different COMMON blocks cannot be equivalenced 042:# of subscripts in EQUIVALENCE statement doesn't agree with variable declaration 043:EQUIVALENCE subscript out of range 044:Two distinct cells EQUIVALENCE'd to r has already been declared 035:This intrinsic function cannot be passed as an argument 036:Identifier must be a variable 037:Identifier must b a variable or the current FUNCTION 038:'/' expected 039:Named COMMON block already saved 040:Variable already apbel already used for FORMAT 104:Label already define 105:Jump to format label 106:DO statement forbidden in this context 107:DO label must follow DO statement 108:ENDIF forbidden in this context 109:No matching IF for this ENDIF 110:Improperly nested DO block in IF block 111:ELSEIF forbidden in this context 112:No matching IF for ELSEIF 113:Improperly nested DO or ELSE block 114:'(' expected 115:')' expected 116:THEN expected 117:Logical expression expected 118:ELSE statement forbsing N or Z after B in format 605:Unexpected character in format 607:Integer expected for w field in format 608:Positive integer required for w field in format 609:'.' expected in format 610:Integer expected for d field in format 611:Integer expected for e large (code buffer too small) 404:Insufficient room for scratch file in system directory 405:Read error on scratch file 600:Format missing final ')' 601:Sign not expected in input 602:Sign not followed by digit in input 603:Digit expected in input 604:Mis212:Syntax error in $EXT directive 213:A SUBROUTINE cannot have a type 214:SUBROUTINE/FUNCTION name in $EXT directive has already been defined 400:Code file write error 401:Routine too complex 402:Too many SUBROUTINES/FUNCTIONS in segment 403:Procedure tooit in $USES file 207:Illegal segment kind in $USES file 208:There is no such unit in this $USES file 209:Missing UNIT name in $USES directive 210:Extra characters at end of $USES directive 211:Intrinsic units cannot be overlayed ng $USES file 201:Syntax error in $USES file 202:SUBROUTINE/FUNCTION name in $USES file has already been declared 203:FUNCTIONS cannot return values of type CHARACTER 204:Unable to open $USES file 205:Too many $USES statements 206:No .TEXT info for this uns 165:Label of an executable statement used as a format 166:Integer variable expected for assigned format 167:Label defined more than once as format 169:Function calls require '()' 170:Only sequential formatted files can be print files  200:Error in readi160:Unrecognizable format in I/O statement 161:Options expected after ',' in I/O statement 162:Unrecognizable I/O list element 163:Label used as format but not defined in format statement 164:Integer variable used as assigned format but no ASSIGN statements reading I/O list elements 155:REC= option appears twice in statement 156:REC= expects integer expression 157:END= option only allowed in READ statement 158:END= option appears twice in statement 159:Unrecognizable I/O unit ct access files must specify RECL= in OPEN statement 151:Adjustable arrays not allowed as I/O list elements 152:Expressions beginning with '(' not allowed as I/O list elements 153:Variable required as control for implied DO  154:Expressions not allowed ater expression as filename in OPEN 146:FILE= option must be present in OPEN statement 147:RECL= option specified twice in OPEN statement 148:Integer expression expected for RECL= option in OPEN statement 149:Unrecognizable option in OPEN statement 150:Dire140:Assigned GOTO but no ASSIGN statements 141:Unrecognizable character constant as option 142:Character constant expected as option 143:Integer expression expected for unit designation  144:STATUS option expected after ',' in CLOSE statement  145:Characminated 133:FORMAT statement not permitted in this context 134:FORMAT label already referenced 135:FORMAT must be labeled 136:Identifier expected 137:Integer variable expected 138:'TO' expected 139:Integer expression expected c IF statement forbidden in this context 125:',' expected 126:Expression of wrong type 127:RETURN forbidden in this context 128:STOP forbidden in this context 129:END forbidden in this context 131:Label referenced but not defined 132:DO or IF block not teridden in this context 119:No matching IF for ELSE 120:Unconditional GOTO forbidden in this context 121:Assigned GOTO forbidden in this context 122:Block IF statement forbidden in this context 123:Logical IF statement forbidden in this context 124:Arithmeti field in format 612:Positive integer required for d field in format 613:Positive integer required for e field in format 614:Hollerith field in format must not appear for reading 615:Hollerith field in format requires repetition factor 616:X field in format requires repetition factor 617:P field in format requires repetition factor 618:Integer appears before '+' or '-' in format 619:Integer expected after '+' or '-' in format 620:P format expected after signed repetition factor in formatotected 919:Too many files open for system to handle  932:Invalid request code 933:Invalid control/status code 934:Invalid control/status parameter 935:Device is not open 937:Resource is not available 938:Invalid operation 939:I/O error 943:Device is writpecified directory 911:Duplicate pathname 912:Attempt to open an already open file 913:Attempt to access a closed file 914:Bad input format -- error in reading number 915:Ring buffer overflow -- input arriving too fast 916:Write-protect error -- disk is pr903:Illegal operation (e.g., read from .PRINTER) 905:Lost unit -- no longer on line 906:Lost file -- file is no longer in directory 907:Illegal pathname 908:No room -- insufficient space in directory 909:No unit -- unit is not on line 910:No such file in s 700:Attempt to backspace UCSD file - Restriction 701:Underflow in TAN 702:Argument to LN negative or zero 703:Argument to SQRT negative 704:Too many bytes read out of unformatted sequential unit record 902:Bad unit number characters to internal unit than its length 667:EOF called on unknown unit 697:Integer variable not currently assigned a format label 698:End of file encountered on read with no END= option 699:Integer variable not ASSIGNed a label used in assigned goto ice 662:Argument to ASIN or ACOS out of bounds (ABS(X) .GT. 1.0) 663:Argument to SIN or COS too large (ABS(X) .GT. 10E6) 664:Attempt to do unformatted I/O to internal unit 665:Attempt to put more than one record into internal unit 666:Attempt to write more657:Attempt to do direct access to a unit opened as sequential 658:Attempt to position direct access unit on unblocked device 659:Attempt to position direct access unit beyond end of file for reading 660:Attempt to backspace unit connected to unblocked devnit record 654:Attempt to open direct access unit on unblocked device 655:Attempt to do external I/O on a unit beyond end of file record 656:Attempt to position a unit for direct access on a nonpositive record number for file 649:Unable to read block input 650:Error in formatted text file, no in last 512 bytes 651:Integer overflow on input 652:Too many bytes read out of or into a direct access unit record 653:Incorrect number of bytes read from a direct access uormat 644:E or F format expected for real write 645:L format expected for logical write 646:A format expected for character write 647:Attempt to do unformatted I/O to a unit opened as formatted 648:Unable to write blocked output, possibly no room on device637:L format expected for logical read 639:T or F expected in logical read 640:A format expected for character read 641:I format expected for integer write 642:w field in F format not greater than d field + 1 643:Scale factor out of range of d field in E f as unformatted 632:Format fails to begin with '(' 633:I format expected for integer read 634:F or E format expected for real read 635:Two '.' characters in formatted real read 636:Digit expected in formatted real read stant in format must not be repeated 627:'/' in format must not be repeated 628:'$' in format must not be repeated 629:BN or BZ format control must not be repeated 630:Attempt to perform I/O on unknown unit number 631:Formatted I/O attempted on file opened 621:Maximum nesting level for formats exceeded 622:')' has repetition factor in format 623:Integer followed by ',' illegal in format 624:'.' is illegal format control character 625:Character constant must not appear in format for reading 626:Character cone-protected 944:Byte count is not a multiple of 512 945:Block number is too large 946:Diskette has been switched 964:Invalid pathname syntax 965:Character file control block is full 966:Block file control block is full 967:Invalid file reference number 968:Path not found 969:Volume not found 970:File not found 971:Duplicate filename 972:Overrun error 973:Directory is full 974:Incompatible file format 975:Unsupported storage type 976:End of file error 977:Position is out of range 978:Access error 979:User 80: File is busy 81: Directory error 82: Directory is not in SOS format 83: Invlaid value in list parameter 84: Out of free memory for system buffer 85: Buffer table is full 86: Invalid system buffer parameter 87: Duplicate volume error 88: Not a le not found 71: Duplicate filename 72: Overrun error 73: Directory is full 74: Incompatible file format 75: Unsupported storage type 76: End of file error 77: Position is out of range 78: Access error 79: User-supplied buffer is too small 5: Block number is too large  46: Diskette has been switched 64: Invalid pathname syntax 65: Character file control block is full 66: Block file control block is full 67: Invalid file reference number 68: Path not found 69: Volume not found 70: Fiequest code 33: Invalid control/status code 34: Invalid control/status parameter  35: Device is not open 37: Resource is not available  38: Invalid operation 39: I/O error 43: Device is write-protected 44: Byte count is not a multiple of 512  4"1: Invalid system call number "2: Caller's zero page is not $1A  3: Invalid extend byte in pointer  4: Invalid system call parameter count "5: Pointer parameter is out of bounds 16: Device name not found 17: Invalid device number 32: Invalid rO^¦lume error 988:Not a block device 989:Level error 990:Invalid bitmap address has been found on volume -supplied buffer is too small 980:File is busy 981:Directory error 982:Directory is not in SOS format 983:Invalid value in list parameter 984:Out of free memory for system buffer 985:Buffer table is full 986:Invalid system buffer parameter 987:Duplicate voblock device 89: Level error 90: Invalid bitmap address has been found on volume 112: Invalid joystick mode 224: Invalid segment address 225: Segment request denied 226: Segment table is full 227: Invalid segment number 228: Segment not found  229: Invalid search mode 230: Invalid change mode 231: Invalid page count 252: No files were selected from the directory or the directory is empty 253: Pathname does not specify a directory 254: No file was selected from the list 255: Too many open files for the Pr9 á  9 A     >[hhhhhhhhHHHHHH`(6> Fh&jF ????2 ?  ??ܳ1? ?=~@:?ܳ^  9   9 á   9q99 á  H9/? ?> ??    >9ܑ95?.????2 ??L=[?9  J 9 9$ ? ?8 ?? ġ,@ነ 9 9/9 á   9 ?Br99B 9?;ܳ1?ܳ^; S>9߳I@߳}:#{9L.6ZO$<=*      < ?  &9 9آ99آ99آ99آ99آ99آ99n ب99999990 /9 9 >ߡڑ9!7FFLOATLIB/TRANSCEND.TEXT*:>titm+i LPatm DEVO/FLOATLIBtJJ|rJtmJJJtmJ ~!!x ^!ECommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem,9 USES {$U FLOATLIB/REALMODES.CODE} REALMODES; 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;  IMPLEMENTATION E 9,-. lV*0 TRANSCEN REALMODE FORTIO FORTIO FORTFUNC,imitives to handle   ??ܳ1? ?=~@:?ܳ^  9   9 á   9q99 á  H9/ type numenv = array[0..2] of integer; rmode = (rnear, rpos, rneg, rzero); closure = (proj, affine); denorm = (warning, normalizing); xcpn = (invop, underfl, overfl, div0, inxact, cvtovfl);  procedure savenv(var e: numenv); procedure restenv(e: numenv); H`0 2) l` 0 2) l` 0 2) l` 0 2) l` 0 2) l` 0 2)  l` 0)`0Q $"-!ǀ@ hhhhhh5HHHH`"hhhhhh3HHHH`"hhhhhh1HHHH`"hh4hhHH`hh2hhHH`hh0hhHRM MUM;OM" OMKS$ ÄNM-ܡܑP  š  <R  ȡ  $H ZS.KL"M(N (OM/   NMz fNMNt   \ < J K$LDá HB  6GCF D Ná(EF I!  F.ٹ5'6#789: jع;<=>*á?@ áAB DDE *,ب"! .ء1ٹ#($$% &'( .ٹ)'*#+,-. jء1ٹ/(0$1 234 ation E n minnorm: real; function minreal: real; function makeNaN(signal: boolean): real; function copysign(x, y: real): real; function logb(x: real): real; function scalb(x: real; n: integer): real; '^'^function nextafter(x, y: real): real;   {DO NOT ADD ANY PROCEDURES OR FUNCTIONS PREVIOUS TO THESE TWO FUNCTIONS OR LOU INFELD (OR THE CURRENT FORTRAN PERSON) WILL KILL YOU.}  function sqrt(x: real): real; function rem(x, y: real): real; Implement: real; function minnorm: real; function minreal: real; function makeNaN(signal: boolean): real; function copysign(x, y: real): real; function logb(x: real): real; function scalb(x: real; n: integer): real; '^'^ closure; procedure setdnorm(x: denorm); function getdnorm: denorm; function finite(x: real): boolean; function isNaN(x: real): boolean; function integral(x: real): boolean; function unordered(x, y: real): boolean; function infinity: real; function maxrealprocedure setxcpn(e: xcpn; b: boolean); function getxcpn(e: xcpn): boolean; procedure sethalt(e: xcpn; b: boolean); function gethalt(e: xcpn): boolean; procedure setround(x: rmode); function getround: rmode; procedure setclos(x: closure); function getclos:)`0)`0)`0)`0)ߑ`2 `2 `2 `2 `2 `2 `2)`2)`2)`2)`2)`2)ߑ`hhhhhhhh0)YU0)HD0)730)&"0)ʢ0) HHHH`hh   Uses {$U RUNTIME/ucsdfiles.code} ucsdfiles;  { 2 } PROCEDURE RTINITIALIZE;   { 3 } PROCEDURE RTFINALIZE;    IMPLEMENTATION N E @O  . F ^ v 6\>b0 ,t  F  "f 849SfYSYSCOM TZYXGFILES iYY2CUSERINFO0]FHEMPTYHEA ZINPUTFIB2C`8`yyyy`8`jg`Y)&%  XMLI#0P~2 v |  0 F \ E  6ELS  ]EU 0  Ll HH`hhhhh*68jh*vHH` `hh00 2)hh ljH*vjHHHHH`Vvvv`666`     88  e     L     ]L   JL 0 ] LL ?ӥ L ?Lv   e e e e &&&e eeeLH     &&&%e   e e e e  FJH HHHHH`4)@ 4  0 2)hh l` ^hhhhhhhhhhhhhh hFfff8 @| e e e e Ffff Ffff  e e e e &&&8 LAFfff Ffff  e eee)@E0iii2)8`2)`$%ʥjŐ892hhhhhhhhhhhh&*8f$3C$&&jHjHHHHH`8ߥץ0ϊLIHHHHhHHHH l%L0 HHHH2)L2)4)@:4) \0 0  2)22)*`%Р0 % 2)8`%0Ԡ0 ffff쩀%A0 4)4074h8&&&HiHHH`8hhhhhhhhhhhh**Lti i&&&eeP 3b88 E50V&&jfHHHHHH`*$Pߠ0 2)hHjjHHHHH`*hhhhhhHHHHHH`"hhhhhhHHHHHH`$hhhhhhHHHHHH`"hhhhhhhhhh&&8ffff8e080 HHHH`HHThhhhhhhhhhhhhhhhhH**)HHH`0hhhhhhhhhh*JHHHH`8hhhhhhhhhhhh&ffHHHHHH`>hhhhhhhhhhhh&&jfHHHHHH`BhhhhhhhjHH`:5)`5 @`5 `5)`hhhhhhH5)@HHH`,hhhhhhH50HHH`*hhhhhhhhhhH&*HHH`.hhhhhhhh2)YU2)HD2)732)&"2)ʢ2) HHHH`4`@4` 4`4`hhhhhh404)@ 4) HH@[/.).mЀIjTOOLS/PAS.CODES/PAS.CODES.CODEPAS\\f'mЀkb/P/FORTRAN/TOOLS/PAS.CODE::.CODEAN $%צS#   P#   I#  á_ j&ئתP 0 á(6(,')-š%-- +- -+-ȡ 2ȡ 1ܓ-Wܡ9-<0ˡ-P+á-=-W-=-W9--@ǔ-@-@,<-Oš -O-O9-<0á -=9-<-P-<9-<0ˡ-X11ݢښݢ.ۚMݣ> ݣ-Y-X>11ݣ>ݢ ˡ5ݢݢ "$t8-@-?š->-@ǔ-@-@ ˡaĶzȄ D ɡS-:23<-ȡޢ "š"+ޢ-:W7--Z-ݢ 2ݢ ݣݢ Ʉ3 1ݣá ݢ11ݣ3ݣݣ.ݢ.-+Íؓ-;á2 ˝-;ˍf á-V ɡ3 ܏.09ō ȡ8ݕ ȍ3 ܏0ە-;ɡ2-;-;-;šݡܑܚr 7-6/-9}ġA-:}-9-9-8ȡ 1}-9-vݣǀ>š4š4Z4-ڢ ,3ڢńڣh4ڣڢ +ڢٚ4ڢُš4ڢڢ -ٚ3-Sȡ *1 "5ȡ 1 6-;2 ˝-;Í-̝-7-9Ǭ?-9-9- ~-$--ȡ---- U- ۢ ۢ 4ۢۢ ۣۢۢ "š"+ۢ -ٚ2- ۣ ۢ  ۣۢ > ړ"LÍ ۢ  "š"+ۢ d0-6'-9-8ȡ-7-9Ǭ?ؿ-9-9B-٢á٣٢ 0٢i٣U٣٣-Y٣.á-X٣.-X٣-Y-X> ٢ ٢ ٢ ٢٢ ٢ "š"+ 1-;-;-6,-9-8ȡ/ J.-6@-//,--áC-ۣ7"ۢ0ۣ.ۣ.čۣۣĄۣۣۣ.ۣ(Ą˄r á0ع I A 9 1 1$ % ?I X'&R-۟܄á 0,-á 0 ---ܢښܝ-ܢܢܢ-H-؝-á--ٟˡá؝-ˡ ؝---ʄ-̄-)' **** Fortran Runtime I/O error #  ****DŽ'&R+**** Fortran Runtime Error #X  **** ̄.Egȡ̄.8|ȡ̄.+ǐȡ̄.džȡ̄.ȡ̄.̄.Ƃ+ʄ.̄-ʄ-ˡ)̄-*Ƃ+ʄ-Ƅ/Ƃ+ʄ-Ƅ/ÄƂ+ʄ-Ƅ/ÄLDŽ Ƃ+ʄ- ̄,ʄ,PšP̄,ʄ,Ƃ+ʄ-ʄ,,'á ---\*Ƃ+ġ)Ƃ+ Ƃ+ Ƅ/(Ƅ/ɡ#Ƅ/̄XƄX0ƄXƄ/QƄXPצ%FORTRAN.ERRORS"š)ȡ̄./ȡ̄.Cȡ̄.Vȡ̄.wmȡ ̄.lNjȡ ̄._ǟȡ̄.Rȡ-Iš1-A-I-A-I-E-I-@-Iš -I-I-M58-L-I-J-@-A-I-K-E-I-Jܡ-:ܡ<'ˡ)1-@-?š->-@ǔ-@-@<'á'1 -@-@ۡܡ8ܡ\-Pܡ-PZ-Vy$\r% G "$&(*,.02468:>@BHNPTmXe\^`bdfhlp;-أá -:8آ$=-ˡ8أR-Wġ/ġ@$@ߞ$ A!  A-PFáȡ< Ȅ0ኖ Aۡ-PFá-W ń -S-R ɡ*ȡܕ ܕ -R1;  A+$ $áD?1$ ⑞$á -PFá -W-R1-Wš -R!-Wá-R-W-Rš - 0 áޡ-ܕ-Sš5(-Sܕ6ȡ1k ȡ *ȡ101,B->á+/ȡ->á@-M;-P\ˡ8-6a-->á/8?-M;-P\˝-8-ڢ-- --ڢ-ڢ-->á#/11;-PIˡ)á-32768רP רɡ ݂ؑ ȡ3܂Ǭ?޿ ȡ;-PAˡ(-U-S-;-Sɡ-S-Sؕ ȡ 2؏ء݂ ȡ2܂Ǭ?޿-S ȡ܂Ǭ? )Rw-6 *->á(/3ٿ3ٿi;-PLˡ%-;2 ˝-;-SÍ.á-;-Sá&2TF˄t˄f˄-'TtÍ-;-Sɡ2] ȡ *->áH/ ȡ7؏ء-Í-S-;7-áߑ&09ō$ A0-;-Sܓ2-;-;-;-S܍ݡ ġޞ$-R$ܓ-Wɡߑ$ ߞ$b'jȡǬ? *->á,/ ȡ3 ٿ ;-PF˝-PE˄"-;2 ˝-;-SÍ--+Í-;-Sá 2 ˝-;-Sˍ á-V A}.á ġ#kEDÍeÍdÍ-S-;7I+>"š"+ ˡ8ۢáۢ=ۢۢ ,--ˡ$-٢ "š"+٢٢٢< ->á(/3ٿ3ٿ;-PIˡ!؝-S7J ȡ ۣۢ<=ۣdۣ> "š"+ڏقš%ɡ ۣ>"š"+ ,--ˡ-ۣ$ۢ ܢܣܣ"ܢ#ܣ$ܢ dd5ۣ> "š"+ۣġ ޣIޢá>-:ޣޣޣ(Ą;ޢ.ٚޣġޢޢښYޣޣ>"Lá;"Má$ޣ>ޣ>"š"+ޢ  &,--ˡ--Z-h->--:-6-7-8-9$-6 -->-?-@9-<(ˡ -O-V-I-A-E-@-@-J-K-L-M-Wtɡ8-9ޣ:/݆ۏá( A 44unit...4 W4P ?- 44ښ4ٚ4ܚ44ؚ4 4 4 @4 4 4 ۟"š"+-4 464,--á---˄7->-:ء--=--á--أÄأ.أ(ń آ(أ.6>,--ˡ+-ء -  - "š"+-.BPšP á٦תP 8?@ئתP 0 á& 4AȄ ɡ5_6ܡ-1-RȄ01š B .1-Rń01 ȡ B֝-PEá؝-W-Rȝ-W-Rō+ۡ -W -T”-Q$-S-Q ġ-S -R-WĂ܂ɡڡ5ߕ6ܡ-1-Wȡ-W˄ 1B.1-Wġ 01-Wĝ-W-RɄB-R-Wȡ B-TE1dɡ E1-Q-Qɡ -1+1  0 á-Q敕ȡ 01ȡER): INTEGER;   { 10} FUNCTION RSSI(A: REAL; B: INTEGER): REAL;   { 11} FUNCTION RSSR(A,B: REAL): REAL;  YX8 XY XYHHHHUHTH`VT-hhhhhhhXY REAL;   { 4 } FUNCTION ACOS(A: REAL): REAL;   { 5 } FUNCTION ATAN2(A,B: REAL): REAL;   { 6 } FUNCTION SINH(A: REAL): REAL;   { 7 } FUNCTION COSH(A: REAL): REAL;   { 8 } FUNCTION TANH(A: REAL): REAL; "  { 9 } FUNCTION ISSI(A,B: INTEG   Uses RealModes,Transcend;  { WARNING!!!!!! Do not change the order of the following procedures or "modify the list without changing the "RT_Loc" table in FUNITS/FTNCODE }   { 2 } FUNCTION TAN(A: REAL): REAL;   { 3 } FUNCTION ASIN(A: REAL):ER QQ MAJORREVO xQINTSEGSER8RPRIUNAMECSbR(R8R M0FILLER NRbR$XR#NOTICE xR(OPBYTERANGR"GTRICKARR(@)^)&)>pNx$t%hL,H:"& t\` \,*,CSEGKIND XQ.Q8Q`N8NSEGTEXT NQXQpNSEGINFO QnQQNQSEGNO QQQMACHTYPEQQ OQFILLH-hhhhhhhhhhȱȱȱȱȱ 88ȥ8ȥ歧HH`1+%- ."X2> !*!!T!B" ##$$>%%N& Y Y \ ] ] XeYe     L\]\8\]\ȥ\ȥ^\ȥ_\\^]_8\Z][l HH`iLi-h3h4hhhhhh SHRHL*HH4H3H`64XeXYeYXeXYeYXXe Xe YX Y X(L) XYLx X Y 'XYHHHHHH`H61-^__`ȱ`ȱLhh L8\\]]\)\XG8G.G$G/7D<4 0(" !hThUhhhhXYXeXYeYX8 XY 'XYHHHHUHTH`VT-h-hhhhhhXYXeXYeYX8XYX Y ۡ-צProgram terminated.O,Please press or to continue. áR ɡG GGە̀ ڕ̀G۞Gʀڞʀٹá@-M;-P\ˡ8-62-->á /8آ-M;-P\áآ8آ^->---CONSOLE:רȡy؏ءۂ- Ä0 Ǭ?0š Ǭ? Ǭ?"š"+؂ȡ;-PAˡ.-U-S-Sؕ6-Sɡ-S؏ءۂ-6" ȡ܂Ǭ?1e- Ä1ܹ, (BmD0+d ȡǬ?  ,->á#/11;-PLˡ--S6ءT1F1Pȡ*->á/XeXYeYX8XYX Y XeXYeYXeXYeYXXe Xe YX Y X(L) XYLx X Y XYHHHHHH`H61^__`ȱ`ȱLhh  { 12} FUNCTION MININT(I,J: INTEGER): INTEGER;   { 13} FUNCTION MNREAL(A,B: REAL): REAL; {changed from MINREAL-name conflict}   { 14} FUNCTION MAXINT(I,J: INTEGER): INTEGER;   { 15} FUNCTION MXREAL(A,B: REAL): REAL; {changed from MAXREAL-name WAP /// SIG PUBLIC DOMAIN LIBRARY PDS NAME: Fortran Language DISK ID#: 3PCL-19 BOOTABLE?: Bootable DESCRIPTION: Fortran Language. Requires Pascal. See Manuals on Disks -: 3PCL-17 and 18. -: -:On Side One: Type Blocks Name Pascod 156 FORTRAN.CODȱȱ 88ȥ8ȥ歧HH`1+%jn( 0*Fr48p(JH. 2چڏ?9??9 Rh3h4hhhhhh SHRHL*HH4H3H`64Hhhhhhhhhhhȱȱȱ  ɡ   & š  &ɡ á 2rˡ8šڑڡ܏š܏áޡ݆* N ?ˡXš  ڑڡ š á?J z + I@ I@  ??2??2A-' ? ?3?>c?9' ? ?? K ( ? ?N ʄ-̄-**** Fortran Runtime Error #X  **** XR%$ǽ<?̄.Egȡ̄.8|ȡ̄.+ǐȡ̄.džȡ̄.ȡ̄.̄.Ƃ+ʄ.̄-ʄ-ˡ̄-Ƃ+ʄ-Ƅ/Ƃ+ʄ-Ƅ/ÄƂ+ʄ-Ƅ/ÄLDŽ Ƃ+ʄ- ̄,ʄ,PšP̄,ʄ,Ƃ+ʄ-ʄ,.á ---\Ƃ+ġƂ+ Ƃ+ Ƅ/Ƅ/ɡ#Ƅ/̄XƄX0ƄXƄ/QƄXPצ%FORTRAN.ERRORS"šȡ̄./ȡ̄.Cȡ̄.Vȡ̄.wmȡ ̄.lNjȡ ̄._ǟȡ̄.RȡצS#   P#   I#  á_ jئתP 0 á(6.-š%-- +- -+-conflict}  { 16} FUNCTION IARITHIF(VAL: INTEGER) : INTEGER;  { 17} FUNCTION RARITHIF(VAL: REAL) : INTEGER;   { 18} FUNCTION IMOD(A,B: INTEGER): INTEGER; { 19} function round(a:real):real;   IMPLEMENTATION X E "expconv=126; "  TYPE "tr^I9 GER;   { 15} FUNCTION MXREAL(A,B: REAL): REAL; {changed from MAXREAL-name conflict}  { 16} FUNCTION IARITHIF(VAL: INTEGER) : INTEGER;  { 17} FUNCTION RARITHIF(VAL: REAL) : INTEGER;   { 18} FUNCTION IMOD(A,B: INTEGER): INTEGER; { 19} function round(a:real):real;   IMPLEMENTATION N E E Pastxt 31 FORTRAN.ERRORS Pastxt 7 SOSERRORS Pasdta 54 SYSTEM.LIBRARY On Side Two: Fortran.EZP - Data Base file of information about Fortran. Requires 3EZ Pieces or AppleWorks. Pieces or AppleWorks.