`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JƁƂ6&06ˡ6áƁ8:9" &8(2ȡ3'*3 ?3 2-bi ö A(7ȡ &ǀǏȡ &6!0ACOPYRIGHT 1979,1980,1983 APPLE COMPUTER, INC. ALL RIGHTS RESERVED4 8(TB &" PASCALSYUSERPROGFIOPRIMSPRINTERRINITIALIGETCMD FILEPROC LANDXD6 XBOATXD6 X SANTAMARIA6 X SCTNMS.TEXT XDWINTRO5D6 XDWINTRO6D6 XDWINTRO7D6 XICEBERGD6 XTRACKSD6 XBEARXD6 XDEERXD6 XTRACKS1D6 XDOCKEDD6 XCLOUD1D6 X SUBTROPIC16 XCLOUD2D6 X蠺CATXD6 X蠻 SUBTROPIC26 XSHIPXD6 X蠾PORTXD6 X蠿DWINTRO3D6 XDWINTRO2D6 XDWINTRO1D6 XDWINTRO4D6 XD1D6 XLGTREED6 XICONSD6 X蠯 HURRICANED6 X蠰TROPIC1D6 XTROPIC2D6 X SUBARTIC1D6 X SUBARTIC2D6 X TEMPERATE16 X TEMPERATE26 XSD*TKQUAD33D6 XQUAD43D6 XQUAD21D6 XQUAD42D6 XLGFIRD6 XSMTREED6 X蠙FIRTREED6 X蠚BIGTREED6 X蠜TERRBOXD6 X蠬LANծ  KBIPIC.CODEծ BIPIC.TEXTUcUGLOBALS.TEXTȖ NEWCOASTS44T9 CCQUADSXYD*T`K NEWCCNAMES*TK NEWCCNATSD*TKNEWCSTXSD*TKNEWCSTYSD*TKNEWQUADDY_SYSTEM.STARTUP_ SYSTEM.APPLEf  LBIVIEW.CODEBIPICSrASOUND.CODE3UCOPYPRO.CODEAPROPACK.CODE,UDRAW.CODEծBIDATAINIT.TEXT5 KBIPIC.TEXTGBIVIEW 1 SYSTEM.PASCAL12SYSTEM.MISCINFO23 PRINT.CONFIG35 SYSTEM.FONTSET57MODEDATAr7OSYSTEM.LIBRARYfOV RECORD.DATA5VW CONTROL.DATAUWY FONT.C.LUCASE&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&(צPress CONTROL-RESETGb Íáɡ 럚肚X  šš ë  q7 "ˡ,8 )á á áWˡ á Dš 4áÄ 4w4]ץ11á4\1šV42233z 3042221é42é1Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯ7צ.INFO$.GRAFׯצ.23aĩ3zȄ 23aA22š*á?%áצ:22ȡá;2á!2ȡ5252š[ץ22š2222ȡ2š5252á~ éÍ~  , Ą쓡"á  :"ë á 쓡ת$Pצצ22ȡ5233 ȡ 11"2COMPDEBU2162LINKANDGr21J2LINKDEBU31^2 ASSOCPRO~K21r2 SYSFILE xD23ASSMBLER@G2COMPILER22EDITOR LN22FILER B4^422LINKER *=<22DATEREC 43MONTH r3N3D3N3:l :.hzpL d | :\0T1 IBADFORM\0h1ISTRGOVFJ0\0|1CMDSTATE4x71\2HALTINIT<1DEBUGCALL311UPROGNOU1x411UPROGUOK311SYSPROG NL211COMPONLY6212COMPANDGJ2˄ `1 b (   d˯7 H ġ  *@#@,A$BBBZCC"DrDDEFtFGdGGG.InIIIfJJ0JKzxM20 ńȄ!~Í`~W ˡ!  ,ȫ$* "ë넡,~ *Í2~ š š K6"á61 ɚ V %ɡšɡš  PꟚšw#ńE z @šQȡ2 š:X f Ą ɡ 낫š ꓡ1š땫Ě@6"á1ꓡ삫Ú ȡ*ńȄ4šáRתPńȄ ,ń.áš蕿1á5   Q lȡ>š 쾿  / Zá " *0ˡ oɡa   áá0š  %4á-ë0zY 000á'5á 0z00 rT\  ɡ'áצ-32768 ^ 逫-ġ>o00ń vJ& "ˡ  J    00áQP 0á0 é000+-ÍFOTO /T! ȡ   צ0H"4$$$&ˡ 4 46%ˡ 4Jˡ 45ˡ+&ȡ 4& t&$&F'Type to continue) & ,Í ˫T \(&:0:azȄaA:!۞ۂۂەߓh  ! "ˡ ɡ!  ! "ˡ ߡ š  ńá4 á,á"  ܢۚ>ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$    ġނš  šš!۞ۂۂەߓS  ! "ˡ.! "ˡ ߡ á( ::87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PR P:NEWC/C.CODE:6REMOUT8PSb.:=b4/#b:a@:%aF:`L!I`R[/`X)`2 4j P:NEWC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE8FNo user programתP8F0ERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> Eá.0::8SWAPFIB OJ8NL7SYVID 3?DKVID $Z3zL;THEDATE 3CDEBUGINF[LD STATE 1EPL :FIPOT Mo$M  FILLER DMEHצE#  9 *,.02468:E&*E$ á"ˡ"& E ##&Eá 9'89:߂ɡ F b6} š.ö}Ä-D76!~?\FצPut in :P?FP'then press RETURN *o# ~8W8Eˡ.$  š t@4,á/š ġ 4,+á"š ġ Z |5?š?ˡ?ء "ˡ6ߕނˡ   d쓡  1צS# أ , P# أ צ, I# أ \2צ Exec err #   á, J3 l/E8:Eá *0  šˡ 퓄 Ä퓡w š   ɍL  "ˡ./~6\-}ˡ2Error reading exec file-, } .}ˡ2Error writing exec file-}ë 쓡ת!!9 D*驁&F+}迶Ŷ} / š/áá-`,3# , , ,/)~áë  ÄÄȄĄMȄtiȡF ōɍ ō ȍ  dč "쓡r D ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń1 áނ š   šš$ צ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-MayתצJunJulתצAug Sepת צOct Novת צDec ???תצ??????ת6!צ  HצTתP%%@99ˡ  7 :9CONSOLE:ת(:9צSYSTERM:(8:98 6øצ???JanתצFebMarתצApr1٦׷)צ: ܢܢH d    0&תת.ת??? *SYSTEM.WRK.TEXTײ& צ*SYSTEM.WRK.CODE ,CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUT{B77::9988:9  6 ۪*ʁd ضá0?ʁd*SYSTEM.STARTUPת(߫7́%́eʁ%ʁeȡlضʁ%ʁbQ́fƁfʁdƁfƁ&ʁ% Ɓf(ߡʁ% ʁbʁ%́bʁ%́%;??ٟá'C "á ~٤  :SYSTEM.ASSMBLERת :SYSTEM.COMPILERת :SYSTEM.EDITORת :SYSTEM.FILERת צ:SYSTEM.LINKERƁ&<́b́cʁcȡ~ؤ́dʁdתʁdس0ʁdʁd؞&"áޢʁޢʁʁޢʁޢʁޢʁޢ88ʁ  תʁޢʁʁޢ́Ɓ߲Ɓ߲ Ɓߪʁޢˡdتٞ&ʀ=ʀ* ʀ́ʁݢGʁݢHʁݢIʁݢ%O tƀ&́ʁݢʁʁݢʁݢ%́޲8ʁޢʁޢʁޢʁޢʁޢ ʁޢʁޢ ʁޢ ʁޢ ʁޣ  ʁޢʁݢ́ʁޢʁ٢ š٢ ٢٢ 4$88ؗ(/88ؗ(tDoo odoo'z*SYSTEM.MISCINFOתPƀƀnown ProFile errorת-/(hT?+sKצ IO error: -צUnimplemented instruction-צFloating point error-String overflowת-yProgrammed HALTת-aProgrammed break-pointת-BצCodespace overflow-' oZ>s]@;-.Le not open-צbad input format-disk write protectedת-צillegal block #-צillegal buffer address-w!must read a multiple of 512 bytesת-Munknown ProFile errorת-/(hT?+sKצ IO error: -צUnimplemented instruction-צFloating point error-String overflowת-yProgrammed HALTת-aProgrammed break-pointת-BצCodespace overfloת-file not foundת-צ dup dir entry-צfile already open-צ file not open-צbad input format-disk write protectedת-צillegal block #-צillegal buffer address-w!must read a multiple of 512 bytesת-Munkצ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'Version 1.2 of SYSTEM.PASCAL cannot runצ)with a non-1.2 version of the interpreter@9988(The 64K version of SYSTEM.PASCAL cannot )run with the 128K version of SYSTEM.APPLE7:::% š tWelcome ?, to Apple II Pascal 1.2Based on UCSD Pascal II.1צCurrent date is C -C_ 7 š, š%צSYSTEM.WRK.CODEsSYSTEM.WRK.CODE׷Fš5צ.CODE.  "*SYSTEM.WRK.CODE[*]To what codefile? (׷O,á<$88š8(8X+,,"ˡ צ Can't open ,   áث 7(צ&,á(+(.TEXT888Ä8 "ˡ$ Can't find ::9 ƀ:ײ9 ƀ:צSYSTEM.SWAPDISK&:(7,צR   88(áצ Assemblingצ Compiling...á999':::צ::&:(áAssembleCompileצ what text?  Ɓ]&/ , ۤ  áۤ  !~!!f!צ*V! ""!"צ:" "ۤ  ۤ    áۤ  ink firstƁ2ƀ¼:.Conflict between intrinsic and user segment(s)ƀ¼*SYSTEM.LIBRARY , Can't load required intrinsic(s)Yƀ¼/#Required intrinsic(s) not available2 0ڡ;ƀ ˡ.  is not version 1.2ړ22H"áצIllegal file nameNo file  ́ṕqʁq́rʁrˡ  צ not codeʁq2ʁr"ˡצ Bad block #ݢ`ڤá Zx ȡ2ݤˡ"ޢ`ݤۼ: T ڪƁ Ɓ "á9̂.ʁ ʁ"ˡ  Ɓ Ɓ Vj  ߪPˍ? P ˡآڤ á Cá>آآ*Í k vޢ ȡSڤ ˡ@۳-ܢ0ۤ ڳ@@YyÍ, 4ۢڤ ɡš2ڪP-19:!1ׯ)Illegal filenamenTȡۤˡ áڢڢ-C ;;ȡצPascal system size is 64K;;ȡצ'Copyright Apple Computer 1979,1980,1983Copyright U.C. Regents 1979%צSystem re-initializedV 59 v"pv">   F  tWelcome ?, to Apple II Pascal 1.2Based on UCSD Pascal II.1צCurrent date is C -C-C ;;ȡצPascal system size is 64K;;ȡצ'Copyright Apple Computer 1979,1980,1983Copyright U.C. Regents 1979%צSystem re-initializedá.צNested exec commands illegal"צError opening execd 6~}6 "ء HPKצExecuteצ what fileצ? Pšš+00.0.0ȡ#+.//a/zȄ +./ ..+EXEC/ׯjVP+"á(.}P+ ! Jf%צ:ݓۤ  dÄÍ"ߢ ˄"ɡۤ  dáߢ  dá ߢ C#ޣC˄ ߢ C ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá ~תޢޢޢ0ˡ) ! 767䚹 :V\28˄ޢߢšáޢ ޣ ߢ  dޣޢޣޣߢ  dÍÍޢˡ ݓۤ ۤ Ä˄~ݤ ת   ١  n ١ á9 ٓ/! !!١á ~ݤݚ ˄ܟń ١á  ޤ wš  iá Ä,ޤ  ɡ"áޤ lܟġMáš7 ܂ۻݪ d #(   !š Í 7ÄU ǐɄ:6ń~66! šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ  á ڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ  ϶ U not allowedup-Há6OK7AX0NP3 "gC(,. C ^(Pv 2 Z *')%?áSFצ=Command: U(ser restart, I(nitialize, H(alt, S(wap, M(ake execP')% 6!,j3쓡 צ Linking...ˡ& Restarting...á(צ*SYSTEM.STARTUP %áá 6   HˡFצCCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]P')%?áSFצ=Command: U(ser restart,צ , change it?)צNew terminator:} ȡ/,-Z N:98:9á/)*SYSTEM.ATTACH   áning, programs using GET or PUT to disk will be very slow New exec name:(šR.%+(]ˡ([8]+("á%צ Terminator=lose and disk get and put procedures swappedצOld swapping level is  צ%New swapping level (ESCAPE to exit): ض,0Í1Í2Íسs2ø1öRצ Z`X\X áޢá ~תޢޢޢ0 PASCALIOCHAINSTUUUTIL UUTIL UFILESTU /No.ӌ P7s 7L}lv@pe{mjpEr|3gbg$O Il{-.-́in B  Ǹͨ4^#ǃu=ųM:צ:.t;3L}nj8ɢ@pe{mfqracuqs* P  ivkt6] SΡs|;]-l I;.rh5-*_/9jktg.P츃s!3EikSO7 sr袲d0 cnG+\">CHނUn<Ϋ-x&KW¿rEgmuѕD[M>L+ ,ϻ0cDF̙0*NˡùA.36Z/, N0bψWXb"V<$,Ұ6ab5>EbITjCF·)oQsIΉ(ϯ[g)W('%m[Q%!"mH]݁H .4W+"axk EX˧ "PBX?\/p[K)O Bi#ڂmqhcH2"ZuK&e {)Դ2` _FCNΨqv^Hfhqb+sOk,, {CȘPB&a (::ȑg8vS 4$GO奩#BJqfa՗;"v$486zY8cLÅ:Zۗʳ|f$K{kq!O.#!#.1!1. ?!$ .11.!!!#    ****"""""""## .11.# >$.1!!! !!!6**""! ! .1!!? ? @`?`@|Pժժժժժժժժx|s0@  L@P?p?`s|P|?@|PBx@@|?P<~P`xPPl:ҢXVh`҈.CODE.CODEODEE   P ?Jlz E.CODE.CODEltz(޽r &(rQ6 6 8:M24<& צ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ(ܾܾ š!! T$A071186-oLIBr  $' PASCALIOCHAINSTUUUTIL UUTIL UFILESTU ݢݣޢÄɡ3ڕġ$ڕšš"šޣ Ąޣ ݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡݣ ˄ݢ!ۂ !  Ík""#  1 צPress1 צ1 !d܄  Ä܄ sA *ۂ4&ۡ,Ý=Ý ;Ý0u*0u݂)ŝǠɄ>>)\! !ڝš á=)\ á  á    ڂق 4ڹ  4 ۹ڡڡ !':áۛݿ-áەȡ ٕLv0C T?zەۂZ,á uá d á S á  B á 1á &ɡ š  (ɡ š  )ݕɡەߎ ݕߎ߆ 4*ڏB+؝ġ -ɡ ڑ-  ת  ۛ0 /]  < ; >?{`  $ɡڑ%š'قە%ɡצ צ l= צwds memavail: ( lb/hb heap,stk top: Z /[  \0TRšزTRPزTPR, *BZC.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE@ˡצ)Version 1.2 of the Chainstuff unit cannot+run with a non-1.2 version of SYSTEM.PASCAL تPšH++H0تPRšT+R+PTP$ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  ݕ 0 . ݑ0 ݕ݂ ؂ ɡ  |, R -   $ $ ݞ$' ݑ$ $݂ō $݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  E.áBڲzؼ0ݞ$ڲzjeEÍɍEáޢ >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ$ Dɍ -   "ˡ\ݣ ݣ šݢ ݣ ݢݣݣ ݣ ݣݣńݢݣݢݢݢˡݢݢ ۚݢܚ  / |á +-Í-ڲzؼ 0.؝! ÍÍ á.'6/تPR1  2&ȡ+ڛ ڛڛ 3 H3ڪ۶ق؞"áGš 'a ׷ amp@ުݪ ܪ 3 3zÝM'0N@fM'ת צ תá ȄȄÄk g  48  89 (7  8  %   e  (  LHH` Lnm2&"t`H5h h!h'hh$h%h&hh"h#'' &#H"HH&H%H$H &L!H|hhhhhhHH$d  Hh5 `)&Nhhh hh h hhh$d hhh'e (   L2HH` IF#jhhhh hhh h y$d $d  H hH ȹ$d hH h LiHH`]ZPD@=5*"(hhhhhhhh 5HH`$i\8\HychLB`8p O&" Shhhhhhhh  LL 8 & & &ee 0Jf(fJf(fJf(fJff(fJf(fJf(fJf(ff880ЄHH`H$d h0(  L` L`|yxutrpmhe_\[XQOD@?;87.(%$# 8m8)-LhhLzHH` 0B )@ )?i H  h)i H h%hhhhhhh hhhhh  e-L^$d  00( L@  L HH`@EB)hhhhhhhh hhhhhhhhLhhhhhhhhm J1LLQLI (j`>: @` 0hhhhhhhh  Y(Q 8 & & &ee 0$d  LaHH`?9(159="&*.26:>"&*.26:>#'+/37;?#'+/37;?((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPЁ- J If Press , or:ת( ,Q,T` ,T,P,R,W` $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048.c6TAުܪ۪ڪ 7ˡ A_^`cY0z8ܪڪ٪تc8c$ 292:;=E95(5(5(s(^(I á  2"GG Gڄʀ s^IG c 62c f(צ(š ת צ Insert )"ɄÄ&   Ȅ@ˡ*#  n!=6CE~7Ʉ(Ȅٞ ڕ ,52ݪ(ܪ(۪( ̀(2 H` Thhhhhhhh HH,L+HHHH`JhhhhhhhhHHHH`&hhhhhhHH`$hhhhhhHH`hhhhhhhhhhG_0)L'HH`((((PPPPb_@hhhhhhhh%=0 DL#HH`a1 ` @`8@``8 LO>7 da.hghhhh TBError opening exe6~}TBError opening exe6~}TBError opening exe6~}TBODE׷F.DE,TBODE׷I FLە&&ܕ ١ܞ[ܞ FáOORUL4 4  ȡ, b2| nB >"؝áTU`*R]܂I FLە&&ܕ ١ܞ[ܞ FáOORUL4 4 ؈"\e áXؚq4  اX .צת؝áTU`*R]܂F[XZX \"á eX  á[اXˡj=ا \ڧ ȄDX "á ǂǂڂd@צFN   NOT OPEN'  8 ".9\š' `0"a _^`  á= צ REMOVE write-protection.צ Press .6ndá0 צ WRONG DISK. Press .69 צDISK ERROR. Try again.צ Press .6ۡ6 á dˡ\L<ކš!ݕݏ<ġ <ޏ܂RUj lUfe:  צ f: . blk: و`*٧R]ۂP IٚL`]URO  OۚLX[ORU`]Ä6צ CANNOT FOPEN  'H& UÍ> ߪު ݪš". \FܚIhh hh hHgH`jhzjj >@ :,> r8TXTz<V6pXX0fpZ2 p Cfunction UrF.DE,TBE׷F5Ԧ@OTBEM.WRK.CODE׷F.DETBError opening exe6~}TBEM.WRK.CODE׷F.DETB.M.WRK.CODE׷F.DETBEM.WRK.CODE׷F.DEJTEM.WRK.CODE׷F.DEJONATHAN.CODE׷F ?? <> 13 36;     *>* ?  ?  037?;3?  ?033003?300?33 3?33330>33      03Ɩabovek3l3behindu~4inside4outside~top*4l,4top24Zzbottom4~away4~@4frontz`Aback444sideUUsmallerv4biggerx4both44bottom{*sideinside4outsidetop~back4<`z`L'in~*}:3(3out~*}on33*over333333underORD.DATAoffԪժ4ժ in front ofr r in back of3?33besidefar awaynear3l3*zbetween33lbeneathǖbeside3l32Cz` inside of444 outside of6~}6~}47NU'rror opening exe6~}48NU'rror opening exe6~}49NU'rror opening exe6~}50NU'rror opening exe exe6~}449Error opening exe6~}TB45Error opening exe6e~}MENU'rror opening exe6~}46NU'rror opening exe opening exe6~}399Error opening exe6~}409Error opening exe6~}429Error opening exe6~}439Error opening49Error opening exe6~}359Error opening exe6~}369Error opening exe6~}379Error opening exe6~}389Error.DE319Error opening exe6~}429Error opening exe6~}329Error opening exe6~}339Error opening exe6~}3.DEJOEY.WRK.CODE׷F.DEJADE.WRK.CODE׷Fz.DEATEM.WRK.CODE׷F.DEATEM.WRK.CODE׷FgZZ.iEEMJMM.WRK.CODE׷Fe.DEBRIANWRK.CODE׷F.DEBRIANWRK.CODE׷F.DEBRIANWRK.CODE׷F.DEJBEM.WRK.CODE׷Fj.DEJBEM.WRK.CODE׷F.DEJBEM.WRK.CODE׷FV].DEJ.BM.WRK.CODE׷F.DEJONATHAN.CODE׷F.DEJBEM.WRK.CODE׷Fu.DEJBEM.WRK.CODE׷F.DEJBEM.WRK.CODE׷F<?;6333?3 33333333333???33;3333?333 <33?333??3!#3;?73133333336;333333303 ?333333 33333!3?333333 33 333? 0?0 3  >3>0333>333>00?360>33>3333  33 333?333333333300>33>30>< ? >3333 3333?3333 30>333? ?   6HH(x h(`~Ȍ``,hhh )hJ¥jJJhhihhhJi֍hhhh b\8ſƅhx Щ&'H(f'ꮭ'eƍ8ƅб ĘHH`fߠ d߮ Ҷضڶʷ޶&ʷ&~~~ʷ~ʷ SYS312:ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾CצMODEDATAA0צbIvIewצLBIVIEWLRV\g SYS312:SYSTEM.SWAPDISK Ä ڢڢڢݢ`ݢˡצ bad ІL 4L&92Dxj hhWQLHHHH`Phhh h hhHH H HHHtLhhh h hhh h h h h h h h hhhhhh QHH`)L  ʂȄÄ̂ ʂōʂ,*.7PݪPؓ$ʂ7ʂ6ʂ5ʂ4ʂ3ʂ2`̂0ڂ(̂8ڂ̂0ʂ0ʂ8ʂ0 Ƃ1d p hhhhhhHH`hhhhhh )ˡʂZ5 ̂5 ;X Ẑʂȡ%   5 ̂ʂȡ_[á 3á[   %צHolesz   ǪǭZ ̂ʂ]5á &PLEASE REMOVE WRITE PROTECT. WHEN READY.2צ#4:system.pascal000!`0 0 @    öÄÍIT 8 8ġ* &צ memory error8"ˡ 8800007060504030DSTARTUP UMODE  >3>0333>333>00?360>33>3333  33 333?333333333300>33>30>< ? >3333 3333?3333 30>333? ?   6  Ͱ()I يJJJ(jǩF؅G(  ֈ k( F G  Wjee0 Ю $Ӱb4 xbdfbH dߩ`Ǚx kh k@(LYҭH͍h (ͥpi)ͥˤ˹LјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxbhx Nb`8Ύa߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮaߝꪽԦ ө8`hh ߦ~ h0 L3 L3lvLRLX/ L 8L ߦ~ hI=+ L ߤ~襈I= ƈ LȄHHLLhh ~LhhV~W\]XiXY~8傅JH,hޭnݍrݭoݍsݭpݍtݭqݍuLDߩHHHHHH`, vLD>x{޾``INSERT`PROGRAM`DISKn`PRESS`|RETURN~n``(߈LD߭BݭALDߠߙLl܍ ީ`湀`HHHhhh`8 "` "`ht ߍ޹ߍL vM`mܭmܭ8ܭ`Q K a Kݩ,?P`H(h((`,ɍ`,1`i vd _sWrM湀C tݙ܍uݙ܍mtݍtݭmuݍuݭr8rݭss ީ`湀 ܍` ۑȑآL ّ 0 ;ܩJ;* ۠؈ȩؠ#в   :>BGڇښڢکڬ ܍ܹ܍L/| ܺ ݭ,`H$)A[hIH80(hI`i(8(hI`J) )i i`HH8(iPH D۠'(hH ۩ hhehLDۍ۠'O`J>L80 %,M8$LgLhhhhhhhhץHH` )`,10 )?ILڢY` l܅k܅lм`|H D۠ D۠' B h`@ ֠ ֭0`+` ڥHH B MڥhhLDۦ ڐ`,10` ` ` ` ۤO`) 2 ֭0` ֹ)` ( `) $ HЄ ֹJ` MȽ`H ؠ H h`@`   ٢` َ` ֭`38 0P`8 0 DۥHH)> `0* x)` EHh`LL٠(MC3 `H ؠ h ~؍,,`lQ`) ũ Ȣ`JJJJ ϱ` $p0*O# =ؤ =آ`H ؠLf ֊H h ɢ)L ,10U0I ,109,c$0 A[ $P0Ji)jj%UIЂ )?LI@a Hb c0  hH ׎h$L hhh靱`hhh(`hhhhhhϐ8 (ֹH ֥ +ֹP b)*Ȫ`FG8`0($ p,&"VU>)Q>jj``P@J I*I `8Hh` 7HHH*L^F0 ِ9 aLgץ")j> 8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅbSϭb߅83Ibߐib ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴~~8傅~8~~~78Ƈ8񆅚ȥ񆅛\[HZHl\0 LdN8Ƈ8񆅈񆅉@:8񆅈(8 8Z[ 8Z[LѠP i tiuLht i~i8~~X~YiTiUR콥S8\ȥ]\]VWlX ƎRSL~ȱȱŎRRLdҠX LdҠX PQȑLdҠXX XY 0 L_XLQHHAH@H LQ LQ LQ $ LQ޽LLhhHHHHHHHHHHHH`LLҩLhJJJJ) ޽))hhhhh0LhhhhhhLLh0hhhehehh  e`޽hhLLҭ߽H޽HLLҭ޽LLLhh HHLLhh LLҩhhhhhehehh HHHH)X  _ 0LQ *LQ -LQ 3LQ hhhhLQhh ) 9LQ  8ƛ 58Ƈ8\񆅖ȥ]񆅗8񆅖Ɨ8 ƗLPQ L楆8Ƈ8񆅔ȥ񆅕8Ƈ iiL奖 㥘 㥔 㭭ххƇƎ`3[[`3[[`\Z][ 8\Z][`LLe~ HHH> ]>HBC\8倅\]偅]  " ]H\HHHAH@H > ޽ Insert boot disk with SYSTEM.PASCAL on it, then press RETURN# SYSTEM.PASCAL is not version 1.2#lhLhx hmDŽ lN{`j5ۓ{Wv*ܞמ]َPqҜـٯU]l7{ӳBVݿӧݙy1ڇ 8R-zLDүH@P 8^L^һһһһһһһһһһһһһһһһ****************|yyyyyyy ҹHH`=`LLLLL)LHL&L)LLKLLLXLLXLLL\v]w]|\ v\w] RPRRSQRR @RȭAR)[[Zqʊ qŐ`8H<8H\Ni iIHHAH@H GH#FF) l GGԬهП8ƋȱHHHH`HHHHHH  < @>~?aƁ)ɠG#B/C0@A "!歪筫䭬)aVV#$6 </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HHHHHH  < `) ,1P `*0 򭋅І 51-l l Ɗgƈд** 6`V QRTWHHlRHHlT Эhh a0+&00 1ح%D[abHT%LXiXYX h&i` hi`RlSml~ȱlm~l``Z罅[潩`޽~@<8潍罅Z\]b[      ཀྵ8TU 8X再Y凍TVｌLXiXYXiXY HHXYX olhh)X0 eXXYLLeT~eU~8~X~YLdҩHHL^ҠXHXHL?飨RHRHL^Ҡ UѥRehnSeio nHnHLLҠ UѥRehnSeioni n)   j^&BIVIEW UDRAW UPRINTERUGLOBALSINITPROGGETUSER TEACHERMSELECTPL 0~E~~~Ղ0LސLh)~hh)h~Lީ vhhh~hE0Ł~ŀ/1'0+!h~hh~hHHL^hHHL^ҩ%vHHL^hhh h膀e ň8内e~l8吨Lߤ 0 vXLLyL+L<   UFifhL8ޠ Uhhh~hXYhLdޱ~р~iLްLLވhhuޅvޅh~h~wޅ~xޅ~р ȱ~р~р %v HHLLҩHHLLҢh~E内凅Lݥ) fj~) fj8~݅݅HHHH9݅9݅HH~ HHHiHL^ҩHHL^ҩHHL?? hh&ŎLL0eeƎLLҥ8包Ŏ 8吪8吪ƌLLhh&eȹȹp)1)fjjj)?~Ōe~9 pHHL^ҦpHHL^ @hhHHHHhhhhLݥ)L8ȥL^hhh heȄ Ȅ~l ۦ8e h9 0 ʚL^ ۦņ hI9ʚL^ ņ0 hʚL^҅~Ƃ~eʥƂFHHL^ҠX hh &heheHHHHeHHL?hhhhhhȱ80 iff =݅=HHL^h~hhhhh ݅%~~݅%80~~i ~&&hhȱI%~I%YHXHXXYeXXYLdhrhshthuXs&trȑtLLҠrrtLUٱrtLLLѺ~~LL^Ҡ UhehheiHHLLҠ UhehheiHHLLhh Uѥi h&L٥hi 0ץheheHHLLҠXX` of"f fofn8no8&&`ffofn&&`hhhh ץIiIiHHL^hhhh ץHHL^h~hhhE0Ń)ŀ!0E0~łL^LXYXXYYHXHLXYHHL^hIihIiHHL^h~hhh8~HHL^ҩonff nenoeofofnff`hh0 hhLhh"IiIiIiIi 0ץHHL^ҺHHLWנnoLѥIiIi攥IiIiƔ8吥呰 X&XeYei无8XYLdҥXiXYLd h~hhh~&Zȥ[Ze~Z[e[8\Z][LLL h~hZ~ȥ[~LLh~h~Zȱ~[潩LLҩ ?~ LA hLihh0HHL^ҨIiIiHHL^h~hhhe~eLLLѠX~e~e~tu~L1hththhLLh~hhe~~heH~HL^hhh~hhe~~he~L^hrhshthu ULh~hhh%H%~HL^h~hhhH~HL^hhIHIHL^ҩXXhhQX0XŗiX`0\XE0XLXŖC?8Xniemo hnhnL?ҠX Uѽeh~ei~H~HL?ҠX Uѽeh~eih~h~L?ҠX UѽeheiHHL?h~hȱ~H~HL^h~hhh~ȥL^ҠXȘ ~X)XYXHXHXe~XYLdҠX~ 8倐~hrhsrHrHooHnHLLҠ UѥRehnSeio hnhnLLèPHPHL^Ҡ UѥPehnQeio nHnHLLҠ UѥPehnQeioni nooHnHLLҠ UѥPehnQeio hnhnLLҠX qѠ Uѥhelniemo nHnHL?ҠX qѠ Uѥhelniemoni nooHnHL?ҠX qѠ Uѥhel ڂ$=HIB5$%&> & %&)!      V ȡ #2 ˡ+]O^ é_^ é`^2 ]'ťȡ O <ت ̀ ̀On˄\̀ƀ( NN A2N5?DIF?תI4=צHGF43l4H z F d  B 4  b V tF# ٸ0#) #&"! "L,ثG٫FA2A2ߪݪܪ ۪ڡ> Ɓʁ&3ʁ'4٫3ث4344345 BޫHI= D! ĄNá  -qd2 A24!!"A GFٸ0#) #&W SQ  ' CA?=;9(2ض&$" Q?==111111,"" ˡ      !  ǀ> /  .z dá         #(('š            ˄    ڹIض H á خ ǀ>Ǫˡ ǀ>ǀ> ǀ>ǀ>          "       f4ݶ  áݮ    MM M &š  ߶ ߕ š߶ 4ݮ  ߂ áX(   ةM( ٓ(١=  ߩ ޓ3 ÄÄÄޡJ X  FˡT áB ɡ  (  ( á  á߮dDةMšMݕظˡת(Mٕš9ȡ+(צ )(ܛǀ>ق1i`4ڮ2š2,2š8ȡ 2 N f  ˡ]   á .4& %3%<Fٶضˍ`2šǀ>2>ز' '2&٩4áؕ2&2ٸظ24خ4KL KLMڕ4ܩK۩LĄܩKōȄɍܩK۩L VMšǀ>,Mšǀ>ǀ>@šǀ܂ F 4& %3M%<F ޶&MM34۩4š4ٕؕMM٫KثL p KLM ƁƁ(ƀƀOצ^ʀ,ت]án Insert next sheet then ƀ  ]]]̀ƀƀצ ƀ O6h aPeQÚʁʁB     :  צType a nuצ4צ CONTROL.DATAײ--- ̀ ̀ʀʀȡʀ Hʀ ʀ  ƀ-ʀ  تPR.0 ٦תצ 22P1!1.ń...2.2 תP.11ń.ɄO..01.01`1{Ʉ1 101222021 á/2/2ġ)/ /Ä33//٦׷.<t<!ٚ& hhhhhh,:0HH`%:PpJ {O7%S| تPR.0 ٦תצ 22P1!1.ń...2.2 תP.11ń.ɄO..01.01`1{Ʉ1 10122ع2ddȡdxȡ ەȡPxȡ ەȡ!PxȡUȡ ;d Z ǖPF'dPPǖZ{O7%S|16T " ٹq   mc `' 'I 7 %16 xcXC3# ÍTÍˡ á ء b́ʁʁBܪڪ٪تa۫PeQU&"ë_&"ë`_` $ ^ t" ^ $ J dF  "'t configure * Press .á16T " ٹq   mc `' 'I 7 %16 xcXC3# ÍTÍˡ á ء baPeQU old value.#YN˄˄ YNÍÍáY M  p  ' * No printer online, can't configure * Press .áTURN> saves configuration to disk.צ' for temporary use of configuration.$ to keep the old configuration.צ"Press for "YES", for "NO".צ"Press to keep the Y N 5. Form feedsצ Yצ Nצ 6. Pause at end of formצ'Press 1..6 to select item to configure.%."Press to keep the old value.צ    ÍÍ & 0 ʀ Hʀ ʀ  ƀ-ʀ ʀ̀ ƀ ƀ-E آز: ȡ$  ȡ& ȡ%= צ4צBIPצ$Is this item active? . ܓSYá(  0&  0܍ L צMODIFY WORDS/PHRASES"Which level do you want to modify?  #ۥ YesצNoצ$Press <1..9> to edit, to exit. ˡ00 ܓ&00  ܓ-/ zá,%MODIFY/ACTIVATE "BIRDHOUSE" POSITIONS׮)$MODIFY/ACTIVATE "AIRPLANE" POSITIONS׮צ%Word Description Active ȡ .  Pނ ނ33ńɄ@ 3ނ  3 44 P4 Q4P3  44ġ+ ߛ Ä 5 5P צ3˄ P3 44YN"ˡ.تP (R6  תPצ 443!3ń, 44vצmenuvצMENU vצmenuvצMENU򩁲2ˡ4צ RECORD.DATA*Ƃ>́*ʁ*v̂9̂;ʂ9ʂ;ȡâ7 ̂<ʂ7ʂ<ȡF ʂ9ʂ7  ʂ9ʂ7 ʂ7̂7ʂ9̂9Ƃʁ*ʁ*4צ CONTROL.DATA*Ɓ+́*ʁ*Ɓ+2ʁ*ʁ*ʁ*  x bx! !ʂ: áWhat is your name?תP  v vצmenuvצMENU vצmenuvצMENU򩁲2ˡ4צ RECORD.DATA*Ƃ>́*ʁ*v̂9̂;ʂ9ʂ;ȡâ7 ̂<ʂ7ʂ<ȡF ʂ9ʂ7  ʂ9ʂ7 ʂ7̂7ʂ9 צ4צ FONT.C.LUCASE:2á} צFile full, see your teacher.צPress to continue.Ƃ:!ʂ: áWhat is your name?תP  v 4צ PRINT.CONFIG      Zjn8P  VERSION # 01.25.88צ"Animation by Mickey Graphics (tm).צ#Copyright 1987 Entrex Software Inc.Graphics by Michael Byrne.@ؚ  bIvIewׯ P(` &`INSERT`PROGRAM`DISKn``PRESS`|RETURN~nתP**+*+***** **צor printed.צ& To review enter "MENU" at prompt. -  VERSION # 01.25.88צ"Animation by Mickey Graphics (tm).צ#Copyright 1987 Entrex Software ʁצMASTER4צBIPICSƁƁ}  p2á צ! ** CAUTION STUDENT FILE FULL **% Information will be lost if recordsצ are not reviewed ICSƁ́ʁ́́ ̂ʁʂȡ!ʁ ʁ́́ ̂ʁʂȡ#ʁ ʁ́́̂ʁʂȡ"ʁʁ̶ צ1. BIRD HOUSE  2. AIRPLANEצ Enter # to select or . ع  12á:   צDelete all student records Y/N? س@@سx ب!..ת!צ**!??ת!צXXצ& OBJ1 OBJ2 OBJ3 OBJ4 OBJ5+U+Uȡ) V)Vȡ, P,WW,PW+) OFF.צ Enter # to select or . ع  12ád: nצVIEW WORD OPTIONSצ"Do you want display of view words?1. ON á; צPOSITION WORD OPTIONSצ&Do you want display of position words?1. ON צ2. OFF צWord display is now צON.LY 2. BY PRESSING  צThe mode is now  צ1.צ2. Enter # to select or . ع  12 Enter # to select or . ع  12áV; `צWAIT CONFIGURATIONAfter each task proceedto the next frame 1. AUTOMATICALP TV` צ SOUND OPTIONSצ"Do you want the reinforcing sound?1. ON צ2. OFF צThe sound is now ON.צOFF.# 6. Delete selected studentsצ 7. Configure printer!Press <1..7> to select, or . ٹ .* &"17$" á 2. Print all studentsצ 3. Delete all studentsצ! 4. Show selected students" 5. Print selected studentsspace> for next, or .  ݂ áá 9ˡ ˡצ RECORDKEEPING 1. Show all studentsצPress next page,צ# to enter number, or .   ˡ á  Enter number of student.á_ "݂2 !Press < ߳& ߂0š 9ń*  ńᚭ šˡ  ȡ=  "܂2ss for next, or .  !ˡ  áةōA 2ˡ/ȡ!"2"23 J  ÍÍi' |   צCheck your printer and paper.צPress to continue. "  ˡ צPress to stop printing."2 =!Pre))+áצ++צ"** = First try OK ?? = Some OKצ"XX = All wrong .. = Untried ^v@ ˡi "2 !Press for next, or .   áةō^WP,ˡ;,WW,PWצ ƀ,ƀ_WP,WW,PW QWP,WW,PWצT UWP*W*WȡM,XX,PX! + *) RXצ UXP**,'š,,W'WP,צ2. OFF צWord display is now צON.OFF.צ Enter # to select or . ع  12á\: fצERRORS TILL ANSWER!The student is currently allowed  áצtrytriesצ before the correct answer.צEnter 1..4 to change this. Enter # to select o Tw éÄááؓ  ~ Z  á˩˄nj @) ǖlj  -"˩˄nj @) ǖlj á -"ˡá  0éÄÄ 6 ˡ/áÄ  á DB x j L . dH,Z  á˩˄nj @) ǖlj  -     𥁭     |    G     :xE ȡ  ȡe ,  ,         򥁭     𥁭 t^ X6  d6:8(< tinue/return 7. View words on/off 8. Group instructionצ Enter # to select or . ع%8 40,($ 18,*(&$" سá١u   Do you want to save options Y/N? س@@س# 5. Errors till answer givenצ 6. Wait continue/return 7. View words on/off 8. Group instructionצ Ent$ 1. Modify/activate positions 2. Student recordkeeping$ 3. Reinforcing sounds on/off 4. Position words on/offO צ4צ RECORD.DATAײ*>**  ȡ!"2* *2|  TEACHER OPTIONSצ ---------------Hʀ ʀ ƀ-ʀ ʀ  Hʀ ʀ ƀ-ʀ ʀ  ʀ̀ƀ ƀ ***  ȡ!"2* *2r צ"Saving teacher options to disk....4צ CONTROL.DATA** 2 ̀ ̀ʀʀȡ ƀ-ʀ ʀ Hʀ ʀ  ƀ-ʀ ʀ̀ ƀ ƀ*E צ4צ RECORD.DATAײ*>r . ˡ0áF/ Pצ4צ CONTROL.DATAײ*** ̀ ̀ʀʀȡʀ Hʀ ʀ "˩˄nj @) ǖlj á -"ˡá  0éÄÄ 6 ˡ/áÄ  á DB,  O    D,B    N `}}[EU}P}PMPB@`D0`BE*}}E((C*B?`^BC^`?EU}}EUUCUC@aqBApBE*}uCE**C*CqqAsBEU}lCDCEUUCUCqspBE*}hCDCE**C*CyAccaBEU}hՀCDCEUUCUCBEE*xxI( < [  : 7  A d +W|A1zr2U|   "$o%$6%%FJ    G ! XE !d~dZX 8 * t "á éáá  šˡ Yצ4צ RECORD.DATA >́ ʁ ʁ ʁ `@já,-V0ˡ   :9ߓÄl   ~á ááá á éáá  šˡ Yצ4צ Rߓ ߓá  á  á  á á ܥ å   ˄˄ ߓÄ \A tܥ á    á Ä á *   ໥   é˄ܥ Ȅá        ˡ ǴSorry1"Ǵ8á  á á á   éˍ   Í- Sٓ ˍCٓ ˡ "áǐ-d-"dvåÄ á    á á á   ȡá ááá ǖ-á ááá Ͷ   𥁭á  á á á   ˡ -"  "á ˡlá           n á         u lá         Nت  ,     .  ȡ  ȡe ,  ,   `xxBxxCxxCxxCEpp``@@wCDCE**C*CBf~BfBEU?C@C@?BCCCE@pp00uՀCDCEUUCUCff>6fBEU E ??FC@pp_O@@? E ??uՀCDCEUUCUC~EBE*CXxxEFaqyyqaG`pxxp`uCDCE**C*CE~BEUC?@@L?@@??G?@@??uՀCDCEUUCUC~~BE*C``C``HCK``CaC`uCDCE**C*CBLxB0BEUC@O_pA @I<[ggB~||xVE@x*U}MUa@,C`<<gCBR~LU*}M*^@G<[ggBB?RCE*U}MUbGgC~`U*}M*p<[ggB?c*U}MUp dU*}M*}`*U}MU}`U*}M*}`*U}MU}MU}O??H_U*}M*P``8@fof`@8``EB@`DpxF8GIEOKo/*U}MUN88|9o}|8:CCExxBp`@H ``Cpxx|~~C?BU*}M*P `sNoOs` O<[ggB~LEP*U}MUSBD @@GgCb@U*}M*^\NOH7BUW}U?JF~~C~~C~~G_`P|P`@Xa`P|P`@VICCIE??CC??G^@asD T`@asD R]EU^BX`BV]\}}]\}}]\ p0Bx||xxpp`?B*jjJE 00??E0GQ6LU]cBAc]DUOQ6LU]cBAc]DUD@||p||@Bp~uBU}B~~||xxp`BECfEGU *jF*B+F*OU *jF*B+F*DHG**B+BE00<CFaCgC~D>CEaCgC~C>CEժ^B=?W`B=?U`B=?T}}}ժ}}}ZbZb]\@`pN@O\@`pN@O[@`pN@DժU@ 0(,*+F*BjF*OU@ 0(,*+F*BjF*OT@ 0(,*+F*BjF*DxssxysgQ6LU]cBAc]DUOQ6LU]cBAc]DUOP6LU]cBAc]DUOժU *jF*B+F*OU *jF*B+F*OT *jHbC P(,*+C*zzB*DbZLaE**jDHD@`[E 5uCDbZ1aժZBCWZbZLaZbZbZ1VH`ժZ bZ b VaDLa}}rBy33GOժ}}r LLNOB??F~xp`Y?HC~B|Cx`@NEU}MF~|p`@QC@BGO_P~~|CxpC`E*}R?E><bB~D|C~iEU}W?>@bwE* `ZbZbZaԪZbZbZaE@@ 0pE@HbI@`pH@DbZ3aժECUD***C*C[_]YYBEUGQB?_~yG?Ccca@@@@`px< ~|xp@\UUCUCBBE*c?^|sO?BJ?~xp`W C HBEUg?\~}{p`@V?~xp@hE*l?W??WB|`@eEUu?O~p@[?B|x``@@^E*}yTCE**C*CBEUX@`pp~DyF~B|xxE|E~B|Bxpp``@ZTCEUUCUHE*U`|BQooCwgoO_?E|p@G`@aCE**C*MEUS`~D~_|ycO?D~pF??<8 kUUCUCODFOBE*S??f~ygDpB@`p8 ><<P@@bC}\CDCE**C*CYYMBEU}hՀCDCEUUCUCOYAOXYOBE*}hCDCE**C*C_AAGAA_BEU}hCDCEUUCUCY__YPBE*}uCE**C*CFOY_BYBEU}uCEUUCUCOYYOGMYBE*]`x|x@p@@pp_OXC@BL^ssuՀCDCEUUCUBXyq!FE*MXIuCDCE**C*BD@CEU08}bՀCDCEUUCUCYBAYBE*C`pp`xx}ZCDCE**C*CODYBEUC?@@?}ZՀCDCEUUCUCEYOBE*CU}`U*} M *}`*U}}oU*}}o*U}}oU*}}o*U}}oU*}}o*U}}oU*}v@`pxc@N*U`pxp@}i@`peՀNU*|g9JpXxp@@p}O@`p`BCN*Us|LC}|x`~xp``x||@`pgBCCՀNU*Q? ?gpt@`pZCDGCN*UQ@Pt<_E`o`bՁ@I@DGCՀNU*PF?__^\XBD@BD@BD@BD@BD@pB0xDՆ[CEGCN*U\B`@C{{y}yB{cBDBDBDBDxKgCBCՀNU*^?B{wH `T*&E@B@ABL D@ @DBB  @@C` B BC0 H@F @UD @ @D@D `T*&MBD @@[A @`@,C`XT*&M  [0 @U@@lC`OD@`V@B!aDG `T*&MBAP CB@ @QB@@C`H BC HG C[ @?SE `` `d?o} `d9o} `> <>I~C>` `> ``Cpxx|~~C?JER1 4- Dj4- 2Dj4- 1Dj ` p88T@`Z܀|M@``F@`hՈ@`nnՀGfN`ՀUY pF4L@@`~Zp`BHZՁUՀZUZՁUՀZUZՁUՀZUZՄBNՀZHBsOxM`hz/ EpJE_OBonlB@C`L00p`a}}|~|B}qSB}{|B p88T@`Y܀|M@``F@`^ՁGՈ@`VCCGWՁCDՁGՀG\GN`ՀUYՀHUHMՀS p?3ˁxf؀xHpfpGhՁE~`h`DjDh@DhՁE?fE?f?G p81hGhFxhooooFh?G p#1ـ@xl|x`@`8W?B~~|p |xpp|~OOg?w}pGch\ <sscafBxx18O9??;Ox1 F pl~B|DGafxcpl~g??!&??w p F!JT@|H`BCIHUՀHUDpp00UՂB??00UHUxY{X0d`` B08E??EBcGMO '`D=~DCJB(@""@=~|xC`C``L(EB=~?BwpE||@@IF=~?@@||K~~CxK`Byx~~G pF2aB`C@jpl~xgafJp`<`p %D@`pl~xpp`@`cGp}~D03dB΄l` DCՇ|CD@pGCDBKC pw  ppr1ĀT@`@@B@pXl.<6|n|x\xp`p|w}7~<DCH}I||xxoo_?|pp`px~o{>E?H_B@B`@ppxxEw;C{g?LP p1DHCDԩBA`BC@HhBC L&Bą3BB@`xHwBB`x~??oow{?o?x`C?E5< p~*!ƀJ@``p`M`p`H|^{?~w?|B@B`Cp\BIAcs?E}~~?B@`` p|^{C??C~x@DBBB>~?o_? WG p*ND~x@BJ?m|G<~~=}~ 0333???E E333B377?;3  @`` p @?@ ` N``n@1 pFq*B`CppL|~~|~{{|xKBc{{w~|pB  h@D`woq~?CD@p\w_wJ N pM#}@``~`0M<,,ED?C/C7P?>M?* p p880 xdxUՆ_BHN*U@bE~dUf?NU*xO`ppPG@hWՄV꺚P*U~`M?~p@M?{gBBxpjOTՅWU*C|O?||x`J??Fxp@mGՃN꺚]*UqgB~Bp``C|pGC@_h1  l l l l2F1 l l l l ` ?DpXxp@@pPC}|x`~xp``x|J? ?gpH@Pt<_E`EF?__^PB`@C{{y}R?WE`ppP ` ?] `Pp`@`Bp` ~xp``x|Fgcswo/?gpFBBEE`R?__^PB`@C{{y}R?WE`ppP ` ?] `Pp`@`Bp` ~xp``x|Fgcswo/?gpFBBEE`R?__^PB`@C{{y}R?WE`ppP ` ?^_WUUG??MX@``pC_WUUG??B?8D38?BR@w~EF~~C~~C~~FX>??zB*//SW>??zB*//TQGE??CC??F\@@``P_DUU[@@``P_DUV]ETZ H UY H V]^I@Ip|pBCDBCGI?CE 00??E0F_`XTTWW|TxU^`XTTWW|TxJFBH?o/C_DECfEF]|ss~**+**@``pp``@M\|ss~**+**@``pp``@B0D<BKmDE00<<@xwp``@FbZLb][I7A;BFD@`[Z1b][JJBCWZLb][ZbZ1O`@Dx8D8xB][Z b KCBBBXx~B~p:j**+??OVx~B~p:j**+??P\@@``P_DUUXB@DUUVB@DUVժZ H UZ,**++D*UX,**++D*V}}}ժ}}}ZbZb]\ZbZb][L@BLB_`XTTWW|TxU_bRR^^rRbT]bRR^^rRbI@EsBժ]|ss~**+**@``pp``@M]p|ONz**.+*B@@P[p|ONz**.+*B@@EBL@BLBY@``pC_WUUG??M\@B_UUB}~E>MZ@B_UUB}~E>BHBժX>??zB*//S U`IIaII`B^Bp`^|~@W^B@xpxX]B@xpxL@||p||@Bժ_asC?4E>CF^O~~pPPD px|CpGPCp|xp DO~~pPPHLLHDBLB_Y_ ? FKTG ? H@||p||@Bժ_I@T}qsabZbZaLxLbI((HxIbZ3aժI`K`IbG><@xwp``@EbZLaItID@`[J7A;BEbZ1aժLLBCWKIbZLaZbZbZ1UH`BժZ bZ bg(1?B?__^IDB`@C{{y}R?WE`ppP ` ?i~xp``x|E@xl|xp`s~x@gpFB?B~{cE`C 88Cpx<?__^PB`@C{{y}R?WE`ppP1 DLxLx4- Trh@ ~xp``x|KAag~q@?gpH@|DcE`E?o?`C?__^PB`@C{{y}R?WE`ppP ` ?i~xp``x|E`ppD8xp`?gpKx~BE`J_?s ?__^IB`@C{{y}R?WE`ppP ` ?i~xp``x|E@>>XP@~xp``x|F-?B??gpRE`R?__^PB`@C{{y}R?WE`ppP ` ?D0p`@ U}xd~xp``x|Jpx||~?gpE@@pC_E`E D?__^PB`@C{{y}R?WE`ppP ` ?^.<[}}][}}]\ p0U}MU}B?IS%I%I%I%I%I%I%I%Iu*}M*}HGj4I$I$I$I$I$Ir*U}MU}C@@p(N%I$I$I$I$I$IrBՁU*}M*z>CsdI$I$I$I$I$I$ItC*U}MU}B $)R$I$I$I$I$ICՁU*}M*}LaS$I$I$I$IB*U}MU}E@` 0P$K$I$I$I$I$Ir?/+U*}M*}0|~BdI$I$I$I$I$I$iZWCU*U}MU}C $)R$I$I$IR9/=C><<80F p?J|OOI`xB@D‚EJ||OOOD pMq`SQUg[[gT33B6~NO9VV9~S6~)N55NC0@Pw{[{ww{[kw~E @J??^Bm^??^Bm^?@KD ?<;765;??N~~TTTT}\xTTTEF@|ay|~??~|x`FBC p?$DKD0ppD0Z`||`[`~E~`YGLpxK|GK|xpKGKMG\EV<>>D?C?>><H p1$HCcss3}CB@C||xL|_opC ={~~|ByBI@asE??Bw~>~|x`800`c><>?IB~MBMBMM?D pp|CCBCa?J pq@p?p?@= pT#s@``~`0FCBFOHS?C pi#~DB{gH@aB?KG|~B?}SGBDՀSI`pDSE8?C>B}~|xpBxpC?? c? pp#dCxp@O|CJ8B|8C~~GB;~BDC?BwGCB B p?v*@` @``@P;n8`Qg?_9K p<F*Y :o;n8`MFff~~&fFN}|p`@FpCB`Ox}~q|DCB@C`Bp`x~{{}Dx@~wx|}g dIr4 U*E?E|Gg{}~?}}GqAA*UBDBC}}Bx'  U*} } f ,#0$!0$!0* p p880  0333???E E333B377?;3  @`` pk3C8|~~|B`pp|~B`px~BBwDU*vCGB_D@EՀFD\A>Ir_U*UvCHDTFDꄺIՁDZp. ?j**U*vCHDTHDCC`IJR}QMU*U}MU}QM*U*} M *}QuLU*U}sS@WzK*U*}sDaqyyByqABXJU*U}r@ >GC\>jH*U*}n`8||8B_oq~^uFU*U}m~IB߁BՀGCO@x$I.zD*U*}m`G@GDBO|I$I$OuBU*U}gGp``@B`x|~CI?O~|x`HCF}YECWPY[YJXժZ bZ bID@OJX}}HOYA]YYO_EFBDXժ}}HYYOGMOYYOGMEW\@`pN@O\@`pN@OHODYDYEWժU@ 0(,*+F*BjF*OU@ 0(,*+F*BjF*OHEYOOBE4% `ZbZb}ԪZbZb}ZbI@`pH@Db}ժZbC P(,*+C*zzB*DB@`pxC`W}ZbE 5uCDCCWYKWժZbZbPODFOJXZbZbyByp@G@ >G~cC`  Boww{|B `pmhMC@R`pxyBxp@G@ >G~}C`3xx0BBw{|B1 $4%$$$4%$$$%14%$$1 !r!4!4!to$čFL `HBFGHGIՀFGF1 $ $$$ $$ $$ $g$1$ $ $$ `pmhES@EDaqyyByqABD@ >GCC`8||8B_oq~B `pmhJI@OaqyC@``ppExpp``@BQFE`x|~Q~|x`[B[BMGD?S?[BDBCW1 \"dr#t\"dr#t\"dr#t$1\"dr#l#tT " `HBBGB|FDՅDBBBFB`x|~Go_?~|x`CBBQBD[<BBwDCFaCgC~D>CEaCgC~C>CEժ^B=?W`B=?U`B=?T}}}ժ}}}ZbZb]\@`pN@O\@`pN@O[@`pN@DժU@ 0(,*+F*BjF*OU@ 0(,*+F*BjF*OT@ 0(,*+F*BjF*DxssxysgQ6LU]cBAc]DUOQ6LU]cBAc]DUOP6LU]cBAc]DUOժU *jF*B+F*OU *jF*B+F*OT *jHbC P(,*+C*zzB*DbZLaE**jDHD@`[E 5uCDbZ1aժZBCWZbZLaZbZbZ1VH`ժZ bZ b VaDLa}}rBy33GOժ}}r LLNOB??F~xp`Y?HC~B|Cx`@NEU}MF~|p`@QC@BGO_P~~|CxpC`E*}R?E><bB~D|C~iEU}W?>@bwE* `ZbZbZaԪZbZbZaE@@ 0pE@HbI@`pH@DbZ3aժECUD***C*C[_]YYBEUGQB?_~yG?Ccca@@@@`px< ~|xp@\UUCUCBBE*c?^|sO?BJ?~xp`W C HBEUg?\~}{p`@V?~xp@hE*l?W??WB|`@eEUu?O~p@[?B|x``@@^E*}yTCE**C*CBEUX@`pp~DyF~B|xxE|E~B|Bxpp``@ZTCEUUCUHE*U`|BQooCwgoO_?E|p@G`@aCE**C*MEUS`~D~_|ycO?D~pF??<8 kUUCUCODFOBE*S??f~ygDpB@`p8 ><<P@@bC}\CDCE**C*CYYMBEU}hՀCDCEUUCUCOYAOXYOBE*}hCDCE**C*C_AAGAA_BEU}hCDCEUUCUCY__YPBE*}uCE**C*CFOY_BYBEU}uCEUUCUCOYYOGMYBE*]`x|x@p@@pp_OXC@BL^ssuՀCDCEUUCUBXyq!FE*MXIuCDCE**C*BD@CEU08}bՀCDCEUUCUCYBAYBE*C`pp`xx}ZCDCE**C*CODYBEUC?@@?}ZՀCDCEUUCUCEYOBE*C??uՀCDCEUUCUC~EBE*CXxxEFaqyyqaG`pxxp`uCDCE**C*CE~BEUC?@@L?@@??G?@@??uՀCDCEUUCUC~~BE*C``C``HCK``CaC`uCDCE**C*CBLxB0BEUC@O_p`xxBxxCxxCxxCEpp``@@wCDCE**C*CBf~BfBEU?C@C@?BCCCE@pp00uՀCDCEUUCUCff>6fBEU E ??FC@pp_O@@? E U}MU}O??H_U*}M*P``8@fof`@8``EB@`DpxF8GIEOKo/*U}MUN88|9o}|8:CCExxBp`@H ``Cpxx|~~C?BU*}M*P `sNoOs` O<[ggB~LEP*U}MUSBD @@GgCb@U*}M*^A @I<[ggB~||xVE@x*U}MUa@,C`<<gCBR~LU*}M*^@G<[ggBB?RCE*U}MUbGgC~`U*}M*p<[ggB?c*U}MUp dU*}M*}`*U}MU}`U*}M*}`*U}M?SE `` `d?o} `d9o} `> <>I~C>` `> ``Cpxx|~~C?JER1 4- Dj4- 2Dj4- 1Dj ` p88T@`Z܀|M@``F@`hՈ@`nnՀGfN`ՀUY pF4L@@`~Zp`BHZՁUՀZUZՁUՀZUZՁUՀZUZՄBNՀZHBsOxM`hz/ EpJE_OBonlB@C`L00p`a}}|~|B}qSB}{|B p88T@`Y܀|M@``F@`^ՁGՈ@`VCCGWՁCDՁGՀG\GN`ՀUYՀHUHMՀS p?3ˁxf؀xHpfpGhՁE~`h`DjDh@DhՁE?fE?f?G p81hGhFxhooooFh?G p#1ـ@xl|x`@`8W?B~~|p |xpp|~OOg?w}pGch\ <sscafBxx18O9??;Ox1 F pl~B|DGafxcpl~g??!&??w p F!JT@|H`BCIHUՀHUDpp00UՂB??00UHUxY{X0d`` B08E??EBcGMO '`D=~DCJB(@""@=~|xC`C``L(EB=~?BwpE||@@IF=~?@@||K~~CxK`Byx~~G pF2aB`C@jpl~xgafJp`<`p %D@`pl~xpp`@`cGp}~D03dB΄l` DCՇ|CD@pGCDBKC pw  ppr1ĀT@`@@B@pXl.<6|n|x\xp`p|w}7~<DCH}I||xxoo_?|pp`px~o{>E?H_B@B`@ppxxEw;C{g?LP p1DHCDԩBA`BC@HhBC L&Bą3BB@`xHwBB`x~??oow{?o?x`C?E5< p~*!ƀJ@``p`M`p`H|^{?~w?|B@B`Cp\BIAcs?E}~~?B@`` p|^{C??C~x@DBBB>~?o_? WG p*ND~x@BJ?m|G<~~=}~ 0333???E E333B377?;3  @`` p @?@ ` N``n@1 pFq*B`CppL|~~|~{{|xKBc{{w~|pB  h@D`woq~?CD@p\w_wJ N pM#}@``~`0M<,,ED?C/C7P?>M?* p p880 xdxUՆ_BHN*U@bE~dUf?NU*xO`ppPG@hWՄV꺚P*U~`M?~p@M?{gBBxpjOTՅWU*C|O?||x`J??Fxp@mGՃN꺚]*UqgB~Bp``C|pGCZCDGCN*UQ@Pt<_E`o`bՁ@I@DGCՀNU*PF?__^\XBD@BD@BD@BD@BD@pB0xDՆ[CEGCN*U\B`@C{{y}yB{cBDBDBDBDxKgCBCՀNU*^?B{wU}`U*} M *}`*U}}oU*}}o*U}}oU*}}o*U}}oU*}}o*U}}oU*}v@`pxc@N*U`pxp@}i@`peՀNU*|g9JpXxp@@p}O@`p`BCN*Us|LC}|x`~xp``x||@`pgBCCՀNU*Q? ?gpt@`pT*&M  [0 @U@@lC`OD@`V@B!aDG `T*&MBAP CB@ @QB@@C`H BC HG C[ @H `T*&E@B@ABL D@ @DBB  @@C` B BC0 H@F @UD @ @D@D `T*&MBD @@[A @`@,C`X]BW^B`@<@xwp``@FbZLb][I7A;BFD@`[Z1b][JJBCWZLb][ZbZ1O`@Dx8D8xB][Z b KCBBBXx~B~p:j**+??OVx~B~p:j**+??P\@@``P_DUUXB@DUUVB@DUVժZ H UZ,**++D*UX,**++D*V}}}ժ}}}ZbZb]\ZbZb][L@BLB_`XTTWW|TxU_bRR^^rRbT]bRR^^rRbI@EsBժ]|ss~**+**@``pp``@M]p|ONz**.+*B@@P[p|ONz**.+*B@@EBL@BLBY@``pC_WUUG??M\@B_UUB}~E>MZ@B_UUB}~E>BHBժX>??zB*//S U`IIaII`B^Bp`^|~@W^B@xpxX]B@xpxL@||p||@Bժ_asC?4E>CF^O~~pPPD px|CpGPCp|xp DO~~pPPHLLHDBLB_Y_ ? FKTG ? H@||p||@Bժ_I@T}qsabZbZaLxLbI((HxIbZ3aժI`K`IbG><@xwp``@EbZLaItID@`[J7A;BEbZ1aժLLBCWKIbZLaZbZbZ1UH`BժZ bZ bg(1?B?__^IDB`@C{{y}R?WE`ppP ` ?i~xp``x|E@xl|xp`s~x@gpFB?B~{cE`C 88Cpx<?__^PB`@C{{y}R?WE`ppP1 DLxLx4- Trh@ ~xp``x|KAag~q@?gpH@|DcE`E?o?`C?__^PB`@C{{y}R?WE`ppP ` ?i~xp``x|E`ppD8xp`?gpKx~BE`J_?s ?__^IB`@C{{y}R?WE`ppP ` ?i~xp``x|E@>>XP@~xp``x|F-?B??gpRE`R?__^PB`@C{{y}R?WE`ppP ` ?D0p`@ U}xd~xp``x|Jpx||~?gpE@@pC_E`E D?__^PB`@C{{y}R?WE`ppP ` ?^.< ` ?] `Pp`@`Bp` ~xp``x|Fgcswo/?gpFBBEE`R?__^PB`@C{{y}R?WE`ppP ` ?] `Pp`@`Bp` ~xp``x|Fgcswo/?gpFBBEE`R?__^PB`@C{{y}R?WE`ppP ` ?^@_h1  l l l l2F1 l l l l ` ?DpXxp@@pPC}|x`~xp``x|J? ?gpH@Pt<_E`EF?__^PB`@C{{y}R?WE`ppP^I@Ip|pBCDBCGI?CE 00??E0F_`XTTWW|TxU^`XTTWW|TxJFBH?o/C_DECfEF]|ss~**+**@``pp``@M\|ss~**+**@``pp``@B0D<BKmDE00<??zB*//SW>??zB*//TQGE??CC??F\@@``P_DUU[@@``P_DUV]ETZ H UY H V]q`SQUg[[gT33B6~NO9VV9~S6~)N55NC0@Pw{[{ww{[kw~E @J??^Bm^??^Bm^?@KD ?<;765;??N~~TTTT}\xTTTEF@|ay|~??~|x`FBC p?$DKD0ppD0Z`||`[`~E~`YGLpxK|GK|xpKGKMG\EV<>>D?C?>><H p1$HCcss3}CB@C||xL|_opC ={~~|ByBI@asE??Bw~>~|x`800`c><>?IB~MBMBMM?D pp|CCBCa?J pq@p?p?@= pT#s@``~`0FCBFOHS?C pi#~DB{gH@aB?KG|~B?}SGBDՀSI`pDSE8?C>B}~|xpBxpC?? c? pp#dCxp@O|CJ8B|8C~~GB;~BDC?BwGCB B p?v*@` @``@P;n8`Qg?_9K p<F*Y :o;n8`MFff~~&fFN}|p`@FpCB`Ox}~q|DCB@C`Bp`x~{{}Dx@~wx|}g dIr4 U*E?E|Gg{}~?}}GqAA*UBDBC}}Bx'  U*} } f ,#0$!0$!0* p p880  0333???E E333B377?;3  @`` pk3C8|~~|B`pp|~B`px~BBwDU*vCGB_D@EՀFD\A>Ir_U*UvCHDTFDꄺIՁDZp. ?j**U*vCHDTHDCC`IJR}QMU*U}MU}QM*U*} M *}QuLU*U}sS@WzK*U*}sDaqyyByqABXJU*U}r@ >GC\>jH*U*}n`8||8B_oq~^uFU*U}m~IB߁BՀGCO@x$I.zD*U*}m`G@GDBO|I$I$OuBU*U}gG$I$I$I$ICՁU*}M*}LaS$I$I$I$IB*U}MU}E@` 0P$K$I$I$I$I$Ir?/+U*}M*}0|~BdI$I$I$I$I$I$iZWCU*U}MU}C $)R$I$I$IRCsdI$I$I$I$I$I$ItC*U}MU}B $)R$IBGBւEGBC p?$DJDDZ`<<`[`~C~`YC؂LpJ܂|C|J܃pJ`CՂ`JMC\CՀU08<9/=C><<80F p?J|OOI`xB@D‚EJ||OOOD pM0 `#C@``ppExpp``@B`x|~CK~|x`HCF}YECWPY[YJXժZ bZ bID@OJX}}HOYA]YYO_EFBDXժ}}HYYOGMOYYOGMEW\@`pN@O\@`pN@OHODYDYEWժU@ 0(,*+F*BjF*OU@ 0(,*+F*BjF*OHEYOOBE4% `ZbZb}ԪZbZb}ZbI@`pH@Db}ժZbC P(,*+C*zzB*DB@`pxC`W}ZbE 5uCDCCWYKWժZbZbPODFOJXZbZbyByp@G@ >G~cC`  Boww{|B `pmhMC@R`pxyBxp@G@ >G~}C`3xx0BBw{|B1 $4%$$$4%$$$%14%$$1 !r!4!4!to$čFL `HBFGHGIՀFGF1 $ $$$ $$ $$ $g$1$ $ $$ `pmhES@EDaqyyByqABD@ >GCC`8||8B_oq~B `pmhJI@OaqyC@``ppExpp``@BQFE`x|~Q~|x`[B[BMGD?S?[BDBCW1 \"dr#t\"dr#t\"dr#t$1\"dr#l#tT " `HBBGB|FDՅDBBBFB`x|~Go_?~|x`CBBQBD[<BBwD5 3*) 3( 3name : Ditnametype; 3blkstart : integer; (* 0 = directory *) ms in the file *) 3lastdirblk: integer; (* last direc blk # in use *) 3lastblk: integer; 3lastbyte: integer; 3lastdirrec: integer (* last direc rec in use *) 3); 12,3,4: (* normal item entry *) 3(* 2: stand alone entry 63: list member: listlink isteger; /typnum: integer; /end; " "Ditnametype = string[Ditnamlen]; "Ddirrecord = packed record 1case rectype: Ubyteint of 1(* 0: record free *) 11: (* first entry only: directory ctl *) 3( 3dirname: Ditnametype; 3numitems: integer; (* # of ite.blkhi: 0..1; (* limits pic file blks to 512 *) .bytehi: 0..1; (* limits bytes/blk to 512 *) .byte: 0..255; .blk: 0..255; .end; "Dwindtype = record /x: integer; /y: integer; /w: integer; /d: integer; /blk: integer; /byte: integer; /id: inrol: 0..3; (* currently 0-2; so 3 for future use *) .index: 0..1023; (* limits # of file items addressable, >but could use 0 to mean invalid *) .sparebit: 0..1; (* possible future use: keep at 0 now *) := 2; $error:= FALSE; $FILLCHAR(buf,SIZEOF(buf),0); $buf[0]:= 0; { last directory block } $buf[1]:= fileend-dirend;{ last file block with mickey stuff } $READLN(F2,picname);  WHILE (picname<> 'END') AND NOT error DO $BEGIN &error:= error OR NOT (finditem(picname,curblk,curbyte,cursize));  BUF[count]:= curblk; &BUF[count+1]:= curbyte; &count:= count+2; &WRITELN('SCANNING FOR ',PICNAME); &IF ERROR THEN WRITELN( 'ERROR ON ITEM ',COUNT DIV 2); & &READLN(F2,picname);  END; { WHILE }O^EU/P/w\ũũȡ:\ũ\Ź\Bצ Not Mickey file\/6 os9JP/P/END׷횩 SCANNING FOR 0ERROR ON ITEM  /P/w\ũũȡ:\ũ\Ź\Bצ Not Mickey file\/ /P/END׷횩 SCANNING FOR 0ERROR ON ITEM  /"á֩צ Mickey fileׯ㫸૸᫸| \ݪP210210Ʉ8113342<=>2Iv j\/[ ǥ *** Bipics Kruncher ***צVERSION may 12 87צCAUTION scrunched in situ.צMICKEY Filename ?P\"áText Filename ?P$KBIPIC &END; &CLOSE(f3,crunch);  END; { IF } "END { IF } "ELSE "BEGIN $WRITELN(' Not Mickey file',CHR(7),CHR(7),CHR(7)); "END; { ELSE } "  END. { kbipic } (  "  IF NOT error THEN &BEGIN { write first block } &CLOSE(f); &count:= BLOCKWRITE(f3,buf,1,0); &{ now skrunch rest of file down } &FOR i:= 1 to fileend - dirend DO &BEGIN (count:=BLOCKREAD(f3,buf,1,i+dirend); (count:=BLOCKWRITE(f3,buf,1,i);