`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$JGx!this#software or printed material may be&reproduced in any way, or transmitted,צ'in any form or by any means, electronicצ'mechanical, photocopying, recording, orצ%otherwise without prior permission inצ%writing from the publisher, except byצ&reviewers, who may quote brief written$passages to be printed in a magazineצ or newspaper.  ! צJOURNAL > LH!PPW @`lhts reserved. No part of this#software or printed material may be&reproduced in any way, or transmitted,צ'in any form or by any means, electronicצ'mechanical, photocopying, recording, orצ%otherwise without prior permission inצ%writing from the publisher, exceps reserved. No part of this software or printed materiamay be&repr#uced insny way, or transmitted,55ˡ 5ת5>> #>5>>>October 19, 1986>5!>  %All rights reserved. No part of UNTANTצ$applications software copyright 1986by Robert JahnckeצAll logos, printed materials,צ#graphic designs and graphic displayצsoftware copyright 1986צby Sir-Tech Software,Inc.October 19, 1986  %All rightتP &R0@@ˍޡ : 9  á @ !? T"á á CLAN PRACTICAL ACCOSTARTUP JFILESAMPLEHz SYSTEM.PASCAL9SYSTEM.MISCINFO SYSTEM.APPLE9MFILEMFILEMFILECOPY.CODE*>vgƩCOPY.CODE*>PROGRAMSYSTEM.STARTUP:BANKSHt*SYSTEM.LIBRARYz* JOURNAL.CODE* REPORT.CODE: DETAIL.CODE* UTILITY.CODETjHACCTNAME&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&TRa a_XX܄X !N LONGINTIPASCALIOCHAINSTUSTUFF STUFF  0 צPá0 ۗá5á 0 ܝáܿ0@@P@Q@Pá!á š! ÝŝPPAצ/0^áZš     ġ \$dš  4!0?P0@J :áJ2 ع ,'"  %"#Dš;š;Jۂ&    צ/  ger; { get 2 digit Acct loc 0>ǝ>ǞتP+'+á5+'*á#(+'+zV*Setup*Enter transactions*צReconcile bank statement* Utilities +%%ȡ٧ܤܚ2]XTتP#Já7 Press CTRL ARF צC P A˄) š  ɡ  á á( %% %% š(ޝ ɡ >Q޾ >Q޾%% ޝ á >Q%% Q޾ܝ č >ܤᓡ %%ġZ (  צ  ~ á 1 á áAš  á צ á^t''ݓۂ ɡۂ š   ڶȄ< ھ0ńɄĄ Ȅ ق  eá+  ڝ Ʉڤ ø 3á,~ø  ~ ~ǀ>Qǀ8>ڞ"ˍ#8ǀ  ŧ Ä    ɡ#>ǚ0ɡaL  ق~á5~ɡ  ɡ'*#צWAIT$AA@@ˍ,a88CACCTNAME8>"ڍ#>>GJFILEׯ` p<%88CBANKS "˧8 Bank$8Q˞"ˍ Bank$8N ɄNvQ$ ɄQvv KáKO Lġ&LONM88CBANKS 8Q8N~%O9LKCG OJqצPress RETURN to continue١cH%%QL؞"ˍ JFILE$4&O ٝLˡALġ&ٝKáQQQڞ"ˍ# 'bQ'L˞"ˍ#KQڧb'rت Disk Error  D$aC5á@ @"لؤ>ǜٓzצReplace ǝǟ$$ȡ">ؤá>ؤ ۧ ڧ ٧       /    /   |  Read Error',#O  'ٝKˡ=ٝLáQڧb'#Qress CTRL A MM צ  ML á No printer"Make printer ready ápdAáE'  Aڡd A "|2 צPress to continueJá0-ȡ צ P*Monthly report*צDepartment report*צTransactions report*צList chart of accounts*Xit program or change data disk*)$5"5"Routine.V+تP-,+ /צJOURNAL צXITMצ MAIN MENU:*) Which: <00)` D No data to run+ >/צUTILITY Z/צMONTHLY J/&~ʈƅ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  &  * عteVG8  )   uh[NA4'á +-ÍNTEGER[36]) /END; ' " "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "  IMPLEMENTATION X E EDURE DECOPS; "EXTERNAL; " "PROCEDURE FWRITEDEC(*VAR F: FIB; D: DECMAX; RLEN12]); 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:Iv VJ h L x D  4 :"V+.. צChange Data Disk and thenצPress Return to Continue, or#Press RESET to LOAD another Program 5צRestart'I Loading+/.1.% צREPORT/g9 >צPRINTER: C#4:ת POGJFILEת צNa XFlצDEPRPT ;/DETAILת ,DU$& H 7hX.. צChange Data Disk and thenצPress Return to Continue, or#Press RESET to LOAD another Program 8倅偪ʈƅ})H揥>ʈƅ ~擥  抦|ɥ8包~ƅLII懩&&u`hh HHHHHL,} ei|ʽ 8襁i}ƅ|L,hƀhhh8hohlhXhhhFffff80)ƅܥ#FfII懥HHL,Lwhhh [NA4'á +-Í-09Ȅ0ݡߑ ع      z Z   :    ( tV8z <|  uh[NA4'á +-Í-09Ȅ0ݡߑ ع     ݕ 0 . ݑ0 ݕݕ ؂ ɡ  |,  &  * عteVG8  ) ͉݂ġ ݂$ $ $ȡ%  0 ފ$čV   .ˡ:  Eɡ  -ݑ š 0 0 ߿`ġ(   ݂. ݕ ؂݂3  >ۓɡ ؼ݀$ ؼݞ$ۡܡ ؼ" Bɍ -   $ $ ݞ$' ݑ$ $݂ō $   "á +-Í-09Ȅؼ 0.á@09Ȅؼ0ݞ$09ȄjeEÍɍEáޢݣޢÄá ޣ Ą.! ޣ Ąݣ ˡRݣ &ݢ ݢݢ!ݣ "ˡRݣ ˄ݢ!ۂ"ˡ+ݢݢݢˡݢݢ ۚݢ    ݂܂F      ޏݏ@܏ޏ@ݏ܏ޏݏ܏܏ ݏ ܏  ݢPROCEDURE FWRITEREAL(VAR F: FIB; X: REAL; W, D: INTEGER); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWRITEDEC(VAR F: FIB; D: DECMAX; RLENG: INTEGER); "FUNCTION SUPER_MOD(A,B : INTEGER) : INTEGER; "FUNCTION SUPER_DIV(A,B : INTEGER) : INTEGER; "  IMPLEMENTATION L N E @dNTEGER[36]) /END; ' " "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); "PROCEDURE FREADDEC(VAR F: FIB; VAR D: STUNT; L: INTEGER); "PROCEDURE FWR $ "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:Ihhƀhh-ȑhhƀ 0ȑƀ0hJJJJ 0ȑ) 0ȑƀĆLL,tq1+%ZTNlb3 `\[TOG@;:3(  T[Fc>8 ND Z1>  z Z   :    ( tV8z <| "PROCEDURE SETCHAIN(TYTLE:STRING); "PROCEDURE SETCVAL(VAL:STRING); "PROCEDURE GETCVAL(VAR VAL:STRING); "PROCEDURE SWAPON; "PROCEDURE SWAPOFF; "PROCEDURE SWAPGPON; "  IMPLEMENTATION X E T >ǃ  ōɍ Enter     Month =    e Year = for prior fiscal period Changes to data can cause צ!inaccurate balances on later disk Fiscal year end =  / צnteredqxɡ xġ2 File full rQ}  צW A R N I N G !!!$DATA DISK is צMerging transactionsxȡɡbNot e 'tccxpŧp ńp pńp pE bqqbppšpצDate: p /p /p צEnter this one ? (Y,N) & ؤdɡ"zzq<ɡ .צAmount: צFrom:b >bצ To:b >bpá0p ápšppšppŧpP qߕGצJFILETransactions to do =   ظPayee: c ȡcq ɡ 0 % :5šVܶá"p á š šP šɡ š p p pݻpܻp Ftppڶɡ pڸߕpCollecting dataĄP Ą ȡq  p ɧp çpɧpçpȄd bppt2=ɡ  P] 1"$>!5ES YJRNLEXECSTART PJOURNALRECONCILPRINTCHEGETOPTIOSETUP EDIT PRINTCHA 0RšزRPزPR, *BZC.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE@ˡצ)Version 1.3 of the Chainstuff unit cannot+run with a non-1.3 version of SYSTEM.PASCAL تPš++0تPRš+R+PPC/C.CODEDEDEKYKK.2 4k/P/NEWC/C.CODE.CODE  d   צIs this OK? (Y/N) >ǃۿ>ǃڿ88CACCTNAME"á8>ǀˡ Write ERROR8ګ  ۂ Aá; &^0.     צ Date =   צForm = MM/DD/YY Current date = <   Account Balance      Balance Last Chk ȡ٤ǀɡ٤xɡ9٤ ,á á*   ݡ۸ڸvzޡwww  &        # >ǝ >Ǟ    צLiquid Asset nd צ = >ۤ  צ = >DŽڂQ(uitצWhich?   Sáޓ"Bá Dá0 צMESצצ Select bank B(ank account צD(epartment (0-7)  S(et Dr/Cr oޡצff>٤ ɡ ddcxɄdcxɄR ȡ/>DŽ ˡ>DŽ á" None avail   EáS<~šƦDr/תæCr/תƦתצ:تP,-,š -, ,á* -, Vl ȡ.ǀɡ٤צ"R(emove ALL automatic instructions צ or change צE(nter צ informationQ(uit צWhich? 0Rá"ˡš צ[2] ת CG  šp q0  צ ́ƁCƁMFILE Ɓ"ájá#"ˡ DISK ERROR BAre you certain (Y/N)? ,CצMFILE jצMSAE GMFILEתCG  s26  =Aë:`9N<IÝNÍ Iá,`:9 XITצJOURNALRtdn   &  Incorrect DATA DISKצ#Place DATA or BLANK DISK in DRIVE 2 MEntering NEW DISK ROUTINENצUTILITY  ת >ǜác>ǜ Nצ Password =   ɡ   ܡ ܡraP >ǜ@ܡצtestܓ;צREMOVE WRITE PROTECT TAB  w I Incorrect DATA DISKצ#Place DATA or BLANK DIS <GJFILEת 8K8́ƁCƁACCTNAMEƁ"ø8ø8f P.P .P. (0C5áV"á   뻧 컧  껧p CMFILE "áGצMFILEšp ɧp çpɧpçpȄ`Do you wish to doצAutomatic transactions? (Y/N)٤ >٤    ٤    צ Sum total    ظ8:@EGbצMEV   #1:á  צPrinter (Y/N)?  @G :  >Aɡ   צ#1:Aث / Aɡ;l9eriod: ɡ  &0ɡɡ۫ګ   T0Í$ Bad dateń0ˍ  't0#$á ? á V  9 Clearedd% 0צMnthly @צ Twce Mnthly <צBi-Wkly ,צWkly Qrtrlyת H6( 7 P" 6 Dept: >DŽF#DŽNjȡO>ڤצ !8DŽ >ڤš    צ5 צ frm:ǀɡ7   > !!š šd ظ!٤dٸ4ɸ !   > š šd ظ٤dٸɸ ~ á Rcvdת á Trnsת צPaid  Amount MUST be at least  ؓ >- Há Depת á צTrns Applyת  צ4 צ to:ǀɡ73 Amount: 0 :צ"Follow amount with * for remainder 6á8á*Ä Q"ɶɍBalɡXˡphph  p ɡiˡtltl6á  t "+ȡ+پ ˡڡ5  Must enter aړ+ ˡ:צ2 Memo:+J06˄ 7 Check no: 'šATš  XaPayeeת áaPayorת áaPurposeת צ1 a:|á++šddÄBɡph*ɡtl*)p  ō.ˡˡ  ɡphɡtl6ö231ńȡ 12cááÄBɡphɡtlvɡ19pzpƁ.* *::C:INDX :*(:Í99<*"á9*::*:X:I4ɡh9f0ˡ^p ppšCضضōÍ0ضɍظضšظxyɡY9tzt6öń'Ʉ&+ˡ7צ2 Memo: 0צ8 Date: צ 8 Nxt Date:    0Í%!#(0x (1-9999, or AT)' x x x'زx' Aáx'x˸44xצ(M(nthly T(wce/Mnth B(i-Wkly W(kly Q(trlyTURN =  >צWhich record?  Aá)צ Reset idx2ضń*Í6ˡMŶ0ɝ ń(צ File full. ǀǀ ǀ c606Ä0 tteuF0p qˡq@267ɡ6áצ ń'*q  +||+|g||||g| qbbۤdڤdc c ppp  (-+uAÝDö6˄8{{+{2{P8ɡ8*.. 6á*6ˡ .6ˡ". 6á0-).6 './Sf8.-2 6ábg +צתc  {{ȡKgcȡצ!Press RETURN to repeat last checkelse enter Payee /ڲ+n+š ++ٶˡٸd!  ضˡظ#++  ǀ ǀ ˡ2 Memo:!0&#     08 Date:ת  8 Nxt Date:ת    ڡa6á4806ÄɄń'ɄڡA+ +   ++++  šd6á6ö6Í 6ö6D066ˡ צP(ayment06ˡ צR(eceipt06ˡצ T(ransfer0 PT ۶6ˡ۸667/ת6á 0  %T1VLzxvt`^ "$&*,.02468:>DFHJf6+.تPצ or ? R צ(0-12,?=Out,V=Void)%x x cVø  x?áxx xx%  2 <1-צ,N(ext,P(rev,Q(uit,V(oid>   צWhich?  Nö6Ä  "$6ö6Í0)'x l*,D(eleteת :,48 C@*8ת 06ö 96áÝń,,   KE?93BW, ;+"$C(*=& ")G Total check = AáDÓȄ(66ÝDÄb2b6á(Dáš30q Op   ɧp   çp ɧp çp Ȅ pPá$š6ɡ76ÝĄ7á76@*10צENTER TRANSACTIONS:0AUTOMATIC TRANSACTIONS SET-UP:  p30 ɦMEת צMSAE 6ntries8-צby Check Number- צ Transactions S> צ* Date Payee/Payor Chk Amount Rec !    צ Rec  Date Payee/Payor  צ Description Page       Accountצ by Date - -á+-9Items>-kĶ Ʉ2-Cleared 5>>-,cá%-צ All E޶ ǠqbáTá ,  / p  *  Z á  >ǝ >Ǟ >ǟ צ ƀƁ  ɡ2No DataR=  8 3CX,  . "$&(*6 ƀ  š   Ąڸ˸ 0p p ɡ!   ɡ  צ/   = ظ ,B(  ȡ ɡ(No data) Which calendar month?   š$ šrצP(rinter or S(creen?  Pøá >  #1:ɡ ōwˡw+p GצJFILE0S:JOURNALEˡ2;)@F t V^ v<Vb !!^"p$$"P%d&&L '*&.*T*,T--r*l..011.h4Q(uit0צ to main menu Which? ƀ0ƀƀHƀ0<66G6B6=6863/CV( >=+<&66ˡ10'/ͨ C(orrect transaction file צ S(elect bankצV(iew liquid assetsD C(hange transaction file5  p5 Q(uit0צ to main menu  צ#1:5 d44:0 ƀצME ƀצMSAE 3צP(ayments entryR(eceipts entry צT(ransfer/journal entry0>ƀߤ  :0:ɦMSAת 3ȡe9ؤzؤvd؂~پd؂؝ Ʉؤ~پ ؤǀvɡvzz  zxyww/ 6ˡCצTransaction file צ% full.צREC AUT ת    entry)W@ 21  ת  >ǃ >ǃvP PaymentsתpR ReceiptsתZT Transfer/Journalת<C 0צ Correction Changeת~jV:  á30  צ. D    Check Amount Clrd  Rec  Acc  fm/toO  zn ڀɡ 9š#Bɡ š& P   צ  תuc ȡ8اuȡɡ اcɡ٧cתc0  צbá DEPתtbá#  VáXá vEbb ݸٸɡ*F4  s >ٸ8VcǀǀcqááöÍ ˡ͇  qcˮ>v bb qĶɄ>ɡ2 + qCurrent Amount =>Rec= צNew Amount =  cڶáX áV?   ń Hءbá*bdɡ-zzbdɡ-zz  <-1 $   ؓ  Nȡ "ɡ >ġ (vJ< > R  š  ɡȡ ȡ  צ '0>? @AP ɡצ   PYPC ɡ v#*u uȡاcbá צDEP  tqbá7'š ATת š  ɡצ   cá?áVX%X=Clrd, ?=Out, V(oid, C(hange Amount,צ%Q(uit, U(p, D(wn, T(op, B(ttom, P(ageڶɄ@v5b ڤbátá p (Vצ uc u á 7ˡ2cá"p pضضȄ á  ŶɄ $" ɶō :  צup dwnת & Bͥ  bá b  b + b b  cbá á  Qbá:t'ġ+t'ȡá     á 2,   No Data : ɡ á?Vɡ cš* I'š ATתš        1'Ʉ ضš*ظ ::U< cˡ: G  TOTAL = :   ÍD áUع]خ˄Ʉy XrW  "$&(*,.02468:<>BDmLNPRTVXZ\^`dfhp؝Z d báItŝt'Ʉ:tá1p &bˡvvlɡz Searching...v ( 2 ""ˡÄܡˡˡáܡ@؞؞R @ >jH.v tH N 'צ Printing  צ Transactions Summary 8 ɡ :   ȡx $òǠńɍcÍ 員'š . /š   *š  š  :I>P & >ǃ' צ Printing  צ Transactions Summary 8 ɡ :P ááP ނ ݂<()צDate of last item 

ǃ  ނ ޶ šxńڸö Ʉ Use 0 for prior year,צ and/or initial transactionsצWhich calendar month (ˡ , )   š&ɡ š %  $>ǃ ȡ;*ȡ ڶšڸŶɍ ڶšڸ šȡxšx š  Ǒá š cšc ڂ] ~& %  % ת Date  Form = mm/yy!    & ȡ % "  M  Cɡ ġ    #ɡD       /  צ ^% šj ٲ ȡ9 پ0 Ȅ ؂ݡ  צthru "  Check no. ת     b!   ɡ ˡ  ġ  "  b  Return = צ , last = ء#צ, 0 will list From !  Return =  =ɸ [/0 á* צNo Data =*` List צ by ȡá.޶ǠcˡLbá22qbá22q ٶÄÍ,p P p pġbdɡz2ȡ  ݂ 3צ[צ]"ˡšˡdá]ˡ Nˡˡ * Pd ̇ƇCƇINDX Ƈ Ƈ̇ƇƇXƇ  ="  ---------&  צCurrent   =2  צ * * *   T h  9dɄz2š = 6  Deposit   =*  צ Total Checks = &  ---------&  צ Statement   =.    =   !/šš   š  Balanceת.2"6.*& Reconciliation: >  צPrior    :  6&  :  *r   :  M   :  "ȡ   A0 d@Q1 ɡ  NšFȡ9ٶȡ   A0 d =     Dp  t'š --attš t צɡ צ ~šFȡ9ٶ >ǟ      > צ Checking Account Statement     š :š$Bɡ   2 p 6 צTotalq ɡ0á 'ۡڶڶ Ȅ ڶڶ ń bצ Printing >צ Bank StatementUg2  >ǝ >Ǟ ( ȡcš .b bábbˡ22ڶábá:**qǐɡQbá:&&q$bá:""q ɡ1bá9qɡ  2is suggested. 'á   š    !N  N ɡHš$צSorting  b}*lǠ$ܶ šܸ š ܶ ɡܸ @á޶Ǡɡ߶ š߸ ܚ xylšצ You have l  entries left in this account.(The Balance Forward option ʇȡ1š .p pcˡpššɡböbÍlšl p ە p p޶㚶 ݶ šݸ š ݶ ɡݸ mt'bá '  2 šq!N  N       ɡ  ' ġá   >ǃ ̇  ń , *&"    t .2"6.*&צPrior צ = 6 Deposit צ = *  Checks = & Statement Bal = .##ɡ## + :##3 ɡ  צ  #/" \צWhich: %RETURN (with no entry) Sá Lá DøBøCøXø á. `fr&>"d |R>`v"vt"@ "CO! ;-  QáQ צReading transaction file checking/savings accountתWhich? ת Outstanding ת צPaymentsզDepositsתצtotal ɦ transactionsת áequenceצN(umber sequenceצQ(uit  D9Xc/)"CO! ;-  QáQ ݡڶˡڸ JList צC(leared  O(utstanding צD(ate s elect š צWhich? xcńu>ڤ OK? (Y/N) Y @  ȡ~ؾܤxɡ$ >ܤܶá*ܶá ݝˡٶšٸġ S(electצL(ist צC(lear returned items B(alance statementP(rint statementQ(uit to main menu>  Septemberת > Octoberת > Novemberת > צDecember \>Ų ÄצMR צRECONCILE BANK STATEMENT:L c  vɡ~dɶ ō>ǃ >Initialת >Januaryת >Februaryת >צMarch >צApril >צMay >צJune >Julyת >צAugust QáLbá""qbáqdɄ.z2 z2 Xc צJOURNALRˡ *" V ȡǠ1š .cˡbá22qbá22qڶ áNbá**qbá&&q  צ#1: ġ òظ  ö ˄) ȡ ò > 2*&צCks =  Not Ckd= "Current  = 2#צ* * * Balanceת  for no change,צ RETURN (with space) to clearRETURN to exit, á$ +>ǝ>Ǟ- 0 >ǖ(dɡ . Ŷdɍd Ŷdɍ-צAcct number MUST be 100-499 PASSWORD SET-UP#>ǜצ"WARNING: ThisצSet 132 column mode: Ǜ ˡǚۄ >ǚ>Ǜ   תڿٿؿ> >ǛNتP +á*+  *ؿ ō á>>f צ"Printer setup code: (Form=/27/15)צReset normal mode:PJX ȡ  /á  á,š  2 ɡ 0 +ɡ++-צ .-ȡD>ǝ؂+ >ǝ؂+K~4 0>ɡ> תPزɡ>ؾ Pצ/QT>#  #  á fNAME THE DISK & REPORTS צCurrent disk name:+צNew disk name:+EPARTMENT NAMES Dept Nameȡ1 >DŽ s0DŽ#>ntryݓ% ٤צ Y٤7ݡ   # ڤ2 ڤצ Yڤ ڤ#YڤۚY ܚ  W,WlDצSelect start account:  ɡ/mmȡ!۲ؤ۲ ȄޡÍޓdĄɄ3ɡ ݓڤݓ ɝצESC will REMOVE eName Yš% None selected2 ɲɄcń ٕ  more are allowed (10 maximum) (Then ESC to remove)YĶY ȄYȶY ĄĄȄ SUBTOTALS FOR REPORTSצ Acctצ Sub TotalStart End  ɡHMust be GREATER or EQUAL than  ȡš.+ȡ+šǏȡ Ǐš?צBoth accounts MUST be same TypekȡTˡA ȡۤ >ǖ( <,Account already subtotaled.J צSelect end account:     P ȡ ȡ٤ȡY٤ɡ Y٤ɡsؤYۤ Y  ۤɡ% ۤ ۤ >nj؂ ۤYۤġ password is requiredצ to use this data disk Current password = >ǜ צ New password =  >ǜ#  >nj   +TX No printer $Define printer for 132 column outputצ80 columns (only)צ 14" carriage Epson typeצApple Imagewriter,DMPצOkidataצCentronics 150,739 C.Itoh 8510Texas Inst. 850,865CustomQ(uit ;;0;9ō;0ǚ;p  th\NQPD8NQ š ^ )ضɍضōظ ظF ~  צGo to which account?  ɶdĄ Hn~ھáDF  ˡ ˡ ء L ɡ ɡɡL  ġ -ńiab ת!ǏȡצInc  צExp  >~ؾ    ȡ "ȡ < X $  ġ   ɡZAccts   צU(p, D(own, P(age  !T(op, B(ottom, Q(uit, A(dd, E(dit ؝ ɡ~ؾȡ!wȡצLq.As צAsset6+ȡLǀ́ʁȡؤؚƀ  ƀ ́ʁȡ~ؤY jɶō@ צup צdownצ, G(oto, C(hangeCCá" Cˡ:A JOURNALS˝L˄ >ǜn@\ DtdF p *8Bt R\D "Q(uit   LIST ׮!&צEDIT ! EL 3 C6 B" >ǜn@     Lá/צLIST !צMLJOURNALLˡ N RÝEÍ  CHART OF ACCOUNTSRB! צMSC ׮!צE(dit account nameצL(ist chart of accounts Q(uit   r>ǜ@n>ǜ@>ǜ@>ǟצ - C P A -  8 88AACAצINDX999A"á8 C5á>ǜ@>ǜn@ تP>>@  á    >> ɡġU?8Sorting >~>ǀ>ǀa CCTNAME8>"ˍ WRITE ERROR8x š .  > > >>      ġ BBB @ D@<:62.AS& 8."$F  88CAצD(epartment names S(ubtotals for reports A(utomatic transaction setupP(assword setupצI(nitialize printerQ(uit to main menu,QP 09xndZPF<2(>ǚ;>Ǜ; (v "BMS תSET-UP:BצC(hart of accountsצN(ame the disk & reports  Account aready assignedl~  š: Account file is FULLG Add which account number?  ɶdĄ #צ ȡ$wȡצLiq.As Assetת <+ȡ צLiab &ǏȡצIncome Expenseת  Name: ( account)  I   xɡv d > ܡ >  >0> š >XXXת>ɡ>צ0>ܡ>צ->.ץ>>>ɡ>צ >= >9 # ױUáƀ Dept Codes: ƀDŽ ƀ#áƀƀƀ ƀƀⓡ šƀƀƀƀ16R8Z8 '  ;ƀ ƀ ƀצ LIABILITIES ƀ :+ȡƀ ƀƀ ƀ ƀ ƀƀDŽNĵʂȡ#>ƂƂƀ>Ǟƀ>ǟƀ" ƀƀ ƀCHART ƀצ of ƀACCOUNTS ƀƀ ƀ ---ASSETS--- ƀ ---INCOME--- ƀ --EXPENSES-- ƀ  ƀg'E3  g   r$ ڪ  ȡ  #< ƀƂ" ƀ>ǝdd Ʉġ ޓޓJ   <* '   š   ~ھۤ>ۤ۸Jš  & ɄdŶP ** >ǂš  ɡ W ɡQĶɄ;ǀ gǀ 'ǀ  ȡ^~۾  cšA ,ɡۿ* ǐɡ gۿ ɡ 'ۿf :šBɡڸ  4ǀɄšL P(rinter or S(creen?  S ܝPø V : > Printingצ#1: ,ɶ Ʉ ǐɶ Ʉ &(*,.02468:<>@BtRZNRTVXZ\^`dfh؝@ J    4:\nTVP n $  d *     ۤ 9> 3 D áU عZ  ˄   ˄  |xt UlZ  "$d ؂ˡxxɍwwōLiquid Asset Acct8d CINDX 8"á88X"á8dd    ۤ تP Cannot change RP~ۤd+á >ۤצChangeumber׮  0ɡ 0(OÍ#   ɸ w ,٪PتP  ,צ to what new acct n?tצEditame׮#>~ >~#  Vצ/š  תɡ6š/ ȡ$ݾ0 Ʉ ڂdd3>ǃ>ǃ ݂  تد  š, á  á   /š š šצMonth iP ńˍDayת 4Ȅ ɍPriorת4šצLateršqצ Bad *צ Use p ?@ ## ávMDצDEPARTMENT REPORT:  צN(ormal or W(ide format report # é#SÍS P(rint reportצQ(uit to main menuȡ?44#/4 ? Í? @_ ݡ צ צNOT צA(ccount numbers will צ be printed>ۤš? ȡ? צNoneצDepts selected =  צDepartment (0-7,A) =  Aá(ث;< š;; ۤצ !8DŽ צM(onth select (K)*Which month (A,1-12) = c c   AÍ8<Aá d;c< ted)#Wë۩۝ȄJPrinter cannot support WIDEۮf;  D<  צN(ormal or W(ide format report # é#SÍS P(rint reportצQ(uit to main menuۡݡyˡvyצMONTHLY  ܩۍ (Dollars onlyצ(Cents to be shown Z  ۡ (Wide 128צ (Normal 80צ columns vyũɍ šcکܩń۩x y  īੜ ōũ ۂ  š ڡܡ̜⩜ 핫 á ɡ (8 >ëٶvP áá4>ǖ(dɥčȡؤN6bw4 ÓGp ppšš ńګ 4ء}Ʉxy4vwˡwء-VVȡ!z- |5 5 éⓄ ؤ(ۤؤq'Ǐȡq qצReading transactions 4 Ǡ ɡcVVȡ~1š .cؤ(ۤؤqV+ȡ((ۤؤ(ۤؤq'Ǐȡqqbbxɡ$ddqÍȡȡ((ۤؤ(ۤؤqV+ȡ((ۤħpń/(()((npɍ۶ɡ bbxɡ$ddqÍȡš۫>ȡ((ۤwÍ ȡM ɡ @ܻ áܫ áܫ áܫ á ܝń@ ?@ >:95z V6v@< 9<:(8 4 5Z>ǖ(dɡȡؤB 76b:   88>ǃš'>ǃ ńۧ>ǃ yx ōōōd;c<wáww4xō ÍJ:pé9p Ä/p 9çp:Ʉp 9ÍpÍšxɡy4w4OB ؓ5<:Ä;9Ä>;9<:(8 4 5Zding transaction file 4 ȡ1š .pš!p pɡثšث 4c:cá\9cšOp 9áp8ȡ3p 9áp8špçp Ǐō*(ؤ(ؤqǏȄ*(ؤ(ؤqcǀá?,>bbqq`צRea+ȡ]ȡ,(ؤ(ؤq*(ؤ(ؤqcǀá?,>bbqq`צWhich ? #FˡZb##Dumeݓ Z#DëOK 5AW.702 QOc; "$A(*,M#é#QÍ ##Pá@? 5@?==ë ۓ'D(ollars only or C(ents shown  #Wë۩۝ȄJPrinter cannot support WIDE۩ۓń | ȡ4 šצ All Deptsšh >DŽá>DŽצ = + á š8S(elect dept ()XH ȡcDŽNjȡO>ڤצ   ȡ p ɡ Q     Printing 7MONTHLYצ DEPARTMENTצ report.``(( (``(H ɡݩۄ$*>ǂ낤 +*>ǂ낤ɡ    46 :é $ݡ ݩۓ#>  >  ȡf(ݡ 7 ۡ ۓ ۡ ܲō' Zɡ 0  ݡ -  צ.ܶšBɡ,۝ڂń =šR2d  -šצ *******v #Páˍ٫  7>ǃ>ǃ 6Kȡ45 ɍōō5  ] \&V  0 V x (  צ months) צ(thru )Which ? Zb##-_#FëTP L#Dë Aݓ6AW."$ ;A>< "$Y(*,N#reportQ(uit to main menu is selected)ר īM##MáצM(onth selectionP (Fiscal/year thru  / )V ( A(ccount numbers will ݓNOT  be printed^צMMMONTHLY REPORT: צN(ormal or W(ide format report צ P(rint š   EndתP ? ۂš ٕɡ   ނ ī f F(ull report or I(ncome/Expense ڡ (Full Report(Inc & Exp only o   ȡ&á 0Ŷ ɄAÍ,  áɡ צStartP   Aá _ ۂ,áצNone))  month  7 (A=All) A  š á Aظ0 1ø  ȡ  ġlؗ ɡ0K 1 2(ȡD Ą2 š , צ1!8DŽ >ڤš Dept (0-7,A) :  Aác0 74ګ( No data* á "צצ#1:$>㥞$ۥ$ń $ȡW(ؤ ($$š жݻ($ ȡ_(ؤ 0((ݡ<жݻ(( >'No data to print w㥞8d<6Dá    8?L<>WORTHݩۄ ݫ ''ȡ4((` ꥜ Lá צLIAB צ**TOTAL ݩۄ ݫ ''ȡ"á ( ` 楜a Réۓ7ń7ń*7ȡ ީ4צAborted>ǚ ŝ NT Xc~3N"  d n $P b$ UR. NET WORTHݩۄ ݫ ''ȡ4((` ꥜ Lá צLIAB צ**TOTAL ݩۄ ݫ ''ȡ"á ( ` 楜a Réۓ7ń7ń*7ȡ ީ4 ɡá*CHNG NET WORTH ݩۄ ݫ ''ȡ$(` 쥜ǀɡ|**CUR. NET WORTHݩۄ ݫ ''ȡ4((` ꥜~ +áȄX ɥ Ʉ ɡ ɥȄ' p +Äɡ- ɡ~  㥞šܝ ܹȡ(ؤ`ؤ LIABILITIESת hZũ7#\r 7% %צ`p ١&&ȡ ''ȡ  p `p  ''ȡ EXPENSE ת צ ****NET INCOME ١ݩۄ  ȡ$(` 7 šړ) d  צ ASSETS \ + 7ۍ ݩۄ  CCȡ7ۓ ũ7 Mf   , Ǐ צ INCOME ǐ  ȡ(ؤ`ؤ 㥞K ɡINCOME & EXPENSEצASSET & LIABILITY7 צ -Monthly Report- 'צ -Department Report-ת ɡ2F/Y  /  ?N>DŽڂ  šپ ÄTotalתK"  ɡ>ǝ>Ǟ>ǟ74 צ thru thru H}< تP+,+,ȡ1 +á+++:VP  ȡVڕɡ $JanFebMarAprMayJunJulAugSepOctNovDecצYTDo. ȡc  ض ȡؤ,ɡ١7, ȡؤ+ȡ  5 ȡ& ؤ+Ȅ١71ɡۓĄۓńۡP_šUצP(rinter or S(creen?  Sٝá Pë$תۡǛǚ>ؤɡ $>ؤ١ޡצ Computing Lá צLIAB צ**TOTAL ݩۄ ݫ ''ȡ"á ( ` 楜a Réۓ7ń7ń*7ȡ ީ4  JnDETAIL GETOPTIOPRINTSUMINITP GETDATA DF  C>DŽצ>ǝ>Ǟ>ǟ ת$G$JanFebMarAprMayJunJulAugSepOctNovDecת$šצš Setup + "$/  J= h  H B AáCCK0ۓ& No data 0 Cۡ (ũPÄ6צGoing to top of pageBɡ    RBHICc JI account     9 51-AS&NjȡO>ڤצ !8DŽ >ڤšWhich department (0-7,A)?  AáCCK0ۓ& No dataonth (A,0-12):      End month ( -12):      ɫG  DŽEFdDXáDxIáEF,DSáiSelect which account: dɄ؝ ɡؤá FEDl (  G  Start mportũPÄ1צS(kip to top of pageQ(uitצWhich? : )A(ll, X(cpt Lq.As, I(nc/Exp, or S(elect:  צInc & Exp Accts M(onth  צAllG&  -  צD(epartment AllC0   >DŽ  P(rint re  h') t A(ccount צAllD)צExcpt Lq.Assets`E/ >~,F'צ 1, last =  >  from  "    >  to  צA(ccount צR(ecord number צQ(uit to main menu צWhich? RëI#LI record׮JPI ETAIL number   l ~    TOTAL =  z؝.ƀƁšNP(rinter or S(creen?  SáB I ̀ʀȡ ~۾  ~ š Reading transactions fileڂ []"ˡ šNˡ ˡ ^$ Sorting륒 CINDX999"ˡˡˡáȡp "árinting TRANSACTIONS REPORTI B ǀéSÄ N @ c.   I FDF""ȡwPá/Sá  >kũPÄ?Going to top of pageBɡ á. #1:hצצPéSÄ  éS˄cǀéSÄ N @ c.   I FDF""ȡw I _ ǂEÍ*Fč GȄC   㓡'š .ġ#㓡 No data -  ũPÄIBɡ    D "(\|  ˡéSÄ  éS˄cǀéSÄ N @ c.   I FDF""ȡwb b P\ Ǡ cǀˡ  qb ǠŸ  b  ɡ  á  ˡI? báb b  q cš * IZ  šš? V  bö xɄt@ġ JNLת Kt'š צAT 7á&צ  wȡI צDEP  ɡ    צ   Ǐȶ ń  צ ,Q,P,,,/,`, a, צ cu ȡdc(ڧuá/ɡ*c ˡ / "ɡ  ɡ 4 pp P  ɡ,,צ ,, ɡ,, ,Q,P,, ,,צ/,a,p P p ɡ,," Sáš   ;šBɡ   Fܡ  0ɡ0צ.ܡ- ˡ ġ̀}K ̀ʀȡ1š .cǀˡbbˡKcšBToo many data entries =  ޚ bp pp pšɡšۚ@ bp pۚ뚥}}Total to be sorted =  PPPPPPPPPPPPPPPP @x` @ @x?`x?@~p| @             ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPP@C .@e@@ )@.@e@@'0)ʽ_A^@@_@4`ʽ_A@@@4Е`            te new data diskצB(ring forward balances Q(uit to main menu צWhich?   Ý ÍQ F " Not includedÝÄQÍQáצUTILITY808@HESצM(ake a backup copyC(reate new data diskצB(ring forward balances Q(uit to main menu צWhich?   Ý ÍQ FIs this what you want? (Y/N) 8d<צMU UTILITIESצM(ake a backup copyC(rea"ˡ8.8CINDX צX"ˡ8. (This will clear all the DATA on the DISKEXCEPT the chart of accounts׶Clearing the data fileq.88CצMFILE "á8.ȡ"zvȡ 8CצINDX Popyright 1985 Robert JahnckeXUTILITY e e e e e ee e e e8ȱ$p303e e 8  0LqLM8ȱp0L0͠ȱȱ8  0jLy`0ihW fniA8d<H B 8zIJ<hhhhhhhhHHإLS**88fjj*8 ʀxyKwũIBƀ~Z`F cǀˡbbˡKcšBToo many data entries =  H``` P """A"'AA"" ? A"""` A"  ? ? " " `xx ?x| ``xx~~  `x *" ? LL|< ???? @@ppp||???$$ `o``xx~~  $ @@``q{{>c?@@pp|| """  0``@Gccqxxxpx~ """"? BfOO?>O("" ` |9`@"RECREATION PET COSTS FOOD CLOTHING SERVICES CAR EXPENSE TELEPHONE MISC.LIVING ELECTRICITY HEAT MORTGAGE PAYMNTYARD HOUSECLEANING MISC.SHELTER PROP.TAXES INTEREST EXPENSBANK LOAN ACCTS. PAYABLE CAR LOAN BROKER MARGIN LHOME MORTGAGE MISC.MORTGAGE TAXES PAYABLE SALARY COMMISSIONS MISC.INCOME DIVIDENDS INTEREST INCOMERENTAL INCOME CAPITAL GAINS ENTERTAINMENT VACATION NET WORTH A CHECKING ACCTB CHECKING ACCTA SAVINGS ACCT B SAVINGS ACCT MONEY FUND BROKER ACCOUNT CD - TERM DEP. CREDIT CARD LOANS RECEIVBLESTOCKS BONDS T-BILLS LIFE INS.-CSH VCAR VALUE HOME VALUE @|????|p<> ay x``xx~~~x`"":ppx<<@@ p@@@<" Xpp`D "``@M "R"R,"" P" Q@``j @@xxs|p x~<"< " NN~x````>" syxxxy~p@@x?~ A@bbppp|xx`@:"8` xNO?<|xx`? "" <F>>@?@   " fg>>@ " 9|@`""" " cc###cA?|p|p||| ?<< `xx~x8```p|~g<>" LL||<< |u`|x? ``xx~~ @p~6*"  L||< ????@@pp|| ??g ``xx~~~ :@`qq{>>cA@@pp|| "<> p0`@@ GG`qqxx~xpx  "``A" x`@@J""W""""V2" P" Q@````_<< P ""<> D"" "bD<< D"" D<>"" 5:<<   << ``x~`@`x~ ""$p p||px|| ""p|>x@ ~x "" <"  p?????|@ " q xp`xx~~~~x`"" |pxx?@@@ p@@ "  XXpCGGbpp@||xxx`G" p x~N>|~`~~`"" < F>p?|""<"~ ~|x~  cspscpx   " ` `?"" Ac###ccx`|p|?``x~`px~```x~~g"" ? L|||< <}d@xONN`x""  yxxxysx|p@`?>  DONATIONS  MEDICAL MISC.DEDUCTIBLEINSURANCE CAR PAYMENT PENSION PLAN UNEMP.INS. FED.TAXES STATE TAXES OFFICE RENT      x!"JOES MKT #MR.EMPLOYERWAGES +xu6MR.EMPLOYERWTHLD +xu8MR.EMPLOYERWTHLD +x%9MR.EMPLOYERWTHLD +xP2DR.JONESDENTIST xuSAVINGS TRANSFER ININxC"'MOVIES xOLD MEDICAL BILLS QDR.SMITHPAYMENT FOR OPERx#SEARSNEW SUIT u3'CASH "JOES MKT A9TELEPHONE CO DIV. 1PMR.EMPLOYERWAGES +u6MR.EMPLOYERWTHLD +xu8MR.EMPLOYERWTHLD +x%9MR.EMPLOYERWTHLD +xP%MAC'S GARAGEGAS x#ANTOINES RESTAURANTD QW2VISACREDIT CARD PMT Qu&BELL PHONES Q9''CASH %MAC'S GARAGECAR REPAIR 'P4MUTUAL LIFE INS COINS A'5FIRST BANKCAR LOAN %'8MR.EMPLOYERWTHLD +x%9MR.EMPLOYERWTHLD +xP*STATE SAVINGS & LOAMORT Qu'.STATE SAVINGS & LOATAXESQ%'-STATE SAVINGS & LOAINSURQ')GAS CO.DEC HTG. Q7(EDISON CO.DEC ELEC QCAR LOAN JAN 1,1985 SS!OPEN BALANCE - VISA CARDX2 AT&T STOCK-1/1/85 Q5BROKER MARGIN ACCT RMR.EMPLOYERWAGES +u6MR.EMPLOYERWTHLD +xu"FOOD MKT xOPEN BALANCE Ls!OPEN BALANCE Lx!HOME MARKET VALUE QPHOME MORT - JAN 1985 T1!OPEN BALANCE - CD QCAR VALUE - JAN 1   !"#$%&'()*+,-./0:234567891  cؘؘ} 1 %5#0(8"),4/ 23'-*:6!. $9 &7+- tiiQ~ ~ KK*bgaMQB Q +defgijkm}~,.02356DEDUCTIBLE WITHHOLDING     d,1   0 0 MR. C. DEAN DE LARBRE  - C P A -    '6c V !HOME RENTAL       BNK ACCTS. EARNED INCOME LIVING EXPENSESSHELTER JFILESAMPLEHz SYSTEM.PASCAL9SYSTEM.MISCINFO SYSTEM.APPLE9MFILEMFILEMFILECOPY.CODE*>vgƩCOPY.CODE*>PROGRAMSYSTEM.STARTUP:BANKSHt*SYSTEM.LIBRARYz* JOURNAL.CODE* REPORT.CODE: DETAIL.CODE* UTILITY.CODETjHACCTNAMETR a_ x#DR.SCHOLLS SHOESSHOES x(u*STATE SAVINGS & LOAMORT xRu'.STATE SAVINGS & LOATAXESxR%'-STATE SAVINGS & LOAINSURxR'+J.YASHIMOTOGARDNER xRe-SMITH HARDWAREREPAIRS pR9f-SMITH HARDWAREREPAIRS xRGv(EDISON CO.JAN ELEC xRD)GAS CO. xRS"FOOD MARKET xR#VISA CARD CO. xRTHE CELLARDINING OUT xRS(/VISA CO.INTEREST p,&"`J' T 'J"i TL`@/ //`80\$Hh A A݌ 3 3 3+ B- B/ B1 B 3 3 3 3`80a$Hh A A݌ 3 3 3W$ ;$*:8:!"LLLLLLL!L;ꝍ݌`HJ h HhL4 %'X)'#8%7I'i')) 8 # )н ')*`FG8`0($ <צThis Program will create aצCPA Practice Program diskwith Sample Data./Press RESET to restart 8 , צ(Insert newly created SAMPLE PROGRAM DISKצ in Drive 1Press RETURN to continue  צSYSTEM.STARTUP. 8d̖ʖȡƂ Ƃ("ˡƁe ƁƂ"Ɓ .Ƃ("ˡƁ{ *ƁƂ"Ɓ  צ #4:S.CODE"˫P Copying DISK 1 to DISK 2 []tting ...) Address=   "˫Ɓ 듡 ƁƁ "ˍ덫Ʉ"˫<צError on OUTPUT DISK듡j Ɓ- Press RETURN to continue @ !Put a DISK to COPY TO in drive #2צ(Copying will ERASE ALL DATA on DISK 2...  צformaá$צERROR ON OUTPUT DISKáERROR ON INPUTb "Type OK to continue (ESC to Exit) OKáw" +x%'9MR.EMPLOYERWTHLD +xP'*STATE SAVINGS & LOAMORT xu'.STATE SAVINGS & LOATAXESx%'-STATE SAVINGS & LOAINSURx'5FIRST BANKCAR LOAN x%'MR.EMPLOYERWAGES +xu'6MR.EMPLOYERWTHLD +xu'8MR.EMPLOYERWTHLD x%INSURANCE CO. OF A.CAR Ix#J.C.PENNY'SCLOTHING x8"FOOD MKT x­X34MUTUAL LIFE INS COINS xB'MR.EMPLOYERWAGES +xu6MR.EMPLOYERWTHLD +xu9MR.EMPLOYERWTHLD +xP-MUNICIPAL WATER CO.2 MOSx¬G&BELL PHONE x¬CvDR. SMITHPMT ON ACCT x2"GENERAL MKTFOOD xBx#%DEPT. OF MOTOR VEHIREG xu'CASH xR%STANDARD OILCAR SERVICE x3''%FILL GAS TANK OF CAR Tx5FIRST BANKCAR LOAN x%'MR.EMPLOYERWAGES +xu6MR.EMPLOYERWTHLD +xu8MR.EMPLOYERWTHLD +x% ;L 9 3 3 3`+'J-+M-M/1 ( @L#pmlkcb[ZYXW87*'$#"! Rx! š K%"á61 ɚ V %ɡšɡš  V#&ˡ @šQȡ2 š:X f Ą ɡ 낫š ꓡ!š땫Ě@%"á1ꓡ삫Ú ȡ*ńȄ4šáRתPńȄ ,ń.áš蕿   Q lȡPš蕫š 쾿  /P ná " * 0ˡ ɡa áá0š  %4á1á$009ȄX 000á'$á 009Ȅ00 qS\  ɡ'áצ-32768 ^ 逫-ġ>00ń  0& "ˡ  J   00áQP 0á0 é000+-Í- šš që  N "ˡ )á á áaˡ á Nšá áÄ& ܟˡ,  צSYSTEM FAILURE NUMBER  צ. PLEASE REFER "TO PRODUCT MANUAL FOR EXPLANATION.  DFCOPYRIGHT 1979,1980,1983-1985 APPLE COMPUTER, INC. ALL RIGHTS RESERVED    DPASCALSYUSERPROGFIOPRIMSPRINTERRINITIALIGETCMD SYSIO DFCOPYRIGHT 1979,1980,1983-1985 APPLE COMPUTER, INC. ALL RIGHTS RESERVED    DPASCALSYUSERPROGFIOPRIMSPRINTERRINITIALIGETCMD SYSIO TR a_# #6"'á *   šˡ 퓄 Ä퓡x š   ɍM   "ˡ.ˡ   d쓡  !!  # 0"ˡ4$ š F#,á1š ġ   ʀʀ ʀ ʀ ʀ  ʀʀ̀ʀʀʀʀʀʀʀʀʀ̀̀ʀʀȡʀʀ̀   תʀ'*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> 8 ́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń! áނ š   šš$ !۞ۂۂەߓh  ! "ˡ ɡ!  ! "ˡ ߡ š  ńá4 á,á" r 2ب"́$ʁ$ ʁ$ ʁ$ ʁ$ʁ$!"ʁ$ʁ$ʁ$ʁ$FZ   ނ ń! áނ š   šš$ !۞   ġނš  šš!۞ۂۂەߓ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> Dⓡ4"צˡ䓡 &ˡ& öÍ##&á &'"&㓶℡'á.0:'#.+á$š ġ  ^ $?š?ˡ?ء "ˡ%ߕނ߂ɡ F b%ARAn@vvXX < ~LJ> P b p 2 F ' ʀ  ʀ ̀ƀ ƀ ƀ   ʀˡ L تٞ&"á ٤ ȡؤצۢÍ ȄۢÍ؞&"á ۶ ضá}۪*SYSTEM.STARTUPתٟá'      צCONSOLESYSTERMצGRAPHICPRINTERצREMINREMOUT[Bfhjl7צ.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š222Ɓ2Ɓṕsʁsȡ%Ɓ2ʁsƀʁsʁśsƁq ƀƁq O*SYSTEM.LIBRARY  ́sʁsȡ'ƀʁsʁsʁśs2 Ɓ](`   á/)צ*SYSTEM.ATTACH áá(*SYSTEM.STARTUP š pNBz version 1.3ړ22 Ɓp Ɓp2Ɓ2Ɓṕsʁsȡ%Ɓ2ʁsƀʁsʁśsƁq ƀƁq O*SYSTEM.LIBRARY  ́sʁsȡ'ƀʁsʁsʁśs2 Ɓ](`  aʁo ת "ˡ ܡ́tˡ2"ˡڡsƀ ˡfSYSTEM.COMPILER RFORTRAN: 4  is not version 1.3ړ22 Ɓp Ɓp ȡ0ޤˡ ߢ`ޤ7 VڪƁ Ɓ "áP̂/ʁ ʁ"ˡ3Ƃ. Ƃ.Ƃ. Ƃ. Ɓ Ɓ X  ߪPƁ]Ɓ4 PƁ4ƁaƁeƁmƁn ́oƁآڤ áCá>آآ*Ík vޢ ȡUڤ ˡBȄ-ܢ0ۤ ݢ`ڤá \zڨ !!P!x!P &(.Bۢڤ ɡš2ȡۤˡ áڢڢˍ? Pˡצ š š۾.ˡצ([šܕ!!(š۾:ˡ١.TEXTת .CODEת!!ȡ)ܾaܾzȄ ܾaAܾ ɡ?š!!Ȅ11צ(The 64K version of SYSTEM.PASCAL cannot צ)run with the 128K version of SYSTEM.APPLE d<,Dh YSTERM:  ø !צ  תצP@22ˡ'Version 1.3 of SYSTEM.PASCAL cannot runצ&with a non-1.3 version of SYSTEM.APPLE@22 `    p  CONSOLE:ת צSYSTERM: Fۤ ōɍ ō ȍ  dč ܓܡߢ ܓߦתߢޢ!ޢ!9 L ٤ Íܡ~  , Ąܓ"á  ܡ:" áܡ ܓת$ ڟšx#ńF 09Ȅ ᾂ0 ߓńȄޓޓ!ܲݤߓÍߠ,hhJiЍ L֢ hLh )hJ¥jJJhhihhhhhhb\8ſƅhx Щ&'H(f'ꮭ'eƍ8ƅб ĘHH``P@ߠ ߮.ת&תת(%Ɓ.񄓡9&   P ? ءצ*SYSTEM.WRK.TEXTצ*SYSTEM.WRK.CODEצ*SYSTEM.LST.TEXۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ/13:! $ ~\",䚹 9U[2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ ۤ Äݓۤ  dÄÍߢ ˄ɡۤ  dáߢ  dá ߢ #ޣ˄ ߢ  ߢ ۤ ߢޣ ޣߢ ޣޢ ޢۤ ޢ áޢá צޢޢޢ١ ˡ) ! 䚹 9U[2˄ޢߢšáޢ ޣ ߢ  dޣޢޣ ޣߢ  dÍÍޢˡ ݓۤ  lܟ˄ݤ צ   ١  n ١ á9 ٓ/! !!! á ݤݚ ˄ܟń ١á  ޤ uš  gá Ä+ޤ  ɡáޤ á ġMáš6 ܂ۻݪ d (   š Í ÄU ǐɄ:ń  šá٢.ٕ۶š ڸ۸۶ š۸ ڸ:   ȡQ  ȡ   ȡ? ȡ  ġ ۢ؂Xڢڢڢڣ ڣ ١ڢ ڣ ڣ١ ڢڣڣ ڣ áڣڣġ ڢڣڣ hڢ ڢ١ڢ!ڣڣ ڢ!ڣڣ ڢÄڣ &ڢ ڣ ڢ! ڢ!ڣڣ ڢڢ ڣڢÄڢ ߢ  d˯7 H  ۣȡڤ  ۣ צۣۢ0H ܣġ ۤ ٤ ڨ ܢܣ*@ۢۢۢۢٚÍۢáۢɡ ۟ۢ`ݤW ˡ!  ,ߓ$ ޓ "ߓۄ,ݤ ߓÍߡ2ݤ š˄ڶ a3 d ޓ(ݤ ߢܯ  Ͱ()I يJJJ(jǩF؅G(  Hֈ k( F G  Wj0 خ $Ӱ4 xH ߩ`Ǚx kh k@(LYҭH͍h (ͥpi)ͥˤ˹LјJ 8彐.mĿ"Š>?( _֮ˍL հ˩($8` Ґh Hǹxhx N`8Ύ߽0|ϩHhHh ӈ ө ө ӘVYԦΝYԮߝꪽԦ өHLҩ%vHHLhhh h膀e ň8内e~l8吨L^ऐ 0 8`hh ~ h0 \L SLlvLL/ pL p8L ~ hI=+ \L ~襈I= (hI`J) )i i`HH8(iPH ߠ'(hH tߩ thhehL ߍߠ'O`J!L80 %M8$L/L`    Objqޏtޘޤޮ޴޵޺޹м`|H ߠ ߠ'È h`@ ؠ ح0`+` ޥHH ޥhhL ߦ ސ`,10` ` ` ` ޤOȄ`H$)A[hIH80(hI`i(8H(LhhhhhhhhץHH`JJJJ ϱ`H "ݠLf H 9h`JIi' 'x`38 0P`8 0 ߥ` )`,10 )?ILޢݮ` ߅߅l(,LZ ݘJJ )  LJI)LZܩLZ܊) 9ݐ)LZ܊JȩآL ݠ؈hxJiЍI*EJ F؅GF G ӝ4ȩآL ! ֑ȭ֑ Lܢ `) ؊H "h ɢ` ع)`H B "ݠLfڠ0* )` ]Hh` } p pۢ` ێ` ح`2`) ! ` عJ` " MȽ` B "HLf ݠ }ۑ p0 ۩J*L ݢhhhHH)> `( $ `Q`) " Ȣ``H "ݠ h ڍ,,`lJI*I II `$p"0*nXw ؆ ڤ ڢ` ` (!/< ` ح0 ,10i0  I ,109,c$0 A[ $P0Jj)jj&UIL؈ )?LI@a Hb c0  hH َh$L hhh O靱`hhh(`hhhDEDD@+( `8][ ZD[E`ʩˠhhѱʅE[ʅDZȑ`8Hh`HH(x h(`HHH*LfF0 9ݐ9 Lo٥")jR )LB֠BȱB֭J `JB)BC ֐+/ @( ` ֌֢`0&J}iʰ ֥͝֐` حBCJuJ DE 9ؽFG ְU0ЬЧJ2DEϐ8 (ֹO H֥ +ֹW H H)*Ȫ`FG8` 7 `0($ p,&"VU>)Q>jj`l ! a hx ץH( h ֥HH`:ֈ`֙:`JJJJ C֩B8`Ί aՍxՍՍՍե>?Ռ8T8ՌWuՌvՠ ýI꽌ɪ꽌ɭ蠪ϮәVE]ӾV]H)]ӾV]ԙ)]ӾT]ԙ)]ӦΨ 8$hU>`ȅSϭ߅83Iߐi ө ө ө ӽ`Hh`Q꽌ɪɖν*Ͻ%ϙEΈ 꽌ɪ`8` Hh݌`  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴 SL ȄHHLhh ~LPhhV~W\]~8傅~~8傅~8~~~:XiXY x8񆅚ȥ񆅛᭼HHl0 Lү8Ƈ8񆅈񆅉D>8񆅈,t8 u8Z[ 8Z[LѠRȥSȥTȥUȥVȥWXiȥYiL_ht i~i8~~X~YiTiUR콥S8\ȥ]\]VWlX : ƎRSLȱȱHH9H8H LI LI LI $ LI޽LhhHHHHHHHHHHHH`LҩLhJJJJ) ޽))hhhhh0LhhhhhhLh0hhhehehh ) O`޽hhLҭ߽H޽HLҭ޽LLhh HHLhh Lҩhhhhhehehh HHHH)U  c 0LI *LI -LI 3LI hhhhLIhh ) 9LI 

  • ]>HBC\8倅\]偅] ]H\ŎRRLҠX :LҠX :PQȑLҠXX /XY  0 LX :QHPH PȱPP꽥QLҠ RhPhQL RR8~S~\ȱ~]X i RHRH R~ȱRV 9LC " O ޽ Insert boot disk with SYSTEM.PASCAL on it, then press RETURN# SYSTEM.PASCAL is not V1.3#lhLhxhmDŽ ,І :ռ۞pUx܅اkT1fדԭSԽJ٠JٝԬՄlٽռME=IA9-ҁJxՒ>ڧvߜߔ> Әߐ"Ӡ[Q:2xԶA׶wwwwwwwwwwwwwwwwӼԹԹԹԹԹԹԹ ҹHH`qM`LL;LLLL'LLLLLLCLXL?LXLLLhLLLL?hiZhihh ҭHH`l(8L/0 ]^@[ MNP]^@LLLLLLLLLLLLLLLL ҨHLHl/LRѭlTHISISIT THISISIT R)[ [Zqʊ qŐ`8H<8H\`l L'HHHH`HHHHHH  < @6~7aƁ)?# ??~ȑ~~i~e~ȱe~ȱ~ȱ~~i~iи4\R5]S [ \v]w]|\ /v\w] RPRRSQRR 8Rȭ9HHHH  < `) ,1P `*0 N`i iIHH9H8H ?@#>>) l ??ԬП8ƋȱHHHH`HHHHHH 0"01 ɃɁ1ح:/;089 "!歛筜䭝)VV#$6 </\z FLLIEHJh**F`F$Lө ޽޾ HHHH`HH,`\Xnl rl1 )% ۠)ͩ3ƊgƈЉ** 6`| BQRTWHHlRHHlTHHlVhhi a0<7)ֶW =%3ILXiXYX h&i` hi`XXYX *` `RlSml~ȱlm~l``Z罅[潩`޽~@<8潍罅Z\]b[       id޽߽ H޽H V / PRȥQRRȱR8Ɓ8R RLҥXiX-Y)XiX YHHXYX lXYX lh)hLhX0 eXXYLeT~eU~8~X~YLBROKER MARGIN ACCT Rx*STATE SAVINGS & LOAMORT xu.STATE SAVINGS & LOATAXESx%-STATE SAVINGS & LOAINSURx4MUTUAL LIFE INS COINS xD5FIRST BANKCAR LOAN x%TELEPHONE CO DIV. ~р ȱ~р~р %v HHLҩHHLҢh~E0~E~~~Ղ0L+ߐL+h)~hh)h~L#ߩ vhhh~hE0Ł~ŀHJ@0D:hhLhLҩLҩH?? vXLALL{L   UFifhLޠ Uhhh~hXYhLޱ~р~iL'߰L+L#߈hhޅޅh~h~ޅ~ޅ pHHLҦpHHL @hhHHHHhhhhLݥ)L8内凅Lݥ) fj~) fj8~݅݅HHHH9ޅ9ޅHH~ HHHiHLҩHHLҩHHL~Ƃ~eʥƂFHHLҠX hh&ŎL0eeƎLҥ8包Ŏ 8吪8吪ƌLhh&eȹȹp)1)fjjj)?~Ōe~980~~i ~&&hhȱI%~I%ȥLhhh heȄ Ȅ~l `ۦ8e h9 0 ʚL `ۦņ hI9ʚL `ņ0 hʚL҅Ʌh Uѥi h&L.ڥhi ץheheHHLҠXXhh &heheHHHHeHHLhhhhhhȱ80 iff =݅=HHLh~hhhhh ݅%~~݅%Ń)ŀ!0E0~łLLXYXXYYHXHL_XYYHXHXXYeXXYLhrhshthuXs&trȑtLҠrrtLٱrtLLҺ~~LLҠ UhehheiHHLҠ UhehheiHHLhoLѥIiIi攥IiIiƔ8吥呰 ` of"f fofn8no8&&`ffofn&&`hhhh ץIiIiHHLhhhh ץHHLh~hhhE0ҩlLhh0HHLҨIiIiHHLҺ}}LhIihIiHHLҺ8Lҩonff nenoeofofnff`hh0 hhLhh"IiIiIiIi ץHHLҺHHLנnXXhhQX0XŗiX`0\XE0XLXŖC?8XX&XeYei无8XYLҥXiXYL h~hhh~&Zȥ[Ze~Z[e[8\Z][LL h~hZ~ȥ[~Lh~h~Zȱ~[潩LXHXHXe~XYLҠX~ 8倐~hrhsrHrHLLѠX~e~e~tu~LqhththhLҺh}~h}~Lhhh~hhe~~he~Lhrhshthu UL躽==LҺLhhIHIHLҩX Ѡ Uѥhelniemoni nooHnHLҠX Ѡ Uѥhelniemo hnhnLҠX Uѽeh~ei~H~HLҠX Uѽeh~eih~h~LҠX UѽeheiHHLh~hȱ~H~HLh~hhh~ȥLҠXȘ ~X)XYҩHHLҠXHXHL飨RHRHLҠ qeRneSo nHnHLҠ qeReSi HHLҠ qeRneSo hnhnLèPHPHLҠ qePneQo nHnHLҠ qePeQi HHLҠ qePneQo hnhnLҠX Ѡ Uѥhelniemo nHnHLҠ 1xPMR.EMPLOYERWAGES +xu6MR.EMPLOYERWTHLD +xu8MR.EMPLOYERWTHLD +x%9MR.EMPLOYERWTHLD +xP