' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   ՠ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`RENCE":10:"SUBTOTALS":12:"AMOUNT":14:"DETAILS"HI140:"-";:UI1:773"TT,2:TB,14:TW,4011:TL,11:11:12,:C$:C$"END"45306C$(C$,1):C$"I"A0:4180@C$"E"A1:4180JG$:4140T:H$(A):I1(0,0,I)A ^6:C12);:A01:?H$(A);" ACCOUNTS":I1(H$(A))9:"*";:::\I0P%(A):I110ĺ1);|I1;". ";A$(A,I):::::(12):T1(0)T(0):T1(1)T(1):1020:1270::" ENTRY OF TRANSACTIONS "::3:"INCOME/":"EXPENSE"46:"DATE":8:"REFE290::"ERROR #";(222):G$:3290C I%(0)1:I%(1)Y12M1:3380`DATE FIXED NOW CONTINUEk2040:10:"DO YOU NEED A PRINTED COPY OF THE":"ACCOUNT NUMBERS AND NAMES? ";C$:C$(C$,1):C$"N"İ1240:4080C$"Y"ĺG$:4020 1240:(C$:4000z :10:"THIS MONTH'S BALANCES ARE ALREADY":"RECORDED ON THE BUDGET DISK."::"DO YOU WANT THE CURRENT BALANCES":"RECORDED INSTEAD? ";C$:C$(C$,1):C$"Y"3410 C$"N"İ290:4000 G$:3450 (222)53510 (222)2555000" 1:I%(I%(0))Y12M1,4 D$;"OPEN IND.";F$D> D$;"WRITE IND.";F$\H C0I%(0):I%(C):tR D$;"OPEN M";M;Y;F$\ D$;"WRITE M";M;Y;F$f P%(0):P%(1):280p :10:4::"PLACE THE DATA DISK IN DRIVE ";(771)::20:"PRESS WHEN READY ";"PLACE THE BUDGET DISK IN DRIVE ";(771)::20:"PRESS WHEN READY ";C$:1000` 3480w D$;"OPEN IND.";F$ D$;"READ IND.";F$ C:I%(C1):I%(0)C C1I%(0):I%(C): C1I%(0):I%(C)(Y12M1)ĺD$:3450 * I%(0)I%(0)1 :8::R1M10ĺ"THIS IS A NEW DISK":3250L "THIS IS A NEW MONTH" ::"THE CURRENT BALANCES SHOULD BE STORED":"ON THE BUDGET DISK.";G$::"DO YOU WANT TO DO THIS? ";C$:C$(C$,1):C$"Y"3280 C$"N"4000 3230 U 10:4::1"31300 RR1:3100<: D1:M1:Y1:DD1MM1YY13150[D RC1:350:410:390:3200jN 290:3200}X (222)53180b 290:2010:3080:NO FILE ERROR TRAPl R03170v 420:R10:R0:470:390:3080 R1MM13220 4000 2040NY NAME FROM P. 39 X(838):I1X:F$F$((838I)):K 216,0:2070` 150:210:216,0k 2040u 1080 CHECK DATE ON TRANSACTION FILE AND LOG IF DIFFERENT FROM LAST DATE 3160 R0:310:370:CR R03140& 330:C$:C$"-R HANDLINGL(222)2551140=V:10:"ERROR #";(222):%C$:C$(C$,1):C$"Y"3500& 768,1m:773:"TYPE THE NEW ITEM NO. ";C1:"> ";C$:(C$)20ĺG$:3590C$""A$(A,C)C$"BALANCE $ ";C$:C$""B(A,C)((C$)100.5)100$0:1002.IC:TT,33:4:958:I0345083460 BERRO"(PRESS TO ESCAPE) ";C$:C$""3030H C$(C$,1):C$"Y"3550Z C$"N"3500{ TT,3:4:958:IP%(A)3450 3490 :"WHAT IS THE ITEM'S NUMBER? ";C$:C((C$)):CC1 CP%(A)C03500 :"IS THE ITEM ";::A$(A,C);::"? ";T NAMES\ DISPLAY NAMES>f ::(40(H$(A)))2::H$(A):Kp TT,3:4Sz I0[ X1 I1;". ";A$(A,I);27);"$";B(A,I): X7(X7)IP%(A)3500 II1:XX1:3470, TT,19:20:"IS THE ITEM TO BE CHANGED DISPLAYED":"ON THE SCREEN?": TR.";F$;",R";I#p1:J15:0:@zD$;"WRITE TR.";F$;",R0"MR%(0)1W1000I%(0)%D$;"READ TR.";F$;",R";R%(I)\D%(I):I1(0,I):J01:I$(J,I)::I1$(I):I1(1,I)br D$;"CLOSE"{7304I1R%(0)>D$;"WRITE TR.";F$;",R";IHD%(I):I1(0,I):J01:I$(J,I)::I1$(I):I1(1,I)RR%(I)I\fD$;"WRITERITE CHK.";F$;",R";R1+$R$(R1):R%(R1):;.D$;"CLOSE"8(771)1ė:10:"PLACE THE PROGRAM DISK IN THE DRIVE":20:"PRESS TO CONTINUE ";C$B:10D%(R%(0)),I1(1,R%(0)),I$(1,R%(0)),I1$(R%(0))D$;"OPEN TR.";F$;",L64"I1RRR1:RCİ200:4000"40703D:D04080z M:Y:T1(0):T1(1):DA$(D)"/"(M)"/"(Y):DA$"STARTING "DA$640:420:4150290:D%:D%14150"350:390,D$:6906RR1:RC4170@4120J200:760:670:4000T A":" PARTICULAR DAY":"4. LIST THE TRANSACTIONS STARTING":" FROM A PARTICULAR DAY":"5. RETURN TO THE PROGRAM MENU":"WHICH? ";C$:C((C$)):C1C54010ZC:C4060,4180,4280,4280,3050400:270:310:CR:R1:290D%:D%14100U,D1"X G$:771,1:3130J216,0:2140:PRINT A LIST OF TRANSACTIONSh:8:"DO YOU WANT TO:":"1. LIST ALL THE TRANSACTIONS ON":" THE DISK":"2. LIST ALL THE DATES AVAILABLE ON":" THE DISK"y"3. LIST THE TRANSACTIONS OCCURRING ON "2. PRINT A PROFIT AND LOSS STATEMENT"J "3. RETURN TO THE MAIN MENU"|& :"WHICH? ";C$:C((C$)):C1C3ĺG$:30600 C4000,5000,3130: 3160D (771)1ė:10:"PLACE THE PROGRAM DISK THE DRIVE":"AND PRESS ";C$N D$;"RUN MEN WHEN READY ";C$; READ COMPANY NAME FROM P. 3c X(838):I1X:F$F$((838I)):n 2040 160:220:216,0 2060 ::4:14::" PROGRAM MENU "::: "DO YOU WANT TO:": "1. PRINT A LIST OF PAST TRANSACTIONS"(70:TT,15:TL,0:TW,40::41202*1340:1270::D*EXIT PROGRAMO*5040*(771)1ė:10:"PLACE THE PROGRAM DISK THE DRIVE":"AND PRESS ";C$*D$;"RUN MENU,D1"*G$;:771,1:5010E(I1(0,J,I)1):(X$)2X$"0"X$o)\(H$(I1(0,0,I)),2);"-";X$;:TA11I1(0,0,I)13:TI1(1,J,I):1410:::4730)fX$(I1(0,1,I)1):(X$)2X$"0"X$)p1);(H$(I1(0,0,I)),2);"-";X$;:TA11I1(0,0,I)13:TI1(1,0,I):1410:)z:C$"END"4750*121,I):T(*:470:390:260A(4216,0:2040:PRINT TRANSACTION(>1240:I1X:I$(0,I);11(I$(0,I)));I1$(0,I);36(I1$(0,I))(I$(1,I)));I$(1,I);:D%(I)14710(HTA0:TI1(1,0,I):" $";:1410: )RJ1D%(I):11);I1$(J,I);37(I1$(J,I)));:X$SK WRITE '310:370:420:450y'I1X:RR1:TR:350:D%(I):I1(0,0,I):J01:Q$;I$(J,I)::Q$;I1$(0,I):I1(1,0,I)'D%(I)1ĺI1(0,1,I):4630' J1D%(I):RR1:350:K01:I1(K,J,I)::I1$(J,I):'I1(0,0,I)04650( R1R11:430:Q$;I$(1002:XI1:X0ĺ:1240:4750o&I1X:AI1(0,0,I):D%(I)1B(A,I1(0,1,I))A(B(A,I1(0,1,I))I1(1,0,I)):4560&J1D%(I):B(A,I1(0,J,I))A(B(A,I1(0,J,I))I1(1,J,I)):&T(A)A(T(A)I1(1,0,I))&:::"WAIT FOR DISK UNIT":'216,0:2100:DITW,40::4130?%TT,15:XA(XI1(1,J,I))::XI1(1,0,I)4510%:"SUBTOTALS DO NOT BALANCE":"WITH MAIN TOTAL"::"START THIS TRANSACTION AGAIN":::"PRESS WHEN READY ";C$:4520%II1:I104530%TT,15:TL,0:TW,40::4130&0:W,40:TT,15::16:"ACCOUNT NO":TW,4011:TL,11:12:$X16:C$:I1(0,1,I)((C$)1):I1(0,1,I)0I1(0,1,I)P%(A)ĺ"ILLEGAL ENTRY":4440$b16:958:A$(A,I1(0,1,I))$l18:"IS THIS CORRECT? ";C$:C$(C$,1):C$"Y"4510$vC$"N"4460%TL,0:A((C$)):I1(1,J,I)T:22:958:1410:h#TT,22:24:"IS THIS CORRECT? ";C$:C$(C$,1):C$"Y"4490}#&C$"N"ė:4380#0:"START THE WHOLE TRANSACTION":"AGAIN? ";C$:C$(C$,1):C$"Y"4520#:C$"N"4400#DTT,15:43306$NTB,24:TL,0:T:"AMOUNT":TW,4011:TL,112"12:X0:J1D%(I)G":"SUBTOTAL ";J"18:C$:I1(0,J,I)((C$)1):I1(0,J,I)0I1(0,J,I)P%(A)ĺ"ILLEGAL ENTRY":4340"18:958:A$(A,I1(0,J,I))"20:C$:I1$(J,I)(C$,27):20:958:I1$(J,I)(#22:"$ ";C$:T):I1(1,0,I)T:12:958:"$";:TA0:1410:`!TT,12:14:C$:I1$(0,I)(C$,25)::14:I1$(0,I);r!D%(I)14430!TT,15:TL,0:TW,40:TB,24::"ALL RIGHT SO FAR? ";C$:C$(C$,1):C$"N"ė:4130!C$"Y"4290":18:"ACC NO":20:"DETAILS":22$:C$""I$(0,I)DA$:4210. hI$(0,I)(C$,8)D r6:958:I$(0,I)q |8:C$:I$(1,I)(C$,6):8:958:I$(1,I) 10:C$:D%(I)((C$)):D%(I)0D%(I)1 D%(I)1D%(I)P%(A)1ĺ"INVALID ENTRY":4230 10:958:D%(I)*!12:"$ ";C$:TA((C$)":"AND PRESS ";C$1! D$;"RUN MENU,D1"G! G$;:771,1:3010W! GOTO ENTRYb! 3090! (771)1ė:10:"PLACE THE PROGRAM DISK THE DRIVE":"AND PRESS ";C$! 768,3:D$;"RUN ENTRY,D1"! G$;:771,1:3060O"WHICH? ";C$:C((C$)):C1C2ė:4:28107  C2ĬI " R%(0)03000r , R11:540:I1R%(0):R$(I)"]"2880 6 550:Q$;R$(I):R%(I):R1R11 @ :R1R11:590:200 EXIT PROGRAM 3040! (771)1ė:10:"PLACE THE PROGRAM DISK THE DRIVEC((C$)):C1C2ė:4:2760/ C3050,28005  "A RECONCILIATION BETWEEN THE STATEMENT":"AND THE ACCOUNT HAS BEEN ACHIEVED": "DO YOU WANT TO:"::"1. RETURN TO THE MAIN MENU"::"2. COMMENCE THE RECONCILIATION":" PROCESS AGAIN",  :10n "THE RECONCILED BALANCE DOES NOT BALANCE":"WITH THE BALANCE IN YOUR ACCOUNT":::"DO YOU WANT TO:": "1. RECORD FURTHER TRANSACTIONS ON THE":" TRANSACTION FILE."::"2. COMMENCE THE RECONCILIATION":" PROCESS AGAIN" :"WHICH? ";C$:(0)T(1)):Y0:XTLY1:"THE STATEMENT RECONCILES WITH THE ACCOUNT BALANCE":2750 "THE STATEMENT DOES NOT RECONCILE WITH THE ACCOUNT BALANCE":TA0:TTL:"RECONCILED STATEMENT IS $";:500:::TX:"ACCOUNT BALANCE IS $";:500: 480:::4:Y1281:I1:R%(0)02720(d R$(I)"]"2690@n II1:IR%(0)2720Jx 2660 450::"UNPRESENTED CHEQUES":270:I1R%(0):R$(I)"]"2710 RR%(I):330:XI1(1):R1$I$(1):420 :200:480 450:I148:"-";:::TA46:TTL:500:::R XA(TRE NOT":"ON THE STATEMENT":TT,5:6:450::"DEPOSITS NOT ON STATEMENT":480:s( :"AMOUNT $";C$:C$"END"26502 XA((C$)):6:8:958:TA0:TX:500< 8:"CORRECT? ";C$:C$(C$,1):C$"N"2600F C$"Y"2620P 450:420:480:2600Z :C"N"2510 G$:2530L ::7::" UNPRESENTED TRANSACTIONS ":TT,2:3: "ARE THERE ANY ";::"DEPOSITS";::" ON THE JOURNAL":"WHICH ARE NOT ON THE STATEMENT ?";C$:C$(C$,1):C$"N"2650 C$"Y"ė:2570O C0::"TYPE IN DEPOSITS WHICH A2530 :200w 9:958:"THERE ARE NO MORE BANK CHARGES ON THE":"FILE"::"PRESS TO CONTINUE";C$:2260 RR%(I):330:D$:9:958:"AMOUNT ";:TA0:TI1(1):500:14:"CORRECT? ";C$:C$(C$,1):C$"Y"R$(I)"]":XI1(1):200:2460 C$Є"AMOUNT ";C$:XA((C$)):7:8:958:TA0:TX:500c~ 14:"CORRECT? ";C$:C$(C$,1):C$"N"2260u C$"Y"2430 C12470 450:420:480:2260 I1R%(0):R1$R$(I)R$(I)"]" :2460 R%(0)02520 270:I1R%(0):R$(I)"BANK"B :200:Y0Ģ9:"THIS ENTRY IS NOT ON THE UNPRESENTED":"CHEQUE FILE":2390tL 9:"AMOUNT ";:TA0:TX:500:2430V :"DO YOU WANT TO ADJUST THE":"JOURNAL NOW? ";C$:C$(C$,1):C$"Y"ĺ:450::"ABORTED":480:3050` C$"N"2260j 23903t 7: :::43);"==========="X TT(0)T(1):"NET ";:T0ĺ"LOSS";:T(T):TA44:5100m "PROFIT";:TA42 830::670:3050& LOSS STATEMENT":640:(12)^8);"PROFIT AND LOSS STATEMENT":(42(F$))2);F$::~A01:H$(A);" ACCOUNTS":I0P%(A):A$(A,I);:TA40(A$(A,I)):TB(A,I):830:::31);"-----------" "TOTAL ";H$(A);:TA46(H$(A)):TT(A):830:1DA$(D)"/"(M)"/"(Y):4360,4330\T1(0):T1(1):640:Z4DA$"STARTING "DA$o420:Z44150RR1:RC4430&290:D%:D%144200350:390:D$:690:4380:200:670:4000DD$:760:4330ND$:760:4410PROFIT M)(Y)):TA(T1(0)T1(1)):830:8((I)));IORR1:RCĺ:200:670:4000Y4210iD%1RR1s4240CHOOSE A DATE490:400270:310:CR:R1RC4410290:D%:D%14340RR1:4310"D1:M1:Y1:DD1MM1YYLIST DATES AVAILABLE ON DISK^400:640:(12):"POSTING DATES AND BALANCES"::"DATE";8);"BALANCE";2);"PROG. ENTRIES":I0h270:310:CR:R1r290:D%:D%1II1:RRD%:4260|D:M:Y:T1(0):T1(1):D$.D;"/";M;"/";Y;:TA15((D)(NANCIAL YEAR":"DO YOU WISH TO PROCEED? ";C$:C$(C$,1):C$"N"ĉ:1120Y&X C$"Y"3150d&b :500n&l 690&v C$(C(I%(C))1)((I%(C)12)):J0:270& XI%(0)13220& C$(C(I%(X))1)((I%(X)12)):J1:270:3230' A01:I0P%(A):B(1,AIĺ"CURRENT BALANCE":3100G% (M$(Y%(C(I%(X)))),3);1);(I%(X)12)}% :"IS THIS CORRECT? ";C$:C$(C$,1):C$"N"3050%& C$"Y"3080%0 XI%(0)3170%: Y%(C(I%(C)))Y%(C(I%(X)))3150%D 3170G&N :"THIS PERIOD CROSSES THE END OF A":"FIBESIDE THE ";::"FIRST"::"DATE WANTED ";C$:C((C$)):C1CI3050$ :"TYPE THE NUMBER BESIDE THE ";::"LAST"::"DATE WANTED ";C$:X((C$)):X1XI3060$ XCĺG$:3050% :"DATES WANTED:":(M$(Y%(C(I%(C)))),3);1);(I%(C)12);20);:XTT,2:3Y# :"BALANCES HAVE BEEN RECORDED AT THE":"BEGINING OF THESE MONTHS:":TT,5:6# TW,20:I1I%(0):I7ĹTL,20:21:# I;". ";(M$(Y%(C(I%(I)))),3);1);(I%(I)12):::I;". CURRENT BALENCE"F$ TW,40:TL,0:TT,19:20::"TYPE THE NUMBER I,A)B(T(I,A)B1(J,A,I))::::::"f::"TOTALS":"******":::A01:I0P%(A):H$(A);10(H$(A)));A$(A,I);32((T(I,A)))(A$(A,I)));T(I,A)::::"p480:" COMPARE BUDGET & PERFORMANCE# ::5::" COMPARE BUDGET & PERFORMANCE "::$";T(J,0);14((T(J,1))));"$";T(J,1)::480:!>A01:I0P%(A):"BUDGET FOR ";H$(A);" ACCOUNT ";A$(A,I):K120(H$(A))(A$(A,I)):"*";::::!HX0:J011:(M$(J),3);12((B1(J,A,I))));"$";B1(J,A,I);:XX1:X1X0::2140!R8);%"\T(A);" ACCOUNTS":# X0:I0P%(A)v A$(A,I);36((B1(J,A,I)))(A$(A,I)));"$";B1(J,A,I);:XX1:X1X0::2090 3); *T(J,A)B(T(J,A)B1(J,A,I))::::::::::::/!430);H$(0);7);H$(1)::J011:M$(J);35(M$(J))((T(J,0))));"Tz:4:"DO YOU WANT TO PRINT THE BUDGET BY:"::"1. MONTHS"::"2. ACCOUNTS"::"WHICH? ";C$:C((C$)):C1C22010J050:A01:T(J,A)0::450:C2040,2110J011:"BUDGET FOR ";M$(J):K111(M$(J)):"*";:::: A01:H$((C$,3):J011:C$(M$(J),3)1850\&:J((C$)1):J0J11ĺ"ILLEGAL MONTH":21:1810h0JY%(J)::"TYPE THE NEW BUDGET FIGURE FOR ";M$(J):"> $";C$:C$""1880D(C$)B31850NB1(J,A,I)B((C$)):768,1XTT,4:1770PRINT BUDGEH$(A);" ACCOUNT ";A$(A,I)::TT,4:5::TW,20:J011k(M$(J),3);10((B1(J,A,I))));B1(J,A,I):J5ĹTL,20:22::TL,0:TW,40:TT,20:21"WHICH MONTH IS TO BE CHANGED?":"(PRESS TO ESCAPE) ";C$:C$""ĹTT,2:1650$C$D ACCOUNT ON THE SCREEN?":"(PRESS TO ESCAPE) ";C$:C$""ĹTT,2:1410mC$(C$,1):C$"Y"ė:1750C$"N"ĹTT,4:1670:1710"WHAT IS THE NUMBER OF THE ACCOUNT? ";C$:I((C$)1):I0IP%(A)ĺ"ILLEGAL NUMBER":1750%TT,2:::::A12:A;". ";H$(A1);" ACCOUNTS":::"WHICH? ";C$:A((C$)1):A0A11640r:10::1);H$(A);" ACCOUNTS "::TT,4:5|I0:X1I1;". ";A$(A,I)::II1:XX1:IP%(A)I0:1710X717101680NTT,20:21:"IS THE WANTE\6"WHAT IS THE NUMBER OF THE ITEM? ";C$:I((C$)1):I0IP%(A)ĺ"ILLEGAL NUMBER":1590@:"TYPE THE NEW BUDGET FIGURE FOR":A$(A,I);:" $";C$:C$""1630J(C$)B31600TB1(J,A,I)B((C$)):768,1^TT,4:1500Rh:8:"DO YOU WANT:",A,I))));"$";B1(J,A,I)::II1:XX1;IP%(A)I0:1550IX71550S1510TT,20:21:"IS THE WANTED ITEM ON THE SCREEN?":"(PRESS TO ESCAPE) ";C$:C$""ĹTT,2:1410C$(C$,1):C$"Y"ė:1590"C$"N"ĹTT,4:1500,:1550C$)1):J0J111450!JY%(J)12:"DO YOU WANT"::A12:A;". ";H$(A1);" ACCOUNTS":::"WHICH? ";C$:A((C$)1):A0A11470:4::1);H$(A);" ACCOUNTS FOR ";M$(J);1)::TT,4:5I0X1:$I1;". ";A$(A,I);26);10((B1(J:"1. EDIT ALL THE ACCOUNTS FOR":" A PARTICULAR MONTH"::"2. EDIT ALL MONTHS OF A":" PARTICULAR ACCOUNT"::"3. FINISH EDITING":"WHICH? ";C$:C((C$)):C1C31410C1450,1640,1440:::8:"WHICH MONTH (1 - 11)? ";C$:J((CE THE PROGRAM DISK IN THE DRIVE"P*23:"PRESS WHEN READY ";C$:4020a*771,1:4010) 3330s) A$(A,I);20(A$(A,I)));11((Z)));Z;:Z1B(B(1,A,I)B(0,A,I)):13((Z1)));Z1;:Z10Z0ĺ:3380)* ZA((Z1Z)Z100):13((Z)));Z)4 ::)> 480)H )4060)(771)14040)500)D$;"RUN MENU,D1"!*:10:"PLAC)1)12)( XY%(C(I%(X)1))3( CY%(C(I%(C)))( 23);"BUDGETED";7);"ACTUAL";3);"PERCENTAGE":24);"AMOUNT";8);"AMOUNT";3);"DIFFERENCE":( A01:H$(A);" ACCOUNTS"( I0P%(A):JC:Z0( ZB(B1(J,A,I)Z):JX3360( JJ1:J11J0,I)B(2,A,I)::' 550%' :450' "BUDGET COMPARISON FOR ";F$:::"FROM THE BEGINING OF ";M$(Y%(C(I%(C))));", 19";(I%(C)12);" TO THE ";' XI%(0)1XY%(C(I%(I%(0)))):"CURRENT BALENCE":3290 ( "END OF ";M$(Y%(C(I%(X)1)));" 19";((I%(z#?     îΠ̮ΠîҮΠˮΠՠԠР٠$נˠԠ$ٮŠAL.";F$)A01:I0P%(A):B(A,I)::9D$;"CLOSE"VD$;"OPEN TR.";F$;",L64"hR%(0)02100D$;"WRITE TR.";F$;",R0"0D$;"OPEN CHK.";F$;",L13"D$;"WRITE CHK.";F$;",R0"R%(0)R%(0)01070R11R%(0)D$;"WA DISK IN DRIVE ";(771);:"? ";C$:(C$,1)"Y"520QfD$;"INIT BOOT,D";(771)gpD$;"DELETE BOOT"uzN11080D$;"OPEN ACC.";F$D$;"WRITE ACC.";F$P%(0):P%(1):A01:I0P%(A):Q$;A$(A,I)::D$;"OPEN BAL.";F$D$;"WRITE BE":" DISK":"2. RETURN ALL BALANCES TO ZERO"`4:"WHICH? ";C$:C((C$)):C1C2ĺG$:800>:8:C1ĺ"BALANCES TO BE CARRIED FORWARD":860H"BALANCES TO BE SET TO ZERO"RA01:I0P%(A):B(A,I)0::T(A)0::R%(0)04\:"IS THE NEW DATOYED"U(771)1Ģ18::"DON'T LEAVE ANOTHER DISK";40)::"IN THE DRIVE";40)::::"ARE YOU READY TO PROCEED? ";C$:C$(C$,1):C$"N"1080 C$"Y"ĺG$:730N1870 :8:"DO YOU WANT TO:":/*"1. CARRY CURRENT BALANCES ON TO TH)R1:R10720R11R%(0)=D$;"READ CHK.";F$;",R";R1SR$(R1):R%(R1):cD$;"CLOSE"rR102000:10:4);"PLACE THE NEW DATA DISK IN DRIVE ";(771)12:(771)1ğ" WARNING - "::14:"ANY DATA ON THIS DISK WILL BE DESTR1)XD$;"READ ACC."F$IbP%(0):P%(1):A01:I0P%(A):A$(A,I)::`lD$;"OPEN BAL.";F$wvD$;"READ BAL.";F$A01:I0P%(A):B(A,I)::D$;"CLOSE"D$;"OPEN CHK.";F$;",L13"D$;"READ CHK.";F$;",R0"R1:R$(R1),R%(R1):R%(0SK FOR AN EXISTING ACCOUNT"::"3. A BUDGET DISK":]"WHICH? ";C$:N((C$)):N1N3520j&N3N1w0N1730:::10:4:"PLACE THE OLD DATA DISK IN DRIVE ";(771):D20:"PRESS WHEN READY ";C$:ND$;"OPEN ACC.";F$;",D";(77%C4ĺ"DISK WRITE PROTECTED":510c8:10:"ERROR #";C::"IN LINE ";(218)(219)256:20:}:::I14000::10A$(1,50),B(1,50):INITIALIZE A NEW DATA DISK 3:8:"DO YOU WANT:"::"1. A DATA DISK FOR A NEW ACCOUNT"::"2. A DATA DIP%(2)2ė:4::"PLACE THE DATA DISK IN DRIVE 2"::200@190XC(222):C255370::10:C6ĺ"HAVE YOU THE CORRECT DISK IN DRIVE 1?":510C8ĺ"MALFUNCTIONING DISK DRIVE":510C5ĺ"HAVE YOU THE DATA DISK IN DRIVE ";(771);"?":510::17);"SYSTEM" 20:10);"WRITTEN BY IAN SEARLE":5);"COPYRIGHT (C) SEASEN SOFTWARE":5);"BOX 261, MYRTLEFORD, VICTORIA." 13);"OCTOBER, 1980" D$;"BLOAD KEY.CODE,D1" 838,(F$):I1(F$):838I,((F$,I,1)): I13000::780:D$;"RUN SET UP,D1"2 J380:D$;"RUN ENTRY,D1"O T380:D$;"RUN REVIEW,D1"j ^380:D$;"RUN BANK,D1" h380:D$;"RUN BUDGET,D1" r775,0:: |:12:10::" WAIT FOR DISK UNIT ":: ::10:17);"SEASEN"::7);"SMALL BUSINESS ACCOUNTING""4. REVIEW TRANSACTIONS":? "5. RECONCILE BANK STATEMENT":^ "6. EXAMINE THE BUDGET": "7. INITIALIZE A DATA DISK": "8. END THE PROGRAM": ""WHICH? ";T$:T((T$)):T1T8190 ,768,T 6T320,320,330,340,350,360,520,370 @3169,22,133) I773783:X:X(I)390/ : :200@ t 14::" MAIN MENU "::::"DO YOU WANT TO:": "1. SET UP A NEW COMPANY'S ACCOUNTS": "2. EDIT THE HEADINGS OF AN EXISTING":" ACCOUNT": "3. ENTER TRANSACTIONS": NTER SLOT,1=PRINTER TYPE,2=NO. OF DRIVES:3=PRINTER OUTPUT SPEEDf dPRINTER TYPE - 1=PARALLEL,2=OTHER nI03:769I,P%(I): xF$"DEMONSTRATION" COMPANY NAME, LESS THAN 26 CHARACTERS D$(4):Q$(34):: 169,240,133,54,169,253,133,55,X? SMALL BUSINESS ACCOUNTING PROGRAM WRITTEN BY IAN SEARLE.mCOPYRIGHT (C) SEASEN SOFTWARE, PTY, LTD.BOX 261, MYRTLEFORD, VICTORIA.(4502255<FCONTROLS POKED IN PAGE 3PP%(3):P%(0)1:P%(1)1:P%(2)1:P%(3)200? Z0=PRI      :3030 3460  PRINT LIST, (772)A D$;"PR#";(769)Z (770)1ĺI$;"80N";m (12);:A01 H$(A):I1(H$(A)):"*";:::* I0P%(A):I110ĺ1);4 I1;". ";A$(A,I):::::> D$;"PR#0"H 255:3030R CHANGE ACCOUNARRAY POINTER5 "ACCOUNT NO. ";I1;:" ";A$(A,I)M A$(A,I)"END"3280 (A$(A,I))20Ğ:15:"20 CHARACTERS ONLY":::3220 "BALANCE $ ";C$:B(A,I)((C$)100.5)100: II1:I513280 :3220 P%(A)I1:0:1002 768,1ORK ON:":: "1. ";H$(0):.D "2. ";H$(1)]N :"WHICH? ";C$:A((C$))1:A0A13120nX C3170,3410b ADD ACCOUNT NAMESl ::(40(H$(A)))2::H$(A)::773v :"TYPE IN ";H$(A):"TYPE 'END' WHEN FINISHED": TT,5:6 IP%(A)1:NT TO:":& "1. ADD NEW ACCOUNTS":I "2. CHANGE AN ACCOUNT NAME":w "3. PRINT A LIST OF THE ACCOUNT NAMES": "4. RETURN TO PROGRAM MENU" :"WHICH? ";C$:C((C$)):C1C43030 C3110,3110,3310,1000& 0 6:"DO YOU WANT TO W:::2070A4"BALANCE $ ";C$:B(A,I)((C$)100.5)100:V>II1:I512130bH:2070RP%(A)I1::0:1002:1000 LOAD EXISTING FILE IF EDITING 380 150:220:216,0:3650 ::4:15::" EDIT MENU ":::  "DO YOU WAAYABLE*::(40(H$(A)))2::H$(A):^:"TYPE IN ";H$(A):"TYPE 'END' WHEN FINISHED"kTT,5:6 I0:POINTER TO POSITION IN ARRAY "ACCOUNT NO. ";I1;:" ";A$(A,I) A$(A,I)"END"2130 *(A$(A,I))20Ğ:15:"20 CHARACTERS ONLY"F$P%(0):P%(1):A01:I0P%(A):Q$;A$(A,I)::QD$;"OPEN BAL.";F$iD$;"WRITE BAL.";F$A01:I0P%(A):B(A,I)::D$;"CLOSE"216,0:36501140270:SET UP ACCOUNTS773A01:0=ACC RECEIVABLE, 1=ACC PO SAVE FILE AND END PROGRAM.j(768)11170?t216,0:360~(771)1ė:10:"PLACE THE PROGRAM DISK IN THE DRIVE":"AND PRESS ";T$D$;"RUN MENU,D1"370:STORE DATA FILE D$;"OPEN ACC.";F$;",D";(771)D$;"WRITE ACC.";2C31020$C31120#.3030M83650:READ COMPANY NAME FROM PAGE 3B:10:(771)1Ğ:4:" PLACE THE DATA DISK IN DRIVE 1 "::20:"PRESS WHEN READY ";C$LX(838):I1X:F$F$((838I)):VC2000,3000`CHECK FOR NEED TA DISK IS IN DRIVE ";(771):20F "PRESS WHEN READY ";C$:h 216,0:3650:PROGRAM MENU p : 4:14::" PROGRAM MENU "::: "1. EDIT THE NAMES OF THE ACCOUNTS" "2. RETURN TO MAIN MENU": "WHICH? ";C$:C((C$))1:C"DO YOU WISH TO CONTINUE? ";C$:C$(C$,1):C$"Y"2010I @C$"N"300S J1140y T216,0:D$;"CLOSE":(222)52010 ^390:280 h771,1:1140 r390:1180 |390:3020 (222)255ġ:1140 :10:"ERROR #";(222)::"MAKE SURE THE DAT;F$% A01:I0P%(A):B(A,I)::5 D$;"CLOSE"; Y CHECK FOR EXISTING FILE c 340s "160:216,0 ,:10:(40(F$))2::1);F$;1)::::G$;G$;"A FILE OF THIS NAME ALREADY EXISTS ON":"THIS DISK. THE DATA ON IT WILL BE LOST.":8 6HE MENU PROGRAM":I15000::11603 SUBROUTINESP READ ACCOUNTS FROM DISKs D$;"OPEN ACC.";F$;",D";(771) D$;"READ ACC.";F$ P%(0):P%(1) A01:I0P%(A):A$(A,I):: D$;"CLOSE" D$;"OPEN BAL.";F$ D$;"READ BAL."ACCOUNTS":H$(1)"EXPENSE ACCOUNTS"_ PD$(4):G$(7):Q$(34):I$(9):TW33:TT34:TB35:TL32 ZCONTROLS FOR DISK, BELL, TEXT WINDOW dC(768):C1C2130 n1080 xAVOID PROGRAM MENU ON ENTRY" :10:"ENTER THIS PROGRAM ONLY THROUGH":"T>" SET UP ACCOUNT HEADINGS AND@ALLOW EDITING OF ACCOUNTNHEADINGST(2SET UP CONSTANT VARIABLES AND DIMENSIONS<A$(1,50),B(1,50),P%(1):A$(0,N) = ACCOUNTS RECEIVABLE, A$(1,N) = ACC PAYABLE; B(1,50)=BALANCES" FH$(1):H$(0)"INCOME          N> WHEN READY ";Y$:5000>290::"ERROR #";(222)::"CHECK THE DATA DISK AND":"TRY AGAIN"::"PRESS WHEN READY ";Y$:4580 ::10:(771)1Ğ:4:" PLACE THE DATA DISK IN DRIVE 1 ":::20:"PRESS WHEN READY ";C$ READ COMPA(219)256: (222)2555010{ :10:"ERROR #";(222)::(222)5ĺ"MAKE SURE THE DATA DISK IS IN DRIVE ";(771):20*"PRESS WHEN READY ";C$:30004(222)9ĉ::8:"THIS DISK IS FULL"::"START ANOTHER DATA DISK":23:"PRESS WHEN READY ";C$::1270::(222)255ĺG$:50100:1002  :10:"ERROR #";(222):"IN LINE ";(218))):"NET ";:T0ĺ"LOSS";:T(T):TA56:1400An"PROFIT";:TA54Ox1410::S(T)1:T(T):X$(A(T(T))):T(T)X$"."X$T(T):TATA((T))1(S1$(S)):TA0TA0(X$)3X$X$"0":1430TA);S1$(S);T;X$;:ERROR HANDLING(2,I);" ";V(A((IN$(1,I),1)):(H$(A),2);"-";:TA11A13:X$;:T(IN$(4,I)):1410^2:p<PRINT TOTALSF55);"----------- -----------"PTA64:TT(0):1410:TA11:TT(1):1410:ZTA64:TT(1):1410::55);"===========",dTA(T(0)T(1TE"::1100((772):D$;"PR#";(769)A(770)1ĺI$;"80N";GVD$;"PR#0"a255: PRINT A LINE FOR INCOME& EXPENSEX$(((IN$(1,I),2))1):(X$)2X$"0"X$ IN$(0,I);11(IN$(0,I)));IN$(3,I);36(IN$(3,I))(IN$(2,I)));IN$D((C$)):D1D31(C$)2ĺG$:11405~DA$C$DA$C4,6,9,11aY4(Y4)M2D291230Y4(Y4)M2D281230I14:X:XMD30Į:1230:::"IS THE DATE ";DA$;:"? ";C$:(C$,1)"Y"ė:1100:: :"ILLEGAL DA" TODAY'S DATE "::12:TT,11bL"WHAT IS THE YEAR? 19";C$:Y((C$)):Y99(C$)2ĺG$::1100qVDA$"/"C$`:"WHAT IS THE MONTH? (1 - 12) ";C$:M((C$)):M1M12(C$)2ĺG$:1120jDA$"/"C$DA$&t:"WHAT IS THE DAY OF THE MONTH? ";C$:E DETAILS FOR":(80(F$))2);F$:@"POSTING DATE ";DA$::"DATE";7);"DETAILS";25);"REF. ACCT.";7);"INCOME";5);"EXPENSES"$5);"OPENING BALANCES";:TA43:TT1(0):1410:TA11:TT1(1):1410:.:8INPUT CURRENT DATEB:8::13:D$;"OPEN CHK.";F$;",L13":> D$;"WRITE CHK.";F$;",R";R1:[ D$;"READ CHK.";F$;",R0"e R1: D$;"WRITE CHK.";F$;",R0" R1: ::10:10 :"WAIT FOR DISK UNIT":: PRINT HEADING FOR INCOME & EXPENSE#26);"INCOME & EXPENSI):: "D$;"CLOSE" ,B 6D$;"OPEN TR.";F$;",L64,D";(771)H @e JD$;"READ TR.";F$;",R";Rk T ^D$;"WRITE TR.";F$;",R";R h rD$;"READ TR.";F$;",R0" |R: D$;"WRITE TR.";F$;",R0" R:290 1:D:M:Y:T(0):T(1):  ) D$;"OPEN BAL.";F$;",D";(771)@ D$;"READ BAL.";F$b A01:I0P%(A):B(A,I)::r D$;"CLOSE" A01:T(A)0:I0P%(A):T(A)A(T(A)B(A,I))::: D$;"OPEN BAL.";F$;",D";(771) D$;"WRITEBAL.";F$ A01:I0P%(A):B(A,S x:10:"ENTER THIS PROGRAM ONLY THROUGH":"THE MENU PROGRAM":I15000::5010d SUBROUTINES READ ACCOUNTS FROM DISK D$;"OPEN ACC.";F$;",D";(771) D$;"READ ACC.";F$ P%(0):P%(1) A01:I0P%(A):A$(A,I):: D$;"CLOSE"XPENSE"O <D$(4):G$(7):Q$(34):I$(9):S1$(0)"-":TW33:TT34:TB35:TL32z FCONTROLS FOR DISK, BELL, TEXT WINDOW PCHECK FOR VALID PROGRAM ENTRY ZC(768):C3120 dA(X)((X)100.5)100(X):ROUNDING FUNCTION i2040 n3000"# ENTRY OF TRANSACTION DETAILS)WSET UP CONSTANT VARIABLES AND DIMENSIONS(A$(1,50),B(1,50),P%(1),T(1),D%(10),I$(1,10),I1$(50,10),I1(1,50,10),S1$(2):A$(0,N) = ACCOUNTS RECEIVABLE, A$(1,N) = ACC PAYABLE. 2H$(1):H$(0)"INCOME":H$(1)"E           READY ";Y$:2220|R:"ERROR #";(222)::"CHECK THE DATA DISK AND":"TRY AGAIN"::"PRESS WHEN READY ";Y$:3340\:200:2010:4000f2010:6000p2010:2050 ::10:(771)1Ğ:4:" PLACE THE DATA DISK IN DRIVE 1 "::20:"PRESS(222)5ĺ"CHECK THE COMPANY'S NAME IS GIVEN":"CORRECTLY":t4"MAKE SURE THE DATA DISK IS IN DRIVE ";(771):20>"PRESS WHEN READY ";C$:3000H(222)9ĉ::8:"THIS DISK IS FULL"::"START ANOTHER DATA DISK":23:"PRESS WHEN)::"MAKE SURE THE DATA DISK IS IN DRIVE ";(771):20]"PRESS WHEN READY ";C$:m2010:3030 :670::(222)255ĺG$:3130:10:"ERROR #";(222):"IN LINE ";(218)(219)256: (222)2553130=*:10:"ERROR #";(222)::544830::G>S(T)1:T(T):X$(A(T(T))):T(T)X$"."X$wHT(T):TATA((T))1(S1$(S)):TA0TA0R(X$)3X$X$"0":850\TA);S1$(S);T;X$;:ERROR HANDLING::670:(222)255ġ:G$:31306:10:"ERROR #";(222TA11I1(0,0)13:TI1(1,0):830::5PRINT TOTALSZ55);"----------- -----------" TA64:TT1(0):830:TA11:TT1(1):830:TA64:TT1(1):830::55);"===========" TT1(0)T1(1):"NET ";:T0ĺ"LOSS";:T(T):TA56:820*"PROFIT";:TA1740&TA0:TI1(1,0):" $";:830:rJ1D%:11);I1$(J);37(I1$(J)));:X$(I1(0,J)1):(X$)2X$"0"X$(H$(I1(0,0)),2);"-";X$;:TA11I1(0,0)13:TI1(1,J):830:::X$(I1(0,1)1):(X$)2X$"0"X$#1);(H$(I1(0,0)),2);"-";X$;:";DA$;:"? ";C$:(C$,1)"Y"ė:500.l::Kv:"ILLEGAL DATE"::500h(772):D$;"PR#";(769)(770)1ĺI$;"80N";D$;"PR#0"255:D$:PRINT TRANSACTIONI$(0);11(I$(0)));I1$(0);36(I1$(0))(I$(1)));I$(1);:D%G$:520DA$"/"C$DA$k:"WHAT IS THE DAY OF THE MONTH? ";C$:D((C$)):D1D31(C$)2ĺG$:540z&DA$C$DA$04,6,9,11:Y4(Y4)M2D29630DY4(Y4)M2D28630NI14:X:XMD30Į:630X::$b:"IS THE DATE 11:TT1(1):830::1INPUT CURRENT DATEe:8::10:" DATE TO BE PRINTED "::12:TT,11"WHAT IS THE YEAR? 19";C$:Y((C$)):Y99(C$)2ĺG$::500DA$"/"C$:"WHAT IS THE MONTH? (1 - 12) ";C$:M((C$)):M1M12(C$)2ĺ) PRINT HEADING FOR INCOME & EXPENSEg 26);"INCOME & EXPENSE DETAILS FOR":(80(F$))2);F$: "POSTING DATE ";DA$:: "DATE";7);"DETAILS";25);"REF. ACCT.";7);"INCOME";5);"EXPENSES"5);"OPENING BALANCES";:TA43:TT1(0):830:TA @R: JREAD TR. FILE( T290:D%V ^I1(0,0):J01:I$(J)::I1$(0):I1(1,0)n hD%1ĄI1(0,1):380 rJ1D%:RR1:290:K01:I1(K,J)::I1$(J): | T1(I1(0,0))A(T1(I1(0,0))I1(1,0)): ::10:10 :"WAIT FOR DISK UNIT"::AL.";F$;",D";(771)* D$;"READ BAL.";F$L A01:I0P%(A):B(A,I)::\ D$;"CLOSE" A01:T(A)0:I0P%(A):T(A)A(T(A)B(A,I))::: D$;"OPEN TR.";F$;",L64,D";(771)  "D$;"READ TR.";F$;",R";R , 6D$;"READ TR.";F$;",R0"S PROGRAM ONLY THROUGH":"THE MENU PROGRAM":I15000::3130N SUBROUTINESk READ ACCOUNTS FROM DISK D$;"OPEN ACC.";F$;",D";(771) D$;"READ ACC.";F$ P%(0):P%(1) A01:I0P%(A):A$(A,I):: D$;"CLOSE"  D$;"OPEN BENSE"M <D$(4):G$(7):Q$(34):I$(9):S1$(0)"-":TW33:TT34:TB35:TL32x FCONTROLS FOR DISK, BELL, TEXT WINDOW PCHECK FOR VALID PROGRAM ENTRY ZC(768):C4130 dA(X)((X)100.5)100(X) n2060 x3000= :10:"ENTER THI+ REVIEW OF TRANSACTIONS & PROFIT/LOSS1_SET UP CONSTANT VARIABLES AND DIMENSIONS(A$(1,50),B(1,50),P%(1),T(1),T1(1),I$(1),I1$(50),I1(1,50),S1$(2):A$(0,N) = ACCOUNTS RECEIVABLE, A$(1,N) = ACC PAYABLE. 2H$(1):H$(0)"INCOME":H$(1)"EXP        420J 773:7:"REFERENCE ";R1$:R1$(R1$,6):7:11:958:R1$:0:1002d R1$"BANK"C1:2490 R%(0)0Ģ9:"THERE ARE NO UN PRESENTED CHEQUES":2390$ 270:X0:Y0. I1R%(0):R$(I)"]"23708 R1$R$(I)RR%(I):330:XA(XI1(1)):Y1MDEBIT";6);"BALANCE":"CARRIED FORWARD";:TA31:TTL:500::480:y"TYPE IN DETAILS FROM THE BANK STATEMENT":TT,4:5:"CREDIT/DEBIT ";C$:C$"END"2560C$(C$,1):C$"C"C0:2300C$"D"C1:2300G$:22605:14:H$(C):C02500:::"IS THIS CORRECT? ";C$:C$(C$,1):C$"N"2120NzC$"Y"ĺG$:2160Y1070kR%(0)02220:8:"LIST OF UNPRESENTED CHEQUES"450:380:(12):4801080450:"BANK RECONCILIATION"::A"REFERENCE";7);"CREDIT";8);"IS THE 'CARRIED FORWARD' BALANCE":"ON THE STATEMENT?"::"> $";C$:TLA(((C$))):R::"IS THIS AMOUNT IN 'CREDIT' OR 'DEBIT'?"::"> ";C$:C$(C$,1):C$"C"2160\C$"D"ĺG$:2130fTLTL17p:"CARRIED FORWARD BALANCE IS $";:TA0:TTL: STATEMENT "::3:TT,2D*"CHECK THROUGH YOUR BANK STATEMENT"::4"ARE THERE ANY TRANSACTIONS THAT NEED":"TO BE ENTERED INTO THE JOURNAL AT THIS":"STAGE (EG. INTEREST, BANK CHARGES)? ";C$:C$(C$,1):C$"Y"3050>C$"N"ė:2100TH:"WHAT READY ";C$- READ COMPANY NAME FROM P. 3UX(838):I1X:F$F$((838I)):`1040160:220:540:570:R$(R1),R%(R1):R%(0)R1:R102060R11R%(0):560:R$(R1):R%(R1): 200:R$(0)(R%(0)):216,01050 :11::" BANK222)255ĺG$:3000N$:10:"ERROR #";(222):"IN LINE ";(218)(219)256:^.1010:2200n81010:2260B:200:1010:2560L1010:3050V1010:2050 ::10:(771)1Ğ:4:" PLACE THE DATA DISK IN DRIVE 1 "::20:"PRESS WHENR1:$ND$;"WRITE CHK.";F$;",R0".XR1:BERROR HANDLINGg:480:(222)255ġ:G$::3000:10:"ERROR #";(222)::"MAKE SURE THE DATA DISK IS IN DRIVE ";(771):20"PRESS WHEN READY ";C$:1010:2030:480::((T)X$"."X$>T(T):TATA((T))1(S1$(S)):TA0TA0Z(X$)3X$X$"0":520sTA);S1$(S);T;X$;:D$;"OPEN CHK.";F$;",L13,D";(771):&D$;"WRITE CHK.";F$;",R";R1:0D$;"READ CHK.";F$;",R";R1::D$;"READ CHK.";F$;",R0"D):500::9 C0TA20:TX:500:TA24:TLA(TLX):440o 6(R1$));R1$;:TA27:TX:500:TA11:TLA(TLX) TTL:500:: (772):D$;"PR#";(769) (770)1ĺI$;"80N";  D$;"PR#0" 255:S(T)1:T(T):X$(A(T(T))):TR DISK UNIT"::8 rPRINT HEADING FOR INCOME & EXPENSEU |"UNPRESENTED CHEQUES": "DATE";7);"DETAILS";26);"REF";7);"AMOUNT":270 I1R%(0):RR%(I):330:D$:410::200: I$(0);11(I$(0)));I1$;36(I1$)(I$(1)));I$(1);:TA11:TI1(10:I0P%(A):T(A)A(T(A)B(A,I)):::M D$;"OPEN TR.";F$;",L64,D";(771)S p "D$;"READ TR.";F$;",R";Rv , 6D$;"READ TR.";F$;",R0" @R: JREAD TR. FILE T290:D%:I1(0):J01:I$(J)::I1$:I1(1): ^::10:10 h:"WAIT FO D$;"OPEN ACC.";F$;",D";(771)8 D$;"READ ACC.";F$J P%(0):P%(1)m A01:I0P%(A):A$(A,I)::} D$;"CLOSE" D$;"OPEN BAL.";F$;",D";(771) D$;"READ BAL.";F$ A01:I0P%(A):B(A,I):: D$;"CLOSE"' A01:T(A)EXT WINDOW . PCHECK FOR VALID PROGRAM ENTRYE ZC(768):C5130h dA(X)((X)100.5)100(X)s n1050} x2000 :10:"ENTER THIS PROGRAM ONLY THROUGH":"THE MENU PROGRAM":I15000::2170 SUBROUTINES READ ACCOUNTS FROM DISK! BANK RECONCILIATION NSET UP CONSTANT VARIABLES AND DIMENSIONS(A$(1,50),B(1,50),P%(1),T(1),I1(1),I$(1),S1$(2)2H$(1):H$(0)"CREDIT":H$(1)"DEBIT"<D$(4):G$(7):Q$(34):I$(9):S1$(0)"-":TT34 FCONTROLS FOR DISK, BELL, T       "Y"1330YF:TT,5:TB,17:16:912:A$(A,I);28);10((B1(J,A,I))));"$";B1(J,A,I);~P:K12000::G$:TB,24:TT,4:Z:TT,2:d:1390:360:4000nEDIT PROCEEDUREx::12::" EDITING BUDGET "::TT,2:3:"DO YOU WANT TO:":CCOUNTS "::TT,6:7, I0P%(A):ACCOUNTBTT,17:TB,24:18~:"BUDGET FIGURE FOR ";A$(A,I):"FOR "M$(J):TT,21:22("> $";C$:B1(J,A,I)B((C$)):B1(J,A,I)B313002:"> $";B1(J,A,I);20);:"CORRECT? ";C$:C$(C$,1):C$"N"1300 <C$:650(768)11210&4000:500:360:4000WCOLD START, NO BU. FILEa550:7::" SETTING UP A NEW BUDGET "::TT,2:3J011:J=MONTHS"BUDGET FOR ";M$(J):TT,4:5A01:INCOME/EXPENSE:10:1);H$(A);" AYOU WANT TO:"::"1. REVIEW BUDGET DETAILS"::"2. COMPARE BUDGET WITH CURRENT":" PERFORMANCE"::"3. PRINT BUDGET DETAILS ON PAPER"t:"4. RETURN TO THE MAIN MENU"~:"WHICH? ";C$:C((C$)):C1C41130C1390,3000,2000,11801130 ! READ COMPANY NAME FROM P. 3IX(838):I1X:F$F$((838I)):S600a$180:240.:10::3:"PLACE THE BUDGET DISK IN DRIVE ";(771)::20:"PRESS WHEN READY ";C$8610B330L630V300`550j:4:"DO l570:1080&v220:(222)56605570:1100D570:1190N550^1390:650h1190w570:1120START MAIN PROGRAM550::10:(771)1Ğ:4:" PLACE THE DATA DISK IN DRIVE 1 "::20:"PRESS WHEN READY ";C$10:"ERROR #";(222):"IN LINE ";(218)(219)256:_::220:480:(222)255ġ:G$::4000D:10:"ERROR #";(222)::"MAKE SURE THE BUDGET DISK IS IN DRIVE ";(771):20N"PRESS WHEN READY ";C$:X520:1050b220:(222)51220" WAIT FOR DISK UNIT "::/ERROR HANDLINGY:220:480:(222)255ġ:G$::4000:10:"ERROR #";(222)::"MAKE SURE THE DATA DISK IS IN DRIVE ";(771):20"PRESS WHEN READY ";C$:&::220:480:(222)255ĺG$:400050:WHAT IS THE MONTH? (1 - 12) ";C$:M((C$)):M1M12(C$)2ĺG$:410UDA$C$DA$:"IS THE MONTH ";DA$;:"? ";C$:(C$,1)"Y"ė:390::(772):D$;"PR#";(769)(770)1ĺI$;"80N";D$;"PR#0"255::10:10::A01:I0P1%(A):B1(J,A,I)::::220I hD$;"OPEN BU.";F$;",D";(771)` rD$;"WRITE BU.";F$ |P%(0):P%(1):J011:A01:I0P%(A):B1(J,A,I)::::220 :"WHAT IS THE YEAR? 19";C$:Y((C$)):Y99(C$)2ĺG$::390 DA$"/"C$F:"";C$;F$A "P1%(0):P1%(1):A01:I0P1%(A):B(J,A,I):::220d ,D$;"OPEN IND.";F$;",D";(771){ 6D$;"READ IND.";F$ @C:I%(C):I%(0)C:I1I%(0):I%(I)::220 JD$;"OPEN BU.";F$;",D";(771) TD$;"READ BU.";F$' ^P1%(0):P1%(1):J011:,D";(771)! D$;"READ ACC.";F$3 P%(0):P%(1)V A01:I0P%(A):A$(A,I)::f D$;"CLOSE"l D$;"OPEN BAL.";F$;",D";(771) D$;"READ BAL.";F$ A01:I0P%(A):B(2,A,I):::220 D$;"OPENM";C$;F$;",D";(771) D$;"READMA(X)((X)100.5)100(X)8 xB(X)((X).5)(X)[ C(X)((X12(X12))12.5)e 1010 :10:"ENTER THIS PROGRAM ONLY THROUGH":"THE MENU PROGRAM":I15000::4000 SUBROUTINES READ ACCOUNTS FROM DISK D$;"OPEN ACC.";F$;"(I)::I011:Y%(I)::t FJULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER,JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE P6,7,8,9,10,11,0,1,2,3,4,5:CONVERTION CALENDAR/FINACIAL MONTHS ZCONTROLS FOR DISK, BELL, TEXT WINDOW dC(768):C6150 nb" BUDGETBSET UP CONSTANT VARIABLES AND DIMENSIONS(A$(1,50),B(2,1,50),P%(1),P1%(1),H$(1),B1(11,1,50),M$(11),T(50,1),Y%(11):H$(0)"INCOME":H$(1)"EXPENSES"2D$(4):G$(7):I$(9):TW33:TT34:TB35:TL32:B3999999999 <I011:M$            A6789`NO($`,(,ɢ`Ɉ$`ԍӍԍԍӍӍӍӠҠϮʮǍӍӠӍӠ΍ӠҠŠԮ̠ԍԠҠή