`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$Jˡa+ @  š8&#ȡ&S&ɡ%ۂ$$CT***** Error number:   in line:  Z***** E""" ' " " " ""X4* J  )6E SB FORTRAN: COPYRIGHT 1980 BY APPLE COMPUTER INC. ALL RIGHTSRESERVED (R.WIGGINTON WAS HERE) FORT2ANbSYSTEM.COMPILERFbSYSTEM.LIBRARYn SYSTEM.APPLEvg SYSTEM.PASCALvgiSYSTEM.MISCINFOESYSTEM.CHARSETgZ@bBbBb̘`nMFil bvbbvbh~ ~ ~ .bv0b(&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&rror number:   in line:  , ݢ$ ݢ"ݢؚCצ( (continue), (terminate), E(dit EÍeÍݣÍ ˡݣáݢl C)$2ˡ <$ >35y Dc$ ˡá B"q饆$ DآD<""RDc$ ˡ"ġc"á $ $ "R:##ɡ ꩂ& && ˡazȄ ؤÍ򥁘ؤġؤɡ&&    á''ˡ(&#ɡ ꩂ&'&&'á &&ܡ쩀á ˡ.á1&.ث& á &&P  á"      N&#ɡ ꩂ& && ˡazȄ ؤ襀   ؿ&0  á\ ɡ, ġ) ȡ詂&&*WqV  0˶Íá á(0   öE˄Eá  áA ȡ& +á -á ˡ á  #צEQV. OT. uE. צT. SND. AR. 0EAT(+Y5 "$&6 H .á  ȡ& *6 ȡ> ġ ũ č   TF ZRUE. צALSE. צT. E. צQ. QV. E..0/.0/0//0-&2Z P],.TEXT˦.TEXTÍ  צ.TEXT D"ˡ( Can't find $ D<B S&_b éb ˍ&#]á#á]S#&#^&m &#ɡ ꩂ& &&*&#ɡ ꩂ& && ˡazȄ : BڪP&-/nclude.l lD<""R"ġ c"á )%'Y[$<JNH ]1$%ꩆ#^^&_bJ& áBÍˡ"C ,l $%&ڂ&"ڂ"" c" ""š R"襆$ "ġ ꩆ饆$ צ.TEXT  צ.TEXT Í  .TEXTDD "ˡM Can't find   to iXREFׯ' צSWAP)  0ÍɄ ɡ)á  ˡ˚ 0Íš$BšBꩂ& &߂&߂Hڕ c" Hڕ c"  Ä ޫ&c"ꩂ&ڞB楈c"ác" ""*CÍcÍ åc" Ä$á  צINCLUDE  USESׯ צEXTUꩂ& ꩂ& H c" c"ꩂ&ڞ&ڂ&"ڂ"@ צSEPARATE() .<$ צ>. .$$>S @š  c"  á  ""< ˥c" Í Ʉ% aĶ zȄ  ٶ ٿáD\ d& C$ġi+é+Í*$ .  ˡĩH襈cپá1c š!c 詆HšH襆 ٕۂHšHc٥ĩ۞ۂH$ġA$2á &ؤá&&. áګ&m*á &&Nؤ B;4z"$G*,. "$&(*,F<9? f< 0áܤˡܤȄܿܤáܤá&&"Uu   é Í Í á6 á+ áء á 3 ȡ( á á  ^  ڪ0A  0A ڪ 6צBF21á%9E%צD3"@>j^ $v Fz.osu\ˡ*5=-Ȅ (2/)8<Z ٕǀȄ ٕWȡۢá.;ġ ǑؚۢۢۢڏMxááڢڢڢڢHب.0٩/á-/قؿ۩šؚۢٚۢګ­Fˡ+!áLosu\ˡ*5=-Ȅ (2/)8<Z ٕǀȄ ٕW2ȡۢá. 6x <bń*ɡ$xȡx#7ˡɡ $"<"j1npPgܢ  hńKá$á +W/  F  <<E3ܢ#á C?Ińcá-áȡg)%#0áȡWJȡ! ɡUWQ[áá %%"Bá$ȡWJF)2[ȄLF1š "ɡ $ˡ ۣ ɡۣ _ȡ ۣ ۣ ڟˡ  ۣ ڟˡ E8j . ڢ*'& أ آ ٚǀ4 MU*WP%$L #O*FOOBAR.FOO[*]"ˡ$צ FOOBAR.FOO[*]"ˡǔ#$%^2*ġ*ۢ**'& ۣáۢ0ۢ*tˡꩅٟ4MȄG-šE-ȡ -l-.ɡǐ..-=V $$ؚ$$$á)$%ˡǔ%l-.ˡǐ-..f2--ؿ-ġ--**.--ǀ-ġ--**2-&ɡȡ.ġ ۤáɡ   ˡazȄ ڤɡȥڤ˄a=áDá C(á;ˡ-áݡá  @ ZXN| (V . v ."Uu   éÍÍá6á+áءá 3ȡ(áá  ^  ۤá&#ɡ ꩂ& && ˡazȄ ڤɡȥڤ˄a=áDá  C(á; ˡ- áݡ á  @ Z%25%צD4%C0%צD4%BB%צD1%20 %צB3 %B3 %צA5 %46 %צ88%4C%צB3%B3%צ4C%B3%צB3%0A%צ49%AB%צ45%2F%צEA%EAFáآآ1áآآآ˶˄n öÍááYȡTURTLEׯ RANDOMׯ  ˄  ר EAN OCHAR ׯ 6FUNCTION IMPLEMENׯ hINTEGER OPROCEDURׯ 6REAL VAR ׯ 1'ˡ1'ˡ1.á  1ÍALFA ׯ 1˄ꥁ1áwȡ 1 011ˡ1á+ȡ 11ɡ楁1ġȡ 1IMPLEMEN״ jBOOL/F0ġ00á001001aĶ1zȄ 1 1&1 á 11á 100|1 á1{á1}á1:á ֶ1;á إ1ܲ 1TAN ASIN ACOS ATAN ATAN2 !SINH "COSH #TANH $LGE %LGT &LLE 'LLT (EOF )CHAR *آJ0/á,l  0/ AMOD ISIGN SIGN IDIM DIM MAX0 AMAX1 AMAX0 MAX1 MIN0 AMIN1 AMIN0 MIN1 SQRT EXP ALOG ALOG10SIN COS ˡ+ @ڨ ٚػ0INT IFIX REAL FLOAT ICHAR AINT ANINT NINT IABS ABS MOD J 6x <bń*ɡ$xȡx#7ˡɡ $"<"j1npPgܢ  hńKpn8& hh hh `d HHl" 2> #á C?Ińcá-áȡg)%#0áȡWij$ikmjdkieig i i i  c filӭmngbHaH`Hs#$%ig &i i i  hl56צBFBF56%ȡ%d c=c46 cd!hahbh%h &s#$c m n#%צ85%46%צ18%60%צA4 %46!%צ24"%00#%צ4C$%FB%%צD3BF23ئ á á ˡáTl  áצ ˶ ˄3ɡ$צ ٶB"b B BצfB 2 Rצ*SYSTEM.LIBRARY2צظ JتP+,+,ȡ+++*š  *.V D آצ INTEGER  REAL׮  BOOLEAN׮ zá צ CHAR W ALFA תPdġ0dd ō0  :X~"؟ˡܢܢÍr&ܢ ܢ ^ȡ  ܢá  ܢ۟ˡ %g  ؟ˡ=٢٢Í٢٢ &Ä$ġ)%%$%ˡǕ$$$$$cN*.-ȡ'٤ ȡ*'٤ ȡȡ'٤ ȡ'٤ ȡ'٤צ.CODEÍ.CODEl"ˡ(צ Can't open .-#('+ȡtAZȡ0AINȄ)C0FORTRAN Compiler II.1 [1.1]0צFORTRAN Compiler II.1 [1.1]&Xdj N R 8p ȡ azȄ  צ.CODEצ.CODEÍ.CODEl"ˡ(צ Can't open .-#('+ȡtAZȡ0AINȄ&&ȡA'&  ר&& ,צ Code file [ [.CODE]] - áȡ azȄ  צ.CODE,l , ,,_>FORTRAN77 - (C) 1980 Silicon Valley Software, Inc. 16-May-80,Zצ>FORTRAN77 - (C) 1980 Silicon Valley Software, Inc. 16-May-80EXT] - ȡ/aĥzȄ ,צListing file? צListing file - áCWC"ˡCצCan't open listing file ȡ09ȡAZȡ򥁘),* + -/ = (.' $,D< l<wSource file [.T á  á0Ķ9Ȅ 0  á ˡFZ Ɓ3& ̂d á(Uá &7`+REALׯצLOGICAL  צ SUBROUTINE צFUNCTION    צ  צ $ȡ  &0cbböbÍM0c//š- 10 0ˡ"bá&cce $4%(    INTEGERׯ &eccȡbbȡ+Bb0c?bˡbbe0cbbɡddġd&dd'& bbȡٶbBbbb٢٢&b&ff 0  v ڢ ^ڣ šUצ(VAR צ xxPڣ ȡ-A 0  ,)mˡg(ˡPצ VAR ARG00P0  0  : ˡ; )] '& .*..ȡ۟ˡ`//áצ PROCEDURE  FUNCTION 00ȡ/ /á: .צPROCEDURE DUMMYxxPA 0  ; IMPLEMENTATION E á ؟ˡآáأ ˡ'&&'(ˡtأ ܟˡ ((áǗ(( "۶á9**  ˄ á ˡ;áǘ x  B *3254678- Cá,/D٣<l٣ <٢D l á lC$ צ lines.   errors.Smallest available space =  צ words.$ צ lines.   errors.Smallest available space =  צ words.[Ä ۢۢ*3254678- Cá,/D٣<l٣ <٢D l á lC$ צ lines.   errors.Smallest avai%,Mġ4إ #إ MMMM*4ȡإ  325678A nȡ0'ؤ  ׷ ۣˡ<۟ˡ0ń # ETmv+ˡ[' RTUNIT ڢڢ (\&*.0-/' ڢMAINSEGX%&á$ܢ   ,FWD9,ܢ  ܢ  ɡ    EXTERNAL zצ INTRINSIC Zצ PROGRAM <צ COMMON SIZE=ܣ  `btV: *****ܣ  ܢ *  ܢá9/ܣ á   ܣ /   ܢá FUNCTION SUBROUTINE ܢ ܢ ,EXTiܢ Rc$*ˡ+ @٢k INTEGER dצ REAL M LOGICAL 6צ CHAR*  s^2K؟ˡܢE רȡ-ˡKȡ  ڹ '& ˡ,ȡ  (&˄;RV6[ؚقȡ" ښ# ˡ{ȡ  ˡ  ˡġ  䩃 (&á֩CURFIL&á(*# # $š$%ˡǔ$%ˡȡ)   ˡ 3   Iȡ ڢá  ڢڣ   S[H   *'& ġ*tܤˡ*ۂtܤ&'& * '& *ɡ  7` ؟ˡڢڢÍڢ ڢ `C;צ'The following procedures are undefined:;צ'The following procedures are undefined:Cáˡlj9*ߩ* á; ˡNjá} ˡNjá% ˡNj   9*ݩ*       ީ*     $   I! I!*Ǚásٓk ˡdÍ ǚá   & !# ۶qsu1579P     *á Wá}á WI!R á Wá}á W 5!Z.á  Wá  Wá Wá}á W9F á  Wá} á  W .M " á W"á  WÄ W(á  W&á Wá     ˡá ˡá áǩ˶ ]á &á.áOáN)ع;WR M HC? : 51-)% !B?<9631.+)'%#r á˄á  )á^ˡˍ_wáń  áQá)  á á Ǐ6 ؄ǀ٤á^ٿĥ٤ˍ*WPȡ0&&'á "AU M=% UNFORMATTE FORMATTED ;RECL=#ءǓ ˡǔ Ǖásړؓǖؓ 6<  1Í-1áآH6 B ár á á Ǐˡ}צFILE=á  ǑǒáSTATUS=% NEW OLD ACCESS=% DIRECT SEQUENTIALoFOR    ágášˡás3ġ !a!   9*ګ+h ˡNj,9**ُܟˡ} ágS*.*ښ: yˡljá ˡrá NJ f  ár á á Ǐá?צSTATUS=& DELETE KEEP ǐásۢ áۢ ۟ásáܩ*D"#Ǡá ǡásˡ áˡ Ǣء؂ء!ڡ! !b!Xhjl    áܢTO!á lj͂&٤á   áǥdáܢܚ*WPܩ*D"Gá ǡ á WáLˡǦ ܢܫ*WPátצREC=.ۡǛá  ǜ8צEND=*ǝڡǞ  ܓڍ  ár á 'á á ǟۂá&!á Wá}á W I!*橂* " á Wá}á W  5!*  橂* #á Wá}á Wȡ&$á١Í *K v$á Wá}á W Jب ޢáiNޢޢ*(ߩߢ*ߢߢޢݚxá ؟á آá ٢á+٢٣ ٣ ٢٢ 3.ء.ءˡ7 .//á*ˡ7 / ˡ752 <00á*ˡ7 0 ˡ752 <ˡ8ٟˡ(á٢ ٢áړf8! ˄5- áá á á áع$I8H2E,D&K C,( (0Pع524-1(0#7/%" $+ N6 .4ث ááá--á - áع524-1(0#7/%" $+á 3      64+ áá áá 4ث ááá , , áá4 Í| ˄4, áá áá :áá á 27m :** áj ˄4+ áááá   4áz++ Í| ˄Ǩ ٢Ä2؟ˡ!٢٢ أ ٢آˡR٢áٮO٢٢Í٢Í٢ÍáǨٮ 3ánáVá P.á𩅷á ٟá ٟá ٟá á^؟á !٢ أ ٢آ٢٥Ǩٮ2 ٨ آآإأ  á ˡ4#$ˡá 4ˡ.ááˡ8ˡáˡ9šCġ/  š$ڟˡڢ  ڢۢˡX!xzOpNá آá    6آá"ˡ% %آáá آڟá2ۢػۢۢۢ &ۢ ۢ  ڢڢÍKۢڢۢڢۢۢ ڢ ۢ ڢ ۢۢ ڢ )"ۢػۢۢۢ &ۢ ۢá ۢػ ۢáDɡ ǒۢááۣ [ۣ  !"#ۣ $xۣ %qۣ &jۣ 'c(_)[*Tb`^\Z\WUSQOMKIGBKFOJSNIKMOQSUWY[]_ac^`bd_]á٢ۢá𩅽ّ&á Wá}á Wع0145%(      ,'á W1&(á W)ۢȡ'%á١ÍO z%á Wعf846z7u2p3k(f)a*\5Wá}á W+2,--(.#$mjgda^[XURO,)&š Lj ۨڨáL ȡ!azȄ    ǍǎO r*2BUV¸/*š#Oצ*FOOBAR.FOO[*]"ˡ$ FOOBAR.FOO[*]"ˡǔ#$%%W0́.́ʁʁȡJlʁˡǐWʁ0ˡǔʁ́-W.0ˡǔ0./- .3*2BUV.0-/¶šá .AAߢ ߣߢ ߢ*ߢ ߢ ߣ&ߢ I!ߢI!*ߢ @?س}áˡ~ =ǁ>á ۢágXۢۢhCٟˡ'ڮ **ۢۢښۢ*H ?ˡ*ثá0{# !*ک*| Í/Â,9   ágI*( ᩆ*ܚ˩*٩٢٢ث; (á 1&&ؤáx9  N< árˡsצTHENXzDˡu ! ੆ q9**árˡsצTHENtˡu !٩٢٢٢*ث  : vbáwU qB9*   9* i68 lfámYánG *ˡ*á)9 oáp k*ث,ˡ&&áˡlj á; ˡNjá} ˡNjá3 ˡNj.WoP1 $6 á ٟáM ٟá ٥ '٢á ٨ آآإ٢٢Í>7 j ٟˡ1 ág  (* š " ; šK "*WP ''ȡ  (= &*, ȡcá$ á  8Ä"    ٫ á`ɡI  ''ȡ6((á (( (( ٫٫ ġ٫   ߟá ߢ Ä+Ʉ$2 ߟá -ߢá ߢߢ˄ : ߮ń˄˄ á; ˡ"عá á ፡ع ܟˡܢ ߚ3254678 á;XX X    ݢá   ˡ&Ä Ä = *47-ݢ 4 2á$ ۢݚáޡá  5ب ݟáݥݢݢáZɡ ǒXXX &X X 3*5ܫݢܚܟˡẂ́ʁˡǕ́́ʁʁȡLʁš(ʁ́́ʁˡǕʁʁ́ʁ́Y 4áܥ ݟˡ" ݢ  ڟˡڢݢڢݢܟá عYSSIGN YACKSPACE YצONTINUE6UALL7DצOMMONd/HARACTERdLOSE YO8/צATAdIMENSIONdYNDFILE >Yצ QUIVALENCEd?צXTERNALd(LSEIF:צLSE;YUNCTIONdYצOTO<YF=IMPLICITd2צNTRINSICdצNTEGERdYNONAMEר۟á-إ١ݢڻݢܥܢ iۢá"إPۢ &á%ۢ Uۢ aۢ V١ܢܢˡTܢá ɡ ǒܢܢܫáܢ  ++dAPár "ܟˡ ܯ " ܢ ۟áڢܚá ˡ}g á11ÄZá  آ آ   1é1ÍH1áٟˡٟˡ٢ ښ > h  325461á6678J+ȡ;+ɡ2+'e",؟ˡ á [ ٟˡOáCˡ$    L٢ á o á3    آ أ - ׯ آآ أڂ ˡ á-  ác áK  ˡ5 ˡ  䚹 ˡ.  á  ˡ1á ˡ< m á1š+珂ˍ*ߏ ˡ^ á;  ݕá   ˡ)ˡ,  ݕ  ݕɡɡ ˡ š-  ????  á ۢ ۢ ٟˡ*ۢ ٢÷0٢ ښ٣ ۢ ښٟˡ٢á ٣ ˡGf  ˡ  ˡš á*q ˄I؟ˡ إ'& ڢ&1á&ȡ 7 ׯ &Uȡ[ ؟ˡ.٢A٢٢5B؟ˡۣ ٟˡ٢AZȡ,AڢڢINȄ10l z1á*1NONAMEרإث1á F*.0-/Ş ˡ8 ة آآثT ENDIF9?B١@کÄRt &) (UĹ(ĩBړ١"NxRtl V p  DNf !!"##:$$:%%L&&&&'@'n''')**J+,:.N//r23^0)x^ B  "$&(*,.02468:<>@BI1qRVXr\^\Fdjln{ B& &)۟ˡۢáۢ ء ?1١@1צFORMAT ENDIF9?B١@کÄRt &) (UĹ(ĩBړ١"NxRtl V p  DNf !!"##:$$:%%L&&&&'@'n''')**J+,:.E Yw Wp   "$&(*,.02468:<>@BI1qRVXr\^\Fdjln{ B& &)۟ˡۢáۢ ء ?1١@1צFORMAצOGICALdYצPEN YצAUSE ROGRAMdYEAD ?ETURN +EALdצEWIND Yצ UBROUTINEd)TOP AVEdYצRITá áX 1á NONAMEרإثR ٟ؟˄ˡNá šNɡڕڕȡ ń  ˡ  ȡ$á  Y  ȡ6!!á !! ר!!  Íáނȡ TAצIMENSIONצ QUIVALENCEצXTERNALUNCTION MPLICIT/צNTRINSICצNTEGEROGICALצROGRAM rצEALÄZݢáݢˡRݢݢػݢܚȍbáڡ  & &١FORMAT+á س xعOMMONצHARACTERA&ˡW bۤˡۤá, 7ń  ۂ0&&E fá*צFUNCTION  Äáٟˡ]ݢ!Lݢá ٟˡr ؟ˡ3آá#آآ ٣ ٢آˡR"( آ ٣ آ٢آإQˡ   á&á' ٢ '٢  áٟá+؟á   ب ٢٢٥٢á؟á*ڢڢڢ &ڢ ڢ jآآÍSڢآڢآڢآڢ آ ڢ آ ڢڢ آ ""ˡ  إآáآˡ:آ @ؚݢ٢ښáKáȡ ڢ áˡšáڢۚáܡáˡ- (á򩅼  ڢ ?6ڣ á+ڢ ؚأ áآ ښأ ˡ٢ښ(:á ˡޡ7 ؟ˡ$آآ˄: أ áˡ9Dáݩݢ٫á ؟á ߟˡ  Pޟˡޢˡ"  ߢ߫h  z ר á:á     á&؟áڟˡbڢáڢáFޟޢáޢޢz áۢ Aޢ[áRۢ B ڟˡ+ޢޢښڣ ڢˍEڢDáۢ ޚޚáˡšá$  \ڨ áá ȡ&Aߢؚߢٚáڡáˡ5Z Dá𩅼 ۟á ۥáۢáۢáۣ ˡߡCݡ á&áޡTTPG,צINTEGERmREALWLOGICAL>צ CHARACTER! áá áám  ˡS͡Lߡ Í    á ^á  =á4 &á4   M  áܚáˡá)á8ōK ˡ ˡáˡ9ˡ ښؚáˡáݡ á&á# áٟˡȡ؟ˡٟ؟Íٟ؟ˍOXA>á𩅼  á  á á3 H ˡ áIáIJ  áuZצ UBROUTINE צAVE)CS"yK  nX˄۩Ä"M.&BٓءF 6<Pr&*tnP  t*^rd6 צIMENSIONצ QUIVALENCEצXTERNALUNCTION MPLICIT/צNTRINSICצNTEGEROGICALצROGRAM rצEALáۢ ٚ/ `بٹ  ޢޢ ޢ ޢ ޢ ޢޢ ޢٻޢޢ &ޢ ޢ ޢ ޢޢ  w ޢޢ ޢ ޢ ádžݢáݢǧ ݢݢݢݢښ ˡ+ á ڢٿݢܚLJ G ۹.؟ˡPۢá;ۣۢ ڟˡ(ةɡثé&˩Ch [  words]<$ >+ȡ1+ɡ(+ ++d7F Dž򩁗 ݢ֩* *áܩša* ȡ ک؟ˡ2 ˡ#áعǤŸˡ C1&ˡ  Ş!P!# rb), ǣ ǃCB Label צ not defined.Dצ Label  not defined.੆ˡ֩* *áܩša* ȡ ک؟ˡ2 ˡ#áعǤŸˡ C1&ˡ   ȡ á*ǣ ǃCB Label צ not defined.Dצ Label  not defined.੆* ȡ ؟ˡC ˡ*á*c!nj؟ˡ á詂*WݟˡS *ܣ  `btV:ˡ<۟ˡ0ń # ETmv7*41áÂ-ˡDŽˡ *áš,9 ܢ ,EXTiܢ &á$ܢ   ,FWD9,ܢ  ܢ  ɡ    EXTERNAL zצ INTRINSIC Zצ PROGRAM <צ COMMON SIZE=؟ˡܢ *****ܣ  ܢ *  ܢá9/ܣ á   ܣ /   ܢá FUNCTION SUBROUTINE ܢܟáXݢݢݢ  ݢ ݢܢ߻ܢؚܢڻܢ ܢ ٻܥ ٢k INTEGER dצ REAL M LOGICAL 6צ CHAR*  s^2K/0.́ʁȡulˡǐ؟ˡ&́ʁʁɄ ʁڕʁlˡǐT  ޟˡݢáD 3ܟá#ݣ ܢ ۚܢܫܥhZצ UBROUTINE צAVE)CS"yK  nX˄۩Ä"M.&BٓءF 6<Pr&*tnP  t*^r ޢ I ޢޢ ޢ ޢ ޢ ޢ sGޢޢޢޢ ˡAޢޢ ޢޢޢ\w  ڨ ߟ!  ߥ /  BáٚFٯ "ٵ ˡڢٚˡڢٚۡB \ڨȡߢ ߣ ߢߢ ߣ P٢٢ ٢ ٢ ٢٢ ٢ 4}ʈƍƎƋƊЌإLl2d|e~28ʈƅyʈƅƉ` DL?Ł|}ƅL\E||怦}ʚH恺8倅偪ʈƅ})H揥L\LlL,E0LL DL\ ILlL,ELL DL\Ee8刅刪ʈʈww&~ʈƅFyʈƅ~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL\ ~~8ʈƅ  ILlL, DhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,L5IL,h h'(ʈ D.ł( Ł|} ŀ}|ƀL;~HHL,~HHY   9    ' sU7z ;|hvhwhhxylxMz|vwlvl llhzh{hƁhh-۲z0ݡߑ ع      y  &  N* ع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 צCode file saved62!o.צצ not named $ "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:I' !''"" R%t,LONGINTIPASCALIOTRANSCENAPPLESTUTURTLEGRTURTLEGR RTUNIT  $]Y>zDd2l$l^ۢ ۣ ` ڟڢؚáګ>ةɡ کګ+۟á ɡܡښۚ%b '/ڟڢ%áآښˡښ>ۨߟˡ  I  ڻá ߫` r 'DplAJ  B   +B Dl ۢۢۢښۢٚȡۢ ۣ ۢۢ ۣ ` ڟڢؚáګ>ةɡ کګ+۟á ɡܡښۚ%b '/ڟڢ%áآښˡښ>>ʈƅ ~~擥 ~ 抦|ɥ8包~ƅLlII懩&&u`hh HHHHHL,} ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,L5hhhhhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆL26; $TYPE TRIX=RECORD CASE INTEGER OF /0:(REALNUMBER:REAL); /1:(PART:PACKED RECORD 4MANT:0..127; JII.1.A Copyright(c)1979 Regents of the University of California, San Diego--)PINTE$ $CONST EXPCONV=126; $TYPE TRIX=RECORD CASE INTEGER OF /0:(REALNUMBER:REAL); /1:(PART:PACKED RECORD 4LMANT:INTEGER; 4MANT:0..127; 4EXPT:0..255; 4SGN:0..1; 3END) .END; $ ${6800-990 (IEEE standard on high byte first) compatible $CONST EXPCONV=1{$ } "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 $(* 6502 compatible *) $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 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 .LIBLIBRARYoEqs TAKE280.CODEODEEsw LONGCALC.TEXT`o1w} DECONE.CODECODEE} UNIT30.GER .REAL RvCHAR @BOOLEAN STRING d~TEXT RINTERACTINPUT OUTPUT KEYBOARDFALSE TRUE NIL hMAXINT TYPE TRIX=RECORD CASE INTEGER OF /0:(REALNUMBER:REAL); /1:(PART:PACKED RECORD 4MANT:0..127; JII.1.A Copyright(c)1979 Regents of the University of California, San Diego--)PINTEhhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH \HHH`.hhhhhhHHLM0`L+L1--)v EXTERNAL;   FUNCTION RANDOM;  EXTERNAL;  " PROCEDURE RANDOMIZE; $EXTERNAL; $ $PROCEDURE NOTE(* PITCH,DURATION: INTEGER *); $EXTERNAL; $ "  END. (* END OF UNIT *) " "  --)ESS;  EXTERNAL;   FUNCTION RANDOM;  EXTERNAL;  " PROCEDURE RANDOMIZE; $EXTERNAL; $ $PROCEDURE NOTE(* PITCH,DURATION: INTEGER *); $EXTERNAL; $ "  END. (* END OF UNIT *) " "  DURATION: INTEGER); $ "IMPLEMENTATION  $PROCEDURE TTLOUT(* SELECT: INTEGER; DATA: BOOLEAN *); $EXTERNAL; $ $FUNCTION PADDLE(* SELECT: INTEGER *);  EXTERNAL;   FUNCTION BUTTON(* SELECT: INTEGER *);  EXTERNAL;   FUNCTION KEYPR{$ } $ $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,?  ??  1?   ?=~ @:?^c>[' ~ ~>?  ȡ!2? 5? ?f  z '~~5?. ????2 ?  ??  1?   ?=~ @:?^c>[' ~ ~>?    ġ+@? ??? k '~~5?. ????2   ??;ܳ1?ܳ^; Sƀ> ?L=[?    ??tI$'>ߡڑ߳RI@߳}:#9oLE.6Z"O$<=*A     4?GER .REAL RvCHAR @BOOLEAN STRING d~TEXT RINTERACTINPUT OUTPUT KEYBOARDFALSE TRUE NIL hMAXINT 0`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$hhhhhh9.:.;.<0(0(099JH;HHH`Z310/$ T1234 1U`0:N); $EXTERNAL; $ "  END. (* END OF UNIT *) " "  B|?a QZR|?ٽ RZP}?4 SZX~? TZD~? UZO? VZC?[` WZ ?& XZ)?ؽ YZR?  ZZR?2 ZZá.ٹ# 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 PZ 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--)ؑؑ!ٹا ZZا Zا Zا ZZfا ZZا Z:ا Zا ZZb8 ؂ɡhh h2ɡhh h.آآآǿآآǿآآD ٚ SYSTEM.CHARáצ S#   P#   I#  Z :**** Fortran Runtime Error #X  ****  #[.GC .צE&Save as :. ? 瓡צSave asצ[š C?/צTEXT#CODE#饀!   TYPE " "FTYPE = FILE;   VAR " "CURFILE: FTYPE; (* 80 BYTES *) "  { 2 } PROCEDURE RTINITIALIZE;   { 3 } PROCEDURE RTFINALIZE;    IMPLEMENTATION E :[.,H 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#i:f!۟܄á 0;á * ܢښܩܢܢܢ۫H<ةáٟˡáةˡ ةث/ J=@!/!>;áC!ۣ2ۢ)ۣ'ۣ'čۣۣĄۣۣۣ'ۣ#Ą˄l1آPآ)أˡ0!آآ(>?٣ġ٢) ٢٢##٢P٢)ˡ1 !٫ثJ(ˡ !hɡ8!9!ޣ:!/݆ۏݎġ ޢáOޣޣޣ#Ą  ߫P!á'( 6!;á!˄7!ثء-NáZhثګ٫$>ڢڣ) ڢP)ڣˡ0!ڣڣ(?Pء  = צ šȡ <ؚٚۚPڡƲLأá Iآˡkآ)أ'أ' آ#أ'?أ>آأ) آP)أˡ0!آأNˡIأأÄأ'أ#ńآ#أ'2O;ˡNHOڣ'ˡ$Bš!M'á'B ۡܡ!Iܡ!\ܡ!Zëy$\r%cG "$&(*,.02468:>@BSUH[NPaTmX3\^`bdfhlplٚܡ!é+ˡš(š ,Iܡ!!詀!ܡ!MJ0áȡ !ث詀!ܓ!ȡ MBܓ!ȡ Cȡ Bܓ!٫ܡ!J0ˡ!+áJPˡ!詀ġ!áš!(Mš J0áȡ!JJ0ˡ!٫ȡ!FéEÍ]J.ˡ !J0ˡ !Eá8JEá"J0ˡ !ȡ !ثٕ Bˡ5!٢L[ Iš! ˡaĶzȄ >FKKٳb٫^BáKNZÍ٫!Cٳ10 ق0Kٳث!.Jšݡܑܚr H/}ġA!}ȡ B}=٣ǀ>š4!š4!ɡCE B?9Z٣ǀ>ɡC٢&"٣٣٣'Ä A٢'٣'ٚEȡ *B "Fȡ B GC ˩Í--+Íؓ!á!C ˩ˍf á ɡ3! ܏.09ō! ȡ8ݕ ȍ3! ܏0ەɡC Zۣš ۣۢ@DáD šۢ  ë é ۢǼڡٚ H Cڢڣ_ڣ'ڣ'ڣ#ڣڣɍڢ)ڣ'ڢ'ڣ'0ڣڣġ ڣ(?ڣ@ڢ)ڣ'ڢ'ڣ'ڣ٣@٣@٢)٣'ؿ٢'٣'٢( ٣BآأPآ)أ'أ'ĶÍ%أأġأ(?أ@آ)أ'ˡ آ'أ'أzD'ȡ #ȡ!٢'٢٢(f@٢)ؾ ˄٢)ؾ ˡ2!٢))ؕ٢)ؕ ?٣@)٢)ؕ٢(٢'ؕr A"ȡؿB!^٢٣A٣'ġ ٣(٣A?;!ޣˡ ޣ(?@ޢ'ٚޢ  ڢáڣ'ڣÄڣ'ڣÄڣ'ڣÄڣ'ڣÄPPP Eڣ'á3ڣ(?ڣ@ڢ'ڣڢ)ڣ'á ڢ'ڣ'ڢ)ڣ'& `QP ''R;ˡܢܣń NQRNQ ˡRRQ áܢYܢá'ܣەܣܣ'ܣەܣ'šq;ˡ2^PCONSOLE:VˡNHOأ>آأ) آP)أˡ0!أأ(?آP ۡ ȡ܂Bjȡ]LAˡ.!ثؕGɡ؏ءۂ ȡ܂Be! á@!L\ˡI2á >IآL\áآIآܹ,!I %?g80+X ȡ &á>BBLLˡ-!GءTBFBJȡ &á@>ȡ/؏ءۂȡ婀˄ BS.Bġ 0B䩀ĩɄSȡ S⩀EBdɡ EBɡ -B+B  0 á敕ȡ 0BȡBȄ ɡF_Gܡ-BȄ0Bš S .Bń0B ȡ S֩Eáةȩō+!ۡ ⩀ 
$ ġ Ă܂ɡڡFߕGܡ-B ġ/ġ@$Š@ߞ$ A!  AFáȡ8 Ȅ0ኖ AۡFá⩀ ń  ɡ*!ȡܕ ܕ ╾BL  A+$ $áD?1$ ⑞$á Fá ⩀1š !á רɡ ؑ 0 áޡ -ܕšF%ܕGȡBa ȡ  &ȡB0B*Sá(>ȡ$Ho á@!L\ˡIaá>I?L\˩Iڢ ڢڢá>BBLIˡ)!á-32768רJ $áC>ȡ2؏ء݂ ȡE܂޿ȡLAˡ(!ثؕ ȡ C؏ء݂ ȡC܂޿ ȡ܂ ߞ$b'jȡ$á">EٿEٿiLLˡ%!C ˩Í.áá&!CTF˄t˄f˄'!TtÍɡC] ȡ A}.á ġ#!kEDÍeÍdÍHI+-ÍH-áߑ&09ō$! A0ܓC܍ݡ ġޞ$$ܓɡߑ$ EٿLIˡ!!ةHD ȡ $á)> ȡE ٿ LF˩E˄"!C ˩Í--+Íá C ˩ˍ á ˡI٢á٢N٢٢J ;ˡNHO٣>٢٣) ٢P)٣ˡ0!٣)٣(?٢á٢٢٢'٢(٢٢٢٢ á">EٿצStop Pause ڡ ȡۡ-Program terminated.Oצ,Please press or to continue. áQ "ȍc!آáa!؂Ǭ?<#ɡG GGە̀ ڕ̀G۞GʀڞʀٹAH;CURFMT ]S@e ;  CURFMTLECURFILE x ~m t #R\g BZFLAG o ,CONSOLEUSy] w &hH CONSOLERL XkqCONSOLEN CONSOLEB.COL ~ ~>?  ȡ!2? 5? ` 8چڏ'9N2"f#"#$%%%2'j&'H((@))*d**R+D\,NB$)0V:J P +l d > . ,n  ` . (t*z4lx  T1?   ?=~@:?^66>[7' ~ ~>?  ȡ!2? 5? ` 8چڏ'9N2"f#"#$%%%2'j&'H((@))*d**R+. ????2 K?  ????  1?   ?=~@:?^66>[7' ?  ġ+@? ?K????  5'~~5?42?T3 ??;ܳ1?ܳ^; S> ?L=[<?   4?20tI$?!>ߡڑ߳I@߳}:#9oL.6ZO$<=* TT TK0,4??K0-A-' ? ?34??r.ɡ á /~)?)* K ( ? ?N 5+ I@ I@  +4?? &%š&  &'3%$'28(?>!a?85' ? ?š܏áޡ݆* N?ˡXš  ڑڡ š á?8J z64  ɡ$ t EDW #:TFPDGNU ! $ EDWPRESE 1 =FIELDFOU X'NFMTINTVA J |  FMTP EI/>GL     5   % : ? FMTTOK   C a g n FREEUNITM]bf GPCOUNT  P ` o y 3GPBEGIN = 8 D GP2FIELD / GPLEVEL    * c r | ` - 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`ߠ ߮  0INTERNAL P !6INTPAC INTNXTBY &:?PINTPACLEBLASTGPPO5 M LLASTGPLET] LASTGPREY PNEWFILE ( READING  2: l  PVAL \|0EJ^ UNITS   E _ f r    * c r | 0INTERNAL P !6INTPAC INTNXTBY &:?PINTPACLEBLASTGPPO5 M LLASTGPLET] LASTGPREÈ 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 ٓ/! !!١ˡ.#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? <5)"!!!?! """"!!"""""???!!9!!!!?!!!8!  !?!!!--3!!!1)%#!!!!!!!!.)!!!! !!! !>!!!!!! !!!!3--!!!!! !!"""?  ? "??( <12#.) *>*> ?  !#-1!> ? !!  !? ?!!!?!!!! >!!   !6>60HH06>>*>**"*6">""> $88>>>>>>*? ><>{:> (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ÍÍޢˡ ݓۤ ۤ Äݓ