`L[  i=L\Ʃx0? w "1  Ѕ?0ȱ w L}=  Ѕ?0ȱ w H   ?ȱ w ` 9 X p  'ɍ`L 0Ni`ԠANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGAL DIRHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTEЫoeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCALPLOE INTBAS.DATAdEUINTBAS.DATAdBASICSE FPBAS.DATAEo6 INTBAS.DATA^o68 BOOTSIM.DATAo8UBOOTSIM.DATAdȲINTBAS.DATAdEINTBAS.DATAdEINTBAS.DATAdEINTBAS.DATAdEINTBAS.DATAd @ / ') +L / &п / x) ++`FG8`0($ p,&"^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  Ԡ͠ԠԠàˠĠӠΠ٠ INTBAS.DATA FPBAS.DATA BOOTSIM.DATA p   L$J) (jJJ>L "?I  `  ` x Nx r .x- `V0^*ECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H h0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^_↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompnL gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊ L(L<  } }$%0Ʃ 8(L$0pijlk"ћћliA[8`hH`klmniȅ ӥȅklȥȑȑȑȑȑiȅ` ieȅ` q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }LޢLHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаHٹЦ $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅ ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک \`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơhL*ظ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L?) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱve Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $ ^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІș$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥzݥ湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, 0 # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:~L̑1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ c.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~uƀq80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ)ƅ 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e ^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$ ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^_vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^E8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0L LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $W^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ᦠie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr` l􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hif&i')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` Ӎ$ "&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI1& &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00', . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `E <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠbZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`Yi H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,* W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$``JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*U'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)JeH h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  /(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ P Ԁ   ӠԠԠ π àРР Ϡ Ϡ Ҡ Ԡ Ӡ ԠԠԠ Ӡ Ԡ Ԡ Ҡ Р Ӡ Ϡ Ҡ ӠӠ ԠԠ Ԡ Ҡ Ҡ Ӡ Ϡ à Ҡ Ԡ   Ӡ ԠԠϠ à РϠ Ϡ Ҡ Ԡ ӠԠԠ Ԡ àԠ Ԡ Ҡ РР Ӡ Ϡ Ҡ Ӡ ԠԠ Ҡ ԠϠà Ӡ Ҡ Ԡ ӠԠԠ Ϡ àРР ϠҠԠ ӠԠԠ Ԡà РРҠ Р Ϡ Ӡ Ϡ Ҡ Ӡ ԠԠԠ Ҡ Ӡ  ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# ! ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  ׅ ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >H ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hL赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J ȠJLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰ե 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[L Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` ΔLG 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" ``P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*䮥7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvqʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUW PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  `w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Τȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LlޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LaI꽌ɪ򠚽ɭ&Y &&Y &  꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`*x'8*xx  ')  x) `0L` x Nx e.x-  ,`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ&)>ȥ')>JJJ >` > ?  ? JJJ ?`l (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<> . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `E <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠbZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`Yi H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*ʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3peJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D > ?  ? JJJ ?`l (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<>L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J ȠJLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰ե 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[L Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` ΔLG 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" ``P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*䮥7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvqʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUW PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  aI꽌ɪ򠚽ɭ&Y &&Y &  꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`*x'8*xx  ')  x) `0L` x Nx e.x-  ,`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ&)>ȥ')>JJJ >` LHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`L     XiXYXiXY HHXYX oLnhh)X0 eXXYL+eTteUut8tXutYLCҩHHL=ҠXHXHL飨RHRHL=Ҡ UѥRe^dSe_e dHdHL+Ҡ UѥRe^dSe_edi deeHdHL+Ҡ UѥRe^dSe_e h& H_1?IWL?X_XYX ^&_` ^_`RbScbtȱbctb``Z罅[潩`ѻ޽t=ཀྵὥXYR8轥S齭хXхYLCѩɩũH,ؚZo*[BוnաIf׽k$NӱҺOcGv3;4Y{ݵݭݝӅԹݱwөWNڸյ: ҍߦґ^z=~}=ҙҙҙҙҙҙҙҙҙҙҙҙҙҙҙҙZWWWWWWWԩ . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `E <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠbZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`Yi H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*ʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3peJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D dhdL+èPHPHL=Ҡ UѥPe^dQe_e dHdHL+Ҡ UѥPe^dQe_edi deeHdHL+Ҡ UѥPe^dQe_e hdhdL+ҠX qѠ Uѥ^ebd_ece dHdHLҠX qѠ Uѥ^ebd_ecedi deeHdHLҠX qѠ Uѥ^ebd_ece hdhdLҠX Uѽe^te_utHtHLҠX Uѽe^te_uhthtLҠX Uѽe^e_HHLhthuȱtHtHL=hthuhvhwtvȥuvL=ȱXȘ tX)XYXHXHXetXYLCȱX hhhihHhHL+ȱXtetetjktLhjhjhhL+ҟ6+6ˡ6á6 á*6!F *STK OFLOW*תPFF+ ˡ g:9 "8(2ȡ-'*- ?- ,( 6!+7(c) Regents of the University of California, UCSD, 1979 8>  n XPASCALSYUSERPROGDEBUGGERPRINTERRINITIALIGETCMD  lhvhwhthuEw0uwtv/1'u0+!hthuhthuHHL=hHHL=ҩ%lHHL=hhh |~hve| z~~8|eztl8冨Lߤ 0 8`hh pߦt~ h0 Lߺ LllthuXY^L$ޱtvtuvw_LްLL~hvhwv~5ޅv6ޅwhthut7ޅt8ޅutvv ȱtvtv %l HHL+ҩHHL+ҢhtExx0tEtttx0LސLh)thh)htLi݅xj݅yyHxHxyyHxHxu9݅xy9݅yyHxHxyt yHxHHviHL=ҩHHL=ҩHHL?? lXLL9LL   UF_f^Lݠ Uhvhwh8冪ƂL+hh&eȹ|ȹ})3f|)uf}|jjj)?tłetu9 fHHL=ҦfHHL= @hhHHHHhzh{h|h}}L`ݥ{)L`8z|~{}LYݥ|) u|f}jtz) wzf{jv8vtwe| h9 0 ~ʚL= ڦ|| hI9~ʚL= |0| h~ʚL=҅ztzx{yxtezʥ|x}y~xF|}H|HL=ҠX hh&ńL+0eeƄL+ҥ8傅ń 8zh{hxhyx~ȱx|80~~ iff~z ~=g݅~=hH~HL=hthuh|h}hzh{z g݅vh݅w|80tuutvwwvi &t&u&v&whxhyx~ȱxvI%~t~wI%u~xȥxL=hhh |he|Ȅ~ Ȅtl ڦ|8|jhȑjL+ҠhhjLٱhjL+LҺtutLL=Ҡ Uhe^xhe_yxHxHL+Ҡ Uhe^he_HHL+hh Uѥ_ ^&L٥^_ ֥hexheHxHL+ҠXXz{hh r&hexheHxH{HzHezHHLh|h}h&`ffefd&&`hhhh rץIiIiHHL=hhhh rץHHL=hthuhvhwxyEw0wy)xv!y0uEy0yutxyL=LXYXXYYHXHLXYYHXHXXYeXXYLChhhihjhkXi&ff dedeeefefdff`hh0 hhLZhh"IiIiIiIi ֥HHL=ҺHHLנdeLҥIiIi报IiIiƊ8冥凰 ` ef!ffefd8de8&iXYLC hthuhvhwt&uZvȥ[vZetZ[eu[8\Z][LL+ hthuZtȥ[tL+hthutZȱt[潩L+ҩlLhh0HHL=ҨIiIiHHL=hthuhheteuHHL=hIihIiHHL=hthuhh8tuHHL=ҩedhthuhettheuuHtHL=hhhthuhettheuutL=hhhihjhk UL0hthuhh%uH%tHL=hthuhhuHtHL=hhIHIHL=ҩXXhhQX0XōiX`0\XE0XLXŌC?8XX&XeYei捠8XYLCҥXÍáɡ 럚肚X2šá.  !š Í 7ÄU ǐɄ:6ń~66! á ~횩 ˄˥ń á   uš  gá 0Ä+  ɡ"á 4"á61 ɚ %ɡšɡš  PꟚšw#ńE z 0 Qȡ2 š:X f Ą ɡ 낫š ꓡ3š땫Ě:4ꓡ삫Ú š Kȡ*ńȄ4šáRתPńȄ ,ń.áš蕿@쾿  .Tá " * vAA4B2C&DXDVEFF.GGH J`JJ KKKK>LLNOORQQR SRSSS@VJ*`x4*<Nf ~  5 4T há1á/   Q lMȡš ȡ뾿  + d>š 0ˡ oɡ`   áá0Oš *š -Í-ë0zY 000á'/á 0z00 rT\  ɡ 逫-á-32768ת Pġ>o00ń á3 á+á! "ˡ  +Uz    00áQP 0á0 é000+ á1 š3    šš$ !邚邫镫ë퓡h  ! "ˡ ɡ!  ! "ˡf  N "ˡ  )á á ávˡ á cń# Ȅ ꚹ6áÄ5   šš  ġš  šš!ꂚꂫꕫëS  ! "ˡ! "ˡ që   dÄÍ" ˄"ɡ  dá  dá C#C˄ C      áá ~צ/13:! ) ! 767 9U?28˄šá  d2  dÍÍˡ 퓄 Ä퓡Pצ     n á9 铡/! !!2ˡń Ȅ! ~Í`~W ˡ!  ,ȫ$* "ë넡, ~ *Í2~ š˄ `1 b~ éÍ~  , Ą쓡"á  :"ë á 쓡ת$ ( ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ5 ,  2 ˡ䀮šNjˡ>'á 2 @$ńˡá á˶w š   ɍL  "ˡ.ˡ   d쓡  3?š?ˡ5ء ߕނ߂ɡ < X4ب" h ! ! Ä & ! !  Ä  2  šˡ 퓄 Ä퓡ġ  á ġMáš6 삫뻥 d #( 0ٕš ګ۫ š۫ ګ,1 ū   áš .c+áYšPá+ ɡ _" ġ. . fj </   ȡQɫ  ȡ 1  1ȡ? ȡ  ˡ.$  š t@.  ,áצ to continue) & ,Í ˫hp(&:+:azȄaA:)~áë .$$&ˡ . .6%ˡ .Rˡ .=˄+&ȡ .& |&$&!F:F FˡFJ.BACKׯ7צ.INFO$.GRAFׯצ.FOTOA <! ȡ   צ0H" ġ  *@#22š2222ȡ2š5252á4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODE  d˯7 H Pצצ22ȡ5233 ȡ 23aĩ3zȄ 23aA22š*á ?צ:22ȡá;2á!2ȡ5252š[ץˡ njáˡu á ǘ^ " ǐ !    ˡń eˡ]ÍIááǏ :áˡńǍ8FNo user programתP8F0ˡۂ.ɡ3 ꕞNˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEXTERת צ:SYSTEM.LINKERƁ&̨<́b ́cʁcȡ~ؤ́dʁdתʁd0ʁdʁd؞&"á*ʁd ضá0?ʁdצ*SYSTEM.STARTUP(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁݢʁݢʁʁݢʁݢʁݢʁݢ  ʁ تٞ&"á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILʀ=ʀ* ʀ́ʁܢGʁܢHʁܢIʁܢ%O tƀ&́ʁܢʁʁܢʁܢ%́ݲ ʁݢʁݢʁݢʁݢʁݢ ʁݢʁݢ ʁݢ ʁݢ ʁݣ  ʁݢʁܢ́ʁݢ٢ š٢ ٢٢ 4$  ؗ(/  ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƀƀ Ƃ)*SYSTEM.LIBRARYתPƂ)ݡƁ%́#̂Rʁ#ʂRȡƁʁ#uƁʁ#́$̂SʂS0ʁ$̂TƁ%ʁ#̂UʂTʂSʂTʂUʁ$Ɓʁ#á ʂT ʂTʂUʁ#́#d  >*z_Iצ IO error: (צUnimplemented instruction(צFloating point error(uString overflowת(]Programmed HALTת(EProgrammed break-pointת(&qS>'oYC:*ile not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(ring buffer overflowת(צdisk write protected(cillegal block #ת(Killegal buffer addressת(,$mU>*z_Iצ IO error: (צUnimplemented instruction(צFloating point error(uString overflowת(]Programmed HALTת(EProgrammed break-pointת(&qS>'oYC:*ת(file not foundת(צ dup dir entry(צfile already open(צ file not open(צbad input format(ring buffer overflowת(צdisk write protected(cillegal block #ת(Killegal buffer addressת(,$mUצSystem IO error(צ unknown cause( parity (CRC)ת(צillegal unit #(illegal IO requestת(צdata-com timeout(vol went off-lineת(file lost in dirת(צ bad file name(צno room on vol( vol not foundצUnknown run-time error(צValue range error(צNo proc in seg-table(Exit from uncalled procת(Stack overflowת(צInteger overflow(Divide by zeroת(צNIL pointer reference(צProgram interrupted by user(N*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor?:3ʼn& D%:ŮƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\6 ݞ 8FNo debugger in systemתP8F6ˡۂ.ɡ3 ꕞNˡ.Nצ Your file is   bytes long.UáV?&צSYSTEM.WRK.TEXTN*SYSTEM.WRK.CODENתeצ4Do you want to E(xit from or R(eturn to the editor?:3ʼn& D%:ŮƂƂ0ƂXƁ<s$` 0T @NDZ 8 T z ~ x\6 ݞ ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%;??ٟá'C CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUTex<ƋD*SYSTEM.CHARSETת(ƋDʋI&"áǀʋUʋTʋKƆD ʋT  ̑ʑȡƆD   ̑ʑȡƈD  ل7@ǀ ?̑ʑȡƊDؤؤ P  ƋDצSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5צ.CODE. Execute what file? .á-::-::(:.CODE-:-"ˡ צ Can't open -   áث 7_ac  7& š+ š%::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7-צ*SYSTEM.WRK.CODE[*]To what codefile? (׷,á$,,ˡ-,::(,צ$,999':::::&:(áצAssembleצCompile what text? (ׯ.á(::(:צ.TEXT-:( "ˡ$ Can't find ~ e ת*U  !! !:!!ڤ  ڤ  áڤ R áצ Assemblingצ Compiling...á E*SYSTEM.LIBRARY, Can't load required intrinsic(s)lƀ/#Required intrinsic(s) not available+1  Ɓ5l 0d ^ڤ áڤ ! not codeʁ81ʁ9"ˡ Bad block #01Ɓ5aݡ9צ Linking...ܡ #צMust L(ink firstƁ5ƀ:צ.Conflict between intrinsic and user segment(s)ƁƁ"áB̂2ʁ ʁ "ˡ%  Ɓ Ɓ^rުP"ˡCۡ>"áIllegal file nameצNo file ́7́8ʁ8́9ʁ9ˡ ۢڤ ɡ$ޢ ȡSڤ ˡ@۳-ܢ0ۤ ݢ`ڤá Zxȡ2ݤˡ"ޢ`ݤۼ: TڪצCurrent date is C -C-C %צSystem re-initialized'+p .4 < j 2  MayתצJunJulתצAug Sepת צOct Novת צDec ???תצ??????ת 6!  % 7888% š tצ Welcome ?, toצU.C.S.D. Pascal System II.1SYSTERM:ת(8:98 6ëצ???JanתצFebMarתצAprMayתצJunJulתצAug Sepת צOct NovH d    0&צצ.צ??? צ*SYSTEM.WRK.TEXT& *SYSTEM.WRK.CODEײ ,  7 :9CONSOLE:ת(:9R,"6 77::9988:9  6  ۪1٦׷)צ: ܢܢšA.á צ.CODE m%צ:) Running...ء ء  :98:9á'צ*SYSTEM.STARTUP % áá  6   FצMCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.1] P')%?á@Fצ*Command: U(ser restart, 105: sign not allowed  106: Number expected  107: Incompatible subrange types  108: File not allowed here  109: Type must not be real  110: type must be scalar or subrange  111: Incompatible with part 112: Index type must not 'IF' expected !57: 'FILE' expected !58: Error in (bad expression) !59: Error in variable  101: Identifier declared twice  102: Low bound exceeds high bound  103: Identifier is not of the appropriate class  104: Undeclared identifier expected !22: 'Interface' expected  23: 'Implementation' expected !24: 'Unit' expected !50: Error in constant !51: ': =' expected !52: 'THEN' expected !53: 'UNTIL' expected !54: 'DO' expected !55: 'TO' or 'DOWNTO' expected in for statement !56:!11: '[' expected !12: ']' expected !13: 'END' expected !14: ';' expected (possibly on line above) !15: Integer expected !16: '=' expected !17: 'BEGIN' expected !18: Error in declaration part !19: error in !20: '.' expected !21: '*'"1: Error in simple type "2: Identifier expected "3: 'PROGRAM' expected "4: ')' expected "5: ': ' expected "6: Illegal symbol (possibly missing ';' on line above) "7: Error in parameter list "8: 'OF' expected "9: '(' expected !10: Error in type H^$ (not saved) No workfileS%  O ?(&Ɓ.񄓡9&צThrow away current workfile ?  ءצ*SY I(nitialize, H(altP')%$z쓡 Linking...   ˡ&צ Restarting...צ U not allowedRRJHá68AX0qz((* "D&(,.- Dx f >     FצMCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, D(ebug,? [II.1x3]P')%?á@Fצ*Command: U(ser restart, I(nitialize, H(altP')%$z쓡 Linking...   ˡ&צ Restarting...צ U not allowedRRJHá6be real  113: Index type must be a scalar or a subrange  114: Base type must not be real  115: Base type must be a scalar or a subrange  116: Error in type of standard procedure parameter  117: Unsatisified forward reference  118: Forward reference type identifier in variable declaration  119: Re-specified params not OK for a forward declared procedure 120: Function result type must be scalar, subrange or pointer  121: File value parameter not allowed  122: A forward declared function's result type 303: Value to be assinged is out of bounds  304: Element expression out of range  398: Implementation restriction  399: Implementation restriction  400: Illegal character in text  401: Unexpected end of input  402: Error in writing code file, not es in this procedure  256: Too many external references  257: Too many externals  258: Too many local files  259: Expression too complicated  300: Division by zero  301: No case provided for this value  302: Index expression out of bounds constant exceeds range  204: 8 or 9 in octal number  250: Too many scopes of nested identifiers  251: Too many nested procedures or functions  252: Too many forward references of procedure entries  253: Procedure too long  254: Too many long constant' must be in interface section  193: Not enough room for this operation  194: Comment must appear at top of program  195: Unit not importable  201: Error in real number - digit expected  202: String constant must not exceed source line  203: Integer  186: Labels not allowed in interface section  187: Attempt to open library unsuccessful  188: Unit not declared in previous uses declaration  189: 'Uses' not allowed at this nesting level  190: Unit not in library  191: No private files  192: 'Usesdure expected  182: Nested units not allowed  183: External declaration not allowed at this nesting level  184: External declaration not allowed in interface section  185: Segment declaration not allowed in unit  165: Multidefined label 166: Multideclared label  167: Undeclared label  168: Undefined label  169: Error in base set  170: Value parameter expected  171: Standard file was re-declared  172: Undeclared external file  174: Pascal function or proceis record  159: Real or string tagfields not allowed  160: Previous declaration was not forward  161: Again forward declared  162: Parameter size must be constant  163: Missing variant in declaration  164: Substition of standard proc/func not allowed152: No such field in this record  153: Type error in read  154: Actual parameter must be a variable  155: Control variable cannot be formal or non-local  156: Multidefined case label  157: Too many cases in case statement  158: No such variant in thiles not allowed  147: Label type incompatible with selecting expression  148: Subrange bounds must be scalar  149: Index type must be integer  150: Assignment to standard function is not allowed  151: Assignment to formal function is not allowed h the declaration  140: Type of variable is not record 141: Type of variable must be file or pointer 142: Illegal parameter solution  143: Illegal type of loop control variable  144: Illegal type of expression  145: Type conflict  146: Assignment of fnot allowed  134: Illegal type of operand(s)  135: Type of operand must be boolean  136: Set element type must be scalar or subrange  137: Set element types must be compatible  138: Type of variable is not array  139: Index type is not compatible wit 127: Illegal parameter substitution  128: Result type does not agree with declaration  129: Type conflict of operands  130: Expression is not of set type  131: Tests on equality allowed only  132: Strict inclusion not allowed  133: File comparison can't be re-specified  123: Missing result type in function declaration  124: F-format for reals only  125: Error in type of standard procedure parameter  126: Number of parameters does not agree with declaration nough room  403: Error in reading include file  404: Error in writing list file, not enough room 405: Call not allowed in separate procedure  406: Include file not legal Y   9    ' sU7z ;hthuhhvwlv@mqtulthxhyhhhh+-Í-۲z0ݡߑ ع      y  &  (* عteVG8  )  C uh[NA4'á NOT FEOF DO FGET(F); *IF FEOF THEN GOTO 1; *CH := FWINDOW^[0]; *IF (CH = '+') OR (CH = '-') THEN ,BEGIN NEG := CH = '-'; FGET(F); CH := FWINDOW^[0] END; *WHILE (CH IN DIGITS) AND NOT FEOF DO ,BEGIN DVALID := TRUE; .DIG:=ORD(CH)-ORD('0'); .2: W2 := 0; 3: W3 := 0; 4: W4 := 0; .5: W5 := 0; 6: W6 := 0; 7: W7 := 0; .8: W8 := 0; 9: W9 := 0; 10: W10 := 0 ,END; *NEG := FALSE; DVALID := FALSE; *IF FSTATE = FNEEDCHAR THEN FGET(F); *WHILE (FWINDOW^[0] = ' ') AND TESTRING(F,S,RLENG) "END (*FWRITEDEC*) ; " "PROCEDURE FREADDEC(*VAR F:FIB; VAR D: STUNT; L: INTEGER*); $LABEL 1; $VAR CH: CHAR; (NEG,DVALID: BOOLEAN; DIG,I: INTEGER; "BEGIN $IF TRUE=FALSE THEN &DECOP; $WITH F DO (BEGIN *WITH D DO ,CASE L OF "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "PROCEDURE DECOP;   IMPLEMENTATION " "PROCEDURE DECOP;EXTERNAL; "PROCEDURE FWRITEDEC(*VAR F: FIB; D: DECMAX; RLENG: INTEGER*); "VAR S: STRING[38]; I: INTEGER; "BEGIN $STR(D,S); $FWRIECMAX = 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:INTEGER[36]) 15:(W5:INTEGER[16]); 16:(W6:INTEGER[20]); 17:(W7:INTEGER[24]); 18:(W8:INTEGER[28]); 19:(W9:INTEGER[32]); 110:(W10:INTEGER[36]) /END; "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); " "TYPE DNTEGER[36]) /END; "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); " "TYPE DECMAX = INTEGER[36]; STUNT = RECORD CASE INTEGER OF 12:(W2:INTEGER[4]); 13:(W3:INTEGER[8]); 14:(W4:INTEGER[12]); " "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  !''"COPYRIGHT APPLE COMPUTER &zDECSTUFFPASCALIOTRANSCENAPPLESTUTURTLEGRTURTLEGR  {eʆ}~~~~zʊe~|~8xylxhhh~hhh~8儐 0 h HHHL,lIL,h hʈ 5~.ŀ( ~z{ ~{z~L.|HHL,|HH|HHHHHHL,}|ʈƃFHHHHHL,~0~}|}ʈƃ0I悊iʈؚHLt~z{ ƃLO |}~}|8ʈƃ } IL_}L, 5~LOɡ  -ݑ š 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,BlL,dXUPPPPPPPPPPPf\-ZVUNIA:54-" NQ<Yw6p šá8 ١צ li read err ١ƃzL,h~~hhh~8hohl~~hXhhhFffff80)ƃܥ#FfII慥HHL,lhhhhh~~~hh-ȑhh~ 0ȑ~0hJJJJ 0ȑ) 0ȑ~Ą>ʈƃ q|日 q 戦zɥ}8劅~ƃL_II慩&&u`hh HHHHHL,{ eizʽ 8i{ʈƋƌƉƈЌإ}L_2dze|28ʈƃyʈƃƇ` 5 l~z{~ƃLOEzz~{ʚH8~}ʈƃ{)H捥}~L_}L,E0LL 5~LO~ IL_}L,ELL 5~LOE~e8内冪ʈ}ʈjj&|~ʈƃFyʈƃ}$ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E{$ } "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 *) 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 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--)PINTEGER .REAL RvCHAR @BOOLEAN STRING d~TEXT RINTERACTINPUT OUTPUT KEYBOARDFALSE TRUE NIL hMAXINT 26; $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--)v EXTERNAL;   FUNCTION RANDOM;  EXTERNAL;  " PROCEDURE RANDOMIZE; $EXTERNAL; $ $PROCEDURE NOTE(* PITCH,DURATION: INTEGER *); $EXTERNAL; $ "  END. (* END OF UNIT *) " "  D?'Z"!?(Z $?)Z'?|*Z+?+L+Z.?l,Z1?ս-Z5?D.Z8?&/Z;?:0Z>?>1ZA?42ZD?v3ZF? G>?ZT>caZ >*rZ;>aqZL>^ZN>9Z ?ZO?ٽ Z ?ƨ!Z; ?vm"ZB?F'#ZR?ս$ZP?y%ZX?&Z ZN1>н Z)C>oc ZET> Zf>YZ(w>gZP>탽Z(>K ZL>ȱZT>z7ZU>ٰZO>?Z(>|ZC>}̽ZE> Zl   ZZ^ Z) ><0Sǯ?Ǭ?ǰ?Ǯ?ǩ?áǫ?Ǭ?r2 ٢ؚڢؚڢٚ ۚܢښܢٚܢؚɡšܢɡܢǿšܢǿɡܢɡܢ 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 TURTLEY: INTEGER; $FUNCTION TURTLEANG: INTEGER; $FUNCTION SCREENBIT(X,Y: INTEGER): BOOLEAN; $PROCEDURE DRAWBLOCK(VAR SOURCE; ROWSIZE,XSKIP,YSKIP,WIDTH,HEIGHT, 8XSCREEN,YSCREEN,MODE: INTEGER); $ "IMPLEMENTATION E VE(DIST: INTEGER); $PROCEDURE 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--)hh9.:.;.<0(0(099JH;HHH`Z310/$ T1234 1U`0:N); $EXTERNAL; $ "  END. (* END OF UNIT *) " "  0`LELK뭕 JF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !$hhhhhhhhhhh)hpdHHHH`4hhhhhhhi)hH`HHH`0hhhJhh)*XhHH`"hhhhhhH \HHH`.hhhhhhHHLM0`L+L1--)4Z$I?5ZTL?Xs6ZUO?7Z)Q?8ZNT?;9Z)V?%:ZEY?;Z[?Lo<Z(]?г=ZP_?>Z(b??ZLd? @ZTf?]AZUh?BZOi?޽CZ(k?7DZCm?[EZEn?FZGp?GZTr? HZ s?yxIZ;t?hнJZLv?DKZNw?FLZ x?ReMZOy?PpNZ z?gOZ;{?KPZN^EE&DY vBKGND PEEKSTRO&ADDRESS $'vSETSINE14'Z'SETSINE2SETDEFAU'SETPORT (F ((Lee Lw  )L I1L )QL        xhXOF=2 BPv(dP ( DX &ve8 !  e e8"#0 88$ % 0"ee8$ %  e e8&'0 8e*e+)*)fjfjfj+*fjfjfj8 8) )` b (J c UT`+%$Y)!p  hhhhhhhhhhH8 b )%HHH`5>hhh)hh h h h hhhhhhhhhhhhHH  # " `' & 8 ! 0"e hhhhhhHH ` `  HH8H8 hhhLc .+ rhh heheheheHHL&<   B  ""##8&$iT8&UU ! U"# `8`&e epɀj f f&e e pɀjff %) % )`% L=`0(%$ $ @' &    0&!"   #"  ` ` `SN-(' .*ȱ*,ȱ,.ȱ. HH1H0H(ȹ(*ȹ*,ȹ,.ȹ.`   ""##  )`%)8`)    L)ˢ   â LE % %  )   ` Z Z< $ %$PQ $  ߩ $ Li`t^cY}zeNEDh0h1hhhhh.h/h,h-h*h+h(h)(ȱ(0/,",i8i#Hiihifi`i,i,3iPII4ifH8H hIiH h hL8Iif E J j 8  e e  `(J 8 e @4` - G`` 8`*UH)JJh & & f)4#i JL` T$Q%P)Q I L`#JI`'  I` I0ݩ(h h2ɡhh h.آآآǿآآǿآآD ٚ@!ؑ!ٹاZZاZاZاZZfاZZاZ:اZاZZb8 ؂ɡhB|?aQZR|?ٽRZP}?4SZX~?TZD~?UZ"?VZ ?[`WZ?&XZ?ؽYZ? ZZ?2 ZZá.ٹ#ؑU(NIT, Q(UIT "@1-'FU  #/DONE WRITING. GET SOME MORE? @Ná3z@P  ץ4- צ!READ HOW MANY BLOCKS FROM REMIN?   ȡFIRE WHEN READY...& ALL   RECEIVED.F(ILE, TO WHAT FILE? 00"áˡ%FILE WRITE ERROR.WHICH UNIT NUMBER?  STARTING BLOCK?  " GETREM CH='N';  END.     &WRITE('F(ILE, U(NIT, Q(UIT '); &READ(CH) $UNTIL CH IN ['F','U','Q']; $CASE CH OF &'F': WRITEFILE; &'U': WRITEUNIT; &'Q': EXIT(PROGRAM); $END; $ $WRITELN; $WRITE('DONE WRITING. GET SOME MORE? '); $REPEAT READ(CH) UNTIL CH IN ['Y','N']; "UNTIL WRITE('READ HOW MANY BLOCKS FROM REMIN? '); &READLN(NBLOCKS); $UNTIL NBLOCKS <= 32; $BYTES:=NBLOCKS*512; $WRITELN('FIRE WHEN READY...'); $UNITCLEAR(REMIN); $UNITREAD(REMIN,BUFFER,BYTES,0,12); $WRITELN('ALL ',NBLOCKS,' RECEIVED.'); $REPEAT E WRITEUNIT;  BEGIN "WRITELN; "WRITE('WHICH UNIT NUMBER? ');  READLN(UNITNUM); "WRITE('STARTING BLOCK? '); "READLN(BLOCK); "UNITWRITE(UNITNUM,BUFFER,BYTES,BLOCK,12);  END;    BEGIN "REPEAT (* FOR EACH TRANSFER *) $PAGE(OUTPUT); $REPEAT &N "  (*$I-*) "REPEAT $WRITELN; $WRITE('TO WHAT FILE? '); $READLN(FNAME); $REWRITE(F,FNAME); "UNTIL IORESULT=0;  (*$I+*)  "IF BLOCKWRITE(F,BUFFER,NBLOCKS)<>NBLOCKS $THEN WRITELN('FILE WRITE ERROR.');  CLOSE(F,LOCK);  END;    PROCEDUR   PROGRAM GETREM;   (* READS FROM REMIN AND WRITES TO DISK *)   CONST REMIN=7;   VAR BUFFER: PACKED ARRAY[0..16383] OF 0..255; $BLOCK,NBLOCKS,BYTES,UNITNUM: INTEGER; $CH: CHAR; $F: FILE; $FNAME: STRING[30]; $  PROCEDURE WRITEFILE;  BEGI ץ4- צ!READ HOW MANY BLOCKS FROM REMIN?   ȡFIRE WHEN READY...& ALL   RECEIVED.F(ILE, > ?  ? JJJ ?`lntxz|**7777~(*377558:=?@## (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<>aI꽌ɪ򠚽ɭ&Y &&Y &  꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`*x'8*xx  ')  x) `0L` x Fx e.x-  )`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ&)>ȥ')>JJJ >`W*7U*I * _UL@* iU8*  L % L(pK*?*(j>*0l^l\ * sU* B oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvqʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUW PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  `w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Τȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LlޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hЈ ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 00)(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ P7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*䮥bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0`Yi H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4i#J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&,*ʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3peJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0J ȠJLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰ե 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[L Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` ΔLG 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" ``E <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!f`ɠɍZɊZɈ$!$$"% %% e (`I(ii,i\$%H $ hi#ʥ"%$$%%#%"H $(*)+!hi# H $(*0 $(!`8Hh`BC<>=?<=`K i! Ȉ2 ,`H h*:` ` . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵b@4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie