' +JJJJ ?\>m0M='+l> /+L]  h    ߩp> LhWRN  q r LL LјJ 8彐.mĿ"Š>?( X֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύܽ0|ϩHhHh ӈ ө ө ӘVYԦΝYԮܝꪽԦ ө  Ͱ()I يJJJ(jǩF؅G(  ֈ k( F G  WjΓ0 Ю $Ӱ͐4 xΒΔH ܩ`Ǚx kh k@(LYҭH͍h (ͥpi)ͥˤ˹HH(x h(`~Ȍ``,hhh )hJ¥jJJhhihhhJi֍hhhh b\8ſƅhx Щ&'H(f'ꮭ'eƍ8ƅб ĘHH`ܠ ܮ`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J8`E 8T8 Wa b ׭Iɪɭ蠪& E&U'] ] H)] ] ')] ] ()] + 8$hUD` & '8&/   ') `   ) ``(8Hh`8`&&ɪɖ'*&%&,E'зЮɪФ` modify the sou  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴 H e>X +`@@)  -X ED  -X X ׈` `     ll of the above.   The authors all receive a program called LOADER.O, which writes the loader  to disk. To create a new LOADER.O after modifyin an@>" > @O`@ UP ``@ 'x 8(i8逅i 8ԥΥд`$ 08 !      Т W  BUDGET.CODE'PROG842 & SYSTEM.APPLE&C SYSTEM.PASCALCL SYSTEM.ATTACHLMSYSTEM.MISCINFOMVATTACH.DRIVERS7VW ATTACH.DATA@7W]FORMATTER.DATA] BUDGET.LIBG  BUDGET.CODE&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`& ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴I= ƈ dLȄHHLhh ~LahhV~W\]XiXY~8傅~~8傅~8~~~=8Ƈ8񆅚ȥ񆅛HHl0 bL8Ƈ8񆅈HHLhHHLҩ%vHHLhhh h膀e ň8内e~l8吨Loᤐ 0 8`hh *~ h0 mL dLlvLL/ L 8L *~ hI=+ mL *~߅߅h~h~߅~߅~р ȱ~р~р %v HHLҩHHLҢh~E0~E~~~Ղ0LULUh)~hh)h~LM vhhh~hE0Ł~ŀ/1'0+!h~hh~h` ۑȑآL ّ 0 ;ܩJ;* ۠؈ȩؠ#в   :>BGڇښڢکڬ`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 )*Ȫ`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>`ȅ͐Sϭ܅83IܐiΐL@8(8 8Z[ 8Z[LѠP i tiuLht i~i8~~X~YiTiUR,S-8^ȥ_ȥ\ȥ]\]^_VWlX K ƎRSL>ȱȱŎ۠RRLҍX KLҍX KPQȑLҍXX XY 0 0LX KQHPH P h HHLҩ~ h HHLhh' NHMHPHOHLҩHHHHLҀ? ABzDF@GPtI$KL nN(kPQChSU焵V!cX_Z[^]k _#ǭ`xXb'dxehSgiQYjoNln9?oIqr|otEv7w߄y @{Η|½~v! ~&~& ILhhhh 6IiIi0&lhhhh  HHHHL  L8hhLҪ0 `Fff L~IIi`~8&&&&Ffff Lҥ~E88ePhhLi򅋩Fffeeeffffإ LY `~ h h HHHHL % LҢ~ h HHHHLҥ~ % LҺ^LҺ`~ h h Lҥ~ Lҥ~E~ R L  x LҢ~ h h Lҥ~I~~ Lҥ~E R L I x LҢ~ h hLѥ HHHHLҥ~E8 i  iL҅ 8僅傅偨倐 挥F8`8兰I襅FfffFfff` eeee ` 8僅傅偅倅 ` `Ņ"$ņŇň ʼn8`~ssXЅiʱrtusLhL3rtLhhhhhhhhL8'\&]'L`\Z][JHjHLhhhhh*68jh*vlhhjH*vjHHHlffff择ŋhhL`0&&&&0ƋƋhhL`&Lѥ8Ɓ8 рР~ȱ~LҠ ULҥXiXYLh~hhh~ȑ~Lҥrehrseistehtueiuisu ʱrtLhLrtLhhhi0WhthuhettheuuhrhsherrheLhhhhhehehhhhhhehiehIihIiiŒ.L\륔'ņŇ0 LK륆8ƇLK륆8厪HHLhhhhTLMץT8~U~8~Xȥ~YT VLҍRSLȱȱ孶хх 奚8ƛƄLors\t]uʱrtusL7ꦌLUrt^` 48ޟ`#^i`ia\]`hh Lhh bLҍX lhhhhhihhhhLhthuhettheuui ʑtuLhLt`a8\刅]剅8ƛ 58Ƈ8\񆅖ȥ]񆅗8񆅖Ɨ8 ƗLoPQ Lꥆ8Ƈe`ȱea8嘑ȥ噑8񆅔ȥ񆅕8Ƈ iiL饖 奘 奔 8\@\]@] "\8]^`Lъ8`a a~8ƛ $Ŋ勰Œ哐Ƅĥ~ŊŋLWꥊ8Ƌ8񊪥񊅋i8劅勅8\包\]卅] "8H [HZH 楙HHHH ~ ߅HH~ HHІ0 hʚL҅~Ƃ~eʥƂFHHLҍX hh&ŎL0eeƎLҥ8包Ŏ 8吪8吪ƌLhh&eȹȹp)1hh ߅%~~߅%80~~i ~&&hhȱI%~I%ȥLhhh heȄ Ȅ~l ~ܦ8e h9 0 ʚL ~ܦņ hI9ʚL ~ UhehheiHHLhh Uѥi h&L@ۥhi ץheheHHLҍXXhh B&heheHHHHeHHLhhhhhhȱ80 iff =߅=HHLh~hhh]\)\]H\H0 X\\8\]\ȥ\ȥ^\ȥ_\\^]_8\Z][LѥXeXYLҥ~i~H~HLVhrhshthuXs&trȑtLҠrrtLڱrtLL Һ~~LLҠ UhehheiHHLҠIiHHLhhhh BإHHLh~hhhE0Ń)ŀ!0E0~łLLѥ^~_~`~Xȱ~Y`~ȱ~~L z٥XYXYXXYL z٥XYXYX悥q~m\8傅\hh"IiIiIiIi ץHHLҺHHLנnoLѥIiIi攥IiIiƔ8吥呰 ` of"f fofn8no8&&`ffofn&&`hhhh BإIiZ[e[8\Z][LL h~hZ~ȥ[~Lh~h~Zȱ~[&'LҩlLhh0HHLҨIiIiHHLh~hhhe~eHHLhIihIiHHLh~hhh8~HHLҩonff nenoeofofnff`hh0 hhL*hrhshthu ULh~hhh%H%~HLh~hhhH~HLhhIHIHLҍXXhhQX0XŗiX`0\XE0XLXŖC?8XX&XeYei无8XYLҥXiXYL h~hhh~&Zȥ[Ze~ȱ~H~HLh~hhh~ȥLҍXȘ ~X)XYXHXHXe~XYLҍX~ 8倐~hrhsrHrHLLэX~e~e~tu~LhththhLh~hhe~~heH~HLhhh~hhe~~he~L šš që  N "ˡ )á á áWˡ á Dš 4áÄ  && "ˡ  J   00áQP 0á0 é000+-Í-ë0   ġނš  šš!۞ۂۂەߓ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.CODE  /IF/E .gEH87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> ##&á &'%&㓶℡'á.0:'lhhhh  HHHHL  L8hhLҪ0 `Fff L~IIi`~ˡ?ء "ˡ$ߕނ߂ɡ F b$!  # 0%ⓡ4%צˡ䓡 &ˡ& öÍd쓡  !ˡ4$ š F",á1š ġ  ".+á$š ġ  ^ #?š?%'á *   šˡ 퓄 Ä퓡x š   ɍM   "ˡ.ˡ   K$"á61 ɚ V %ɡšɡš  V&ˡ " "6šQȡ2 š:X f Ą ɡ 낫š ꓡ!š땫Ě@$"á1ꓡ삫Ú š (==>>8?? @ A:AxAABHH^0\p@' c~ V~ R RS- 񚅆 *ńȄ4šáRתPńȄ ,ń.áš蕿@"  Q lȡ>š 쾿  / Zá " * ȡ ɡa áá0š  %4á1á# 09ȄX 000á'#á 009Ȅ00 qS\  ɡ'áצ-32768 ^ 逫-ġ>00ń0˄ ܢۚ>ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń! áނ š   šš$ !۞ۂۂەߓh  ! "ˡ ɡ!  ! "ˡ ߡ š  ńá4 á,á" ޢ ȡUڤ ˡB?Ȅ-ܢ0ۤ ݢ`ڤá \zڨ  ȡ0ޤˡ ߢ`ޤ7 V  !!P!x!P %'"6ۢڤ ɡ?š2$ˡآڤ á/á*آ*ÍW bצ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡܾaܾzȄ ܾaAš!!Ȅ11צ)The 128K version of SYSTEM.PASCAL cannot (run with the 64K version of SYSTEM.APPLE d@ 0Hl RM:  ø !צ  תצP@22ˡ'Version 1.2 of SYSTEM.PASCAL cannot runצ)with a non-1.2 version of the interpreter@22 `    p  CONSOLE:ת צSYSTERM: ۶ ضá}۪*BUDGET.CODE תٟá'      צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUT[Bfhjl ʀ  ʀ ́Ɓ Ɓ Ɓ   ʀˡ   تٞ&"á ٤ ȡؤצۢÍ ȄۢÍ؞&"á  ʀʀ ʀ ʀ ʀ  ʀʀ̀ʀʀʀʀʀʀʀʀʀ̀́ʀʁȡʀʀ̀   תʀ'*SYSTEM.MISCINFOת; ̀ʀ*ʀ+ʀ,ʀ%2 &̀ʀʀʀʀ%̀̀́ʀʁȡʀʀ̀ʀʀʀʀʀƁ/@š4SYSTEM.CHARSET+ \٢ š٢ ٢٢ 4$  /   d::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.CODE  /IF/E .gEH87CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8E/KY Kh Pt.PE87CONSOLE187CONSOLE1:7SYSTERM2:7GRAPHIC3:7PRINTER6:5REMIN7:6REMOUT8P IYIL: P/.P> r D ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń! áނ š   šš$ ȡl q٤ ٤d~ تPdd"á!?kt"á  dRZ پáپ$ò$ÄiȡXP  ٲD)؞D)ؿ؂پáپ$áڸB BBi  ȡؾaġ زؾ $ 2dd;"ákt"áF  šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ ۢ؂Xڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ ߢ  d˯7 H  ۣȡڤ  ۣ צۣۢ0H ܣġ ۤ ٤ ڨ ܢܣ*@ۢۢۢۢٚÍۢáۢɡ ۟ۢ`ݤW ˡ!  ,ߓ$ ޓ "ߓۄ,ݤ ߓÍߡ2ݤ š˄ڶ a3 d ޓ(ݤ ߢܯ"á  ܡ:" áܡ ܓת$ ڟšx#ńF 09Ȅ ᾂ0 ߓńȄޓޓ!ܲݤߓÍߡFۤ ōɍ ō ȍ  dč ܓܡߢ ܓߦתߢޢ!ޢ!9 L ٤ Íܡ~  , Ąܓ7צ.INFO$.GRAFׯצ.FOTO /T ڤáޢܡ ޢޢޢÍÄޢÄȄĄMȄt߷iȹ22ȡ2š5252á4w4]11á4\1šV42233039Ȅ 3042221421Ä2*á444ń55P.TEXTׯ]צ.CODEJ.BACKׯުPצצ22ȡ5233 ȡ 23a3zȄ 23aA22š*áݲ%áݲצ:22ȡáݲ 2á!2ȡ5252š[22š22X:,tT2 2"ˡڡAƀ ˡ4  is not version 1.2ړ2Ɓr Ɓr2Ɓ2Ɓŕwʁw?ȡ%Ɓ2ʁwƀʁwʁẃwƁs ƀƁs  22Ɓ_'}   á/)צ*SYSTEM.ATTACHáá(*BUDGET.CODE  š΀ "ˡ ܡ́xˡ2"ˡڡAƀ ˡ4  is not version 1.2ړ2Ɓr Ɓr2Ɓ2Ɓŕwʁw?ȡ%Ɓ2ʁwƀʁwʁẃwƁs ƀƁs צ.LIBP۪PB? Ƃ;P Bń"CB̃CʃȡDC) CC Ƃצ*BUDGET.LIB PƂ ?  ?W ߪPƁ_Ɓ6 PƁ6ƁcƁgƁoƁp ́qƁcʁq תLIÄ*LIBRARY FILES:ׯ d ?kt d ;.2> 22š$2.CODEׯ 22 š22 ;.:2 á ġMáš6 ܂ۻݪ d (   š Í ÄU ǐɄ:ń! á ݤݚ ˄ܟń ١á  ޤ uš  gá Ä+ޤ  ɡáޤ ( .4~He0P$HY[<>PJLFHJLNPRTVXZ\EGIKMOQSUWY[]_acZ $ 論Z Zzؤ ÍZ١š ȡإZˡצreading driver,! d <$ȡZعQ+!4T  B  00EEBB00E2B!00EAHצ00E800Z ˡZ ˡ  4 Z9Ȅ.,0,,A,FȄ.,A צ IN HEX CHAR--..dZz ڨ铡 W  T !4 ٪P, ,TتP, ,Tبġegment dictionary of ATTACH.DRIVERS012345678 9 A B C DEF <J ۨڨš+áġR ٪P-././ġ[-,,0,&W2000תء T4000ת Tצ6000 $ȡ Z ATTACH.DATA"ˡ(צ#ATTACH.DATA needed by SYSTEM.ATTACHATTACH.DRIVERS"ˡ+&ATTACH.DRIVERS needed by SYSTEM.ATTACHZˡ1צ,Reading sتPצ ERROR => צ to exit program.R\Z צNo records in ATTACH.DATAZ $Z  Z  ZZ؄Wצ6000T6000תD١W4000תTצ6000BCOPYRIGHT 1980,1982,1983 APPLE COMPUTER, INC. ALL RIGHTS RESERVED SYSATCH ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:! $ ~\",䚹 9U[2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ١ ˡ) ! 䚹 9U[2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ  lܟ˄ݤ צ   ١  n ١ á9 ٓ/! !!IM rIM ׯ  ܢܢ  ܢ  2ܢ ܢ ۚ>IM ׷ -צ(A needed driver is not in ATTACH.DRIVERSZ󓄩?צ:The Interrupt Manager (IM) driver is not in ATTACH.DRIVERSQZM rצ00EEB00EAHצ00E8007L^$ȡ2 "ɡ؞&k&k&D Rˡ(LLhhhh$LJJJJJ) CHBH`LIxLs e(Lx88( L L Lxxx xx (Lȅ0   ` 8`hhhhhhhhhhx z88hh $H#H`HH`, s Lx e xx xx (LK NLg MOUSE MOUSETI IM .ת&תת(%Ɓ.񄓡9&   P ? ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEX: MTYPES ?:;UNDEF J:PCODEMOS>;*;:;PCODELEAL@:;PDP11 ?@:*;M8080 ;:>;Z80 L:R;GA440 fO:f;M6502 ;:z;M6800 :;TI9900 J:; REVISION;e ȱ e 8iiHHHH`Jthhhh HH`4$&\@  f  J p $ N6rz"LNKDINT R;::DATASEG ::SEGTYPES:``*L`6hhhhhhhhhh")!I!")!I!HH`Jhhhhhhh h hhȱLC8 ȥ  'with a non-1.2 version of SYSTEM.PASCAL@"Z" ȡ(á Z !ZJX` 8*BUDGET.CODE תٟá' b CONSOLEצSYSTERMGRAPHICצPRINTERREMINצREMOUTT!@ˡ~צ'Version 1.2 of SYSTEM.ATTACH cannot runۤzܤ Íݡۤ!0+A needed transient is not in ATTACH.DRIVERSzq تٞ&"á ٤ ؤ́2ʁ2צʁ2ʁ2Íl؞&"ác [ʁ2 ضáEʁ2ˡ !6 Zš ȡإZˡצreading transient,!b  ȡs`JJJJJ) !H H`L'KP_x8ȩ(LLLLlllllll q@L @`ll|wrlihcba^ZVUQMJIFA@?<7652-,+(#"!  idQ?=88888*)('&!|xrolda`\[ZYXWSRQMLKGFEA@?;:9430/ :=`+L!='L!=i0L!=8` $A6AJJJJ6A >N$A`)p#A#A**LS=ׅ P$A #=  :@Ld= Ai#A #=#AL= c@AL=AL= AL="A%A%AL=#A j>#A >#H#AMOUSE @@MOUSETI IM MOUSETI IM IM  gcKJh7h8 (H'H`8H7H`__;_h;;3412LLl39hH)29HHH6H5H,1 T :l3l,1 (U0(:ϭhhh@MOUSETI MOUSETI  hhLHH` @L qtsts uL ȅ0  q r` 8`qrlsyolkhgd_[T2-"! MOUSE MOUSE  ) !H H`L'KP_x8ȩ(LLLLlllllll q@L @`ll|wr #=h` \I꽌ɪVɭɖ0ɖ!ɖ 꽌ɪ\8`  꽌ɪɖ * % E зЮ꽌ɪФ`7A6A$A\8A$A9A86A7I$Ai$A8A8A 8 ?K@ :@9A ?W@ :@8Aн :@$A)* 7A7A` A݌HhHh ? ? ? ?V A꩖݌$ A݌ ? ? ? ? ?`Hh݌`80^݌Hh @ @݌ -@ -@ -@ @ @ @EEHJh12]); 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); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION L N E @d $ "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:IGB'() K<tH!MLONGINTIMTXKIT MTXKIT PTESTUFFMYSTUFF MYSTUFF ;>BLANKBLANK:rGnavpa~`~arGaaaaa `zbavava@ ~ ~ avZ@ aavaea@ @ ava `ZZ@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`&`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J ,@ -@ -@ -@`HJ݌h Hh݌`  8`0($ p,&"!ALs@#A ?LA#A .?"A%A&A8 A AHh#A j><A/8`#A j>#A >&A0 &A`%A8`"A %A#A j>%A8` A A$Lh@B ? ? ?V A꩖݌$ A݌ ? ? ? ? ?`Hh݌`80^݌Hh @ @݌ -@ -@ -@ @ @ @EEHJh ,@ -@ -@ -@`HJ݌h Hh݌`  8`0($ p,&"!ALs@#A ?LA#A .?"A%A&A8 A AHh#A j><A/8`#A j>#A >&A0 &A`%A8`"A %A#A j>NTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION X E EDURE DECOPS; "EXTERNAL; " "PROCEDURE FWRITEDEC(*VAR F: FIB; D: DECMAX; RLEN &  * عteVG8  )   uh[NA4'á +-Í$menu_title = packed record (menu_id : byte; (disabled : byte; (title_ptr : ^title_str; (m_data_ptr : ^menu_data; $ reserved : packed array [1..4] of byte; $ end; $ $menu_bar = packed record (num_menus : byte; (reserved : byte; (menus : a(end; ( $menu_data = packed record (num_items : byte; (reserve1 : byte; (reserve2 : byte; (reserve3 : byte; (items : packed array [1..max_num_items] of menu_item; (end; $ -^-^)N^PNhas_mark : boolean; (reserve2 : boolean; (reserve3 : boolean; (item_is_checked : boolean; (item_is_filler : boolean; (disable_flag : boolean; {bit 7} ( (mark_char : byte; ( (char1 : byte; (char2 : byte; ( (item_str_ptr : ^item_str; ( t_kind : byte; (char1 : byte; (char2 : byte; (reserve1 : byte; (end; ( $title_str = string[max_title_str]; $item_str = string[max_item_str]; $ $menu_item = packed record ( (open_apple : boolean; {bit 0} (solid_apple : boolean; (item_  const $max_menus = 10; $max_title_str = 20; $max_item_str = 30; $max_num_items = 10; $ $no_event = 0; $button_down = 1; $button_up = 2; $key_down = 3; $drag = 4; $apple_key = 5;   type $byte = 0..255; $ $type_event = packed record (evhhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆLL,tq1+%ZTNlb3 `\[TOG@;:3(  T[Fc>8 ND Z1> HHHHHL,} ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,Lwhhh8倅偪ʈƅ})H揥>ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh&~ʈƅFyʈƅ}ʈƍƎƋƊЌإL2d|e~28ʈƅyʈƅƉ` LŁ|}ƅLE||怦}ʚH恺~8ʈƅ  ILL, LLL,E0LL1 L ILL,ELL1 LEe8刅刪ʈʈ|} ŀ}|ƀL~HHL,~HH~HHHHHHL,~ʈƅFHHHH恥HL,0~}ʈƅ0I愊iʈؚH恥LŁ|} ƅL ~8刅剅<8ȱ` 5l 5 l 5lhzh{hƁhhhƁ}eʆƀƀ|ʊe~8偅z{lzhhhhhh8冐 0 h HHHL,LwIL,h hrsʈ .ł( ŁZ   :    ( tV8z <|hvhwhhxylxNj+Nvwlv")@ LY-09Ȅ0ݡߑ ع      z rray [1..max_menus] of menu_title; (end; $  winfo = packed record (window_id: byte; ( (dialog: boolean; {bit 0} (goawaybox: boolean; (growbox: boolean; (reserve1: boolean; (reserve2: boolean; (reserve3: boolean; (reserve4: boolean; (dinfo_or_user: boolean; {bit 7} ( (title_ptr: ^title_str; ( (windowx: integer; (windowy: integer; ( (contwidth: byte; (contlength: byte; ( (mincontwidth: byte; (maxcontwidth: byte; (mincontlength: byte; (maxcontlength: byte; ;var screenx, screeny: integer ); ; procedure ScreenToWindow ( window_id, screenx, screeny: integer; ;var windowx, windowy: integer ); ;  procedure WinChar ( window_id, windowx, windowy: integer; my_char: char ); 4 procedure WinString ( window_id, wi procedure TrackGoAway ( var makeitgoaway: boolean ); procedure DragWindow ( window_id, mousex, mousey: integer ); procedure GrowWindow( var makeitgrow: boolean ); procedure WindowToScreen ( window_id, windowx, windowy: integer; loseWindow ( window_id: integer ); procedure CloseAll; procedure FindWindow ( pointx, pointy: integer; var area: type_area; 7var window_id: integer ); 7  procedure FrontWindow ( var window_id: integer ); procedure SelectWindow ( window_id: integer );ure SetMark ( menu_id, item_num: integer; mark_on: boolean; 4mark_char: char); 4 procedure PeekEvent ( var event : type_event ); procedure InitWindowMgr ( drag_buffer, buf_size : integer );  procedure OpenWindow ( var my_Winfo: winfo );  procedure Cprocedure DisableItem ( menu_id, item_num : integer; disable : boolean ); procedure CheckItem ( menu_id, item_num : integer; check : boolean ); procedure PascIntAdr ( var IntAdr: integer );  procedure Version ( var ver_num, rev_num: integer);  proced procedure MenuKey ( var menu_id, menu_choice : integer; 4var key_event : type_event );  procedure HiliteMenu ( menu_id : integer ); procedure DisableMenu ( menu_id : integer; disable : boolean );  t );  procedure FlushEvents; procedure SetKeyEvent ( chk_keyboard : boolean ); procedure InitMenu ( save_buffer, buf_size : integer );  procedure SetMenu ( var my_menu_bar : menu_bar );  procedure MenuSelect ( var menu_id, menu_choice : integer ); : integer; 9var use_interrupts : boolean; 9column_80 : boolean );   procedure StopDeskTop; procedure SetCursor ( new_ch : integer );  procedure ShowCursor; procedure HideCursor;  procedure CheckEvents; procedure GetEvent ( var event : type_even0scrollupleft, 0scrolldownright, 0pageupleft, 0pagedownright, 0thumb ); 0  var  pointer, $TKError : integer; $  function PointerTo(var Variable) ): integer;   procedure StartDeskTop ( mach_id : integer; 9sub_id: integer; 9var slot_num r; (reserve2: byte; (reserve3: byte; ( (end; ( $type_area = (inDeskTop, 0inMenubar, 0inContent, 0inDrag, 0inGrow, 0inGoAway); ,  ctlarea = ( notctl, 0ver_scroll, 0hor_scroll, 0deadzone ); 0  ctlpart = ( ctlinactive, yte; (reserv25: byte; ( (reserv26: byte; (reserv27: byte; (reserv28: byte; (reserv29: byte; ( (end; ( $dinfo = packed record ( (doc_ptr: integer; ( (reserved: byte; (docwidth: byte; ( (docx: integer; (docy: integer; ( (doclength: intege: byte; (vthumbpos: byte; ( (reserv16: boolean; (reserv17: boolean; (reserv18: boolean; (reserv19: boolean; (reserv20: boolean; (reserv21: boolean; (reserv22: boolean; (win_open: boolean; ( (reserv23: byte; ( (nextwinfo: ^winfo; (reserv24: b(vactive: boolean; {bit 0} (reserv11: boolean; (reserv12: boolean; (reserv13: boolean; (reserv14: boolean; (reserv15: boolean; (vthumb: boolean; (vscrollbar: boolean; {bit 7} ( (hthumbmax: byte; (hthumbpos: byte; (vthumbmax( (dinfo_ptr: ^dinfo; ( (hactive: boolean; {bit 0} (reserve6: boolean; (reserve7: boolean; (reserve8: boolean; (reserve9: boolean; (reserv10: boolean; (hthumb: boolean; (hscrollbar: boolean; {bit 7} ( ndowx, windowy: integer; my_string: string ); 8  procedure WinBlock ( window_id: integer; var my_dinfo: dinfo; 7startx, starty, stopx, stopy: integer ); 7  procedure WinOp ( window_id, windowx, windowy: integer; opcode: byte); # procedure WinText ( window_id, windowx, windowy, 4text_buffer, textlength: integer ); 8 procedure FindControl ( windowx, windowy: integer; var whichctl: ctlarea; 8var whichpart: ctlpart ); procedure SetCtlMax ( whichctl: ctlarea; newmax: integer ); procedure TrackThumb (     &2 l(   '2  ^)   (2>*         $2 &     %2\'    h#     "2\$تP       #2Rz% N  2ا *!     2    h"    !2   2 ا V 2ا *  2. 2ا *    2,   2<  26  2. 2   N 2 , 2٧ ا 6     2\ 2   2.   2>    2N    2 2<    26   2٧ ا 6   ۢ 2ڧ ٧ b 2 2 2 2 ,  2   2.           2ڧ    2  2. whichctl: ctlarea; var thumbpos: integer; 7var thumbmoved: boolean ); procedure UpdateThumb ( whichctl: ctlarea; thumbpos: integer ); procedure ActivateCtl ( whichctl: ctlarea; makeactive: boolean ); procedure ObscureCursor;  procedure GetWinPtr ( window_id: integer; var winfo_ptr: integer );  procedure PostEvent( event: type_event );   procedure SetUserHook ( hook_id, hook_adr: integer );  implementation E l: ctlarea; newmax: integer ); procedure TrackThumb ( whichctl: ctlarea; var thumbpos: integer; 7var thumbmoved: boolean ); procedure UpdateThumb ( whichctl: ctlarea; thumbpos: integer ); procedure ActivateCtl ( whichctl: ctlarea; makeactive: boolean ); procedure ObscureCursor;  )2٧ ا F+   *2>,   +2<- ,2.  -2 </ب  .220   /2<1 hhhhhhHH`hhhhhh 23ȑHH`.,* . GTV `   ? t` {? 0A T} \\TLs ) V `) H hCo )Ɂ8z|'y'{ ~}7 8 6 6 `H TY h   bM> #M> > ,= p {? = I= L L ,s&,`0 XxL {=  Y < = `  t`)= 0 H H {? `JiL2 GTʎV=  `? ` + )# G V  'q T ` ( ) *}\  x (`      LG  i i     * `8`   ͜  ͝ 5      L  i i * `8`,< ar j -L{ ȱ = I@= b! = `]     K  ʽ  ` N ` H ȭI `X [ \ OX %!Y ] ] Z ^ ^ ((`8` ` x,`0 j ,<   (` =``6 ,``8 W 8`b a)**; ,< 0<= JJ< > ? s= `=  X MX0,=JE)7 ,; 8 6 ; 6 T7 V8 x9 :   (`(`x, 0 [  (TV(`` =< ` ,`0 x,<  j   Lv (`x 0&9Hȱ ȱ TV TV h i i  L(` i i `,< ,=  0,XȭTȭV*`B`x, | ( Y(`xH |h Y(`x,0 0 [ ((`x, 0 [  ((`xTV,H 0 [,01,0  ( [ (͟` @I, I@,)` aHHȌ  ,I Ȍ :L7hh`))_`m_m``)Hȱh` .. m荲`,0, NnNT`0TLU0``HH  :hh`xT,[0LSJUT(`HH  mhh`xT,[0LJUT(`HJ) h)i `,0 [ L ( ͠حc@X ,`x X `PQMPQMMQ芠 Y`T C |,` dH(`x *  (`(`8 K S  _ȱ `` ȩ `= a` @`a  A`\EV;R.S.k88 Y(` Y N`,M0 Y`8``hd bȱ cȱ ݍaȱ נ ȱ ,M `ȱ [ ' [ O\TR S qT  > #,`  LgS,[0RNOPQc@RSNOnNNQnPTVXH YhxxNO YxxPQ Y Y,`0  Y`x,M0> YkTU8V8WXRNUnTSNWnV(`x,M0WT|8Mo X+ p(j,,,,wpx,M0HTph (`(8`8   `H)hD Dž zh#hkfq) mM`8`RJ؊H hhihiHHHH  0$0,")  }H|HHH`L~}λ hh`jW,X{? K   I &8T`H  04 QhH V VV 0 0h`TEVFD`,DETFVD `,s0d,s]Hs |,[0 [ (i Yh`MmDdGgSs<,>.ߠZ_ZA_ZHUJK_Z@Š_Z󺠠_Z͠_ZĠ_ZǠ_ZӠ_Z_LLLLLLLLLLLLLLLLLLLL0 \/\ʊ ȩ !  q 8  ȩ ` ` z| 2yy 3{{ }4] 5^  | ! Y _  !  | ! YL !X 04] 5^ 1  ?& $ ' 8 m82 3 ' Y` ` ] ȱ ^    | ! Y _  !  | ! YL2 !X ] ^   ?& $ mL  Y`8Y 0m Ȋm 8Z m ` ) 0 ͻ00 ȑ  y>L: ),y芠 !{芠 L:  H{L:  `  )Gzy {G 8`` `|yz{|]  _ Y } Z | JL| JX Y } Z  ` qsrt`q ȭr  q ȑ r` 1ȱ 2 3ȱ 4341q2rL{1ȭ2123s4tL3ȭ4` ` ȥ `~ȱ }ȱ h ] H<{ )Cs tLL  ȱ L 8` '`   ` ` ,0 5 _` ` w w ` ` { s ` yq }Ƚyq }` 8} y} y` q r`qr  ) QC  6 mxw% ,0 ,0` 8` l  & .!` HH  ' ! +hh '` `  m`  ` 5 ) '!`   ʹ ` '` `q rL H `M18`   L.8``  Q  ` 8`p t` ) # $  ' `  _`` ?` ȱ ` =  `  )0ȱ )  ) Q c   ȑ `   `Hb ) -  bh8`芑 h`    `)`` ` `  `   ) .`DD E ` ED E `莠ʠ)  ʎ (͠쬩Ȍ) )  MD  (ȱ`ii L`i`      ) '` 3`  P ` P ` ' ( (` (͠ȱ` ii L`i ` QZ $LY Y Z `` )  ( (` ] _ Z     )  X  ж  )    Y`  Y  `` Q   L  (L (ͫ򩠍 ( `_ (Z ()@1  ,0)ʎ (莠 (`0  (ͫ`H @[)0Aʎ (mm\L'\8莱 Ͳ h`ȱ`  \ ( ]   ]`   ` |   Y`)X  ȱ ȱ ȱ ` ` ȱ   8 ^` 67 777ȱ a8m777  6`H΍ Q )@6ȱ a)  q͌ 8Y 46m2 8Z 57m3 `  ,60 L<   ,70 L` '`j kl /& ! kl , # .!  #k l &j` ` ȱ Ȣ ### % L$` 0L>$LW!  ` ` #   % %#*#%# # # ## &#S& (` # $` ` *D '*`  # ## $` #  $ `  $`   $`   $` # #i##i#` #ȱ #` #ȱ #` #ȱ' j+` K, --L- -  ,ȑ `,'D&ʎ,-T(-)-Y ] _. _ Y )-)- . _.LK- .X (-Y ,`, -*- ) *- 9,`,'D&ʎ,-V(-)-Z ^ i. _ Z )-)- . i.L- .X (-Z ,`, ..*- ) ' '\ )`,''&jWV )`,' ''V )` , +` , +`H ,h +`H ,h +`    8``` K,ȱ  ' o' +,`ȱ  ' |' 2,` K,ȱ  o' +,`ȱ  |' 2,` K, ȱ  ) L,  ' ?+`ȱ  ) L,   ) ****''* )* )` ?+ j+ +` )" ) u*` ) u* E*` * E* +` )" ) *` ) * ]*` * ]* +` ) ) *` *` ) u* ) * ) *`,' )&'\ )`,' ) * [y{`y{z| ~-"}ͧ#ͩ#ͨ# ͪ#`8`,''O ) 'P )`,' 'R )'Q )`'L )&`*Z**'* )&Ά* ** 'L*`V*'M** )&`V*L*LLLZ ^Z^ )( )ϭ'o(Xm('o(K )ɁA,'$`|"{"{"|" |"{" uv ! ! " )! )!\,! #` #ȱ #` :   a  e ` :  e ` $ #  % %## ȱ `8`# #E#m# m  '%8 ##m͗## `HH & S& :L hh`HH &*- B,`~Y } z0y ,-*-`,-ʊL.Z  |0{ ,-*-`,-ʊLO. - . s.` .. . .`*-' )`*- ' )` |'*- )+- Y` | '*- )+- Y`*-'+- )`*- '+- )`........~.|.z.m.l.l.k.f.e.Y.V.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7.-------|-x-s-p-o-l-i-f-c-`-_-Z-Y-X-W-V-U-R-Q-P-D-7-3-+-"-------,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,~,u,q,i,e,rpf]TRKJIEC<;:6410%#   zwvmg`][ZYXWVUTQPMLKJIHCB=987610.+)('&%$#" NC@;:521.-(#    }|yxwvurqnkjifc^[VURPMHGDB=;2/,+('%"  zyvukfe`_^]ZYRQL<.'vmja^UNKFCB=<~xrmdVU|{xutspmljihb\YXWNMFCB9.+)&"~}|a]XTOKFEA@?>=<65410/.-,+*('$#   ~}qlihgfcb]\[ZYXRQONMJGFEDC@>0,+~}|{zyxsronkjih`_\WRONKHGFD>=<:5!~}zwvutqponmligfdCBA@=<:98754210.-,*)'$# mlhd[ROB=4+ xqponmjihgfedc^]ZYVUTSRMDA<;1,&%# qo^Y<840#"! ~}c^XOE@;:965-    zvurqoga^UMGD730-*$ !!!!!!!!!!!!!!!!!!!!!!{!n!k!j!c!`!_!P!N!I!F!D!A!@!?!>!;!2!0!*!)!(!$!#!"! !!!!!! !!!!!! ~ { z y u r o n m j c G F E D C B A > ; 6 + ( !    T#O#L#A#5##### # # # ##"""""""""""""""""""""""""""""""""""""""""{"z"y"v"u"p"o"l"i"h"f"c"b"a"`"]"\"["X"W"V"U"T"O"N"M"K"J"I"F"E"D"C"@"?"5"4"3"&"%"#"""!"""""""""""!!!!!!!!!!!!!!!!!!!!V&U&Q&O&D&=&6&-&,&*&&&&&&&&&%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%z%u%r%q%p%i%`%U%L%I%:%9%8%7%4%2%/%.%-%,%)%(%%% %%%%% %%%$$$$$$$$$#################x#w#q#p#k#j#i#g#Y#X#W#`(_(](Z(P(L(K(H(C(6(5(4(3(2(/(,()(( ( (((''''''''''''''''''''''''M'M'H'G'F'@'?'<';'8'5'2'0'+'&'!'''' ' '''''&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&|&r&o&l&j&h&e&`&`&`&`&`&_&\&Z&W&))))))))))))))))))))))))))))))))))))))))))))))))))))))~)})|){)z)w)v)u)p)m)l)k)j)g)f)e)b)a)`)_)^)[)Z)Y)X)U)R)O)M)L)I)F)C)B)=):)9)8)))))))(((((((((((((((((((((~({(p(m(l(k(h(b(a(W,P,J,@,:,7,6,3,0,/,,,+,*,),&,!, ,,,,,,,+++++++++++++++++++|+{+q+m+h+g+c+Z+V+N+H+D+5+4+3+'+&+"++ + +++**************************}*|*{*z*y*r*m*k*j*i*h*`*[*Z*Y*X*W*V*U*R*N*I*E************)))h>p>>0?h???@T@@@HAABB$CCCbDDDEJEzEEE.FjFFF@G|GGHVHHH6IrIII$JHJzJJJJK>K?>?3  procedure majuscule(len,adr:integer);procedure set_hb(len,adr:integer);  procedure reset_hb(len,adr:integer);function good_disk:boolean;  function formdisk(slotnum,drivnum:integer):integer;  implementation E TUFF.CODE  strtitle:array [1..nb_menu] of title_str;  item1:array [1..10] of item_str;item2:array [1..2] of item_str;  item3:array [1..8] of item_str;item4:array [1..8] of item_str;  item5:array [1..7] of item_str;topsolde,topuse,derzone,fini:boolean;  winmvt,mx_win] of dinfo;  lgnsel:array [1..max_win] of integer;event:type_event;where:type_area;  menuarea:packed array [0..499] of char;my_menu:menu_bar;  twin:array [1..max_win] of title_str;  mdata : array [1..nb_menu] of menu_data; l:array [1..max_win] of integer;sgn:array [0..6] of integer;  topmodif:packed array [1..max_win] of boolean;  lmodif:array [1..max_win] of integer;nb:array [1..max_win] of integer;  winrec:packed array [1..max_win] of winfo;  windoc:packed array [1..ma.11] of line_mois;msolde,solde,isolde:rec_solde;  doc_auto:array [0..mauto1] of line_auto;  doc_sel:array [0..msel1] of line_sel;  file_rec:file of line_mvt;file_franc:file of franc;  pos_doc:packed array [mvt_id..adj_id,0..maxlrecl] of boolean;  lrec mot=packed array [0..1] of byte;str7=string[7];str8=string[8];  Var doc_poste:array [0..mposte1] of line_poste;  doc_saisie:array [0..12] of line_saisie;  doc_error:array [0..4] of line_error;doc_mvt:array [0..mmvt1] of line_mvt;  doc_mois:array [0.d array [0..55] of char;  rec_solde=array [0..mposte1] of franc;line_mois=packed array [0..9] of char;  rec_f=packed record x,y,l,s:integer;t:char;end;  stgfrc=packed array [1..lfrc] of char; --)R; 0END;  franc=integer[lfrc];line_poste=packed array [0..31] of char;  line_saisie=packed array [0..31] of char;  line_error=packed array [0..41] of char;  line_mvt=packed array [0..73] of char;  line_sel=packed array [0..29] of char;line_auto=packe1=11;max_win=9;max_sel=30;msel1=29;max_f=10;  TYPE CHAIN7 =STRING[7]; %Directory=RECORD 1DEBREP,FINREP,V1:INTEGER;NOMDISQUE :CHAIN7; 1NBRBLOC,nbrfiche,v2:INTEGER; 1DATEDISQUE:PACKED RECORD EMOIS:1..12;JOUR:1..31;AN :1..99; DEND; 1V3,V4 :INTEGE  uses mtxkit,ptestuff;  Const mvt_id=1;poste_id=2;auto_id=3;saisie_id=4;error_id=5;mois_id=6; &sel_id=7;rap_id=8;prev_id=9;adj_id=10;creat_id=11;nb_menu=5;lfrc=12; &lfrc2=10;maxlrecl=74;max_mvt=100;mmvt1=99;max_poste=60;mposte1=59; &max_auto=12;mauto`hhh`;8Hh` qp;;;;;;;;;;;;TZ.f'%# phhhhhh`ʽiؑȱi Leʽ8ؑȱ8H HHH```      L`Hh 8J `hhhhhhرa{8 HH`2hhhhhhر HH`(hhhhhhرIHH`(hIhJhhhhh )Khh LhhNxL K =MNH(HMHJHIH`PN@9532.-' =CODEWIN0 WIN0 SYSTEM.FILER Ҷضڶʷ޶&ʷ&~~~ʷ~ʷ WIN4:*ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾Coisopen,mvt,sld,hsld,prognum,fichnum,  topwin,mode,winid,menuid,choix:integer;zb:char;year:string[2];berr1,berr2:str8;  ordrep:array [0..mposte1] of integer;  freep:packed array [0..mposte1] of boolean;  mat_f:packed array [1..max_f] of rec_f;out:string;  pos_f:packed array [1..100,1..3] of integer;  numer,xok,yok,fmaxn,fmaxc,f_n,f_c:integer;  msger:packed array [1..36] of string[40];  inuse:packed array [0..mposte1] of char; %  procedure setvis(id:integer; var width,length:integer);  procedure r ) C(P/ )צfichier:bidon.data")á)ˡáZb )$-)Ԃ)צFICHIER/.צPROG/))d))M)1/á%  -sKˡP ̀ƀPƀצ Sƀ,,P)$ )+ádت ? "@˄))))$á á  ) )ۿ))ۿ))ڿ))ڿ)b á)b )b á()1 )1ká )  )2ƀƀ#ʀʀĄʀʀȄ_ʀʀĄʀʀȄ]_^ ƀ%_^)̓3%]\`%]\ %_^]\)1á_)̓3%]  %X )á())( ))$)b ) ۢۢ ۢۢLا) &(٪P,,-,.-.ȡ--ǀ--!X @3ݪP ڪP_^]\3̀ ̀3ƀ `)1 )1ds;procedure fields(x,y,l:integer;t:char);  function cadrage(var cur:integer):boolean;procedure w_inuse;  procedure r_solde;procedure w_solde;  procedure r_mvt(month:integer;aff:boolean);procedure w_mvt(month:integer);  procedure write_doc(id:integer);procedure selectmois(n:integer);   implementation L E (val:franc;x,y,l:integer);  procedure curon(x:integer);procedure curoff;procedure dokeydown;  procedure depcur(dep:integer;c:char);procedure tabul(dep:integer;b:boolean);  procedure init_fields;procedure fields(x,y,l:integer;t:char);  function cadrage(var cur:integer):boolean;procedure w_inuse;  procedure r_solde;procedure w_solde;  procedure r_mvt(month:integer;aff:boolean);procedure w_mvt(month:integer);  procedure write_doc(id:integer); procedure cartouche(t:string;x,y:integer);  procedure movef(val:franc;x,y,l:integer);  procedure curon(x:integer);procedure curoff;procedure dokeydown;  procedure depcur(dep:integer;c:char);procedure tabul(dep:integer;b:boolean);  procedure init_fielnteger;var t:string);  function testadj(lg:integer):boolean;  procedure caract(lg:integer; var f,ft,t,tt,n:integer;var mont:franc; Uvar trans:char; Uvar pnt:boolean);  procedure calcul(s:integer;f,ft,t,tt:integer;mont:franc); on testcontrol:boolean;procedure autorise(id:integer);  procedure refuse(id:integer);procedure newwindow(m,c,id:integer);  procedure docwindow(ctl:ctlarea;deplace,width,length:integer; 4var pos:integer;var ctlchange:boolean);  procedure filename(n,ms:ivar fr:franc);  function ptype(i:integer):integer;procedure ioerreur(err:integer);  function find(c1,c2:char;var i,t:integer):boolean;  procedure setligne(on:boolean;id,y:integer);  procedure wtitre(var s:title_str;i:integer);procedure dogrow;  functi procedure wait_boot;procedure wait_fich;procedure protected;  function fromdoc(x:integer):char;procedure todoc(x:integer;c:char);  procedure conv_frc(stg:stgfrc;var fr:franc);  procedure conv_stg(fr:franc;var stg:stgfrc);  procedure getfrc(n:integer;estowin(id:integer);procedure inverse(s:string;var invs:string);  function presse_in(id,x1,y1:integer;s1:string; 6x2,y2:integer;s2:string):integer;  procedure message(n:integer;var rep:integer); )dB ))d )dؿ)d)d$p ٨  ġ] ?ؼ  0   -  ˡؼ 000P 0dN0 440.04S4P44צ0.4R )Z á )Zڛ0(ޕ )Zޛ ݕ)Zޛ)Zߛݞ)Z0 )Z))d )dڞ )(7  7 ؿ9 5))Zݛp d)Z؞N5ٮ5Má ٧)Z' )Z ˡ2ّ )Zٛ ܕ)Zܧ)Zݞ)Z݂ݕ )Z))d )dٞ6ڮ5)Zܛ *,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~ L")Zؿ))d )צ.mvt .soldeתצfichier:0P^pצ )c%IצAdj.6)̧)1 ~Ȅ#ع(3$)#$)#4&.0" :/ "$&( )() ۚ)() ښ)() ٚ)() ػȡd))))dښ))dۚ))d)l "& )n    á )d )á(4ڧ)())d )))ȡ   4))))%)))á)() 5)() )() )()) )ق))á ))))á)) Z#!))dقá) ڝ)á)( )؝)ˍ) b$)$)á)ȡ ٝ))̭ H3)())) ڕ*,ޢە*,)ѧ)) &ݢ)á<)ádݢݢ-ݢ- ǀ ) )) ǀ !؝)á) ǀ)2 #)()b)  ) ۹^2j2eáޕ2ߕ2Rá22?á   +ܕ  fb_N=)ѧ)) &,))b) `á1"ˡ)( ˡˡ)b F)b) ض  ")ѧ)) &, )1 )1[t2)ѧ)1ɡٕšٕ˚>0)b) )) á ߢ0 ߢߢ0 F)؍ 1Qá&))( c% I ǀá )Ý)Í á1 ؚ) )( )? )? '_)( ) )( )? )? ')( ޡ٧) &Z؏ ؛ "CardBLiabil.ׯ-צCash Bank ׯݧ);ܧ);Ä)Y ލޡS bڡ~ا) ا)Y Ȅ čO)(4P.P  / / /    // -    ȡ ق   #6צ );צIncome lExpenseׯWצCr  䓍䓡(8 -)Z   0  ȡ<)Zݛ )Zݛ9)Zݛ.Ä.9á ȡ  .  w)Z  )Z ܕܞ  )Z )Zܛ-)Z))d )d D X8!)( H)( )( 6@)( 7)8CNO c>)( ܝ)ۓ)(  ) ?)ԝ)" á)ԝ)" FICHIERׯܓ0)))$-)Ԃ(ëܡ)צfichier:poste.data)Y ;ȡZ))I ˡ)Y )Y )) 0@TH\2#' H.,-/37;>@CBUDGET PROG0 PROG2 FORMAT IMPRIMERRECONCILPROG1 BALANCE TAXEITEMNETINCOMNETWORTHDODELETEDOMONTH EDITE ISAISIE TESTSPOO0F x(<:G <L)O (- )O )I: ع4;poste<7 auto<*)Y צmois< ;/(á(-؝)ˡ),*)n)  )٧)n)  )n)  )  )b  ١)a  ) )a  )+١)O .r, f z r~*&&  4PVb8*FXd4)):G <L)O (- )O )I: ع4;poste<7 auto<*)Y צmois< ;/(á(-؝)ˡ),*)n)  )٧)n)  )n)Y ))I)-/-/ȡڹw)-;)I)? b)z- 7)I)? :)n-  )I)?  Z8)--á4-;/-/ȡ)-I)-;--  ))c--ȡ5)c%I)I)? )));([X,تP//צfichier:/X/.data]/P. )" á))á0)I)ȡ^))I)c%I)? )I ˡ)Y )Y )ء):X +)O (, , )O ))?  )" á8)c%Ic)?",, á)),;.,.ȡ'),;),,):X|;)ΡB צfichier:solde.data);fichier:isolde.dataק);)έP*- ) )Y )c..);)I<)))h(٪P- ),;.,.ȡ'),;)ݼ,,):X^:צfichier:solde.data):fichier:isolde.dataק):J)٪P- )ڪPV-V-V_ -) V) ) V) V-V -) V  ؕ )c%I؞ .)͡Y  )צfichier:inuse.data;););)H););)H)H ););););)έl 'ا)c%I ˚)c%I)c% I F 1)c% I)c% I 4T?)c%2I ˡ))c%=I ˡ4 )c%I     );ˡ);)? ))Iˡ7)I< )Y ȡ)Iۿ)$ ;ȡ);)I))Y ȡ/);ˡ)$);;)Y )צfichier:auto.data ȡd))I)z 7)? )z 7 ˡ)Y )Y ))fichier:mois.data))Y )I)I))0ɧ)9ō )ܦ85 )  )  )  )  )  )  )d צFile)d Editת)d Category List)[צ Auto. Entries)[-)[ Add Categoryת)[צAdd Auto. Entry )[-)[צAdjust)[ )  ڢڢ6 )צTransaction List) Tax Itemsת)-)צCategory Balances )Income & Expensesת) Net Worthת)-)צBudget) )[צ-)[Fromת)[צTo)[-)[צAccounts)[-)[צ Reconcile )[)  )  צDelete)  Create Diskת) -) צPrint)  -)  Quitת )  );צChange );צDelete );N )[צEnter)[111111111111 &צ'000001100000000000011111111111111111111) ȡ"ܢ )R) צ ) -)  New Monthת) Openת) צInvalid fields.( تP-.-.ȡ')  -J-1û--1V D) d  01101000000011111111111111111111&צ'010101100001101111011111111111111111111,צ-010110110110111111111111011111111y unreconciled transactions.()$צ Insert sheet.() $צGetting account transactions...()!$צNo transactions to reconcile.()"$צErase disk in drive .?()#$&Please, use the original program disk.ת()$$ must create a new file disk.ת()$צ(Remove write protect tab from file disk.()$Unable to format disk.ת()$צ(Carry over balances from previous year? ()$ Insert data disk in drive ..ת()$צ#Too man'Do you really want to delete ?ת()$Create a new month?ת()$Quit Mouse Budget?ת()$צDelete in process.()$Change in process.ת()$צ&Category in use, delete is impossible.()$ YouType not modifiable.ת()$צInsert program disk in drive 1.()$צInsert file disk in drive ..(D)$צI/O error # ...()$צ Invalid date.()$צDelete selected ()$ Invalid code.ת()$ Invalid type.ת()$"Use Adjust to change your balance.ת() $צType must be Bank.() $Category not modifiable.ת() $צ"Adj." is reserved.() $צCode does not exist.() $)I))(+() vs)&<)$צNon-numeric fields.()$צInvalid amount.()$צInitializing disk...()$Code already exists.ת()$צSorry, no enough room.()$)Y ȡM))I)n  )? )n  ˡ)))< )צfichier:inuse.data))I);<)!צ )fichier:print.data))I! צ Transactions)d Reportsת)d Set Upת).).ȡg)/ )d ڢ) ڢo Error in init Mouse Driver:ǁ&"ˡ  ǁݞ "ˡ  )4 ). )b    )a  u 1u  u (uu)i  (` u)Y 1u1ȡu(0 )"//ˡu <v.2v2ȡ)vvu )ݼ)uuu 1)c%IX "eia()צfichier:budget.data)f;.v.1v1ȡ,u 2u2ȡ)uuvvu 1u1ȡe)1u )ݼii1c%*I צ______ ________ ______P)c%ILLLLLL LLLLLLLL LLLLLLתPu,u,ȡu ˡu uu)c%I OK Cancel Exit תP+*+* +*+*צ5Month Budget Actual DifferenceP)c%I- )c%Iu ,u,ȡ8Su )uc%ISu uuצ ------------P)c% I )c%I )S Januaryת S צFebruary S צMarch S Aprilת S צMay S Juneת S Julyת S Augustת S  Septemberת S צOctober S Novemberת S Decemberת >Xm16 R . ` l > 0 N.V )Z)3 )@ ).f )b  )l )ǀ ) )zǠ ) )nx )Y  ȡ)O ))  )) ȡ)P Fc)٧)ܦ85ת'#)(áȡ ةȡة)n)  )  !by H. Lamiraux (C) Version Soft 1985V )Z)3 )@ ).f )b  )l )ǀ ) )zǠ ) )nx )Y  ȡ)O ))͚)H)H)H)H)H` -- |-|* +*+ȡ***+_   - #M O U S E B U D G E T V 1.0 )a  צ Enter/Change)% )b  آآ@ ȡ)( )? J)?  )?  )? )? 8)? Jr )H)H)b  )a  Category Listת) "" <)a  צMonth)n )b )b )b  )a  צChoose an Account)  )b )b )))))) ) )) )L LJd)a  Auto. Entriesת)z: : 8  ) 888Jd)b  )b  )b   )LLLJd)b |)a  צErreur)***)b  آآ) )_ ))_ ) OK ת)) ))ަ Cancel ת)))) )))    ) ؚ  u1ȡu u (eeu *1u u aa***u (uue (a* ( ( [9,dتP)P)|)(R8)a    ת)f; )a   )a   (*)a  )a   ***()a   *)b ̀ʀʀcd OK  Cancel  ^ݡN)) Format ם) )צ Cancel ( `Fd\(" ݡ('ݓ(( (܍ݡ/?)ԲצPROGܓ ܡݡ)( )( BA\ Year: 19 תP )0)0 0 0) צ Place a blank disk in drive .P-)Ԃ) (%N(&)b ( )1 )1)1)2)3))ˡ p)3X٪ت))) )))L)a  צ Create Disk)Ǡ )b 000000)) Format ם))( Cancel ם) )( )(+)b  ? (Ln.<| @ ~ 0Xp *Ϲ",)u(u)˝)˸n **D)Ϯ )ˡ$)Ϲ  n@ צ OK ( %R)( צ OK %)1 á )̭0)1 )1",yˡ)̡ (")̡**n )b {)b z)b c eúruʁrȡuuu ( ( ( )1)2)3))3)Ч))Ϲ",)u(u)˝)˸n **D)Ϯ )ˡ$)Ϲ  n@ צ OK ( %&@ )1)2# ȄĄ Ȅ˄ˡ)1 )1áˡ۸y)yc%I)c%I )yc% I)  )   o y˄#)yc% I) uuuE  ٪P,,-,.-.ȡ--ǀ--!X @,צ P)c%I, á,,()c%I^١ ظ  ( )  :#- )1)2#ˡ   )1 )1)2# Ȅ*Ȅ2Ȅu uȡu uu)1áu u 1y ( ym   |)% )% "ؚ )%uu)Ds  ר )c%I  )  )Z)Z ((y j yá (' (( (W) )yc% I )  aa1  i  (a* (u  m ( )ݦfichier:budget.data)f;vvȡ+u uȡ)uuvvu uȡ,)ݲ1u )ݞOO OO )f; OOO d**ȡ.)c%I O<OO 6T1  * (ia ȡWii1 Exit *צ 0.00P*o  )b {)b z)b )b   )b )b  )b )Ǡ (% F(&)b  )b mynYá)(á تP)$)$-)ԂR8) )Y ȡS()Scȡ))I ˝)I Ä)I)c%I)? )c%I)c% I());;X)c% I)c% I());;Xdá$)())(+)( )<# j))()á צold))()á )-"))()á ))($#'&&&ˡH&)+)$'4 .0)()ƃR ^eF צ OK  Cancel תצ No  Yes hier:print.data))I6)I6)IN))b ƃƄ0=(ƃצprog:formatter.dataƃ%ƃ%ƃ $)#)Բ"á<)"$ ר)n  May )n  June ר)n  July )n  August ר)n  September)n  October ר)n  November )n  December ר)n   d )ͭ\ )צficȡ.); CH Bank Checking Account ר )z 8 T Dt Accts JFMAMJJASOND Memo Amountר)z 77-  )٧)Y )n  January )n  February ר)n  March )n  April@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~ ); ME Expense Misc. Expense ); MI Income Misc. Income )Y )--á4-;.-.ȡ)-I)-;--)):G\,V ع6;poste  auto  צmois dinuse d=1*  "$&(*,.02468:<> )n-  )I)? );)I<doM  "$&(*,.02468:<>@BDFHJLNPRTVXZ\^`bdfhjlnprtvxz|~)4+ ~ تP)I: )..צfichier:.X..data].)á0)I)Y ))I)-.-.ȡڹ)-;)I)? )z- 7)I)? T Dt Accts Info Description Spent Earned Moved ר%)c%IH- )Y ( (ȡ)O ((,((())צfichier:budget.data);ȡ" ȡ) Dt Accts Info Description Spent Earned Moved ר%)c%IH- )fichier:reste.data)cȡ5)c%I)I)? ))F) ) )c%J C(B));;));;2));;));;new׮))()á )ԲצBLANK4I!S8^  <)c%J C T)z 7)z 7());;X)z  7)z  7());;X))ݦfichier:solde.data;ȡ());)ݼ))Y ȡ);)I))Y ȡ/);ˡ)$);;)Y )fichier:auto.data ȡ))I)z 7)? )z 7 ˡ)Y )Y )fichier:poste.data"á)Y ;ȡ]))I ˡ)Y )Y )I);)? ))Iˡ6)I< )Y ȡ)Iڿ)$ ;ȡ ת |)< );X);X) ) )ǀ )Y ) )Y (;~(~ȡ)(;(();););)$ )$;)$;)$;)zǠ )Y ))(} )צFICHIER)} )(* ( ~(~ȡ)n(  (()a  צ January ) צ January (~(~ȡ((((~(~ȡ(((3))f;;) )צfichier:reste.data--ȡ5))I)c%I)?  ,)(),)ا)Y ,, )()Y) I) I(ݩfܩfÍ)Y )Y )I))Y c%I)? )Y )Y c ښޚ)Y cá D)Y ( )(, (ߩfá033ڧ)H ݩfá033ڧ)H ء(" ˡ))c ȡ))I á )I á)I) I() * Exit ( Cancel ()))a  Reconcileת)b )b SS S S S ) SSS)(,3(  )   e)a   ת)f; )a  )a  ()a *)a *()a  )a  )b SSSSS.S)Ǡ *צ Bank Balance:P*ʀȡڹt)c%IO)? e);O)? ?)z 7O)? |W3 á̀ʀȡ *  l )b  22OO =)צ Cd Type Name P=) -------------------------------תPڹ;)Y Bd<)Y +)Y C0 @0 0 á̀0IT ȡ{)c%IO)? h=)O)? A)z 7O)? Z5  e8 Print ת3 Cancel ת)b  XצCategory BalancesP>צIncome & ExpensesP$צ Net WorthP `R:"O)n)Y   O = CategoriesתPO"/ 1)*(*á ? O òOÄ OCO)?  OO vצPage P0FO)n)  O Automatic EntriesתPOcXצ Tax ItemsP( ( ( 22YˡN22Yø1 00(( (ݡ!2ˍ]!2( )צfichier:print.data!)I)I))(` 0  )N(&M(&)b ( ()1 )1)1)2)3))ˡ a)3JOݡ A))8) )3(á  Q9UM(" ܡ('ݡO ת)a  צPrint)Ǡ )b آآآآآ ))8))(3) )( צPage Length: P!  )  צSingle Page: (Y/N)P  ) (%'DRX( | H v8 & ) ) )ǀ )Y ) )Y (;~(~ȡ)(;(();););)$ )$;)$;)$;)zǠ )Y á!)(273)b )b Z z) cȡJ))I á ظ)I)c%I)? R pȡ5)c%I)I)? )<L ,)Y ȡ0c)c%I,8 V ( )fichier:reste.data ))Y --ȡG() ),) ) ,צ 0P ,צ100P,)xc%DIU  ,צ 0P ,צ100P,)xc%.Ixx,c)a  Income & ExpensesתI Category Month % Year % )xc%I x (5x (xx צ ============PRتPf U,צ------------ ---P,)xc%I,,)xc%5I,xx)xc%IUx (U5x (U f .)),;;5x ()),;;f Dxx,,V 6 )xc%I  )xc%5I xxHxx צ ------------P NET INCOMEתP ۢۢ));; تPf á)xc%Ixx,)Y -,-ȡ*,;á),; )xc%I)),;;x ()),;; 9 '  2(  )xc%If$ *x )Y ȡ(t*;f ۢۢ));;()))TckTkȡ))I ˡdd)I)dc%I)? )2I ˡ)S)=I ˡ4S?S)SIU  Ug( SKccgg__gN[[g5)?.R O "$&(*,LTT)dd*צ ----------P*)dc%)I *)dc%4I *)dc%?I dd[?d (_4d (c)d ()b  )()))TckTkȡ))I ˡdd)I)dc%I)? )2I ˡ)S)=I ˡ4S?S)SIU  Ug( SKccgg__gN[[gc)a  Tax Itemsת*J C T Dt Accts Info Description Spent Earned Moved תP*)c%I**)?**- * *)c%I*** d(c_[)%I)*;)+c%I))*;;)+ ())*;;9+ (++**+d)b X   )(+hvtz*~Dl4 ) ا)Y ō c)a  Category Balancesת?Category Type Starting CurrentתP)c%I)?-  )c%I d+*)Y ,*,ȡ)*; )+c   K_}sٓ)1 )1á)b ́;ʁ;ۚʁ;ښ)b )b  )(+hvtz*~Dl4 ) ا)Y ō (dȡ)( ()c%I á)c%I)c%I (cÚ| )1)2)3))3uw)ѹO( U))צ Exit ) ) Cancel ( TZ  )Y ȡ7)c%I ˡ)c%I c37((^x )1)2#ا) ا)Y ō תP)c%I- )c%I xdצ---- Expenses ----צTotal Expensesצ---- Income ----צ Total Incomef f f f xd)b D)xc%DIU  ,צ 0P ,צ100P,)xc%.Ixx,c)a  Income & ExpensesתI Category Month % Year % ) ȡ))"aX L)(  צ category? (ɡ));; ˡ)(,)()Y 00ȡ(+));;Ͷ;)$;););)Χ); )(*(()Y ȡ););))Y ;)צfichier:budget.dataȡ" ȡ) (á14)q٥(zڪP)c%I)O (á( (R^ڪP)z 7)O R2)))Y ;)?  e)z)Y  7)?  9))Y c%I)?  3c)P )Y )Y ()O (-QPצ transaction?]ڪP)))$-(-T:)Y ))ȡع););)? l)z 7)z 7)? =)c%I)c%I)? 7jع\\צ---- Cash -----------------צ Total Cashצ---- Bank Accounts --------צTotal Bank Accounts---- Other Assets ---------צTotal Other Assetsצ Total Assetsa\\ LIABILITIESת )\c%I\\---- Credits Cards --------צTotal Credits Cardsצ%%%%(G|`mz(Daijada|am{(%%%%߮\g|id(G|`mz(Daijada|am{ ߮\g|id(Daijilities]a]\d)b |D )? - \d\\ASSETSת )\c%I\\צ---- Cash -----------------צ Total Cashצ---- Bank Accounts --------צTotal Bank Accounts---- Other Assets ---------צTotal Other Assetsצ Total Assetsa\\ LIABILITIESת )\c%I\\---- Credit100ת/)\c%4I\\f c)a  Net WorthתCategoryת )c%IצAmount )c%+I)c%6I%)c%I)? - \d\\ASSETSת )\c%I - \\צ NET WORTH )\c%I%\ (\\)\c%%I = \\ ܪP\\/------------ ---ת/)\c%%I/\\)\c%I%\ (  / 0ת /WVWȡyV;áb)V; )\c%I))V;;%\ ())V;;ڮ\\VV)\c%%I - \\)\c% IC%\ (\\ 2\\)\c%%Iۢۢ));;aCCC]CC -٪PتPCá-)\c%I-\\V)Y  ]a  9'  2 (  )\c%4I& C2 x )Y ȡ^(|I;ؚCתP)c%I- )c%I  p l ߮%%%%(Mppenses ----צTotal Expensesצ---- Income ----צ Total Incomef f f f xd)b )Y 11ȡ;إ (á MIá ME )O (,)(+)Y 00ȡy)z 7)z 7 (/á MI)z  7)z  7 (/á צME (-));; ˡ )b  >Hb)P )P ع"+' auto. entry? )'%X`~fn (+));;: צ Enter/Change Account :׮ Balance :׮ Cleared :׮ Tax : Date:׮ Category: Info:׮Fá Paid to :׮ Source :׮ Amount :׮ M(& M(&N(& M(&C(& C(&  F(& ategories Code:׮ I-Income E-Expense׮ Type: _ A-Asset L-Liabil.׮ B-Bank C-Cr Card׮ X-Cash׮ Name:׮ Balance:׮ȡ)   M(&M(& C(& F(&٪)ҧ)a  ء )Ǡ (%)b ))ȡ ))  צ OK ))(צ Cancel ))(RتP) R& צ C)   ܥ (F4)qۥ(  )   N)   )z .7)    >  !*NT ());;(  / I,1bT----N---E!#!K)،F|#/},/ I/* ,Q )dF8))d )dC)c%I )d);))d )d)z 7U))d )d)c%I Oع IECLXBAת)  (ث));;(  )   ); )  )   | á)P )? ȡ)  Jݹ))d   ((OZ.&))n)Y   )$ (á))b  ݡ)Y (.)()Y ȡU٥ (()c%I)?  )O ) )Y ˡ2ۧ)Y á)Y )Y (.)n)Y   ݡ)b  ~ع  &));; (  )   ((OZ.&))n)Y   )$ (á))b  ݡ)Y (.)()Y ȡU٥ (()c%I)?  )O7()z  7)z  7());;X));;X)(?)4)z .7))Y c%I )O )Ý) Í9));; (  )ȡ)z  )Y 7xá)Y )Y )z 7))Y c%I  ))Y c%I)z 7))Y c%I )z .7    ( )z 7)z )(á)Y  á)()Y )Y ()fichier:mois.data))Y ȡ9))I)n  )n  ))Y (.(- צAuto)Y )Y 11ȡ;إ (á MIá ME )O (,)(+)Y 00ȡy)z 7)z 7 (/á MI)z  7)z  7 (/á צ Automaticצ Tax : Date: From : To :׮צ JFMAMJJASONDצ Month : xxxxxxxxxxxxצ Memo : Amount:׮ M(&N(& M(&M(&  (& C(&  F(& צAdjust Category:׮ Balance :׮ Day :׮ Reason :׮ Amount :׮ N(& C(&  F(&|ع'#  !6< Source :׮ Amount :׮ M(& M(&N(& M(&C(& C(&  F(& ȡ  >cš )b  )b  ) ) )a  ) )a  (c)Y d(خع)b()()1 )1áw)1)2)3))ˡ 8)3"ۡ  0)( ڡا)( (ء$)( ˡ (($) ))ѧ)1)2#ا)) )() ا)() ˄ )(ا)() ˡ )()1 )1)2)3)1ڝ)ˍ)() ˡ );; öÍ )Y ;Ä( (  Ä ( ˡ(  IECLXBA  Íá#((˄ ˫áB( #));; ););ˍ  X )) á)P )ҹ' #  lv:l ((-` H ));; öÍ )Y ;Ä( (  Ä ( ˡ(  IECLXBA  Íá#((˄ ˫áB( #));;ȡM)c%I)c% I  )c% I)c% I (,)(+)Y ȡM)z 7)z 7  )z  7)z  7 ((-` H ))I( ˧)c%I( ˍ(FföÄPܹ0)z 7&)c%I <)O  f צ ()(,)()Y ȡ|(+)Y (( (  ÄM( FáEI( إ(  ת) Adj.ׯ Táݫݫ( ˩ééC( >)Y cÄ3)c% 7( ˍ( ( ( ( ( ( ȡ( ˡx( ۡ$(+ ç)Y cÄ( ˡT( 3)c%I( ˧)c%I( ˍ      00) ōn إ( ''' Lç)Y  Ä( ˡT( 3)z 7( ˧)zع))Y c%I)?  d)z)Y  7)?  8))Y ;)?  4b)Y )Y +t( (  ȡ ٚ)á);)Y ȡع)c%I)c%I)? )z 7)z 7)? R););)? );); Nצ Automaticצ Tax : Date: From : To :׮צ JFMAMJJASONDצ Month : xxxxxxxxxxxxצ Memo : Amount:׮ M(&N(& M(&M(&  (& C(&  F(& צAdjust Category:׮ Balanc  )) á)P )Ý)Í)(-))ҹE)á5ccá )(+% A3 ˡܮ)DŽ )Y )Y ȡ(ÍÍ)Y )Y );)ʧ)Y ); )ʧ)Y  ')Y ;ݚء(  )ȡ?))d )d ))Ts)Н)(ed ˡ:';f ȡ)b  ޮe ~ mcI )tj)á)( fcȡ7 ȡ)b  ٮ(*)(, c)ǣ ؓ(4));;(  )   ); )   t)ث))á)̡ )̝)( :)Ϲ)Ǡ  Tá )ϝ)FFá )ϡ ٚ) A4)Ϲ()(ˡ(. ȡ)b  ٮ(*)(,(-(-(-e W ٮe >)()˝)ˡ ˡٮ  Q<á)P) )() )()(()Ϲ)b  ؓ>)Ǡ )á$))P c% I á )ѝ)))á( ( ؓ()á  C)P) )ˡ)P) !()O FXQXh&< ('ڡ (ړ(( ()Ү :() ë(á( ( 0FáצPaid toצSource ) (F)))d )d)z 7))d )dV)c%I))d )dPܹ '#   תܹ&!   ( ( )P é )Y )Y  )P á)c%I)?  )? ȡ)  Jع);) )c%I Adj.ת )c%I)  )z .7 )z 7)z 7());;X)z  7)z  7());;X )ͭ ( ?)4)  )c%I );)c% I));;XXء)ةؓq4( ;;#)έT 2 )P ˡ ۥ(٥( ˡ)c%IFá));;( ));;(  )   );)c%I));;XáN)$;);ؚ)$;));; )ͩ);1Income ExpenseCr CardLiabil.Cash Bank Asset תP);));; áI));;#))ġ););)? ););x)c%I)c%I)? C)z 7!z 7)? rA uJ )P צ )Y  ȡ.(ġ)Y  ġ]2)c%I&)z 7 9$  )Y  á:))d )d,p/*҉/*҈6E)ZK)E1E!)&1)ZK)/؉Q)P)  )Y  )b  PEdmem|fddlll<) ) )ˡ()Ϲ':5 0+&e \OYXPXHvXtX^XsXpX}XVX|XXX^XXXPXDYBZqqAo! W! ]  !Ϩ (!  ( dfWY S))ӝ)ˡ})Ý)Ä)Ä/)() ˡ')( ;)Ý)̄)̝)( ()Ӯ))) _)3áW)áE))צ OK )) Cancel (BLANKBLANK:rGnavpa~`~arGaaaaa `zbavava@ ~ ~ avZ@ aavaea@ @ ava `ZZ@bBbBb̘`nMFil bvbbvbh~ ~ ~ .bv0b(&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&" Ҷضڶʷ޶&ʷ&~~~ʷ~ʷ WIN2:*ʷvʡ\CCommand: E(dit, R(un, F(ile, C(omp, L(ink, X(ecute, A(ssem, ? [1.2]ʷ߾C > ESSAI.CODEM.SWAPDISKto exit ) ACOPESSAI.TEXTjst C(py D(lete F(ind I(nsrt J( ESSAI.CODEK.CODE[*]hng WIN2:SYSTEM.SWAPDISK ESSAI CFj:&P > )1)2)3))3w)Ч))й" L)ѧ)1)2 3!ء(&ء)Ѯ F/$צ OK ())%R)ݧ) ))%'(e ( )(e %    )ˡ  צ0Insert disk and press CONTROL-RESET to continue.á))()'')(\ r  "tlj:&P > )1)2)3))3w)Ч))й" L)ѧ)1)2 3!ء(&ء)Ѯ F/$צ OK ())%R   ()1)2)3))3w)Ч))й" L)ѧ)1)2 3!ء(&ء)Ѯ F/$צ OK ())%R @Q=A`HQhQ@`@ '` $*1 g4_ 9B9yA@@@Ag}~~~ `s`{xxgf%gCAGapwwUwwUww Hpg|>>>bbb`x|xyq1qqqy|~ 9D<8 g(gg?olo >>brzz` bBDh A#8xXXXH@@HXXXx8 ! `0 @p8``x<<<oggca  @!>$(0?| |#IHxxy0  4D`GGHP`p>a`>C>CCccss{{??nFF88||~?? ~f~` << ?|}}|- `p<0A@???0''0x< .0 co ``abd`aaapy ylfcglL~>~`O`OOO`yybb쬌bcb̔bcbcbbbcb㜜bbbՕӓb݂bbbߞbcbb믯ﯯ뜜cbcbܬ⒐bFFl8ccccccxxrNCapxy `F_,F   ?>F><99)199Go_?=}|    !&XX8x,G  M- @@`ppxx==,FFpgg`'p~dd~ge~@GO_~ AH111xx,FFF~FFl8 x00``@@?cc?cc?OIyyy{ss ``_AAOAA_   ##| 6336 ppxx<<Cggg?? `#$(h' `1111 @3c3@@`@~@@3 `q a@000  a` nBn!>$(0^~^#@a`px|~-~   00`#q{w/?  ` @@``qq{{><#XS C_OOOGWX  HGA>g??????  <g# ~| ~ rwpp?"#aL  |<<<\a N^` '('?@@@CA@#xx88vv;;{q 1JIJ1AAOQO!`px< 0`#x}= A g? ?' ? !< g\d`|xxx|~~~z~`~z~~ q qqg`_7wwsq1|~^~~^~ `s`o g ogGcamaam!!-!DOc| GQIOQOg{{j{@{j{{aamaama , !-!!-a