' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( 0 Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u`DK$;"PR#1":h*r:FP$(27)1730:|DK$;"PR#0"@S(974)21720DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"(974)3ė::"SWITCH TO 80 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. ";::1780:DK$;"E SYSFIL"W40$FM%(V$(19))2VD$V$(2)JVS$V$(1):VC$V$(7)d:(W(VC$))2);VC$|(W(VS$))2);VS$(W(PN$))2);PN$"(W(VD$))2);VD$,:6FP$(27)LC65@FLC65::FJLC0:T:FP$(27)1680^85#J6(Z$):H6J6:M1ELJ6J6RZ$(J6):(Z$,(Z$)2,1)"."Z$Z$".00"`Z$"$"Z$~(Z$)12Z$" "Z$:1210X%(16384):16368,0:PR%0DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":N$ V$(0)N$:I1(N$):V$(I):I:DK$;"CLOS)"--------------";:LC6#$;LDK$;"READ GLB":Z$fVM1$(Z$,5):M2$(Z$,6,25):M3$(Z$,1)`M1(M1$):M3(M3$):IIII1jM1IL1100tI1~M1$AC$(I)1180II1:I71150J60:Z$TA$(I)(Z$,1)" "Z$(Z$,2):112:WS);VC$;WS12);"PAGE 1"4(W(PN$))2);PN$mQ$"FOR "(PP%3)" MONTHS":PP%4Q$(Q$,(Q$)1)Q$Q$" ENDING "VD$(W(Q$))2);Q$25);6);"THIS MONTH";10);"YEAR-TO-DATE";25);5);"--------------";6FIGURES TO LOCATIONS ":SP$:"FROM WHICH THEY CAN LATER BE RETRIEVED,":SP$:"AND CLEARS THE RECORDS FOR A NEW MONTH.">:"PRESS TO GO AHEAD. ";::1780C:"LOADING REVIEW PROGRAM":DK$;"RUN REVIEW"W80WS(W(VC$))"CLOSE TABLE"; W40:PN$MC$(2):1460::I57:DE$(I):IL*9::DE$(7)4::SP$:"THIS FINAL PROGRAM REQUIRES NO FURTHER ":SP$:"ACTION ON THE PART OF THE USER. THE ":SP$:"PROGRAM AUTOMATICALLY MOVES THE ":SP$x9"CURRENT MONTH'S ŠҠ٠˳MC$(3) (972)0835- PN$(11),DE$(11)v MC$(1)"CURRENT MENU":MC$(2)"MONTHLY MENU":MC$(3)"OCCASIONAL MENU" X%(16384):16368,0 DK$;"OPEN TABLE" DK$;"READ TABLE" NU% DS$ I1NU% PN$(I),DE$(I) I DK$;LCLC3:LC56İ1590:270" v280- 25);] 5);"==============";6);"==============";w LCLC1::1590:1650 DK$;"CLOSE" :"PRESS TO GO AHEAD ":"OR PRESS TO LOOK AT THIS AGAIN. "::1780:A$(27)130 9000280 25);C 5);"--------------";6);"--------------";I _ M2$;25(M2$));w SF%1:M1IHSF%1 M3MLMLM3:M1IHSF%1 J6TY(M3):SF%0J6J6 1195:5);Z$; &8);Z$; :: DOIM321 NTY(OI)0:OI l:300 '1100 ,M31340' 6M2$E @LCLC1:LC56İ1590:270N J280] TM32450k ^J60280 rM2$;25(M2$)); |5);Z$;8);Z$ OI39 TY(OI)TY(OI)H6 OI LCLC1:LC60İ1590:270 280 TY(M3)0280 M13)% DK$;"OPEN GLT":DK$;"READ GLT"F I16:AC$(I):Z$:TA$(I):g DK$;"CLOSE":DK$;"OPEN GLB"p ML0 MO((VD$,2)) PP%(MOFM%12)12:PP%(MOFM%12)12PP%4 M1IL:II1:1100 1620  940 II67640 "M1ILM10 PROGRAM NAMED --- IS5AC$(6),TA$(6),TY(9)AV$(21)M2PC$(2)o7SP$"":I139:SP$SP$" ":I|<DK$(4)FPN$"INCOME STATEMENT"K(972)1690P1460ZFP$((973))nIL(V$(14)):IH(V$(15)) xEL(V$(16)):EH(V$(17)             Ҡ̠Š樍̠̠Š橍ӬӠ榍Ӡ槍̠Š植ŠĠӠ楍̠Š卢Ӡ棍Ӡ栍Ӡ桍ҠŠ枍̠ŠŠ柍(VC$))2);VC$&(W(VS$))2);VS$>(W(PN$))2);PN$V(W(VD$))2);VD$\&JIK:LLKJ:340(II1:LL1:340>IKIJ:L1:340SII1:LL1:340tI4ĭI7ĭI8ĭI1050022:1::DE$(I):"IS NOT DEMONSTRATED.":J11500:JJ:J::80:"LOADING PROGRAM ---":DE$(I):DK$;"RUN ";PN$(I)(WNU ":SP$:"CHOICES, PRESS . ":E JL1:IJ^ TL5:1::DE$(I);:y YX%(16384):16368,0 ^R$:R%(R$):R%13470 h1:DE$(I) rR%11430 |R%8430 R%10450 R%21450 R%27ė:80 340I120 II1:120$ I3I1:1203 II1:120H JI:K4:I1290^ I2J5:K7:290k J8:K10v "972,0 ,PN$MC$(I)::510: 6IJK:DE$(I):I9 @::"USE ARROW KEYS TO MAKE SELECTION, AND ":SP$:"PRESS . TO GO BACK TO ME " f% nI1B xITB%1:1::MC$(I);:] X%(16384):16368,0y R$:R%(R$):R%13260 ITB%1:1:MC$(I) R%11220 R%8220 R%10240 R%21240 R%27ĺDK$;"RUN HELLO" 120 I1I3:N$(I),DE$(I):I:DK$;"CLOSE"2 PPN$"REVIEW":510P ZTB%:1:I13:MC$(I):I d::"TO REVIEW SELECTED PROGRAMS, USE ARROW ":SP$:"KEYS, PRESS . ":SP$ e"TO REVIEW ENTIRE DEMONSTRATION, PRESS ":SP$:". (1)"CURRENT MENU":MC$(2)"MONTHLY MENU":MC$(3)"OCCASIONAL MENU" <DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":V$(0):I1(V$(0)):V$(I):I:DK$;"CLOSE SYSFIL" FVS$V$(1):VD$V$(2):VC$V$(7):W40 KDK$;"OPEN TABLE":DK$;"READ TABLE":N%:Z$:I1N%:P] PROGRAM NAMED REVIEW(V$(21)DPN$(11),DE$(11),MC$(3)S(DK$(4):u*SP$"":I139:SP$SP$" ":I-TB%6:(975)0Ĺ975,0:TB%10::"THIS COMPLETES THE DEMONSTRATION OF ":SP$:"ARCHIMEDES' BOOKKEEPER "::A 2MC$     12l L8ĭN5N3:NN3#n 3112p RT%1::12:"PRESS RETURN AT END OF ENTRY."::"PRESS ESC TO RETURN TO DISPLAY WITHOUT":"ALTERING EXISTING ENTRY."r 1:1:N93200t N21İ29000:3210v PIN8:28000:3210 N20000,21000,22000,23000,23$"2"N6X 3112"Z N23174;[ NL:NNL:L213166K\ BG%13112]] NNNN1:3112k^ L33112` L5NN4:3112b NNL2:BG%13112d NN1:NNNN1:3112f NN1:NNNN1:N83178h BG%0N7:NN7:3112j L5ĭN4N3:NN3:313134 < "PREV. ";FM$(0);TB%);,> D$(N);<@ R%273270LB R%113162[D R%83162kF R%103146|H R%213112J NLNN2:N2:3112L NNNN1:NN1:N83156N BG%13112P L21NN1:3112R 3146T L213112 V N4N5:M2%( NN:1::N3ĺC$(N);3);:3122<* N9ĺC$(N);:3120W, N21ĺFM$(N8);:3120m. "PREV. ";FM$(0);y0 TB%);2 D$(N);:4 R$:R%(R$):R%1331846 NN:1:N3ĺC$(N);3);:31348 N9ĺC$(N);TB%);:3134: N21ĺFM$(N8);TB%);:M%TP%(OI%) ER%25070- ER%0541003 > 30000[ L21:(V$(6),1)"H"L8 M3$"2"L5:(V$(6),1)"H"L3" 22$ "USE ARROW KEYS TO CHOOSE DATA TO BE":"CHANGED, AND THEN PRESS RETURN.":"PRESS ESC WHEN FINISHED.";:N2& NNOUS MONTHS":51800$fRL$"N"21679pPI112:28000:ArPILu29000WwFO%1z47000:TP%(OB%)TM%:60300:60130:47500:3100 FC3::A$(2) :Q$"ENTER ACCOUNT NO.: " 20000:(R$)0ı 47500 M3(M3$):M5(M5$)  T00  22000A%(V$(6),1)"H"M5$"1":M5(M5$):M4$" ":2110T'M3$"2"2100_*23000j424000}>M3$"2"2167C25000H26000MBG%02135R27000W(V$(6),1)"H"2167\:Q$"DO YOU WANT TO ENTER AMOUNTS"(13)"FOR PREVITS.":"RUN CUSTOMIZE TO ALLOW MORE."O"PRESS 'RETURN' TO ACKNOWLEDGE.";R$:Z20000i(R$)0ıt47400ER%22060ER%3ĺ:"ACCOUNT ALREADY EXISTS."::54100 M1$(M1)I116:J02:MA%(I,J)0:J:ITM%02105000-DK$;"FRE":I1200:JJ:I:1050?FC1::A$(1)^(970)1ĭ(970)22006SR%SR%1:SR%1ĺ:"DISK IS FULL. RUN POST JOURNAL TO":"GENERAL LEDGER TO MAKE SPACE."::2008NR%AC%12010$:"WE ARE LIMITED TO ";AC%;" ACOUN1):1:A$(I)BR%2719900-GR%111125<LR%81125LQR%101115]VR%211080p[I5I1:1080`II1:1080eI1I5:1080jII1:1080tI1İ2000:1180~I2İ3000:1180I3İ4000:1180I5I6::A$(5):51000:J:I, .10:1:A$(1)::A$(2)::A$(3)F 0:A$(4)::A$(5):I1 3:"USE ARROW KEYS TO MAKE SELECTION,"::"AND THEN PRESS RETURN."::"TO RETURN TO MENU CHOICES, PRESS ESC." 892(I1):1::A$(I);: =R$:R%(R$):R%131140 ?92(I"DECEMBER"/ TP%((VD$,2))1:TP%0TP%12C FM$(0)MO$(TP%)O I112m FM$(I)MO$(FM%):FM%FM%1 FM%12FM%1 I 46000 (970)1ĭ(970)21050 SR%4(280256(972)(971)) FC1::50200 $I118:J02:MA%(I,J) XCE$(13)"ENTER: "+ MO$(1)"JANUARY"A MO$(2)"FEBRUARY"T MO$(3)"MARCH"g MO$(4)"APRIL"x MO$(5)"MAY" MO$(6)"JUNE" MO$(7)"JULY" MO$(8)"AUGUST" MO$(9)"SEPTEMBER" MO$(10)"OCTOBER" MO$(11)"NOVEMBER" MO$(12)PN$MC$(3):1160::IJK:DE$(I):I:1210E:(W(VC$))2);VC$](W(VS$))2);VS$u(W(PN$))2);PN$(W(VD$))2);VD$L2:IJ1L5::DE$(I):12:"PRESS WHEN READY TO GO AHEAD.";R$62:"LOADING PROGUST BE DONE, IN"::"ORDER TO DESCRIBE YOUR PRINTER, AND TO"::"ENTER YOUR NAME. THIS IS NOT NECESSARY"G:"FOR THIS DEMONSTRATION. THE NEXT THING"L:"WILL BE TO PRINT A CHART OF ACCOUNTS."::"PRESS WHEN READY TO GO AHEAD.";:R$:+V6368,0:A$::A$::READY TO GO AHEAD.";R$($ :DK$;"PR#3".$ B$ I1500:II:IU$ (974)23080_$ 3090$ (974)3ĺ"SWITCH TO 40 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.":DK$;"PR#0":DK$;"IN#0":"";R$:3080$ :(27);(17):DK$;"IN#0"% 80:DK$;"PR#3"/I12000:II:IB(974)21770KDK$(974)3ĺ"SWITCH TO 40 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.":DK$;"PR#0":DK$;"IN#0":1780:1770:(27);(17):DK$;"IN#0"X%(16384):1P$(27)1680^DK$;"PR#1":%h9rFP$(27)1730I|DK$;"PR#0"Ob(974)21720DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"(974)3ė::"SWITCH TO 80 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. ";::17V$(I):I:DK$;"CLOSE SYSFIL"%W407FM%(V$(19))EVD$V$(2)]VS$V$(1):VC$V$(7)w:(W(VC$))2);VC$(W(VS$))2);VS$(W(PN$))2);PN$"(W(VD$))2);VD$,:6FP$(27)LC65@FLC65::FJLC0: TF" "Z$(Z$,2):11856J6(Z$):H6J6:M1ELJ6J6eZ$(J6):(Z$,(Z$)2,1)"."Z$Z$".00"sZ$"$"Z$(Z$)12Z$" "Z$:1210X%(16384):16368,0:PR%0DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":N$V$(0)N$:I1(N$):"--------------";6)"--------------";0:LC66$NLDK$;"READ GLB":Z$yVM1$(Z$,5):M2$(Z$,6,25):M3$(Z$,1)`M1(M1$):M3(M3$):IIII1jM1IL1100tI1~M1$AC$(I)1180II1:I71150J60:Z$TA$(I)(Z$,1)(VC$))2:WS);VC$;WS12);:PGPG1:"PAGE ";PGG(W(PN$))2);PN$Q$"FOR "(PP%3)" MONTHS":PP%4Q$(Q$,(Q$)1)Q$Q$" ENDING "VD$(W(Q$))2);Q$25);6);"THIS MONTH";10);"YEAR-TO-DATE";25);%5);ATIONS ":SP$:"FROM WHICH THEY CAN LATER BE RETRIEVED,":SP$:"AND CLEARS THE RECORDS FOR A NEW MONTH.">:"PRESS TO GO AHEAD. ";::1780B(972)1Ĺ972,0C:"LOADING REVIEW PROGRAM":DK$;"RUN REVIEW"W80/WS(WBLE"2 W40:PN$MC$(2):1460::I57:DE$(I):IC*9::DE$(7)4::"THIS FINAL PROGRAM REQUIRES NO FURTHER ":SP$:"ACTION ON THE PART OF THE USER. THE ":SP$:"PROGRAM AUTOMATICALLY MOVES THE ":SP$j9"CURRENT MONTH'S FIGURES TO LOC(972)0835$ PN$(11),DE$(11)m MC$(1)"CURRENT MENU":MC$(2)"MONTHLY MENU":MC$(3)"OCCASIONAL MENU" X%(16384):16368,0 DK$;"OPEN TABLE" DK$;"READ TABLE" NU% DS$ I1NU% PN$(I),DE$(I) IDK$;"CLOSE TALC56İ1590:270 v280$ 25);T 5);"==============";6);"==============";n LCLC1::1590:1650 DK$;"CLOSE" :"PRESS TO GO AHEAD ":"OR PRESS TO LOOK AT THIS AGAIN. "::1780:A$(27)130 MC$(3) 25);: 5);"--------------";6);"--------------";@ V M2$;25(M2$));n SF%1:M1IHSF%1 M3MLMLM3:M1IHSF%1 J6TY(M3):SF%0J6J6 1195:5);Z$; &8);Z$; :: DOIM321 NTY(OI)0:OI lLCLC3:1100 ,M31340 6M2$< @LCLC1:LC56İ1590:270E J280T TM32450b ^J60280x rM2$;25(M2$)); |5);Z$;8);Z$ OI39 TY(OI)TY(OI)H6 OI LCLC1:LC60İ1590:270 280 TY(M3)0280 M139000280)% DK$;"OPEN GLT":DK$;"READ GLT"F I16:AC$(I):Z$:TA$(I):g DK$;"CLOSE":DK$;"OPEN GLB"z MO((VD$,2)) PP%(MOFM%12)12:PP%(MOFM%12)12PP%4 M1IL:II1:1100 1620  940 II67640 "M1ILM10:300 ' PROGRAM NAMED --- IS5AC$(6),TA$(6),TY(9)AV$(21)M2PC$(2)o7SP$"":I139:SP$SP$" ":I|<DK$(4)FPN$"INCOME STATEMENT"K(972)1690P1460ZFP$((973))nIL(V$(14)):IH(V$(15)) xEL(V$(16)):EH(V$(17)     U$,1)" J620:DD$(J)" ":J%" @"d X%(16384):16368,0q"n DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":V$(0)"x I1(V$(0)):V$(I):I:DK$;"CLOSE SYSFIL"" W40" FM%(V$(19)) # VD$V$(2):I02:PC$(I)"":J1(V$(I3))23:O5%((V$(I3),"CLOSE CHKFMT"!` F!j DK$;"READ PAY,R";R:BU$:DK$:D$(2)(BU$,30)p!t D$(3)(BU$,31,30):D$(4)(BU$,61,30)!~ D$(5)(BU$,114,12)! D$(6)(BU$,1)! ! DD$(1)VD$:DD$(2)(BU$,91,18)! DD$(3)(BU$,109,5):DD$(4)(BU$,114,12)" DD$(5)(BAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERM  I110:U$(I):Id  I110:TN$(I):Iz $ I18:TW$(I):I . I112:DT$(I):I 8 DK$;"OPEN CHKFMT":DK$;"READ CHKFMT" B AN$(1):Z$ L I18:J13:Z$:XY%(I,J)(Z$):J:I!V DK$;2000:II:I(974)21770(974)3ĺ"SWITCH TO 40 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. ":DK$;"PR#0":DK$;"IN#0":1780:1770:(27);(17):DK$;"IN#0"X%(16384):16368,0:A$::hrFP$(27)1730(|DK$;"PR#0".A(974)21720pDK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"(974)3Ğ:"SWITCH TO 80 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. "::1780:DK$;"PR#3" I1AD SYSFIL":N$DV$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"MW40zFM%(V$(20)):OK(FM%),OK%(FM%),TP%(FM%)VD$V$(2)VS$V$(1):VC$V$(7)6FP$(27)LC64@FLC64::FJLC0:TFP$(27)1680^DK$;"PR#1":0:(Z$TA$(I):J6(Z$):M1AHJ6J62N0:>J6J6NmZ$(J6):(Z$,(Z$)2,1)"."Z$Z$".00" J60Z$"-$"(Z$,2):1310Z$"$"Z$(Z$)12Z$" "Z$:1310(X%(16384):16368,0:PR%0DK$;"OPEN SYSFIL":DK$;"RE8W805BWS(W(VC$))2:WS);VC$;WS12);"PAGE 1"ML(W(PN$))2);PN$eV(W(VD$))2);VD$p`LC3:DK$;"READ GLB":Z$M1$(Z$,5):M2$(Z$,6,25):M3$(Z$,1)M1(M1$):M3(M3$):I1M1$AC$(I)1220II1:I71190J6);" =============="; LCLC1& C 1590:1650:DK$;"CLOSE" :"PRESS TO GO AHEAD ":SP$:"OR PRESS TO LOOK AT THIS AGAIN. "::1780:A$(27)220 $:"LOADING PROGRAM ---":"INCOME STATEMENT" .DK$;"RUN IS"); J6T(M3) 1280:Z$, M1CL700; M1CI700I :LCLC1U LCLC1e OIM321q T(OI)0y OI 280 FIRST0 61);" ==============";  :LCLC2 TAT(9) OI19 *T(OI)0 4OI >  61LC2 280 M32520. T(M3)06307 280Z M1REJ6TA:NT(9):1270:550h J60280r &MTJ6 0M2$;PC(M2$)); :Z$ DOI39 NJ6T(OI):NMT:1270:T(OI)J6 XOI bLCLC1:LC60İ1590:260 l280 vM2$;PC(M2$) :M35PC61( @M1AHĭFIRST0İ7507 JM31480F TM1AL390U ^M1CL390^ hM2$| rLCLC1:LC60İ1590:260 |280 I2511 (M2$,I,1)" "420 I T40 TI2);M2$ T15);" -------------------------" LCCL(V$(12)):CI(V$(13))+ RE(V$(18))6 NR%67Z DK$;"OPEN GLT":DK$;"READ GLT"| I16:AC$(I):Z$:TA$(I):I DK$;"CLOSE" M4$" " I09:T(I)0:I FIRST1 1620:1080 1160 ,M1CI1010 6PC28 8M32PC43  PROGRAM NAMED --- FN&T(9)2DE$(8)>(V$(21)Q2AC$(6),TA$(6)]<PC$(2)jFDK$(4)|KFP$((973))PPN$"FINANCIAL REPORTS":1470ZSP$"":I139:SP$SP$" ":IdPN$"BALANCE SHEET"nAL(V$(10)):AH(V$(11))      X%(16384):16368,0:D"IN#0" /X%(16384):16368,0:A$::D. "::1780:DK$;"PR#3"$9I12000:II:IL:(12):1770_(974)21770(974)3ĺ"SWITCH TO 40 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. ":DK$;"PR#0":DK$;"IN#0":1780:1770:(27);(17):DK$;LC0:TFP$(27)1680,^DK$;"PR#1":2hFrFP$(27)1730V|DK$;"PR#0"\o(974)21720DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0" (974)3Ğ:"SWITCH TO 80 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEA2):I02:PC$(I)"":J1(V$(I3))23:O5%((V$(I3),J,3)):PC$(I)PC$(I)(O5%):J:IpVS$V$(1):VC$V$(7):(W(VC$))2);VC$(W(VS$))2);VS$"(W(PN$))2);PN$,(W(VD$))2);VD$:6FP$(27)LC64@FLC64::FJSLOT ASSIGNMENTS *" S2$:S1$  (4);"PREFIX":PR$ 2940 D$(4):IN6:UP11:C$" " 2750 8::"YOUR OPTIONS ARE:"% IN:Z$!(Z$)12Z$" "Z$:1310'(HX%(16384):16368,0:PR%0vDK$;"OPEN SYSFIL":DK$;"READ SYSFIL":N$V$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"W40FM%(V$(20)):OK(FM%),OK%(FM%),TP%(FM%)FM%(V$(19))XVD$V$(:M2$(Z$,6,25):M3$(Z$,1)7M1(M1$):M3(M3$):I1LM1$AC$(I)1220`II1:I71190kJ60:Z$TA$(I):J6(Z$):M1AHJ6J6N0:J6J6NZ$(J6):(Z$,(Z$)2,1)"."Z$Z$".00" J60Z$"-$"(Z$,2):1310Z$"$"650:DK$;"CLOSE" G $:"LOADING PROGRAM ---":"INCOME STATEMENT"Y .DK$;"RUN IS"b 8W80 BWS(W(VC$))2:WS);VC$;WS12);:PGPG1:"PAGE ";PG L(W(PN$))2);PN$ V(W(VD$))2);VD$ `LC3: DK$;"READ GLB":Z$M1$(Z$,5)1CI700 :LCLC1" LCLC12 OIM321> T(OI)0F OIO 280[ FIRST0x 61);" ==============";~  :LCLC2 TAT(9) OI19 *T(OI)0 4OI >  61);" =============="; LCLC1  1590:1280' M1REJ6TA:NT(9):1270:5505 J60280? &MTJ6U 0M2$;PC(M2$));] :Z$i DOI39 NJ6T(OI):NMT:1270:T(OI)J6 XOI bLCLC1:LC60İ1590:260 l280 vM2$;PC(M2$)); J6T(M3) 1280:Z$ M1CL700 M480 TM1AL390" ^M1CL390+ hM2$I rLCLC1:LC60İ1590:260R |280a I2511z (M2$,I,1)" "420 I T40 TI2);M2$ T15);" -------------------------" LCLC2 280 M32520 T(M3)0630 (V$(13)) RE(V$(18))% NR%67I DK$;"OPEN GLT":DK$;"READ GLT"k I16:AC$(I):Z$:TA$(I):I| DK$;"CLOSE" M4$" " 1620:1080 1160 ,M1CI1010 6PC28 8M32PC43 :M35PC61 @M1AHĭFIRST0İ750 JM310  PROGRAM NAMED --- FN&T(9)2DE$(8)>(V$(21)Q2AC$(6),TA$(6)]<PC$(2)jFDK$(4)|KFP$((973))PPN$"FINANCIAL REPORTS":1470dPN$"BALANCE SHEET"n1550xFIRST1AL(V$(10)):AH(V$(11)) CL(V$(12)):CI     (I3),J,3)):PC$(I)PC$(I)(O5%):J:I>VS$V$(1):VC$V$(7)X:(W(VC$))2);VC$p(W(VS$))2);VS$(W(PN$))2);PN$(W(VD$))2);VD$:X%(16384):16368,0:(W(PN$))2);PN$(W(VD$))2);VD$:16384):16368,0:PR%0DzDK$;"OPEN SYSFIL":DK$;"READ SYSFIL":N$zV$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"W40AC%(V$(20)):OK(AC%),OK%(AC%),TP%(AC%)FM%(V$(19))&VD$V$(2):I02:PC$(I)"":J1(V$(I3))23:O5%((V$  TB%27&*X%(16384):16368,0]4D$(1)(BU$,5):D$(2)(BU$,6,25):D$(3)(BU$,31,1)|>I12:C$(I);3);D$(I):IHC$(3);TB%);D$(3)RD$(7)"0.00"S(D$(7))12D$(7)" "D$(7):851\I12:C$(I5);TB%);D$(I5):IfpX%(AVE A BUDGET?"::::"PRESS WHEN READY TO GO AHEAD.";R$:u:"LOADING REVIEW PROGRAM":DK$;"RUN REVIEW"DK$;"OPEN GLB":DK$;"READ GLB":Z$:Z$ DK$;"CLOSE"DK$;"OPEN GLT":DK$;"READ GLT":A$:A$:D$(6):DK$;"CLOSE"BU$Z$:114:C$(3)1010K18:"PRESS WHEN READY TO GO AHEAD.";R$::"SPECIAL SYSTEM FEATURES"::"BOOKKEEPER LEVEL":6I78:C$(I)::I6::C$(7)1010C16:"FOR THIS CHOICE, THERE IS ONE OPTION: ":::"DO YOU WISH TO H OBTAINED FROM THE ""PRINTER'S MANUAL MAY BE ENTERED. IN ":"ALL CASES, THE FINAL STEP IS A TEST ":"WHICH MAY BE RUN TO PROVE THE SET-UP. "1010"PRESS WHEN READY TO GO AHEAD.";R$::96010:I13:C$(I)::I :E FOLLOWING"a3:"EPSON PROTOTYPE"::"APPLE IMAGEWRITER PROTOTYPE"::"NEITHER OF THE ABOVE"16::"ONE OF THE FIRST TWO CHOICES WILL WORK ":"FOR MOST PRINTERS. IF NEITHER WORKS, ":"A MANUAL WIDTH SWITCH MAY BE USED, OR ":"PROGRAMMING CODES"FURTHER CHOICE IS REQUIRED. IF 8-1/2 ""WIDE PAPER IS CHOSEN, THE MEANS OF ":"OBTAINING 132 CHARACTERS PER LINE MUST ":"BE DETERMINED. ":"PRESS WHEN READY TO GO AHEAD.";: 1010:R$:::"CHOOSE ONE OF THG"l10:I13:C$(I)::I.v:12:C$(2)8{1010o18:"PRESS WHEN READY TO GO AHEAD.";R$::"CHOOSE THE PAPER WIDTH TO BE USED:":3:"8-1/2 INCHES WIDE."::"11 INCHES WIDE.")16::"IF 11 INCH WIDE PAPER IS CHOSEN, NO "::I810:DE$(I):I%09::DE$(10)\:16:"PRESS WHEN READY TO GO AHEAD.";R$:|DPN$"CUSTOMIZING MENU":960XC$(1)"NEW NAME":C$(2)"NEW PRINTER SET-UP":C$(3)"NEW SYSTEM FEATURES"bC$(7)"HOME BOOKKEEPING":C$(8)"BUSINESS BOOKKEEPIN)J MC$(1)"CURRENT MENU":MC$(2)"MONTHLY MENU":MC$(3)"OCCASIONAL MENU"e X%(16384):16368,0{ DK$;"OPEN TABLE" DK$;"READ TABLE" NU% DS$ I1NU% PN$(I),DE$(I) I DK$;"CLOSE TABLE" W40:PN$MC$(3):960&960' 10:1:A$(6)::A$(7)::A$(8)1 1010 18::"THESE ARE SHOWN ONLY TO INDICATE ":"FEATURES. NONE WILL BE DEMONSTRATED. ":"PRESS WHEN READY TO GO AHEAD.";R$::I4:X%0:210 (972)0760 MC$(3) PN$(11),DE$(11NT NO.: ";5 "I13:(X$,I,1);:J150:JJ:J:I:Q 'X$"105"X$"101":310Z ,320 616:"ACCOUNT DOES NOT EXIST.":I1500:II:I:270 @:770 O1010 T"PRESS WHEN READY TO GO AHEAD.";R$ ^410 hRL$"Y"ı r280 |NTH"* C$(7)"YTD AMT BEFORE THIS MONTH"2 I5; 960_ 10:1:A$(1)::A$(2)::A$(3)u :A$(4)::A$(5) 102(I1)::A$(I) 20:"PRESS WHEN READY TO GO AHEAD.";R$: I5380 X$"105" :A$(4) :"ENTER ACCOU AT AN ACCOUNT"( nA$(5)"REMAKE FILES"J xA$(6)"RESTORE ACCOUNT INDEX"g A$(7)"MAKE NEW JOURNAL" A$(8)"MAKE NEW GENERAL LEDGER" C$(1)"ACCOUNT NUMBER" C$(2)"DESCRIPTION" C$(3)"NO. FOR TYPE OF ACCOUNT" C$(6)"CHANGE FOR THIS MO PROGRAM NAMED --- AM/C$(21),D$(21)AV$(21),P$(7)N(DK$(4){2PN$"GENERAL LEDGER ACCOUNT MAINTENANCE"<880A(972)1580FA$(1)"ADD A NEW ACCOUNT"PA$(2)"CHANGE AN ACCOUNT"ZA$(3)"DELETE AN ACCOUNT" dA$(4)"LOOK          :I I110:TN$(I):I0$ I18:TW$(I):IG. I112:DT$(I):Iq8 DK$;"OPEN CHKFMT":DK$;"READ CHKFMT"B AN$(1):Z$L I18:J13:Z$:XY%(I,J)(Z$):J:IV DK$;"CLOSE CHKFMT"` j DK$;"READ PAY,R";R:BU$:DK$:D$(2)(BU$,30)tU TEN,ELEVEN,TWELVE,THIRTEEN,FOURTEEN,FIFTEEN,SIXTEEN,SEVENTEEN,EIGHTEEN,NINETEEN TWENTY,THIRTY,FORTY,FIFTY,SIXTY,SEVENTY,EIGHTY,NINETY JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER I110:U$(I)fC$(6);TB%);D$(6)p(:3:I%1?E$(1);2);DD$(I%)XE$(2);5);DD$(I%1)sE$(3);TB%);DD$(I%2)E$(4);TB%);DD$(I%3)E$(5);TB%);DD$(I%4)I%I%5:I%212220 ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINEEE";24);"AMOUNT";5);"PAY?"x"-------";1);"-------------------------------------------";3);"---------";3);"----" :LC%7: 1*TB%27>C$(2);(13);D$(2)H4:C$(3);(13);D$(3)RC$(4);(13);D$(4)\C$(5);TB%);D$(5) CT%21990(J2CT%FS%(I));C$(J);3);AM$(J)aLC%LC%1:CC%CC%1:JS%(I));"TOTAL";17);D$(7);:LC%LC%1:CC%CC%1(80(VC$))2);VC$(80(Q$))2);Q$(80(VD$))2);VD$:"ACCOUNT";19);"PAY%L%(I)CC%:(974)0J%25:J1J%::LC%LC%1:JYDCC%L%(I):IX%(I)7İ1950:1890NIX%(I)6ĺ(80(D$(CX%)))2);D$(CX%);:1890XS%(I));D$(CX%);bPX%CX%lII1:CX%IX%(I):I81820vJ%L%(8):(974)0J%LC%ILC%1J%::I(Z$)3):Q%117909D$(6)"MILLION "D$(6):Q%2:1580gD$(6)"---"D$(6)"---":LC%1:1800:1940I1:CX%IX%(1):L%(1)41860J1L%(I)2::LC%LC%1:J:1860L%(I)01900&L%(I)CC%ĺS%(I)S%(I1)(D$(PX%)));D$(CX%);:18900J)(Z$)31790(Z$(Z$,(Z$)2)EI((Z$,1))1:I11720gD$(6)U$(I)" HUNDRED "D$(6)y(Z$)31790Z$(Z$,(Z$)2):Q%01760(Z$)3ĭ(Z$,3)"000"1760D$(6)"THOUSAND "D$(6):Q%1:1580(Z$)41790Z$(Z$,,I((Z$,1))1,6B$" ":(Z$)21660Q@A$(Z$,(Z$)1,1):A$"1"1630zJD$(6)TN$(I)" "D$(6):(Z$)31790T1690^A$"0"1680hI1B$"-":1660r1670|D$(6)U$(I)" "D$(6):(Z$)21790I(A$)1:D$(6)TW$(I)B$D$(6,J1:DK$;"RUN PO")Z$D$(5):I1:X(0)6D$(1)D$U(Z$,I,1)"0"II1:1520}Z$(Z$,I):D$(7)D$(5):D$(5)"$"Z$(D$(5))11D$(5)" "D$(5):1540XY%(8,3)0D$(6)"":1790D$(6)"AND "(Z$,2)"/100THS":Q%0"Z$(Z$,(Z$)3)":1600:1590,,:(27);(17):DK$;"IN#0"26U@X%(16384):16368,0:A$::"IN#0"e6@X%(16384):16368,0:A$::к:,:(27);(17):DK$;"IN#0"6@X%(16384):16368,0:A$:: 80 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. "::1600d:DK$;"PR#3"jI12000:II:I(974)21590 "(974)3ĺ"SWITCH TO 40 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.":DK$;"PR#0":DK$;"IN#0(VD$))2);VD$x+FP$(27)LC%62>FLC%63::FJLC%0:^FP$(27)1500pDK$;"PR#1":vFP$(27)1550DK$;"PR#0"(974)21540DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"R(974)3ė::"SWITCH TOK)SM(K)J6J:HDK$;"OPEN SYSFIL":DK$;"READ SYSFIL":N$~V$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"(W40<VD$V$(2)FVC$V$(7):VS$V$(1)P:(W(VC$))2);VC$Z(W(VS$))2);VS$d(W(PN$))2);PN$n(W;PN$(6))DK$;"READ JOURNAL,R";OI:BU$nCT%0:J411:AN$(J)(BU$,4217(J1),5):(AN$(J),1)"1"960CT%0CT%JAM$(J)(BU$,4717(J1),12)JJ1CT%:K1AN$(J)AC$(K)1000KK1:KRG%1980J6(AM$(J)) SM(AIN PRINTED FINANCIAL REPORTS, ":SP$:"PRESS . "::"TO LOOK AT THESE PAGES ON THE MONITOR "rSP$:"SCREEN ONLY, PRESS ";:1600:973,(A$)uz:"LOADING PROGRAM ---":DE$(6)DK$;"RUN ""::?h:"PRESS TO SEE THE REPORTS MENU.";::1600j:::"BALANCE SHEET AND INCOME STATEMENT(S)"::"BALANCE SHEET ONLY":"INCOME STATEMENT(S) ONLY"::l:"WITHOUT LAST YEAR'S FIGURES"::"WITH LAST YEAR'S FIGURES"::p:"TO OBTSP$:"WHEN THE FINANCIAL REPORTS PROGRAM IS ":SP$:"SELECTED, THE BOOKKEEPER ISSUES THIS ":SP$f"WARNING: ":::"THE FINANCIAL REPORTS WILL BE INCORRECT":"UNLESS THE JOURNAL HAS BEEN POSTED TO":"THE GENERAL LEDGER.$(2)"MONTHLY MENU":MC$(3)"OCCASIONAL MENU"GX%(16384):16368,0]DK$;"OPEN TABLE"s DK$;"READ TABLE"|NU% DS$*I1NU%4PN$(I),DE$(I)>IHDK$;"CLOSE TABLE"RPN$MC$(2):1300c\:DE$(5)::DE$(6)::DE$(7):::{:"PRESS TO GO AHEAD, ":"OR PRESS TO LOOK AT THIS AGAIN. "::1600:A$(27)PG0:280(972)0ė:"LOADING REVIEW PROGRAM":DK$;"RUN REVIEW"VS$"MENU CHOICES"PN$(11),DE$(11),MC$(1)"CURRENT MENU":MCOI)Z$J1500:JJ:J#DK$-OI:6I%0N&I%I%1:I%RG%710i0M2$NM$(I%):K1$"0.00":(K1$)12K1$" "K1$:570DK2$TA$(I%):K3$K2$NM1$(AC$(I%),3)M1$;7(M1$));M2$;2);K1$;2);K2$;2);K3$LC%LC%1550ANCE"|:LC%7:'DK$;"OPEN GLT"5OI1RG%f14:1:868:"POSTING ACCOUNT NO. ";AC$(OI)Z$(SM(OI)):(Z$,(Z$)2,1)"."Z$Z$".00"(Z$)12Z$" "Z$:430DK$;"WRITE GLT"(34);AC$(OI):(34);NM$(OI):(34);Z$TA$(PG1:P$"GENERAL LEDGER CHANGES"9 J(80(VC$))2);VC$` T(80(P$))2);P$;10);"PAGE ";PG ^(80(PN$))2);PN$:(80(VD$))2);VD$ h:"ACCOUNT";31);"PREVIOUS";23);"NEW"r"NUMBER ";9);"DESCRIPTION";12);"BALANCE";8);"CHANGE";7);"BALAIN A PRINTED VERSION OF CHANGES ":SP$:"TO THE GENERAL LEDGER, PRESS . ":SP$:"TO LOOK AT THIS PAGE ON THE MONITOR ":SP$ "SCREEN ONLY, PRESS . ":SP$;::1600:FP$A$ 1440:320:540 ,1410:1470 6720 @PGLEDGER..." 390$ DK$;"CLOSE" ::SP$:"WHEN POSTING IS COMPLETED, THE PROGRAM ":SP$:"PRINTS OUT THE GENERAL LEDGER CHANGES. ":SP$:: "PRINTER MUST BE ON AND READY.":"PRESS TO INDICATE THAT IT IS.": :SP$ :"TO OBTӧҢ΢ҠŢԢ٢(4):IN6:UP11:C$" " 2750 8::"YOUR OPTIONS ARE:"% IN: ": DK$;"OPEN JOURNAL,L128":DK$;"READ JOURNAL,R0":BU$N JB%((BU$,5))r OI1JB%:X(16384):16368,0 14:1:868:"WORKING ON ENTRY NO. ";OI J1250:JJ:J 920:OI DK$;"CLOSE JOURNAL" 10:1:958:"POSTING TO GENERAL SUMS UP ENTRIES BY ACCOUNT NUMBER":SP$X K"AND POSTS THE NET CHANGES TO THE LEDGER":l NJ1500:JJ:Jr O P10:"COLLECTING AMOUNTS FROM JOURNAL..." ZRG%6 dDK$;"OPEN GLT":DK$;"READ GLT" nI16:AC$(I):NM$(I):TA$(I):I:DK$;"CLOSEV PROGRAM NAMED --- PJ/V$(21),PC$(2);MC$(3)](SP$"":I139:SP$SP$" ":I}2SM(6),AC$(6),NM$(6),TA$(6)<DK$(4)' F::SP$:"POSTING THE JOURNAL TO THE GENERAL ":SP$:"LEDGER IS DONE INTERNALLY BY THE SYSTEM":SP$:"WHICH           :"PRINTER MUST BE ON AND READY.":"PRESS TO INDICATE THAT IT IS. ":!:"TO OBTAIN A PRINTED JOURNAL, FOLLOW THE":"INSTRUCTION ABOVE, AND PRESS . "::FP$""-""TO LOOK AT THE JOURNAL ON THE MONITOR ":"SCREEN ONLY, PRESS . :J1(V$(I3))23:O5%((V$(I3),J,3)):PC$(I)PC$(I)(O5%):J:I] <VC$V$(7):VS$V$(1)c A{ F(W(VC$))2);VC$ P(W(VS$))2);VS$ Z(W(PN$))2);PN$ d(W(VD$))2);VD$ n xFP$(27)LC%66 FLC%65::F N!:J1((BU$,5)):LC%((BU$,6,5))&GX%(16384):16368,0:PR%0u DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":N$V$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"W40(MI%(V$(20)):OK(MI%),OK%(MI%),TP%(MI%)E 2VD$V$(2):I02:PC$(I)""44);jJ::~14308(80(VC$))2);VC$h(80(VS$))2);VS$:(80(VD$))2);VD$:2);"DATE";10);"TO/FROM";14);"I.D.";9);"AMOUNT";2);"ACCT #":NR%67 DK$;"OPEN JOURNAL,L128":DK$;"READ JOURNAL,R0":BU$:II1(R$):(R$,I,1);:J150:JJ:J:I:SM(R$,(R$)2,1)"."R$R$".00"cRAM$(CT%)R$\(AM$(CT%))12AM$(CT%)" "AM$(CT%):860fM1(AN$(CT%))pCT%CT%1:8J1$;1);J3$;1);J5$;1);BJ1CT%:Z$AM$(J)VZ$;2);AN$(J):(J5$)8J5$J5$" ":710!y12:"ENTRIES ARE REQUESTED IN THIS ORDER:":"DATE-TO/FROM-I.D.-ACCOUNT NO.-AMOUNT"1:1:C$(1)1:8:868:I18:(J1$,I,1);:J150:JJ:J:I:18:1:958HYYY2CT%:X14:Y:1:C$(5);:X-:15:958P6:X:868:R$"800":I13:(R$,I,1);:J150:JJ:J:I::530f2:1:C$(2);2);I1(J3$):(J3$,I,1);:J150:JJ:J:I:(J3$)25J3$J3$" ":6803:1:C$(3);:I1(J5$):(J5$,I,1);:J150:JJ:J:I::J:I:R$"801"6306(R$)5R$R$"0":530HlAN$(CT%)R$:uv12:958:15:"INVALID ACCOUNT NUMBER."::"THE BOOKKEEPER REJECTS INVALID ACCOUNT ":"NUMBERS. "::"PRESS TO GO AHEAD.";:1590  ";:1590:DK$;"RUN CK""CHECKS HAVE BEEN WRITTEN. ":::"PRESS WHEN READY TO GO AHEAD.";R$::"LOADING PROGRAM ---":"CHECK WRITING":DK$;"RUN CK"YYY2CT%1:X14:Y:1:C$(4);:XI1(R$):(R$,I,1);:J150:JJKING ACCOUNT ":SP$"AND THE CURRENT BALANCE. IN THIS CASE,":SP$:"IT IS POSTPONED UNTIL AFTER THE CHECK ":SP$:"WRITING DEMONSTRATION. "::13:1350::I14:DE$(I):I:18::DE$(1):23:"PRESS TO GO AHEAD. 96VS$V$(1){PN$"CURRENT MENU":DK$;"OPEN TABLE":DK$;"READ TABLE":N%:DS$:I1N%:PN$(I),DE$(I):I:DK$;"CLOSE"::"ORDINARILY THE PRINTING OF THE JOURNAL ":SP$:"WOULD BE FOLLOWED BY A PRINTED UPDATE ":SP$:"OF ANY CHANGES IN THE CHECROGRAM":DK$;"RUN REVIEW"V(973)0ė:"LOADING PROGRAM":973,(FP$):DK$;"RUN ST"::"PRESS TO SEE HOW CHECKS ARE ":"WRITTEN WITH THE BOOKKEEPER "::"OR PRESS TO LOOK AT THIS AGAIN. ";:1590A$(27)ĝ:400:4THE JOURNAL OF ORIGINAL ENTRY,"::"OR PRESS TO LOOK AT THIS AGAIN. ":1590dA$(27)130tFF%1:4501160:10801400:1460FF%0480EE%0310EE%0300400DK$;"CLOSE"::(972)0ĺ"LOADING REVIEW P::11:958T1:1:J1$w^AM$(1)" -3123.59":4:9::I1(AM$(1)):(AM$(1),I,1);:J150:JJ:J:I:::380h:J1$:J3$:J5$:OI1CT%:AN$(OI);3);AM$(OI):OIrw1590R|16::"PRESS TO SEE HOW THIS ENTRY ":"LOOKS ON 770 1780(974)3ĺ"SWITCH TO 40 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.":DK$;"PR#0":DK$;"IN#0":1780:1770:(27);(17):DK$;"IN#0"X%(16384):16368,0:A$::);(17):DK$;"IN#0" X%(16384):ɢ̠à٠ЮϮؠ٠ȠٍŠԠĠϮЮϮؠΠ΍(974)21720HDK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"R1780(974)3ė::"SWITCH TO 80 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. ";::1780:DK$;"PR#3"I12000:II:I(974)21VS$V$(1):VC$V$(7).:(W(VC$))2);VC$F(W(VS$))2);VS$^(W(PN$))2);PN$v"(W(VD$))2);VD$~,:6FP$(27)LC65@FLC65::FJLC0:TFP$(27)1680^DK$;"PR#1":hrFP$(27)1730|DK$;"PR#0",(Z$)2,1)"."Z$Z$".00"*Z$"$"Z$H(Z$)12Z$" "Z$:1210NoX%(16384):16368,0:PR%0DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":N$V$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"W40FM%(V$(19))VD$V$(2)":Z$0VM1$(Z$,5):M2$(Z$,6,25):M3$(Z$,1)P`M1(M1$):M3(M3$):IIII1`jM1IL1100htI1}~M1$AC$(I)1180II1:I71150J60:Z$TA$(I)(Z$,1)" "Z$(Z$,2):1185J6(Z$):H6J6:M1ELJ6J6Z$(J6):(Z$Q$"FOR "(PP%3)" MONTHS":PP%4Q$(Q$,(Q$)1)PQ$Q$" ENDING "VD$f(W(Q$))2);Q$q25);6);"THIS MONTH";10);"YEAR-TO-DATE";25);5);"--------------";6)"--------------";:LC6$LDK$;"READ GLB$(3):1540#z:I810:DE$(I):I47::DE$(8)k16:"PRESS WHEN READY TO GO AHEAD.";R$::"LOADING PROGRAM ---":DE$(8)DK$;"RUN AM"W80WS(W(VC$))2:WS);VC$;WS12);:PGPG1:"PAGE ";PG(W(PN$))2);PN$7ROGRAM":DK$;"RUN REVIEW"6HPN$"MENU CHOICES":1540RR6:1:I13:MC$(I):If\8:1::MC$(3)f16:"OTHER FEATURES OF THE OCCASIONAL MENU ":"WILL BE DEMONSTRATED NEXT. ":"PRESS WHEN READY TO GO AHEAD.";R$: p:PN$MCRES TO LOCATIONS ">"FROM WHICH THEY CAN LATER BE RETRIEVED,":"AND CLEARS THE RECORDS FOR A NEW MONTH.":"IT WILL NOT BE DEMONSTRATED. ":"PRESS WHEN READY TO GO AHEAD.";R$:B(972)1Ĺ972,0C(972)0ė:"LOADING REVIEW PNU% DS$ I1NU%. PN$(I),DE$(I)5 IL DK$;"CLOSE TABLE"z W40:PN$MC$(2):1460::I57:DE$(I):I *9::DE$(7)416:"THIS IS THE FINAL ACTION TAKEN AT THE ":"END OF EACH MONTH. IT MOVES THE ":"CURRENT MONTH'S FIGU============";( LCLC1::1590:16509 DK$;"CLOSE"E MC$(3)W (972)0835l PN$(11),DE$(11) MC$(1)"CURRENT MENU":MC$(2)"MONTHLY MENU":MC$(3)"OCCASIONAL MENU" X%(16384):16368,0 DK$;"OPEN TABLE" DK$;"READ TABLE" M2$;25(M2$));( SF%1:M1IHSF%1G M3MLMLM3:M1IHSF%1c J6TY(M3):SF%0J6J6v 1195:5);Z$; &8);Z$; :: DOIM321 NTY(OI)0:OI lLCLC3:LC56İ1590:270 v280 25); 5);"==============";6);"==590:270 J280 TM32450. ^J60280D rM2$;25(M2$));W |5);Z$;8);Z$c OI39x TY(OI)TY(OI)H6 OI LCLC1:LC60İ1590:270 280 TY(M3)0280 25); 5);"--------------";6);"--------------";  $(I):Z$:TA$(I):3 DK$;"CLOSE":DK$;"OPEN GLB"F MO((VD$,2))v PP%(MOFM%12)12:PP%(MOFM%12)12PP%4 M1IL:II1:1100 1620  940 II67640 "M1ILM10:300 '1100 ,M31340 6M2$ @LCLC1:LC56İ1 PROGRAM NAMED --- IS5AC$(6),TA$(6),TY(9)AV$(21)M2PC$(2)Z<DK$(4)uFPN$"INCOME STATEMENT"K(972)1690P1460nIL(V$(14)):IH(V$(15))xEL(V$(16)):EH(V$(17))DK$;"OPEN GLT":DK$;"READ GLT" I16:AC          ԠŠ٠ЮϮؠΠӠٍ "::"THE SUM OF THE POSITIVE FIGURES MUST ":"EQUAL THE SUM OF THE NEGATIVE FIGURES. "::"THE AMOUNT TAKEN FROM 310 SALARY SHOULD"B"BE LISTED AS A NEGATIVE FIGURE ": J"PRESS WHEN READY TO GO AHEAD. ";:159050":840:R$"101":510:R$"2773.59":840="I11000:II:IZ,TP%0CT%CT%1:TP%CT%k6CT%TP%:360@11:"OUT OF BALANCE BY $6,247.18":"DO YOU WANT TO CORRECT (Y OR N)?":::"('N' DELETES THE ENTIRE ENTRY. 'Y' "A"ALLOWS A CHANGE.) WHICH THE MONEY WAS OBTAINED, AND "SP$:"AS A POSITIVE FIGURE IN THE ACCOUNT (OR":SP$:"ACCOUNTS) WHERE IT IS PLACED. "::"PRESS TO GO AHEAD. ";:1590:R$"801":10:958:510:R$"200"(840:R$"104":510:R$"1T%66::R$"310":510:R$"3123.59":840:22::"PRESS TO GO AHEAD.";:1590:12:958e10$"THE DOLLAR AMOUNT OF EVERY TRANSACTION ":SP$:"IS ENTERED IN AT LEAST TWO ACCOUNTS: ":SP$:"AS A NEGATIVE FIGURE IN THE ACCOUNT ":SP$:"FROMP$:"INFORMATION IS RECORDED THROUGH THE ":SP$:"TRANSACTION ENTRY PROGRAM. ";j1590:vJ1$VD$:TP%0FF%1:730:J3$"THE COMPUTER COMPANY":670J11:LC%12YY3J5$"PAYCHECK":700X1:CT%1:EE%1]YC NEW ":SP$:"CHECKING AND SAVINGS ACCOUNTS. YOU ":SP$:"KEPT $200 IN CASH, DEPOSITED $150 IN ":SP$:"SAVINGS, AND THE REST IN THE CHECKING "^SP$:"ACCOUNT. "::"PRESS TO SEE HOW THIS ":S(27)104 490 :"FROM THE USER'S MANUAL: ":SP$:"IT IS THE FIRST DAY OF THE MONTH. YOUR":SP$:"PAYCHECK, AMOUNTING TO $3123.59 (AFTER ":SP$:"TAXES), IS ISSUED ON THE LAST DAY OF ":SP$"EACH MONTH. YOU JUST OPENED5):(AN$(J),1)"1"125( sCT%0CT%JI xAM$(J)(BU$,17(J1)47,12) }J:J1$(BU$,8):J3$(BU$,9,25):J5$(BU$,34,8):1080:OI:1400:1460 ~:"PRESS TO GO AHEAD, "::"OR PRESS TO LOOK AT THIS AGAIN. ";::1590:A$"CHECK ACCOUNT BALANCE, PRESS ": k"TO LOOK AT THESE PAGES ON THE MONITOR ":SP$:"SCREEN ONLY, PRESS . ";:1590:FP$A$: m1435:1165 nOI1J1:CT%0:DK$;"READ JOURNAL,R";OI:BU$:J411:AN$(J)(BU$,17(J1)42, WRITTEN":SP$:"ARE POSTED AUTOMATICALLY TO THE JOURNAL":SP$:"OF ORIGINAL ENTRY, WHICH IS IMMEDIATELY":SP$, j"PRINTED ALONG WITH A REPORT OF THE ":SP$:"PRESENT STATUS OF THE CHECKING ACCOUNT."::"TO OBTAIN THE PRINTED JOURNAL PAGE AND ":SP$::I ZPN$"TRANSACTION ENTRY"4 _(972)0Ĺ973,0D d1220:1280h fVS$"JOURNAL OF ORIGINAL ENTRY" gJ1(973):J10J11:LC%12:129 h:"REPLACE CHECKS WITH FORM PAPER.":"PRESS WHEN READY."::n i:"THE CHECKS WHICH HAVE JUST BEENJ PROGRAM NAMED --- PO/V$(21),PC$(2)DPN$(11),DE$(11)](S$(9),AN$(8),AM$(8)j2DK$(4)u<C$(6)FC$(1)"DATE: ":C$(2)"TO/FROM: ":C$(3)"I.D.: ":C$(4)"ACCOUNT NO.: ":C$(5)"AMOUNT: "PX1 USP$"":I139:SP$SP$" "             !  ӍՍōōӍՍōٍԍԠӠƠӍՍŠ˭РٍʍԠ̠Ϡ̠ҍ΍̠ӍǍŠ̠ҍ͍̠ҠԠō̠ҠñǍˍˠǍύΠٍԍԠӠƠӍՍˠٍʍԠ̠Ϡ̠ҍ΍̠ӍǍŠ̠ҍ͍̠ҠԠō̠ҠԠ$ǺDK$;"OPEN SYSFIL":DK$;"WRITE SYSFIL":I0(V$(0)):(34);V$(I);(34):I:DK$;"CLOSE SYSFIL"z$.Ǘ:(W(VC$))2);VC$$/Ǻ(W(VS$))2);VS$$0Ǻ(W(PN$))2);PN$$1Ǻ(W(VD$))2);VD$:$DK$;"OPRDF":$DK$;"CLRDF":$DK$;"WRRDF":%I)(O5%):J:I'#VS$V$(1):VC$V$(7)W#ƺDK$;"PREFIX":PX$:PX$(PX$,(PX$)2)"A/"l#ƭ(970)150970#Ǻ:"REPLACE DISK B WITH DISK A.":Q$"THEN PRESS RETURN.":51000#ǺDK$;"PREFIX,D1":DK$;"PREFIX":Z$:Z$PX$50950#ǺDK$;"PREFIX ";PX$`$SFIL""nW40;"oFM%(V$(20)):OK(FM%),OK%(FM%),TP%(FM%)M"pFM%(V$(19))X"xë50180"úDK$;"CMPCT":II$"":MI15:II$II$(D%(MI)):MI"ñ"úDK$;"EXPND""ñ#VD$V$(2):I02:PC$(I)"":J1(V$(I3))23:O5%((V$(I3),J,3)):PC$(I)PC$(Z$" "Z$:31050!Ty/! *** OPEN FILE ***M!FI%1:NA$"GLBOOK":60200Z!γFO%1:m!DK$;"GTREC":!DK$;"GNREC":!PX%(16384):16368,0:PR%0!ZúDK$;"OPEN SYSFIL":DK$;"READ SYSFIL":N$"dV$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SY3:+ bu34);"** THIS MONTH THIS YEAR **";R lu33);"** THIS MONTH LAST YEAR **"] vuLC4:| yJ13:N%(J)MA%(I,J1):J "yDP$"Y":62500:(Z$)1131060 ,y(Z$,1)"."Z$"0"Z$ 6y(Z$,1)"-"Z$"$"Z$:31050 @yZ$"-$"(Z$,2)!Jy(Z$)12ij-DK$;"READ GLBOOK,R";II:IIII1:46000M1$(BU$,5):M1(M1$):M2$(BU$,6,25):M3$(BU$,31,1):M4$(BU$,32,1):M5$(BU$,33,1)M3(M3$):M5(M5$):K1$(BU$,34,12):K2$(BU$,46,12)Z$K1$:48424:I13:J6%(I)N%(I):II13:H7%(I)N%(Q$)1) KuQ$Q$" ENDING "VD$6Nu(W(Q$))2);Q$Au25);lu6);"THIS MONTH";10);"YEAR-TO-DATE";ru}u25);u5);"--------------";6)"--------------";uLC6uBU$"":A$:I1126:A$:A$""A$(102)BU$BU$A$:I:OLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.":DK$;"PR#0":DK$;"IN#0":"";R$:1580|":(27);(17):DK$;"IN#0",6X%(16384):16368,0:5302DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"<1590(974)3ė:"SWITCH TO 80 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.";R$:DK$;"PR#3"I1500:II:I(974)215801590](974)3ĺ"SWITCH TO 40 CS$V$(1)"F:(W(VC$))2);VC$:P(W(VS$))2);VS$RZ(W(PN$))2);PN$jd(W(VD$))2);VD$pnx(974)0LC%66FLC%65::F(974)01490DK$;"PR#1"(974)01540DK$;"PR#0"(974)21N SYSFIL":DK$;"READ SYSFIL":N$VV$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"_W40(MI%(V$(20)):OK(MI%),OK%(MI%),TP%(MI%)2VD$V$(2):I02:PC$(I)"":J1(V$(I3))23:O5%((V$(I3),J,3)):PC$(I)PC$(I)(O5%):J:I<VC$V$(7):V(VD$))2);VD$:?2);"DATE";10);"CONCERN";12);"SPECIFIC";^7);"AMOUNT";2);"ACCT #"f:qNR%67DK$;"OPEN JOURNAL,L128":DK$;"READ JOURNAL,R0":BU$:J1((BU$,5)):LC%((BU$,6,5))X%(16384):16368,0:PR%0  DK$;"OPEM$(2)AN$(3)AM$(3)AN$(4)AM$(4)(BU$,110)HDK$;"WRITE JOURNAL,R1"W(34);BU$`DK$~8J1$;1);J3$;1);J5$;1);BJ1CT%:Z$AM$(J)VZ$;2);AN$(J):44);jJ::~1430:(80(VC$))2);VC$(80(VS$))2);VS$:(80I(974)215901600"(974)3ĺ"SWITCH TO 40 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.":DK$;"PR#0":DK$;"IN#0":1600:1590,:(27);(17):DK$;"IN#0"6@X%(16384):16368,0:A$::50DK$;"PR#0"+(974)21540ZDK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"d1600(974)3ė::"SWITCH TO 80 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. "::1600:DK$;"PR#3"I12000:II::PN$"POST JOURNAL TO GENERAL LEDGER"?P:(W(VC$))2);VC$WZ(W(VS$))2);VS$od(W(PN$))2);PN$n(W(VD$))2);VD$xFP$(27)LM%62FLC%63::FLC%0:FP$(27)1500DK$;"PR#1":FP$(27)15 EXTENT THAT THEY CAN BE":Q$"RECOGNIZED AS SUCH."<1590Q$;38(Q$))::"PRESS WHEN READY TO GO AHEAD.";R$::15:9584:X:868:R$"301":I13:(R$,I,1);:J150:JJ:J:I::5302:1:C$(2);2);I1(J3$):(J3$,I,1YY2CT%1:X14:Y:1:C$(4);:XPI1(R$):(R$,I,1);:J150:JJ:J:I:bR$"300"630~(R$)5R$R$"0":530lAN$(CT%)R$:v12:958:15:"INVALID ACCOUNT NUMBER."2::"THE BOOKKEEPER REJECTS INVALID ACCOUNT":"NUMBERS TO THE MONTH'S ":"CHECKING ACCOUNT CHANGES. THIS WILL BE":"DONE IN THIS DEMONSTRATION AFTER SOME ""CHECKS HAVE BEEN WRITTEN. ":::"PRESS WHEN READY TO GO AHEAD.";R$::"LOADING PROGRAM ---":"CHECK WRITING":DK$;"RUN CK"!Y:DK$;"RUN ST"1590PN$"CURRENT MENU":1350:DK$;"OPEN TABLE":DK$;"READ TABLE":N%:DS$:I1N%:PN$(I),DE$(I):I:DK$;"CLOSE":I14:DE$(I):I:6::DE$(1)b12:"NORMALLY, TRANSACTION ENTRY IS FOLLOWED":"BY A PRINTING OF THE CURRENTGINAL ENTRY" 1160:OI1:89001400:14606EFF%0480TEE%0310cEE%0300l400DK$;"CLOSE"::(972)0ĺ"LOADING REVIEW PROGRAM":DK$;"RUN REVIEW"(973)0ė"LOADING PROGRAM ---":"STATUS OF GENERAL LEDGER ACCOUNTS" -3123.59":4:9::I1(AM$(1)):(AM$(1),I,1);:J150:JJ:J:I:::380h:J1$:J3$:J5$:OI1CT%:AN$(OI);3);AM$(OI):OIr1:1::J1$::w1590|17:"PRESS RETURN WHEN READY TO GO AHEAD.";R$FF%1:450 VS$"JOURNAL OF ORILLOWS A CHANGE. "B:"EACH TRANSACTION MUST ADD UP TO ZERO. ":"IN THIS CASE, THE AMOUNT TAKEN FROM ":"SALARY MUST BE PRECEDED BY A MINUS. "E1590J"PRESS WHEN READY TO GO AHEAD.";R$::11:958T1:1:J1$N^AM$(1)" 0 "I11000:II:I3 ,TP%0CT%CT%1:TP%CT%D 6CT%TP%:360 @11:"OUT OF BALANCE BY $6,247.18":"DO YOU WANT TO CORRECT (Y OR N)"::"A RESPONSE OF WOULD RESULT IN "A"THROWING AWAY THE ENTIRE ENTRY. ":"A RESPONSE OF A0 FF%1:730:J3$"THE COMPUTER COMPANY":670@ J11:LC%12I YY3a J5$"PAYCHECK":700v X1:CT%1:EE%1 YCT%66::R$"300":510:R$"3123.59":840:R$"800":510:R$"200" 840:R$"104":510:R$"150":840:R$"101":510:R$"2773.59":84OPENED NEW"::"CHECKING AND SAVINGS ACCOUNTS. YOU"::"KEPT $200 IN CASH, DEPOSITED $150 IN"::"SAVINGS, AND THE REST IN THE CHECKING"::"ACCOUNT." :"PRESS WHEN READY TO GO AHEAD.";R$:1350 J1$VD$ J3(973):J30190 :TP%0OI:1400:1460:490 6:"FROM THE ARCHIMEDES' BOOKKEEPER MANUAL":"SCENARIO, PART 1.:"::"IT IS THE FIRST DAY OF THE MONTH. YOUR" :"PAYCHECK, AMOUNTING TO $3123.59 (AFTER"::"TAXES), IS ISSUED ON THE LAST DAY OF" :"EACH MONTH. YOU JUST d1220:1280 i(973)0130 n1160:CT%0:OI1J1:DK$;"READ JOURNAL,R";OI:BU$:J411:AN$(J)(BU$,17(J1)42,5):(AN$(J),1)"1"125 sCT%0CT%J xAM$(J)(BU$,17(J1)47,12) }J:J1$(BU$,8):J3$(BU$,9,25):J5$(BU$,34,8):1080: PROGRAM NAMED --- PO/V$(21),PC$(2)DPN$(11),DE$(11)](S$(9),AN$(8),AM$(8)j2DK$(4)u<C$(6)FC$(1)"DATE: ":C$(2)"CONCERN: ":C$(3)"SPECIFIC: ":C$(4)"ACCOUNT NO.: ":C$(5)"AMOUNT: "PX1ZPN$"TRANSACTION ENTRY" (974)01680!^DK$;"PR#1":'h:r(974)01730J|DK$;"PR#0"Pc(974)21720DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"1780(974)3ė:"SWITCH TO 80 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.";R$ :J1CT%:K1#AN$(J)AC$(K)1000:KK1:KRG%1980KJ6(AM$(J))^SM(K)SM(K)J6gJ:mDK$;"OPEN SYSFIL":DK$;"READ SYSFIL":N$V$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"(W40<VD$V$(2)%FVC$V$(7):VS$V$(1) ";:1600:973,(A$)Cz:"LOADING PROGRAM ---":DE$(6)ZDK$;"RUN ";PN$(6)|DK$;"READ JOURNAL,R";OI:BU$CT%0:J411:AN$(J)(BU$,4217(J1),5):(AN$(J),1)"1"960CT%0CT%JAM$(J)(BU$,4717(J1),12)J z#~?}?    Š Π* ̠ˠԠ Ԡˠ$Π)Ԡ Π ŠӠ   ٠Ԡ Ϡ# ʠנ Ӡ Ϡ ̠ ˠ"D$,4,1)):O6%O5%100:O5%O5%100O6%:J2$(O6%)(O5%):O5%((VD$,5,1)(VD$,2)):O6%O5%100:O5%O5%100O6%:J2$J2$(O6%)(O5%)JJ12:RJJ:2410PJ50Z2490:J5(DD$(4)):NJ5dAM$(2)DD$(4):D$(5)DD$(4):C$(2)DD$(2)1500JJ$(1)DT$(I)" ":(VD$,4,1)"0"D$(1)D$(1)(VD$,4,1)YD$(1)D$(1)(VD$,5,1)", 19"(D$(1))14D$(1)" "D$(1):1250D$(1)D$(1)(VD$,2):D$D$(1)I18:S%(I)XY%(I,1):L%(I)XY%(I,2):IX%(I)XY%(I,3):ICN101 O5%((VD$,2)(V:3090:A$(27)ė:900#0:X(0):"IN THE BOOKKEEPER, THIS IS WHERE AN"::"INSTRUCTION TO PLACE CHECKS IN THE "::"PRINTER WOULD APPEAR."::"FOR THIS DEMO, SIMPLY PRESS ."3090R$::29307I((VD$,2)):D"MARKED TO PAY";30);Z$IZ$(J5):(Z$,(Z$)2,1)"."Z$Z$".00"g(Z$)12Z$" "Z$:1172"MARKED NOT TO PAY";26);Z$LC%142900:2960:::"PRESS TO GO AHEAD. "::"OR PRESS TO LOOK AT THIS AGAIN. ";$N(DD$(4))-8DD$(5)"Y"J4J4N:11209LJ5J5NA`JJMjNJ4J5{tZ$(N):(Z$,(Z$)2,1)"."Z$Z$".00"y(Z$)12Z$" "Z$:1145~:"TOTAL";38);Z$Z$(J4):(Z$,(Z$)2,1)"."Z$Z$".00"(Z$)12Z$" "Z$:1162ESS "::"TO LOOK AT THE SUMMARY ON THE MONITOR "~"SCREEN ONLY, PRESS . ":3090:PF$A$:2930Q$"PAYEE SUMMARY":2010J50:J40JJ13:RJJ:2410D$(2);13);D$(5);4);D$(6)2490K1175RITING CHECKS. "::A:(W(VC$))2);VC$:2740^:A$(7)::A$(8)::640::"PRINTER MUST BE ON AND READY.":"PRESS TO INDICATE THAT IT IS.":<:"TO OBTAIN A PRINTED SUMMARY, FOLLOW THE":"INSTRUCTION ABOVE, AND PROWED BY A ":SP$:"DISPLAY OF THE SUCCEEDING PAGES OF THE ":SP$:"RECORD UNTIL THERE ARE NO MORE. ":h"PRESS TO GO AHEAD ":3090:p2730::A$(5)::A$(6)!z:"A PAYEE SUMMARY CAN BE PRINTED TO REFER":"TO BEFORE WT"PRESS TO LOOK AT THE SECOND ":"PAGE OF THE PAYEE RECORD. ";:3090:g\f2490:2210:::"(THE I.D. NO. MAY BE AN INVOICE NUMBER,":SP$:"OR ANY OTHER APPROPRIATE INFORMATION. ":SP$ng:"THE SECOND PAGE WILL BE FOLLHE ":SP$:"PERMANENT INFORMATION NEEDS NO FURTHER ":SP$:"ENTRY. CHANGES MADE TO THE RECORD ":SP$ S"CONSIST OF ENTERING AMOUNTS OWED, AND ":SP$:"INDICATING WHETHER OR NOT TO PAY THE ":SP$:"NEXT TIME CHECKS ARE WRITTEN. ":a800l b16:I4ĺ"PRESS TO SEE HOW THE PAYEE ":"RECORD FILE IS SET UP. ";:650 "PRESS TO GO AHEAD."; 3090:: :A$(4) * 4R1:BL%0 >2410 H:2070m R::"ONCE A PAYEE HAS BEEN ENTERED, TC$(6)"PAY NOW? (Y OR N):"} E$(1)"DATE:":E$(2)"I.D.:":E$(3)"GENERAL LEDGER ACCT.#:":E$(4)C$(5):E$(5)C$(6):C$(I)E$(2) CE$(13)"ENTER: " FC1::2730 6:1:A$(1)::A$(2)::A$(3) :A$(4):I4 62(I1):1::A$(I):610 NINT CHECKS":A$(8)"PRINT SUMMARY": DK$;"OPEN PAY,L128"B TI5a ^2730:10:1:A$(5):A$(6)v hI5:1::A$(I) |610 10:1:958 C$(2)"PAYEE NAME:" C$(3)"STREET ADDRESS:" C$(4)"CITY-STATE-ZIP:" C$(5)"AMOUNT TO PAY:" "":I139:SP$SP$" ":I# 2660- 2280I A$(1)"ADD A NEW PAYEE"n A$(2)"CHANGE PAYEE INFORMATION" A$(3)"DELETE A PAYEE" A$(4)"LOOK AT PAYEE RECORDS" A$(5)"EDIT PAYEE INFORMATION" A$(6)"PRINT CHECKS OR SUMMARY"! A$(7)"PR PROGRAM NAMED --- CK5A$(8),C$(21),D$(21)PU$(10),TN$(10),TW$(8)c(DD$(20),E$(5)v2PC$(2),V$(21)PXY%(8,3),S%(8),L%(8),IX%(8)ZDT$(12),AN$(8),AM$(8)dYC$(7)nDK$(4)xKL%5PN$"CHECK WRITING"RT%0 SP$PR#3"  I12000:II:I3(974)21770<DK$(974)3ĺ"SWITCH TO 40 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.":DK$;"PR#0":DK$;"IN#0":1780:1770:(27);(17):DK$;"IN#0"X%(16384):16368,0:A$::$;"PR#3"& #& I11000:II:I6& (974)23080& (974)3ĺ"SWITCH TO 40 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.":DK$;"PR#0":DK$;"IN#0":3090:3080& :(27);(17):DK$;"IN#0"& & X%(16384):16368,0:A$:::A$)2990%| DK$;"PR#1":% 2% PF$(27)3040B% DK$;"PR#0"H% [% (974)23030% DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"% (974)3ė:"SWITCH TO 80 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. ":3090& :DK(27)19900)$ (B$)95B$((B$)32)F$ B$(8)R$R$B$:2870_$ (R$)1R$"":2870o$" R$""2790$, R$(R$,(R$)1)$6 B$;:868:2790$@ RL$"":R$""RL$(R$,1)$J $T PF$(27)LC%63$^ FLC%64::F$h LC%0:%r PF$(27,3)):PC$(I)PC$(I)(O5%):J:I7# VS$V$(1):VC$V$(7)Q# :(W(VC$))2);VC$i# (W(VS$))2);VS$# (W(PN$))2);PN$# (W(VD$))2);VD$# :# X%(16384):16368,0:Q$;:R$""# B$:B$(13)ĺ:2880# B$(34)B$(39) $ B$$,1)" J620:DD$(J)" ":J$" ?"d X%(16384):16368,0p"n DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":V$(0)"x I1(V$(0)):V$(I):I:DK$;"CLOSE SYSFIL"" W40" FM%(V$(19))# VD$V$(2):I02:PC$(I)"":J1(V$(I3))23:O5%((V$(I3),JCLOSE CHKFMT"!` E!j DK$;"READ PAY,R";R:BU$:DK$:D$(2)(BU$,30)o!t D$(3)(BU$,31,30):D$(4)(BU$,61,30)!~ D$(5)(BU$,114,12)! D$(6)(BU$,1)! ! DD$(1)VD$:DD$(2)(BU$,91,18)! DD$(3)(BU$,109,5):DD$(4)(BU$,114,12)" DD$(5)(BUY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERL  I110:U$(I):Ic  I110:TN$(I):Iy $ I18:TW$(I):I . I112:DT$(I):I 8 DK$;"OPEN CHKFMT":DK$;"READ CHKFMT" B AN$(1):Z$ L I18:J13:Z$:XY%(I,J)(Z$):J:I !V DK$;"ORT, PRESS ":SP$:". "::"TO LOOK AT THE REPORT ON THE MONITOR ":SP$"SCREEN ONLY, PRESS . ";::R$::973,(R$)::"LOADING PROGRAM ---":DE$(I):DK$;"RUN ";PN$(I)(W(VC$)340IJIK:LLKJ:3404II1:LL1:340JIKIJ:L1:340_II1:LL1:340I4ĭI7ĭI8ĭI1049522:1::DE$(I):"IS NOT DEMONSTRATED.":J11000:JJ:J::80I3ĭI6500s::"TO OBTAIN A PRINTED REPO BACK TO MENU ":SP$:"CHOICES, PRESS . ":Q JL1:IJj TL5:1::DE$(I);: YX%(16384):16368,0 ^R$:R%(R$):R%13470 h1:DE$(I) rR%11430 |R%8430 R%10450 R%21450 R%27ė:80I1I3:120 II1:1200 I3I1:120? II1:120T JI:K4:I1290j I2J5:K7:290w J8:K10 "972,0 ,PN$MC$(I)::510: 6IJK:DE$(I):IE @::"USE ARROW KEYS TO MAKE SELECTION, AND ":SP$:"PRESS . TO G "% f- nI1J xITB%1:1::MC$(I);:e X%(16384):16368,0 R$:R%(R$):R%13260 ITB%1:1:MC$(I) R%11220 R%8220 R%10240 R%21240 R%27ĝ::DK$;"RUN HELLO" 120 1N%:PN$(I),DE$(I):I:DK$;"CLOSE": PPN$"REVIEW":510X ZTB%:1:I13:MC$(I):I d::"TO REVIEW SELECTED PROGRAMS, USE ARROW ":SP$:"KEYS, PRESS . ":SP$ e"TO REVIEW ENTIRE DEMONSTRATION, PRESS ":SP$:". I 2MC$(1)"CURRENT MENU":MC$(2)"MONTHLY MENU":MC$(3)"OCCASIONAL MENU" <DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":V$(0):I1(V$(0)):V$(I):I:DK$;"CLOSE SYSFIL" FVS$V$(1):VD$V$(2):VC$V$(7):W40$ KDK$;"OPEN TABLE":DK$;"READ TABLE":N%:Z$:IW PROGRAM NAMED REVIEW(V$(21)DPN$(11),DE$(11),MC$(3)S(DK$(4):u*SP$"":I139:SP$SP$" ":I -TB%6:(975)0Ĺ975,0:TB%12::SP$:"THIS COMPLETES THE DEMONSTRATION OF ":SP$:"ARCHIMEDES' BOOKKEEPER. ":SP$:     >"I12::MC$(1):N22::"PRESS TO LOOK AT THE CURRENT ":"MENU OF THE MOST FREQUENTLY USED ":"PROGRAMS. ";:1070X:PN$MC$(1):1010::I14:DE$(I):I:1060>b::"PRESS FOR A BRIEF E"CLOSE TABLE"R&W40:VD$"09/01/86":VC$"YOUR NAME":VS$"ARCHIMEDES' BOOKKEEPER"r0PN$"MENU CHOICES":6:1010:12:1:I13:MC$(I):ID:"USE ARROW KEYS TO MAKE SELECTION,":"AND THEN PRESS .":"TO EXIT FROM THE BOOKKEEPER, PRESS TO LOOK AT THE KEY MENU,":"MENU CHOICES. P$:"MENU-DRIVEN, USER-CONTROLLED. EACH ":SP$:"MENU HAS A LIST OF OPTIONS FROM WHICH ":SP$"THE USER MAKES A SELECTION. WHEN A ":SP$:"MENU FIRST APPEARS ON A SCREEN, THE ":SP$:"FIRST OPTION IS HIGHLIGHTED. TO SELECT":SP$"OTH(40(Q$))2);Q$::(40(S$))2);S$;?hJ11000:JJ:J:1Wr(40(S$))2);R$;|I1(T$):(T$,I,1);:J1100:JJ:J:I::"PRESS TO CONTINUE. ";:1070SP$b"THE ARCHIMEDES' BOOKKEEPER SYSTEM IS ":S ":SP$::SP$:"A REQUEST FOR A DATE APPEARS AFTER EACH":SP$T"STARTUP OF ARCHIMEDES' BOOKKEEPER. ":SP$:"PRESS TO SEE THE CORRECT WAY ":SP$:"THE DATE SHOULD BE TYPED. ":SP$;:X%(16384):16368,0:A$:'^::DD/YY":T$"09/01/86":U$"PRESS TO USE PREVIOUS DATE"mJ:(40(S$))2);S$:(40(U$))2);U$::L:"PRESS TO CONTINUE. ";:1070MSP$DO"DEMONSTRATION INSTRUCTIONS APPEAR LIKE ":"THIS: BREVIATED VERSION OF THE BOOKKEEPER ":SP$:"SYSTEM. PROGRAM OPERATING DIRECTIONS ":SP$"ARE DISPLAYED JUST AS THEY APPEAR WHEN ":SP$:"THE COMPLETE SYSTEM IS RUN: ":SP$:6::(40(Q$))2);Q$=@R$"TODAY'S DATE: ":S$R$"MM/SK, AND AN ILLUSTRATED ":SP$:"USER'S MANUAL, WRITTEN IN PLAIN, " SP$:"NON-TECHNICAL LANGUAGE. " SP$::"PRESS TO CONTINUE. ";:1070 SP$["THIS DEMONSTRATION DISK PRESENTS AN ":SP$:"ABH IS EASY TO UNDERSTAND AND ":SP$:"OPERATE. ":SP$::"PRESS TO CONTINUE. ":1070 SP$M "THE ARCHIMEDES' BOOKKEEPER PACKAGE ":SP$:"INCLUDES: 2 READY-TO-USE WORKING DISKS,":SP$:"A MASTER DI ":1070* SP$ "TO DO ALL THIS, THE BOOKKEEPER COMBINES":SP$:"THE DEPENDABLE FEATURES OF CONVENTIONAL":SP$:"BOOKKEEPING WITH THE SPEED AND ACCURACY":SP$:"OF MODERN TECHNOLOGY. THE RESULT IS A " SP$:"SYSTEM WHICU, AND ELIMINATES MOST OF THE ":SP$ "TEDIUM USUALLY ASSOCIATED WITH MANUAL ":SP$:"BOOKKEEPING BY MAINTAINING BOOKS WHICH ":SP$:"ARE ALWAYS IN BALANCE. " SP$! :"PRESS THE KEY TO CONTINUE ":"EXPLANATION. 0)X%90 FI%I%1:I%2060( P1008 Z974,2:140T d974,1:(1101)38130x n(1101)234ĭ(1250)173130 x140 974,3' :SP$:"ARCHIMEDES' BOOKKEEPER KEEPS YOUR BANK ":SP$:"BALANCE CURRENT, DOES THE ARITHMETIC ":SP$:"FOR YO PROGRAM NAMED HELLO' V$(21)Q$"ARCHIMEDES' BOOKKEEPER":R$"DEMONSTRATION"::10:(40(Q$))2);Q$::(40(R$))2);R$:I11500:II:SP$"":I139:SP$SP$" ":IDK$(4):(972,32X%(49920):I%0:X%25590 <(4992            URE ":QJ"PRESS WHEN READY TO GO AHEAD. ";:1590::11:958`T1:1:J1$^AM$(1)" -3123.59":4:9::I1(AM$(1)):(AM$(1),I,1);:J150:JJ:J:I:::380h:J1$:J3$:J5$:OI1CT%:AN$(OI);3);AM$(OI):OIrw DELETES THE ENTIRE ENTRY. 'Y' "A"ALLOWS A CHANGE.) ":SP$:"THE SUM OF THE POSITIVE FIGURES MUST ":"EQUAL THE SUM OF THE NEGATIVE FIGURES. ":SP$:"THE AMOUNT TAKEN FROM 310 SALARY SHOULD"B"BE LISTED AS A NEGATIVE FIG40:R$"104":510:R$"150":840:R$"101":510:R$"2773.59":840|":::"PRESS TO GO AHEAD. ";:1590:,TP%0CT%CT%1:TP%CT%6CT%TP%:360$@11:"OUT OF BALANCE BY $6,247.18":"DO YOU WANT TO CORRECT (Y OR N)?":::"('N'COUNT ":SP$:"FROM WHICH THE MONEY WAS OBTAINED, AND "SP$:"AS A POSITIVE FIGURE IN THE ACCOUNT (OR":SP$:"ACCOUNTS) WHERE IT IS PLACED. "::"PRESS TO GO AHEAD. ";:1590:R$"801":10:958:510:R$"200">81:EE%1nYCT%66::R$"310":510:R$"3123.59":840:22::"PRESS TO GO AHEAD.";:1590:12:958{10:SP$:"THE DOLLAR AMOUNT OF EVERY TRANSACTION ":SP$:"IS ENTERED IN AT LEAST TWO ACCOUNTS: ":SP$:"AS A NEGATIVE FIGURE IN THE ACTHIS ":SP$:"INFORMATION IS RECORDED THROUGH THE ":SP$:"TRANSACTION ENTRY PROGRAM. ";{1590:J1$VD$:TP%0FF%1:730:J3$"THE COMPUTER COMPANY":670J11:LC%12YY3J5$"PAYCHECK":700 X1:CT%U JUST OPENED NEW ":SP$:"CHECKING AND SAVINGS ACCOUNTS. YOU ":SP$:"KEPT $200 IN CASH, DEPOSITED $150 IN ":SP$:"SAVINGS, AND THE REST IN THE CHECKING "SP$:"ACCOUNT. ":o"PRESS TO SEE HOW 90:A$(27)104 490Q ::SP$:"FROM THE USER'S MANUAL: " SP$:"IT IS THE FIRST DAY OF THE MONTH. YOUR":SP$:"PAYCHECK, AMOUNTING TO $3123.59 (AFTER ":SP$:"TAXES), IS ISSUED ON THE LAST DAY OF ":SP$"EACH MONTH. YO,17(J1)42,5):(AN$(J),1)"1"1255 sCT%0CT%JV xAM$(J)(BU$,17(J1)47,12) }J:J1$VD$:J3$(BU$,9,25):J5$(BU$,34,8):1080:OI:1400:1460 ~:"PRESS TO GO AHEAD, "::"OR PRESS TO LOOK AT THIS AGAIN. ";::15":SP$:"CHECK ACCOUNT BALANCE, PRESS ": k"TO LOOK AT THESE PAGES ON THE MONITOR ":SP$:"SCREEN ONLY, PRESS . ";:1590:FP$A$: l m1435:1165$ nOI1J1:CT%0:DK$;"READ JOURNAL,R";OI:BU$:J411:AN$(J)(BU$ST BEEN WRITTEN":SP$:"ARE POSTED AUTOMATICALLY TO THE JOURNAL":SP$:"OF ORIGINAL ENTRY, WHICH IS IMMEDIATELY":SP$3 j"PRINTED ALONG WITH A REPORT OF THE ":SP$:"PRESENT STATUS OF THE CHECKING ACCOUNT."::"TO OBTAIN THE PRINTED JOURNAL PAGE AND :I ZPN$"TRANSACTION ENTRY"4 _(972)0Ĺ973,0D d1220:1280h fVS$"JOURNAL OF ORIGINAL ENTRY" gJ1(973):J10J11:LC%12:129 h:"REPLACE CHECKS WITH FORM PAPER.":"PRESS WHEN READY."::::SP$u i:"THE CHECKS WHICH HAVE JU: PROGRAM NAMED --- PO/V$(21),PC$(2)DPN$(11),DE$(11)](S$(9),AN$(8),AM$(8)j2DK$(4)u<C$(6)FC$(1)"DATE: ":C$(2)"TO/FROM: ":C$(3)"I.D.: ":C$(4)"ACCOUNT NO.: ":C$(5)"AMOUNT: "PX1 USP$"":I139:SP$SP$" "           ARKED":SP$"FOR PAYMENT ARE PRINTED ON CHECK FORMS ":SP$:"PLACED IN THE PRINTER. THE PROGRAM THEN":SP$:"PRINTS OUT THE CURRENT STATUS OF THE ":SP$:"CHECKING ACCOUNT WITH A RECORD OF "bSP$:"PAYMENTS MADE. ":XPLANATION ":"OF THESE PROGRAM OPTIONS. ";:1070GqSP$ v"THE CHECK WRITING PROGRAM KEEPS TRACK ":SP$:"OF EACH PAYEE'S NAME AND ADDRESS, TOTAL":SP$:"AMOUNT OWED, AND AMOUNTS TO BE PAID IN ":SP$:"FULL OR PART. CHECKS FOR AMOUNTS MM$(2)DD$(4):D$(5)DD$(4):C$(2)DD$(2)015008JJLFP$(27)1470^I2065::Ih2960:(972)0ė:"LOADING REVIEW PROGRAM":DK$;"RUN REVIEW""LOADING PROGRAM ---":"TRANSACTIONS ENTRY"973,J1:DK$;"RUN PO" Z$D$(5):IR THROUGH ":SP$|#"IT, INSTEAD OF THE WAY THEY WILL APPEAR":SP$::"PRESS TO GO AHEAD. ";:1590::#1530#DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"%$(974)3ė::"SWITCH TO 80 COLUMN OUTPUT. ":"PRESS . ";:1590:FP$A$::FP$(27)1490M"FP$(27)1490_"DK$;"PR#1":e"y"FP$(27)1540"DK$;"PR#0"""(974)21500#::SP$:"IF YOU HAD AN 80 COLUMN CARD, THE ":SP$:"REPORTS TO FOLLOW WOULD APPEA!Z!::"PRINTER MUST BE ON AND READY.":"PRESS TO INDICATE THAT IT IS. ":!:"TO OBTAIN A PRINTED JOURNAL, FOLLOW THE":"INSTRUCTION ABOVE, AND PRESS . "::FP$""9""TO LOOK AT THE JOURNAL ON THE MONITOR ":"SCREEN ONLY, PR2:PC$(I)"":J1(V$(I3))23:O5%((V$(I3),J,3)):PC$(I)PC$(I)(O5%):J:Ii <VC$V$(7):VS$V$(1)o A F(W(VC$))2);VC$ P(W(VS$))2);VS$ Z(W(PN$))2);PN$ d(W(VD$))2);VD$ n xFP$(27)LC%66 FLC%65::FAL,R0":BU$:J1((BU$,5)):LC%((BU$,6,5))2SX%(16384):16368,0:PR%0 DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":N$V$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"W40(MI%(V$(20)):OK(MI%),OK%(MI%),TP%(MI%)Q 2VD$V$(2):I02);AN$(J):44);jJ::!~+1430D(80(VC$))2);VC$t(80(VS$))2);VS$:(80(VD$))2);VD$:2);"DATE";10);"TO/FROM";14);"I.D.";9);"AMOUNT";2);"ACCT #":NR%67,DK$;"OPEN JOURNAL,L128":DK$;"READ JOURNC$(5);:X9II1(R$):(R$,I,1);:J150:JJ:J:I:_M(R$,(R$)2,1)"."R$R$".00"oRAM$(CT%)R$\(AM$(CT%))12AM$(CT%)" "AM$(CT%):860fM1(AN$(CT%))pCT%CT%1:8J1$;1);J3$;1);J5$;1);BJ1CT%:Z$AM$(J)VZ$;:J:I:'(J5$)8J5$J5$" ":710-12:"ENTRIES ARE REQUESTED IN THIS ORDER:":"DATE-TO/FROM-I.D.-ACCOUNT NO.-AMOUNT"1:1:C$(1)1:8:868:I18:(J1$,I,1);:J150:JJ:J:I:18:1:958 HYYY2CT%:X14:Y:1:;:1590:15:958\6:X:868:R$"800":I13:(R$,I,1);:J150:JJ:J:I::530r2:1:C$(2);2);I1(J3$):(J3$,I,1);:J150:JJ:J:I:(J3$)25J3$J3$" ":6803:1:C$(3);:I1(J5$):(J5$,I,1);:J150:JJ:J150:JJ:J:I:&R$"801"630B(R$)5R$R$"0":530TlAN$(CT%)R$:v12:958:15:"INVALID ACCOUNT NUMBER."::"THE BOOKKEEPER REJECTS INVALID ACCOUNT ":"NUMBERS. "::"PRESS TO GO AHEAD."ESS TO GO AHEAD. ";:1590::1350:::DE$(1)::I24:DE$(I):I::::"PRESS TO GO AHEAD. ";:1590::DK$;"RUN CK"YYY2CT%1:X14:Y:1:C$(4);:X:R$"801"āI11500:II:II1(R$):(R$,I,1);$:"WOULD BE FOLLOWED BY A PRINTED UPDATE ":SP$:"OF ANY CHANGES IN THE CHECKING ACCOUNT ":SP$"AND THE CURRENT BALANCE. IN THIS CASE,":SP$:"IT IS POSTPONED UNTIL AFTER THE CHECK ":SP$:"WRITING DEMONSTRATION. ":SP$:/"PROR PRESS TO LOOK AT THIS AGAIN. ";:1590K::A$(27)İ400:496YVS$V$(1)PN$"CURRENT MENU":DK$;"OPEN TABLE":DK$;"READ TABLE":N%:DS$:I1N%:PN$(I),DE$(I):I:DK$;"CLOSE"a::SP$:"ORDINARILY THE PRINTING OF THE JOURNAL ":SPEE%0300400`DK$;"CLOSE"::(972)0ĺ"LOADING REVIEW PROGRAM":DK$;"RUN REVIEW"(973)0ė:"LOADING PROGRAM":973,(FP$):DK$;"RUN ST"/::"PRESS TO SEE HOW CHECKS ARE ":"WRITTEN WITH THE BOOKKEEPER "::"1590|16::"PRESS TO SEE HOW THIS ENTRY ":"LOOKS ON THE JOURNAL OF ORIGINAL ENTRY,"::"OR PRESS TO LOOK AT THIS AGAIN. ":1590:A$(27)129FF%1:4501160:10801400:1460FF%0480EE%0310U$,1) . DD$(1)VD$:DD$(2)(BU$,91,18)[ DD$(3)(BU$,109,5):DD$(4)(BU$,114,12)o DD$(5)(BU$,1) J620:DD$(J)" ":J d X%(16384):16368,0 n DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":V$(0) !x I1(V$(0)):V$(I):I:DK$;"CLDK$;"OPEN CHKFMT":DK$;"READ CHKFMT"5B AN$(1):Z$`L I18:J13:Z$:XY%(I,J)(Z$):J:IxV DK$;"CLOSE CHKFMT"~` j DK$;"READ PAY,R";R:BU$:DK$:D$(2)(BU$,30)t D$(3)(BU$,31,30):D$(4)(BU$,61,30)~ D$(5)(BU$,114,12) D$(6)(B,NINETEENE TWENTY,THIRTY,FORTY,FIFTY,SIXTY,SEVENTY,EIGHTY,NINETY JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER I110:U$(I):I I110:TN$(I):I$ I18:TW$(I):I. I112:DT$(I):I%8 B%);DD$(I%)$E$(2);5);DD$(I%1)?E$(3);TB%);DD$(I%2)ZE$(4);TB%);DD$(I%3)uE$(5);TB%);DD$(I%4){ ZERO,ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE  TEN,ELEVEN,TWELVE,THIRTEEN,FOURTEEN,FIFTEEN,SIXTEEN,SEVENTEEN,EIGHTEEN-----------------------------------------";3);"---------";3);"----"S :LC%7:Y` 1k*TB%27>C$(2);(13);D$(2)HC$(3);(13);D$(3)RC$(4);(13);D$(4)\C$(5);TB%);D$(5)fC$(6);TB%);D$(6)p:3:I%1 E$(1);T1J%::I.S%(I));C$(2);4);AM$(2)FLC%LC%1:CC%CC%1{S%(I));"TOTAL";17);D$(7);:LC%LC%1:CC%CC%1(80(VC$))2);VC$(80(Q$))2);Q$(80(VD$))2);VD$:18);"PAYEE";24);"AMOUNT";5);"PAY?"E"--AND THE CURRENT STATUS OF THE ":SP$:"CHECKING ACCOUNT. ":SP$:"PRESS TO CONTINUE PROGRAM ":"EXPLANATION. ";:1070SP$"THE PRESENT STATUS OF ACCOUNTS PROGRAM ":SP$:"DISPLA"SUCH AS HAND-WRITTEN CHECKS, DEPOSITS, ":SP$:"AND ANY ADJUSTMENTS, IN THE JOURNAL OF ":SP$:"ORIGINAL ENTRY. WHEN ENTRIES ARE ":SP$:"COMPLETE, AN AUTOMATIC PRINTOUT IS MADE"YSP$:"OF THE CURRENT JOURNAL OF ORIGINAL ":SP$:"ENTRY SP$::"PRESS TO CONTINUE PROGRAM ":"EXPLANATION. ";:1070kSP$"THE TRANSACTION ENTRY PROGRAM RECORDS ":SP$:"ALL TRANSACTIONS (OTHER THAN THOSE ":SP$:"CREATED BY THE CHECK WRITING PROGRAM) ":SP$1890$0J%L%(I)CC%:(974)0J%2?:J1J%::LC%LC%1:JcDCC%L%(I):IX%(I)7İ1970:1890NIX%(I)6ĺ(80(D$(CX%)))2);D$(CX%);:1890XS%(I));D$(CX%);bPX%CX%lII1:CX%IX%(I):I81820vJ%L%(8):FP$(27)J%LC% ILC%))2);VS$!(W(PN$))2);PN$9(W(VD$))2);VD$?&"(Z$)2)%I((Z$,1))1:I11720GD$(6)U$(I)" HUNDRED "D$(6)qD$(6)"---"D$(6)"---":LC%1:1800:I1:CX%IX%(1):L%(1)41860J1L%(I)2::LC%LC%1:J:1860L%(I)01900&L%(I)CC%ĺS%(I)S%(I1)(D$(PX%)));D$(CX%);: II1:LL1:340* IKIJ:L1:340? II1:LL1:340v I7Ĺ972,1::"LOADING PROGRAM ---":DK$;"RUN IS" I4I3:972,1 I10I8:972,1 :"LOADING PROGRAM ---":DE$(I):DK$;"RUN ";PN$(I) :(W(VC$))2);VC$ (W(VS$::"TO OBTAIN MENU CHOICES, PRESS ESC."4 JL1:IJM TL5:1::DE$(I);:h YX%(16384):16368,0 ^R$:R%(R$):R%13470 h1:DE$(I) rR%11430 |R%8430 R%10450 R%21450 R%2780 340 IJIK:LLKJ:340(Z$)216601@A$(Z$,(Z$)1,1):A$"1"1630ZJD$(6)TN$(I)" "D$(6):(Z$)31790dT1690u^A$"0"1680hI1B$"-":1660r1670|D$(6)U$(I)" "D$(6):(Z$)21790I(A$)1:D$(6)TW$(I)B$D$(6)(Z$)31790Z$(Z$,)2);VC$ (W(VS$))2);VS$8(W(PN$))2);PN$P(W(VD$))2);VD$V&O MENU":1350:DK$;"OPEN TABLE":DK$;"READ TABLE":N%:DS$:I1N%:PN$(I),DE$(I):I:DK$;"CLOSE":I14:DE$(I):I:6::DE$(1)912:"NORMALLY, TRANSACTION ENTRY IS FOLLOWED":"BY A PRINTING OF THE CURRENT MONTH'S ":"CHECKING ACCOUNT CHANGES. FF%0480EE%0310+EE%03004400}DK$;"CLOSE"::(972)0ĺ"LOADING REVIEW PROGRAM":DK$;"RUN REVIEW"(973)0ė:"LOADING PROGRAM ---":"STATUS OF GENERAL LEDGER ACCOUNTS":DK$;"RUN ST"1590VS$V$(1)`PN$"CURRENT:OIr1:1::J1$::#w1590|16::"PRESS TO SEE HOW THIS ENTRY ":"LOOKS ON THE JOURNAL OF ORIGINAL ENTRY,"::"OR PRESS TO LOOK AT THIS AGAIN. ":1590A$(27)130FF%1:4501160:10801400:1460 S A NEGATIVE FIGURE ":aJ"PRESS WHEN READY TO GO AHEAD. ";:1590::11:958pT1:1:J1$^AM$(1)" -3123.59":4:9::I1(AM$(1)):(AM$(1),I,1);:J150:JJ:J:I:::380h:J1$:J3$:J5$:OI1CT%:AN$(OI);3);AM$(OI) (Y OR N)?":::"('N' DELETES THE ENTIRE ENTRY. 'Y' "A"ALLOWS A CHANGE.) "::"THE SUM OF THE POSITIVE FIGURES MUST ":"EQUAL THE SUM OF THE NEGATIVE FIGURES. "::"THE AMOUNT TAKEN FROM 310 SALARY SHOULD"B"BE LISTED A ";:1590:8R$"801":10:958:510:R$"200"}840:R$"104":510:R$"150":840:R$"101":510:R$"2773.59":840"I11000:II:I,TP%0CT%CT%1:TP%CT%6CT%TP%:360:@11:"OUT OF BALANCE BY $6,247.18":"DO YOU WANT TO CORRECTT LEAST TWO ACCOUNTS: ":SP$:"AS A NEGATIVE FIGURE IN THE ACCOUNT ":SP$:"FROM WHICH THE MONEY WAS OBTAINED, AND "SP$:"AS A POSITIVE FIGURE IN THE ACCOUNT (OR":SP$:"ACCOUNTS) WHERE IT IS PLACED. "::"PRESS TO GO AHEAD. Y":670 J11:LC%12 YY38 J5$"PAYCHECK":700M X1:CT%1:EE%1 YCT%66::R$"310":510:R$"3123.59":840:22::"PRESS TO GO AHEAD.";:1590:12:958 10y"THE DOLLAR AMOUNT OF EVERY TRANSACTION ":SP$:"IS ENTERED IN AOUNT. "::"PRESS TO SEE HOW THIS ":SP$:"INFORMATION IS RECORDED THROUGH THE ":SP$:"TRANSACTION ENTRY PROGRAM. "; 1590: J1$VD$ :TP%0 FF%1:730:J3$"THE COMPUTER COMPANR#0":DK$;"IN#0":3090:3080;% :(27);(17):DK$;"IN#0"A% d% X%(16384):16368,0:A$::7)3ė:"SWITCH TO 80 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. ":3090s$ :DK$;"PR#3"y$ $ I11000:II:I$ (974)23080% (974)3ĺ"SWITCH TO 40 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.":DK$;"P2790"#@ RL$"":R$""RL$(R$,1)(#J >#T PF$(27)LC%63Q#^ FLC%64::F]#h LC%0:q#r PF$(27)2990#| DK$;"PR#1":# # PF$(27)3040# DK$;"PR#0"# # (974)23030# DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"a$ (974;VD$ " :2" X%(16384):16368,0:Q$;:R$""L" B$:B$(13)ĺ:2880c" B$(34)B$(39)w" B$(27)19900" (B$)95B$((B$)32)" B$(8)R$R$B$:2870" (R$)1R$"":2870"" R$""2790", R$(R$,(R$)1)#6 B$;:868:RN> WHEN READY TO GO AHEAD. "::15907$:DK$;"PR#3"=$R$I12000:II:Ie$(974)21580$(974)3Ğ:"SWITCH TO 40 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. "::DK$;"PR#0":DK$;"IN#0":1590:1580%":(27);   YS THE BEGINNING BALANCE, CURRENT":SP$:"POSTING, UNPOSTED ENTRIES, AND CURRENT ":SP$:"BALANCE OF EACH ACCOUNT AS REQUESTED. "SP$::SP$("THE DISK COPY PROGRAM MAKES A NEW ":SP$:"BACK-UP COPY OR RESTORES A WORKING ":SP$:"DISK. ԠԠŠ̠ԠȠ̠®ԠȠŠ٠ҠŠ̠ŠŠӠĠӠ̠ӠӠԠȠŠŠŠҠΠӠ̠ӠԠȠԠԠƠҮҠӠԠǠӠ٠ŠҧӠӠ̠̠٠ӠԠӠǠԠӠӠԠӠŠΠ٠̠̠ŠŠ800l b16:I4ĺ"PRESS TO SEE HOW THE PAYEE ":"RECORD FILE IS SET UP. ";:650 "PRESS TO GO AHEAD."; 3090:: :A$(4) * 4R1:BL%0 >2410 H:2070r R::SP$:"ONCE A PAYEE HAS BEEN ENTERC$(6)"PAY NOW? (Y OR N):"} E$(1)"DATE:":E$(2)"I.D.:":E$(3)"GENERAL LEDGER ACCT.#:":E$(4)C$(5):E$(5)C$(6):C$(I)E$(2) CE$(13)"ENTER: " FC1::2730 6:1:A$(1)::A$(2)::A$(3) :A$(4):I4 62(I1):1::A$(I):610 NINT CHECKS":A$(8)"PRINT SUMMARY": DK$;"OPEN PAY,L128"B TI5a ^2730:10:1:A$(5):A$(6)v hI5:1::A$(I) |610 10:1:958 C$(2)"PAYEE NAME:" C$(3)"STREET ADDRESS:" C$(4)"CITY-STATE-ZIP:" C$(5)"AMOUNT TO PAY:" "":I139:SP$SP$" ":I# 2660- 2280I A$(1)"ADD A NEW PAYEE"n A$(2)"CHANGE PAYEE INFORMATION" A$(3)"DELETE A PAYEE" A$(4)"LOOK AT PAYEE RECORDS" A$(5)"EDIT PAYEE INFORMATION" A$(6)"PRINT CHECKS OR SUMMARY"! A$(7)"PR  PROGRAM NAMED --- CK5A$(8),C$(21),D$(21)PU$(10),TN$(10),TW$(8)c(DD$(20),E$(5)v2PC$(2),V$(21)PXY%(8,3),S%(8),L%(8),IX%(8)ZDT$(12),AN$(8),AM$(8)dYC$(7)nDK$(4)xKL%5PN$"CHECK WRITING"RT%0 SP$      DATE AMOUNTS IN EACH ACCOUNT ":SP$:"AND STORES THEM. THIS PREPARES THE ":SP$:"GENERAL LEDGER FOR THE NEXT MONTH. ""\:"PRESS TO LOOK AT THE ":"OCCASIONAL MENU. ":"#f"OR PRESS TO SEE THIS LANCE SHEETS AND INCOME ":SP$R!*"STATEMENTS. "]!4:SP$!>"THE CLOSE GENERAL LEDGER PROGRAM IS THE":SP$:"LAST BOOKKEEPING PROGRAM TO BE RUN AT ":SP$:"THE END OF EACH MONTH. IT UPDATES THE ":SP$"H"YEAR-TO- OR POSTS NET CHANGES ":SP$ "INTO THE GENERAL LEDGER, AND PRINTS ":SP$:"A SUMMARY OF THE AFFECTED ACCOUNTS. ": "PRESS TO CONTINUE EXPLANATION.";:1070 SP$#! "THE FINANCIAL REPORTS PROGRAM PRODUCES ":SP$:"PRINTED BAECKS HAVE BEEN WRITTEN AND ALL OTHER ":SP$:"TRANSACTIONS HAVE BEEN ENTERED IN THE ":SP$ "JOURNAL OF ORIGINAL ENTRY FOR THE ":SP$:"CURRENT MONTH. IT SUMMARIZES ALL ":SP$:"ENTRIES FOR THE MONTH BY ACCOUNT ":SP$:"NUMBER, ENTERS:"PRESS FOR A BRIEF EXPLANATION ":"OF THESE PROGRAM OPTIONS. ";:1070SP$:"THESE PROGRAMS ARE USED ONCE A MONTH: ":SP$:"POST JOURNAL TO GENERAL LEDGER IS THE ":SP$:"FIRST PROGRAM TO BE RUN AFTER ALL ":SP$["CH ":SP$:"PRESS TO LOOK AT THE MONTHLY ":"MENU. "::"OR PRESS TO SEE THIS AGAIN. ";:1070:A$(27)600::PN$MC$(2):1010::I57:DE$(I):I:1060^18:K AT THIS AGAIN. ";:30901:A$(27)ė:900S2730:::A$(7)::A$(8)::^:SP$:"WHEN THE OPTION TO PRINT CHECKS IS ":SP$:"SELECTED, THE BOOKKEEPER SCREEN DISPLAY":SP$:"DIRECTS THE USER TO PLACE CHECKS IN THE":SP$\"PRINT2Z$" "Z$:1162."MARKED TO PAY";30);Z$]Z$(J5):(Z$,(Z$)2,1)"."Z$Z$".00"{(Z$)12Z$" "Z$:1172"MARKED NOT TO PAY";26);Z$LC%142900:2960:::"PRESS TO GO AHEAD. "::"OR PRESS TO LOO2490K1175#$N(DD$(4))A8DD$(5)"Y"J4J4N:1120MLJ5J5NU`JJajNJ4J5tZ$(N):(Z$,(Z$)2,1)"."Z$Z$".00"y(Z$)12Z$" "Z$:1145~:"TOTAL";38);Z$Z$(J4):(Z$,(Z$)2,1)"."Z$Z$".00"(Z$)1UCTION ABOVE, AND PRESS "::"TO LOOK AT THE SUMMARY ON THE MONITOR ""SCREEN ONLY, PRESS . ":3090:PF$A$:2930Q$"PAYEE SUMMARY":2010J50:J40JJ13:RJJ:2410D$(2);13);D$(5);4);D$(6)REFER":"TO BEFORE WRITING CHECKS. "::U:(W(VC$))2);VC$:2740r:A$(7)::A$(8)::640::"PRINTER MUST BE ON AND READY.":"PRESS TO INDICATE THAT IT IS.":P:"TO OBTAIN A PRINTED SUMMARY, FOLLOW THE":"INSTRGE WILL BE FOLLOWED BY A ":SP$:"DISPLAY OF THE SUCCEEDING PAGES OF THE ":SP$:"RECORD UNTIL THERE ARE NO MORE. ":SP$:h"PRESS TO GO AHEAD ":3090:p2730::A$(5)::A$(6)5z:"A PAYEE SUMMARY CAN BE PRINTED TO ":fT"PRESS TO LOOK AT THE SECOND ":"PAGE OF THE PAYEE RECORD. ";:3090:l\f2490:2210:::SP$:"(THE I.D. NO. MAY BE AN INVOICE NUMBER,":SP$:"OR ANY OTHER APPROPRIATE INFORMATION.) ":SP$g:SP$:"THE SECOND PAԠΠҠӠ̠έȠӠ̠ůŶԠŠǠҠŠŠҠŠԠĠӠȠӠîӠ̠ǠӠ̠ȠӠŠӠԠŠî̠ӠӠŠĠӠ̠ӠӠŠ̠̠ŠŠŠؠ̠Šؠ̠٠ؠҠӠ̠έ̠Ӡ̠ŠӠ̠ӠӠ̠ŠӠ̠ŠŠĠӠӬӠӠҠ̠ED, THE ":SP$:"PERMANENT INFORMATION NEEDS NO FURTHER ":SP$:"ENTRY. CHANGES MADE TO THE RECORD ":SP$S"CONSIST OF ENTERING AMOUNTS OWED, AND ":SP$:"INDICATING WHETHER OR NOT TO PAY THE ":SP$:"NEXT TIME CHECKS ARE WRITTEN. AGAIN. ";:1070:A$(27)720V#p::PN$MC$(3):1010::I810:DE$(I):I:1060#z:::"PRESS C$(2);(13);D$(2)yHC$(3);(13);D$(3)RC$(4);(13);D$(4)p:3:I%1E$(1);TB%);DD$(I%)E$(2);5);DD$(I%1)E$(3);TB%);DD$(I%2) E$(4);TB(2);4);AM$(2)&LC%LC%1:CC%CC%1[S%(I));"TOTAL";17);D$(7);:LC%LC%1:CC%CC%1az(80(VC$))2);VC$(80(Q$))2);Q$(80(VD$))2);VD$:18);"PAYEE";24);"AMOUNT";5);"PAY?"%"----------------------------------J%2:J1J%::LC%LC%1:JCDCC%L%(I):IX%(I)7İ1970:1890uNIX%(I)6ĺ(80(D$(CX%)))2);D$(CX%);:1890XS%(I));D$(CX%);bPX%CX%lII1:CX%IX%(I):I81820vJ%L%(8):PF$(27)J%LC%ILC%1J%::IS%(I));C$1720&D$(6)U$(I)" HUNDRED "D$(6)PD$(6)"---"D$(6)"---":LC%1:1800:qI1:CX%IX%(1):L%(1)41860J1L%(I)2::LC%LC%1:J:1860L%(I)01900&L%(I)CC%ĺS%(I)S%(I1)(D$(PX%)));D$(CX%);:18900J%L%(I)CC%:PF$(27)1):A$"1"16309JD$(6)TN$(I)" "D$(6):(Z$)31790CT1690T^A$"0"1680jhI1B$"-":1660tr1670|D$(6)U$(I)" "D$(6):(Z$)21790I(A$)1:D$(6)TW$(I)B$D$(6)(Z$)31790Z$(Z$,(Z$)2)I((Z$,1))1:I1I,1)"0"II1:1520<Z$(Z$,I):D$(7)D$(5):D$(5)"$"Z$c(D$(5))11D$(5)" "D$(5):1540XY%(8,3)0D$(6)"":1790D$(6)"AND "(Z$,2)"/100THS":Q%0"Z$(Z$,(Z$)3),I((Z$,1))16B$" ":(Z$)21660@A$(Z$,(Z$)1,N> TO GO AHEAD, "::"OR PRESS TO LOOK AT THIS AGAIN. ":3090:A$(27)1204d:(972)0ė:"LOADING REVIEW PROGRAM":DK$;"RUN REVIEW"973,3::"LOADING PROGRAM":DK$;"RUN PO"Z$D$(5):I1:X(0)D$(1)D$(Z$,(VD$,5,1)(VD$,2)):O6%O5%100:O5%O5%100O6%:J2$J2$(O6%)(O5%)\JJ12:RJJ:2410ePJ50Z2490:J5(DD$(4)):NJ5dAM$(2)DD$(4):D$(5)DD$(4):C$(2)DD$(2)1500JJPF$(27)1470I2065::I^2960::"PRESS "::"TO LOOK AT THE CHECK FORMAT ON THE ":"MONITOR SCREEN ONLY, PRESS ":3090:PF$A$:2930I((VD$,2)):D$(1)DT$(I)" ":(VD$,4,1)"0"D$(1)D$(1)(VD$,4,1)D$ER, AND TEST FOR ALIGNMENT. ":SP$::"PRESS TO GO AHEAD. ";:3090::"PRINTER MUST BE ON AND READY.":"PRESS TO INDICATE THAT IT IS.":::SP$:"TO OBTAIN PRINTED CHECK FACSIMILES, ""FOLLOW THE INSTRUCTION"OF ACCOUNT TITLES AND NUMBERS THESE ":SP$:"PROVIDE A VIEW OF THE BASIC STRUCTURE ":SP$&"OF THE BOOKKEEPER SYSTEM. ":SP$:&"PRESS FOR ACCOUNT LISTS MENU. ";&1070&::DK$;"RUN CA"&(W(VC$))2);VC$'"DIFFERENT SPACE REQUIREMENTS OF EACH ":SP$:"REPORT TO BE PRINTED. ":SP$::"PRESS TO CONTINUE. ";:1070%SP$:"THE GENERAL LEDGER ACCOUNT LISTS ARE ":SP$_&"THREE VERSIONS OF A PRINTED CATALOG ":SP$:ER TO ADD, DELETE, CHANGE ACCOUNTS, ":SP$f$"AND REMAKE FILES. ":SP$::SP$$"CUSTOMIZE (NOT DEMONSTRATED) ALTERS THE":SP$:"SYSTEM TO ACCOMMODATE ANY TYPE OF ":SP$:"PRINTER BEING USED IN ORDER TO MEET THE":SP$%$(I3))23:O5%((V$(I3),J,3)):PC$(I)PC$(I)(O5%):J:IT$ VS$V$(1):VC$V$(7)n$ :(W(VC$))2);VC$$ (W(VS$))2);VS$$ (W(PN$))2);PN$$ (W(VD$))2);VD$$ :$ X%(16384):16368,0:Q$;:R$""$ B$:B$(13)ĺ:2880(BU$,114,12)!# DD$(5)(BU$,1);# J620:DD$(J)" ":JA# \#d X%(16384):16368,0#n DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":V$(0)#x I1(V$(0)):V$(I):I:DK$;"CLOSE SYSFIL"# W40# FM%(V$(19))<$ VD$V$(2):I02:PC$(I)"":J1(V4)3ĺ"SWITCH TO 40 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.":DK$;"PR#0":DK$;"IN#0":1270:1260:(27);(17):DK$;"IN#0"X%(16384):16368,0:A$::16368,0:A$::(17):DK$;"IN#0" X%(16384):16368I12000:II:I+(974)21260(974)3ĺ"SWITCH TO 40 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.":DK$;"PR#0":DK$;"IN#0":1270:1260:(27);(17):DK$;"IN#0"X%(16384):16368,0:A$::D1260q(97%(I,J)(Z$):J:I*"V DK$;"CLOSE CHKFMT"0"` b"j DK$;"READ PAY,R";R:BU$:DK$:D$(2)(BU$,30)"t D$(3)(BU$,31,30):D$(4)(BU$,61,30)"~ D$(5)(BU$,114,12)" D$(6)(BU$,1)" " DD$(1)VD$:DD$(2)(BU$,91,18) # DD$(3)(BU$,109,5):DD$(4)VS$t(W(PN$))2);PN$3~(W(VD$))2);VD$9L(974)21210{DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"(974)3ė::"SWITCH TO 80 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. ":1270::DK$;"PR#3"DK$;"READ SYSFIL":N$L8V$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"UBW40LVD$V$(2):I02:PC$(I)"":J1(V$(I3))23:O5%((V$(I3),J,3)):PC$(I)PC$(I)(O5%):J:IVVS$V$(1):VC$V$(7)`:(W(VC$))2);VC$j(W(VS$))2);D IN THE JOURNAL, IT IS":SP$:"TIME TO RUN THE FOLLOWING PROGRAMS: ":PpDE$(5)::DE$(6):DE$(7):::"PRESS TO GO AHEAD. ";::1270:"LOADING PROGRAM ---":DE$(5)$DK$;"RUN ";PN$(5).DK$;"OPEN SYSFIL":PN$(I),DE$(I) I+ DK$;"CLOSE TABLE"g (972)0ė:"LOADING REVIEW PROGRAM":DK$;"RUN REVIEW" :PN$"MENU CHOICES":1120 :MC$(1)::MC$(2)::MC$(3):: :SP$J:"AFTER ALL OF THE MONTH'S TRANSACTIONS ":SP$:"HAVE BEEN ENTERE";::1270:A$(27)240* /(972)09656 4MC$(3)K >PN$(11),DE$(11) HMC$(1)"CURRENT MENU":MC$(2)"MONTHLY MENU":MC$(3)"OCCASIONAL MENU" RX%(16384):16368,0 \DK$;"OPEN TABLE" fDK$;"READ TABLE" pNU% zDS$ I1NU% $ 6);"CHANGE";30);Z$:LC%LC%1* M 7);"BALANCE ON ";VD$;17);Z$[ LC%LC%2u FP$(27)İ1220:810 ILC%64::I:DK$;"PR#0" *DK$;"CLOSE" +:"PRESS TO GO AHEAD. ":"PRESS TO LOOK AT THIS AGAIN. ,4217(J1),5):Z$M1$6609 Z$(BU$,4717(J1),12)E N(Z$)h NQ$(BU$,9,15)" "(BU$,34,8) X7);Q$;" UNPOSTED"; b3);Z$ lLC%LC%1 vTJTJN J OI Z$(TJ):(Z$,(Z$)2,1)"."Z$Z$"." (Z$)12Z$" "Z$:695FP$((973))' FP$(27)İ1170:2509 DK$;"PR#1":J M1$;7);M2$h 7);S$;13);Z$:LC%LC%2 DK$;"OPEN JOURNAL,L128":DK$;"READ JOURNAL,R0":BU$:JB%((BU$,5)) OI1JB% DK$;"READ JOURNAL,R";OI BU$ J411 Z$(BU$  PROGRAM NAMED --- ST/V$(21),PC$(2)<2DK$(4)a<PN$"PRESENT STATUS OF ACCOUNTS"kF1070nM1$"10100":M2$"CHECKING ACCOUNT":Z$"0.00xS$"BEGINNING BALANCE "(Z$)12Z$" "Z$:130SP$"":I139:SP$SP$" ":I      ON.":"PRESS . TO OBTAIN MENU CHOICES,":"PRESS .":к"PRESS .":S WHEN READY TO GO AHEAD. "::DK$;"PR#0":DK$;"IN#0":1000:990:(27);(17):DK$;"IN#0"X%(16384):16368,0:A$::SV:"USE ARROW KE:F&h LC%0:#&r PF$(27)29905&| DK$;"PR#1":;& O& PF$(27)3040_& DK$;"PR#0"e& x& (974)23030& DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"' (974)3ė:"SWITCH TO 80 COLUMN OUTPUT. ":"PRESS WHEN READY T% B$(34)B$(39))% B$(27)19900F% (B$)95B$((B$)32)c% B$(8)R$R$B$:2870|% (R$)1R$"":2870%" R$""2790%, R$(R$,(R$)1)%6 B$;:868:2790%@ RL$"":R$""RL$(R$,1)%J %T PF$(27)LC%63&^ FLC%64:1600|j::"BALANCE SHEET AND INCOME STATEMENT(S):NORMAL:PRINT "BALANCESHEENLY":PRINT "INCOMESTEMENT(S)LY":PRINT:PRINTl:"AFTER SELECTION, THIS SET OF CHOICES: "::"WITHOUT LAST YEAR'S FIGURES"::"WITH LAST YEAR'S FIGURES"::Jn:"THEN THECTED, THE BOOKKEEPER ISSUES THIS ":SP$f"WARNING: "::"THE FINANCIAL REPORTS WILL BE INCORRECT":"UNLESS THE JOURNAL HAS BEEN POSTED TO":"THE GENERAL LEDGER."::h:"PRESS TO SEE THE REPORTS MENU.";::(16384):16368,0)DK$;"OPEN TABLE"? DK$;"READ TABLE"HNU%Q DS$^*I1NU%q4PN$(I),DE$(I)x>IHDK$;"CLOSE TABLE"RPN$MC$(2):1360*\:DE$(5)::DE$(6)::DE$(7):::"WHEN THE FINANCIAL REPORTS PROGRAM IS ":SP$:"SEL:"OR PRESS TO LOOK AT THIS AGAIN. "::1600:A$(27)PG0:280(972)0ė:"LOADING REVIEW PROGRAM":DK$;"RUN REVIEW"VS$"MENU CHOICES"PN$(11),DE$(11)MC$(1)"CURRENT MENU":MC$(2)"MONTHLY MENU":MC$(3)"OCCASIONAL MENU"X%0&I%I%1:I%RG%71050M2$NM$(I%):K1$"0.00"U:(K1$)12K1$" "K1$:570mDK2$TA$(I%):K3$K2$NM1$(AC$(I%),3)M1$;7(M1$));M2$;2);K1$;2);K2$;2);K3$LC%LC%1550G:"PRESS TO GO AHEAD, "%214:1:868:"POSTING ACCOUNT NO. ";AC$(OI)eZ$(SM(OI)):(Z$,(Z$)2,1)"."Z$Z$".00"(Z$)12Z$" "Z$:430DK$;"WRITE GLT"(34);AC$(OI):(34);NM$(OI):(34);Z$TA$(OI)Z$J1200:JJ:JDK$OI:I%);VC$, T(80(P$))2);P$;10);"PAGE ";PGZ ^(80(PN$))2);PN$:(80(VD$))2);VD$ h:"ACCOUNT";31);"PREVIOUS";23);"NEW" r"NUMBER ";9);"DESCRIPTION";12);"BALANCE";8);"CHANGE";7);"BALANCE" |:LC%7: DK$;"OPEN GLT"OI1RGYS TO MAKE SELECTION.":"PRESS . TO OBTAIN MENU CHOICES,":"PRESS .":HE GENERAL LEDGER, PRESS . ":SP$:"TO LOOK AT THIS PAGE ON THE MONITOR ":SP$ "SCREEN ONLY, PRESS . "::1600:FP$A$ 1440:320:540 ,1410:1470 6720 @PGPG1:P$"GENERAL LEDGER CHANGES" J(80(VC$))2DK$;"CLOSE"r ::"WHEN POSTING IS COMPLETED, THE PROGRAM ":SP$:"PRINTS OUT THE GENERAL LEDGER CHANGES. ":: "PRINTER MUST BE ON AND READY.":"PRESS TO INDICATE THAT IT IS.":Y :"TO OBTAIN A PRINTED VERSION OF CHANGES ":SP$:"TO TL128":DK$;"READ JOURNAL,R0":BU$5 JB%((BU$,5))Y OI1JB%:X(16384):16368,0 14:1:868:"WORKING ON ENTRY NO. ";OI J1150:JJ:J 920:OI DK$;"CLOSE JOURNAL" 10:1:958:"POSTING TO GENERAL LEDGER..." 390 UP ENTRIES BY ACCOUNT NUMBER":SP$S K"AND POSTS THE NET CHANGES TO THE LEDGER":Y O P10:"COLLECTING AMOUNTS FROM JOURNAL..." ZRG%6 dDK$;"OPEN GLT":DK$;"READ GLT" nI16:AC$(I):NM$(I):TA$(I):I:DK$;"CLOSE"! DK$;"OPEN JOURNAL, PROGRAM NAMED --- PJ/V$(21),PC$(2);MC$(3)](SP$"":I139:SP$SP$" ":I}2SM(6),AC$(6),NM$(6),TA$(6)<DK$(4)" F::"POSTING THE JOURNAL TO THE GENERAL ":SP$:"LEDGER IS DONE INTERNALLY BY THE SYSTEM":SP$:"WHICH SUMS ";:1000:9&A$(27)ė:80m((972)0ė:"LOADING REVIEW":DK$;"RUN REVIEW"+PN$"CURRENT MENU":760:DK$;"OPEN TABLE":DK$;"READ TABLE":N%:DS$:I1N%:PN$(I),DE$(I):I:DK$;"CLOSE" ,6:I14:DE$(I):I:7::DE$N FILE = 43" LCLC2. DK$;"CLOSE":8107 870 :"THE CHART OF ACCOUNTS CAN BE ALTERED TO":"FIT THE USER'S PARTICULAR SITUATION. "::"PRESS TO GO AHEAD. "::"OR PRESS TO LOOK AT THE CHART "%!"AGAIN. "29700"430 4803 1);M1$;10(M1$));M2$H :DK$:LC%LC%1T LCLC2g B$(27)460 LC%7ĭLC%18ĭLC%29ĭLC%40480 :"PRESS TO GO AHEAD.";:1000:::480 LC58İ810:580:640 I :"TOTAL RECORDS IOOK AT REPORTS ON THE MONITOR ":"SCREEN ONLY, PRESS . ";:1000c ,N3:FC3p 6::840y @I%0 JLC%0 T580:640 ^I1NR%:DK$;"READ GLB":Z$ M1$(Z$,5):M2$(Z$,6,25):M3$(Z$,31,1) M3$"2"ĭM1$"29600"ĭM1$"ACCOUNTS USED IN ENTERING TRANSACTIONS.";:1000> ::760 8:1:"PRINTER MUST BE ON AND READY.":"PRESS TO INDICATE THAT IT IS." 16::"TO OBTAIN A PRINTED CHART, FOLLOW THE ":"INSTRUCTION ABOVE, AND PRESS . "V :"TO L$"":I139:SP$SP$" ":I6 PNR%67:DK$;"OPEN GLB"E UPG0:B$""l Z8:1:C$(1)::C$(2)::C$(3):L3z dI2:1110 n82(I1):1::C$(I)1 x18::"PRESS TO LOOK AT THE CHART OF ":SP$:"ACCOUNTS WHICH LISTS ONLY THOSE ":SP$:B  PROGRAM NAMED --- CA7C$(4),PN$(11),DE$(11)CV$(21)P(DK$(4)2C$(1)"CHART OF ALL ACCOUNTS":C$(2)"CHART OF POSTING ACCOUNTS":C$(3)"LIST WITH AMOUNTS FOR CURRENT YEAR"<PN$"GENERAL LEDGER ACCOUNT LISTS"A::F700 KSP    SFIL"W40;AC%(V$(20)):OK(AC%),OK%(AC%),TP%(AC%)MFM%(V$(19))VD$V$(2):I02:PC$(I)"":J1(V$(I3))23:O5%((V$(I3),J,3)):PC$(I)PC$(I)(O5%):J:IVS$V$(1):VC$V$(7):(W(VC$))2);VC$(W(VS$))2);VS$(17):DK$;"IN#0"%,9%6X%(16384):16368,0:A$:::NӠȠӠǠԠӠӠ٠̠ŠӠŠȠ  384):16368,0:A$::O GO AHEAD. ":3090%' :DK$;"PR#3"+' @' I12000:II:IS' (974)23080' (974)3ĺ"SWITCH TO 40 COLUMN OUTPUT.":"PRESS WHEN READY TO GO AHEAD.":DK$;"PR#0":DK$;"IN#0":3090:3080' :(27);(17):DK$;"IN#0"' ( X%(16(W(VS$))2);VS$-'(W(PN$))2);PN$E'(W(VD$))2);VD$K''$:"USE ARROW KEYS TO MAKE SELECTION, AND":"PRESS . TO OBTAIN MENU CHOICES,":"PRESS .":'.X%(16384):16368,0:A$:::::L'(W(VC$))2);VC$(0 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. ":1780`:DK$;"PR#3"f{I12000:II:I:(12):1770(974)21770)(974)3ĺ"SWITCH TO 40 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHE,(W(VD$))2);VD$:-6FP$(27)LC64?@FLC64::FJJLC0:^TFP$(27)1680p^DK$;"PR#1":vhrFP$(27)1730|DK$;"PR#0"(974)21720DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"N(973)3Ğ:"SWITCH TO 8%(V$(20)):OK(FM%),OK%(FM%),TP%(FM%)8FM%(V$(19))VD$V$(2):I02:PC$(I)"":J1(V$(I3))23:O5%((V$(I3),J,3)):PC$(I)PC$(I)(O5%):J:IVS$V$(1):VC$V$(7):(W(VC$))2);VC$(W(VS$))2);VS$"(W(PN$))2);PN$Z$)2,1)"."Z$Z$".00"9 J60Z$"-$"(Z$,2):1310GZ$"$"Z$e(Z$)12Z$" "Z$:1310k(X%(16384):16368,0:PR%0DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":N$V$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"W40&FM(W(VD$))2);VD$`LC3:4DK$;"READ GLB":Z$_M1$(Z$,5):M2$(Z$,6,25):M3$(Z$,1){M1(M1$):M3(M3$):I1M1$AC$(I)1220II1:I71190J60:Z$TA$(I):J6(Z$):M1AHJ6J6N0:J6J6NZ$(J6):(Z$,(:+61);" ==============";7LCLC1=Z1590:1650:DK$;"CLOSE"$:"LOADING PROGRAM ---":"INCOME STATEMENT".DK$;"RUN IS"8W80BWS(W(VC$))2:WS);VC$;WS12);:PGPG1:"PAGE ";PGL(W(PN$))2);PN$VI78:DE$(I):I&I7:J3:970,f16:1::Q$"DEMO INSTRUCTIONS:":Q$;40(Q$)):40)zIJ:1:DE$(I)X%(16384):16368,018:"THE HIGHLIGHTED CHOICE WILL BE SELECTED.":19:40):"PRESS WHEN READY TO GO AHEAD.";R$TEMENT(S)"* RDE$(2)"BALANCE SHEET ONLY"P \DE$(3)"INCOME STATEMENT(S) ONLY"y fDE$(7)"WITHOUT LAST YEAR'S FIGURES" pDE$(8)"WITH LAST YEAR'S FIGURES" zK3:KK1 10:1:I13:DE$(I):I I1:J9:970:973,I 10:1:958 K8:KK7Z$ M1CL700! M1CI700/ :LCLC1; LCLC1K OIM321W T(OI)0_ OIh 280t FIRST0 61);" ==============";  :LCLC2 TAT(9) OI19 *T(OI)0 4OI > HDE$(1)"BALANCE SHEET AND INCOME STAij T(M3)0630 280@ M1REJ6TA:NT(9):1270:550N J60280X &MTJ6n 0M2$;PC(M2$));v :Z$ DOI39 NJ6T(OI):NMT:1270:T(OI)J6 XOI bLCLC1:LC60İ1590:260 l280 vM2$;PC(M2$)); J6T(M3) 1280: JM31480 TM1AL390+ ^M1CL3904 hM2$R rLCLC1:LC60İ1590:260[ |280j I2511 (M2$,I,1)" "420 I T40 TI2);M2$ T15);" -------------------------" LCLC2 280 M32520 M135000(12)):CI(V$(13))# RE(V$(18)). NR%67R DK$;"OPEN GLT":DK$;"READ GLT"t I16:AC$(I):Z$:TA$(I):I DK$;"CLOSE" M4$" " 1620:1080 1160 ,M1CI1010 6PC28 8M32PC43 :M35PC61 @M1AHĭFIRST0İ750 r  PROGRAM NAMED --- FN&T(9)2DE$(8)>(V$(21)Q2AC$(6),TA$(6)]<PC$(2)jFDK$(4)|KFP$((973))PPN$"FINANCIAL REPORTS":1470Z840dPN$"BALANCE SHEET"n1550xFIRST1AL(V$(10)):AH(V$(11)) CL(V$     ,0:A$::L"8X%(16384):16368,0:A$::(W(VS$))2);VS$,((W(PN$))2);PN$D((W(VD$))2);VD$J(($:"USE ARROW KEYS TO MAKE SELECTION, AND":"PRESS . TO OBTAIN MENU CHOICES,":"PRESS .":(.X%(16384):16368,0:A$:::(W(VC$))2);VC$ )(W(VS."::"TO OBTAIN MENU CHOICES, PRESS ESC."0~J:(W(VC$))2);VC$b(W(VS$))2);VS$z(W(PN$))2);PN$(W(VD$))2);VD$L2:IJ1L5::DE$(I):X%(16384):16368,0z14:"THIS DEMONSTRATION CAN PRODUCE ERATION"jL:"WILL BE TO PRINT A CHART OF ACCOUNTS."::"PRESS WHEN READY TO GO AHEAD.";:R$:VPN$MC$(3):1160::IJK:DE$(I):I:1210`1160:jIJK:DE$(I):I*t:"USE ARROW KEYS TO MAKE SELECTION,"::"AND THEN PRESS RETURN3:930II1:930(I3I1:9307$II1:930D.J8:K10_8X%(16384):16368,0B:"ON THE BOOKKEEPER'S FIRST START-UP,"::"A LITTLE CUSTOMIZING MUST BE DONE."::"THIS HAS BEEN TAKEN CARE OF FOR THIS"::"DEMONSTRATION, SO THE NEXT OPQ$"WHEN READY TO GO AHEAD.":Q$;40(Q$)):40):=I1VI5:1::MC$(I);:qX%(16384):16368,0R$:R%(R$):R%1310701:MC$(I)R%111030R%81030R%101050R%211050R%271070930I1ID THEN PRESS RETURN."::"TO EXIT FROM THE BOOKKEEPER, PRESS ESC."|z16:1::Q$"DEMO INSTRUCTIONS:":Q$;40(Q$)):40)Q$"HIGHLIGHT VARIOUS MENUS WITH THE":Q$;40(Q$)):40):Q$"ARROW KEYS, AND PRESS OR ":Q$;40(Q$)):40)5DS$I1NU%'PN$(I),DE$(I). IEDK$;"CLOSE TABLE"` X%(16384):16368,0*::W40:VD$V$(2):VS$V$(1):VC$V$(7)RLI%1\PN$"MENU CHOICES":1160f6:1:I13:MC$(I):IBp:"USE ARROW KEYS TO MAKE SELECTION,"::"AN6010:X:"YY":6102A$;:B$:B$(8)650DR$R$Z$A$:PMC$(3)ePN$(11),DE$(11)MC$(1)"CURRENT MENU":MC$(2)"MONTHLY MENU":MC$(3)"OCCASIONAL MENU"X%(16384):16368,0DK$;"OPEN TABLE"DK$;"READ TABLE"NU%0(R$,2,1)"9"510+:(R$,2,1)"4"510BD(R$,2,1)"6"510XN(R$,2)"11"510zXR$R$Z$A$"/":A$"/":XX3b10:X:Z$:Z$"0"ĭZ$"9"640lZ$(8)XX3:10:X1:"D";:X1:R$(R$,3):490v610Z$;:A$:A$"0"ĭA$"9"6 ":"PRESS WHEN READY TO GO AHEAD. "::1590G#:DK$;"PR#3"M#b#I12000:II:Iu#(974)21580$(974)3Ğ:"SWITCH TO 40 COLUMN OUTPUT. ":"PRESS WHEN READY TO GO AHEAD. "::DK$;"PR#0":DK$;"IN#0":1590:158 ";:1590:FP$A$::FP$(27)1490A"FP$(27)1490S"DK$;"PR#1":Y"m"FP$(27)1540}"DK$;"PR#0"""(974)21530"DK$;"PR#3":(12):DK$;"PR#0":DK$;"IN#0"5#(974)3ė::"SWITCH TO 80 COLUMN OUTPUT. $))2);VS$")(W(PN$))2);PN$:)(W(VD$))2);VD$@))$:"USE ARROW KEYS TO MAKE SELECTION.":"PRESS . TO OBTAIN MENU CHOICES,":"PRESS .":).X%(16384):16368,0:A$:::AD. ":DK$;"PR#0":DK$;"IN#0":1780:1770H:(27);(17):DK$;"IN#0"NqX%(16384):16368,0:A$::))2);PN$!(W(VD$))2);VD$) :=*B$(27)LC64O4FLC65::FZ>LC0:vHA$(27)B$(27):860RDK$;"PR#1"\:fB$(27)890pDK$;"PR#0"zX%(16384):16368,0:A$::AV:"USE ARROW KEYS TO MAKE SELECTI:N$:V$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"CW40VD$V$(2):I02:PC$(I)"":J1(V$(I3))23:O5%((V$(I3),J,3)):PC$(I)PC$(I)(O5%):J:IVS$V$(1):VC$V$(7):(W(VC$))2);VC$(W(VS$))2);VS$  (W(PN$S12);"PAGE ";PG)X(WP(VS$))2);VS$Bb(WP(PN$))2);PN$[l(WP(VD$))2);VD$av:"ACCOUNT DESCRIPTION""------- ------------------------"LC8:X%(16384):16368,0:PR%0DK$;"OPEN SYSFIL":DK$;"READ SYSFIL"(2)::10v-1110::20:"PRESS FOR A DESCRIPTION OF A ":"TYPICAL TRANSACTION. ";:10000:973,0:DK$;"RUN PO"DWP80:B$(27)WP40IPN$"CHART OF ACCOUNTS":NPF%1:WS(WP(VC$))2:WS);VC$;:PGPG1:W! DK$;"CLOSE":DK$;"OPEN GLB"4 MO((VD$,2))d PP%(MOFM%12)12:PP%(MOFM%12)12PP%4y M1IL:II1:1100 1620  940 II67640 "M1ILM10:300 '1100 ,M31340 6M2$ @LCLC1:LC56İ1590:270 J280 PROGRAM NAMED --- IS5AC$(6),TA$(6),TY(9)AV$(21)M2PC$(2)Z<DK$(4)uFPN$"INCOME STATEMENT"P1460nIL(V$(14)):IH(V$(15))xEL(V$(16)):EH(V$(17))DK$;"OPEN GLT":DK$;"READ GLT" I16:AC$(I):Z$:TA$(I):!!"" " """""""  "3"44010:X:"M":370<R$R$Z$"/":Z$"/":XX3`10:X:Z$:Z$"0"ĭZ$"4"480Z$(8)XX3:10:X1:"M";:X1:R$(R$,1):410450Z$;A$:Z$"0"ĭA$"0"ĭA$"9"520Z$"0"ĭA$"0"ĭA$"9"60010:X:"D"YSFIL":DK$;"WRITE SYSFIL":I0(V$(0)):(34);V$(I);(34):I:DK$;"CLOSE SYSFIL"[h680rX16:10:X:R$"":Z$:(Z$)13ı|12:1:868:10:XZ$"0"ĭZ$"1"370R$Z$:Z$;Z$:R$"0"ĭZ$"0"ĭZ$"9"440R$"0"ĭZ$"0"ĭZ$)35,17:4:DK$B:10:"TODAY'S DATE: (MM/DD/YY)":UR$V$(2)300"12:1:"PRESS TO USE PREVIOUS DATE.",X%(16384):16368,06370@12:1:868JR$""V$(2)R$:270TR$V$(2):10:16:R$R^DK$;"OPEN S84):16368,0B:"PRESS WHEN READY TO GO AHEAD.";:R$HDK$;"OPEN SYSFIL":DK$;"READ SYSFIL":V$(0):I1(V$(0)):V$(I):I:DK$;"CLOSE SYSFIL":34,32(40(Q$))2);Q$20:46);"BY ARCHIMEDES' SYSTEMS, INC.";46-":"REVIEW":DK$;"RUN REVIEW":"A REQUEST FOR A DATE APPEARS AFTER EACH"::"STARTUP OF ARCHIMEDES' BOOKKEEPER."::"TYPE A DATE, AND PRESS .":"PRESS AGAIN, TO SEE THE MOST"::"RECENTLY ENTERED DATE RE-APPEAR." X%(163READY.":"PRESS TO INDICATE THAT IT IS.":::x"INSTRUCTIONS FOR OPERATING THIS ":"DEMONSTRATION PROGRAM ARE HIGHLIGHTED. ":"PRESS TO CONTINUE THE ":"DEMONSTRATION.":R$::R$"Y"ė:"LOADING PROGRAM --":"ABBREVIATED STEP BY STEP VERSION OF THE":"BOOKKEEPER PROGRAM. OPERATING " d"DIRECTIONS SHOWN ON THE SCREEN ARE ":"DISPLAYED JUST AS THEY APPEAR WHEN THE ":"COMPLETE PROGRAM IS RUN: "7n:::"PRINTER MUST BE ON AND RATED ":"USER'S MANUAL, WRITTEN IN PLAIN, "f X"NON-TECHNICAL LANGUAGE. "l Y Z"PRESS THE KEY TO CONTINUE ":"EXPLANATION. " [R$::W _"THIS DEMONSTRATION DISK PRESENTS AN F MODERN TECHNOLOGY. THE RESULT IS A " T"SYSTEM WHICH IS EASY TO UNDERSTAND AND ":"OPERATE. " U7 V"THE ARCHIMEDES' BOOKKEEPER PACKAGE ":"INCLUDES: 2 READY-TO-USE WORKING DISKS,":"A MASTER DISK, AND AN ILLUSTY ASSOCIATED WITH MANUAL ":"BOOKKEEPING BY MAINTAINING BOOKS WHICH ":"ARE ALWAYS IN BALANCE. "w R' S"TO DO ALL THIS, THE BOOKKEEPER COMBINES":"THE DEPENDABLE FEATURES OF CONVENTIONAL":"BOOKKEEPING WITH THE SPEED AND ACCURACY":"O260 7974,2:80/ <974,1:(1101)3875R A(1101)234ĭ(1250)17375Z F80e K974,3 P:"ARCHIMEDES' BOOKKEEPER KEEPS YOUR BANK ":"BALANCE CURRENT, DOES THE ARITHMETIC ":"FOR YOU, AND ELIMINATES MOST OF THE "q Q"TEDIUM USUALL} PROGRAM NAMED HELLO'V$(21)Q$"ARCHIMEDES' BOOKKEEPER":R$"DEMONSTRATION"::10:(40(Q$))2);Q$::(40(R$))2);R$:I11500:II:DK$(4): 972,3#X%(49920):I%0:X%25555((49920)X%55-I%I%1:I%2040 0 $":(27);(17):DK$;"IN#0"&$,I$6X%(16384):16368,0:A$::(1)"."Z$Z$".00"!Z$"$"Z$?(Z$)12Z$" "Z$:1210EfX%(16384):16368,0:PR%0DK$;"OPEN SYSFIL":DK$;"READ SYSFIL":N$V$(0)N$:I1(N$):V$(I):I:DK$;"CLOSE SYSFIL"W40FM%(V$(19))IVD$V$(2):I02:PC$(IM1$(Z$,5):M2$(Z$,6,25):M3$(Z$,1)G`M1(M1$):M3(M3$):IIII1WjM1IL1100_tI1t~M1$AC$(I)1180II1:I71150J60:Z$TA$(I)(Z$,1)" "Z$(Z$,2):1185J6(Z$):H6J6:M1ELJ6J6Z$(J6):(Z$,(Z$)2,R "(PP%3)" MONTHS":PP%4Q$(Q$,(Q$)1)GQ$Q$" ENDING "VD$](W(Q$))2);Q$h25);6);"THIS MONTH";10);"YEAR-TO-DATE";25);5);"--------------";6)"--------------";:LC6$LDK$;"READ GLB":Z$'V0z:I810:DE$(I):I+7::DE$(8)b16:"PRESS WHEN READY TO GO AHEAD.";R$::"LOADING PROGRAM ---":DE$(8)DK$;"RUN AM"W80WS(W(VC$))2:WS);VC$;WS12);:PGPG1:"PAGE ";PG(W(PN$))2);PN$.Q$"FODK$;"RUN REVIEW"-HPN$"MENU CHOICES":1540IR6:1:I13:MC$(I):I]\8:1::MC$(3)f16:"OTHER FEATURES OF THE OCCASIONAL MENU ":"WILL BE DEMONSTRATED NEXT. ":"PRESS WHEN READY TO GO AHEAD.";R$:p:PN$MC$(3):154CATIONS ">"FROM WHICH THEY CAN LATER BE RETRIEVED,":"AND CLEARS THE RECORDS FOR A NEW MONTH.":"IT WILL NOT BE DEMONSTRATED. ":"PRESS WHEN READY TO GO AHEAD.";R$:B(972)1Ĺ972,0C(972)0ė:"LOADING REVIEW PROGRAM":DS$ I1NU%% PN$(I),DE$(I), IC DK$;"CLOSE TABLE"q W40:PN$MC$(2):1540::I57:DE$(I):I *9::DE$(7) 416:"THIS IS THE FINAL ACTION TAKEN AT THE ":"END OF EACH MONTH. IT MOVES THE ":"CURRENT MONTH'S FIGURES TO LOQ$;40(Q$)):40):Q$"ARROW KEYS, AND PRESS OR ":Q$;40(Q$)):40)Q$"WHEN READY TO GO AHEAD.":Q$;40(Q$)):40):I1I5:1::MC$(I);:X%(16384):16368,0R$:R%(R$):R%1310701:MC$(I)R%1S":1160$f6:1:I13:MC$(I):Ip:"USE ARROW KEYS TO MAKE SELECTION,"::"AND THEN PRESS ."::"TO EXIT FROM THE BOOKKEEPER, PRESS "z16:1::Q$"DEMO INSTRUCTIONS:":Q$;40(Q$)):40)VQ$"HIGHLIGHT VARIOUS MENUS WITH THE":ENU"X%(16384):16368,05DK$;"OPEN TABLE"KDK$;"READ TABLE"TNU%]DS$jI1NU%}PN$(I),DE$(I) IDK$;"CLOSE TABLE" X%(16384):16368,0*::W40:VD$V$(2):VS$V$(1):VC$V$(7)RLI%1\PN$"MENU CHOICE8)XX3:10:X1:"D";:X1:R$(R$,3):4905v610XZ$;:A$:A$"0"ĭA$"9"660n10:X:"YY":610A$;:B$:B$(8)650R$R$Z$A$:MC$(3)PN$(11),DE$(11)MC$(1)"CURRENT MENU":MC$(2)"MONTHLY MENU":MC$(3)"OCCASIONAL M(W(PN$))2);PN$+(W(VD$))2);VD$3:PX%(16384):16368,0:(W(VD$))2);VD$q:X%(16384):16368,0:D==="; LCLC1::1590:16500 DK$;"CLOSE"< MC$(3)N (972)0835c PN$(11),DE$(11) MC$(1)"CURRENT MENU":MC$(2)"MONTHLY MENU":MC$(3)"OCCASIONAL MENU" X%(16384):16368,0 DK$;"OPEN TABLE" DK$;"READ TABLE" NU% SF%1:M1IHSF%15 M3MLMLM3:M1IHSF%1Q J6TY(M3):SF%0J6J6m Z$(J6):1190:5);Z$;z &8);Z$; :: DOIM321 NTY(OI)0:OI lLCLC3:LC56İ1590:270 v280 25); 5);"==============";6);"=========== TM32450 ^J602802 rM2$;25(M2$));E |5);Z$;8);Z$Q OI39f TY(OI)TY(OI)H6n OI LCLC1:LC60İ1590:270 280 TY(M3)0280 25); 5);"--------------";6);"--------------";  M2$;25(M2$));IS REMINDER AGAIN: ":::"PRINTER MUST BE ON AND READY."::p:"TO OBTAIN PRINTED FINANCIAL REPORTS, ":SP$:"PRESS . "::"TO LOOK AT THESE PAGES ON THE MONITOR "rSP$:"SCREEN ONLY, PRESS