OJJZ9DDF1F2F4F9F7F10TEMPZ8V1V2V0XXV3V4IYY1ZJA0A1A2A3A4A5A6A7SPPJJB0B1VZNZ2Z3NAAMBBFZNAAAAAAAABBF3XHTHHHHHHHHHAI  !@"#$%&@'()@*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQ;@,1@'@@9* 1 }30 (ӠŠ͠3 V, $THIS PROGRAM IS A BALANCE FORWARDINGV %ACCOUNTS REIEVABLE SYSTEM. WHAT THIS R+ #MEANS IS THAT PAYMENTS DON'T ACCRUER "TOWARDS ANY INDIVIDUAL INVOICE BUT U, $TOWARDS LUMP SUM BALANCES REIEVABLE.U $THIS TYPE OF A/R SYSTEM IS TYPICALLY## USED BY PROFESSIONALS. FORe. &EXAMPLE, MONEY OWED ON CHARGE CARDS IS=  THIS TYPE.e #INVOICES ARE KEPT ON FILE UNTIL THEU, $MONTH'S END. LINE PRINTER OUTPUT IS U $SUPPORTED. DATE FILES MAY BE STOREDN+ #ON DISKETTE. SEE THE ACCOMPANYING N DOCUMENTATION FOR INSTRUCTIONS,  ( PRESS RETURN TO CONTINUE ,2;@,;@@,;@@,;@@,;@@,;@@,;@@,;@@,;@@,;@@,;@@,;@@,7;@P,;@@,;@@,;@P,;@P,;@P,;@P,;@P,;@P,;@P,;@P,;@P,;@P,8;@P,;@P,;@P,;@P,;@P,;@P,;@P,;@P,9@,;@@,;@,;@,9<<6.2 ;K6-@19%@<@,;A%,KMAX CUSTOMERS IN SYSTEM<D6-A9<@,+;A%,DMAX INVOICES IN SYSTEM=36-@6.D2 }) A 3 A!>- }-@@-  ?6-@A;@P,FORMATTINGF AK 6.Pw-@Iw67$@P%@<+%@,$@P,.2 Zgc67$@P%@<+%@,$@P,.2 g _a-@6-#6-@- B]67$@0%@<$@0%@,.9999a d>-@%-@@668<,-: > n,-@(68<@,-, x>-@%-@@668<,-: > ; } ; )Πՠ oo(g 1. ADD TO/BEGIN INVOICE/PAYMENT FILE 2. SWITCH DRIVE 3. TURN PRINTER ON/OFFee(] 4. READ FILE IN FROM DISKETTE 5. WRITE FILE OUT TO DISKETE 6. EDIT FILEjg(_ 7. REPORT GENERATOR 8. POST AND ELIMINATE INVOICES--UPDATE 9. END PROGRAMj(XL ENTER YOU CHOICE %4B@F:@,&@L A]a-@B:,:@:7<,, @G)@:7<,,!@YW@F:@,&@a A^ 6-A:,_T"@ < 'ARE YOU SURE YOU WANT TO QUIT (YES/NO) @J4YESQ }TbGGAA A!A"A#A0APApl A0 } "& NEW FILE0 B6-%@ 6- A`PINPUT 1 RECORD4 }    Ac4PRINT OUT 1 RECORD B4NA  4A$$&6-%@&NEW RECORD ON FILE. BMORE?84YA9$0 }-@@0 ACTIVE DRIVE :H 4D16.D2'-@@- 2A-@AE H$? 6.D1-@@$ 18-@A< ?$4f }-@"@+  PRINTER :7"@C6-K OFF_-@Ac f$>26-@ ON +-@A/ 2$2 } ( PUT DATA DISK IN DRIVE2 Bd } 2 ENTER NAME OF FILE TO BE READ :6=4Z@F:@&@,d A"%3 }-@@3 Ǡ3 6.67B:,%@,.:367B:,%@,. @@@-@ A'P -@ A%P @$  }-@@ $ PUT DISK IN DRIVE $ B  }-@ e! PRESENT FILE NAME IS '3  ' NEW NAME :7>4[@F:@,&@e A# 3 6.67B:,%@,.:367B:,%@,. 3 }-@@3 Ǡ @@  @$ -@ A(P ) -@ A&P A }B @L $ INPUT 1 CUST x@@*@7@D@Q@^@k@x@ 68<,-%68<@,-668<@,-G68<@,-X68<@,-i68<@,-z68<@,-68<@,- 6.7@68<,-  & Aa) - 1 ; AaP> N A`X   B A1EDIT SUBROUTINE } 6-N A@0@ -ENTER # OF ITEM YOU WISH TO EDIT, 0 IF NONE DN B"$. 6-6- } $ Ac. A`P }6- A@%  A` }    _&-P:'@,$@%@/6.=:,86-B:,L@@&Q [ Aa_  A@ REPORT GENERATOR }-@@, })  Ԡ, "" 1. AGED RECIEVABLES REPORT!! 2. COMPLETE CUSTOMER LIST// '3. COMPLETE CUSTOMER LIST WITH INVOICES 4. LIST OF ALL INVOICES 5. END LIST PROGRAMW % ENTER APPROPRIATE CHOICE )04M@F:@,&@W AP`a-@B:,:@:7<,, @G)@:7<,,!@YW@F:@,&@a AP` 6-A:,"@$''AQARASAT APAGED REC*-@&68,-*  }B   *6.AGED RECIEVABLES REPORT<  B  ""@"3 "@33( $@F:@,&@( -@W 6-6-@ BW7$@0%@<$@0%@,49999AQ3 Aa.-@@*68,-8,%8<,.  3&'@"P:'@,*") 3 B  "@3  (6-8@, B"6.(6-(6-8@, B"6.(6-(6-8@, B"6.(6-(6-8@, B"6.(6-r TOTALS#@@&( <@@"&A U@@0&Z n@@7&r v"@v3TOTALS7@<@&,7@<@&,7@<@&,7@<@&,("@3F   BK$PR }_-@a 6-6-@ Bd;;7$@0%@<$@0%@,49999AR`f"@33i0  6. CUSTOMER LIST0  j""@"3 k"@33n    Aax"@3333}    AaP."!-@"+ B.  }"@33 $CUST LIST/INV }0 6. CUSTOMER LIST-  0 ""@"3 -@ 6-6-@ B;;7$@0%@<$@0%@,49999AS`*-@@&68,-* "@3332     Aa'"@*3.323*    AaP '"@*3   "@33-@C8<," AcC68@,-8@,%8<@,  A"@;3CHANGE IN OWED THIS MONTH = 8@,>3A3A"@; CHANGE IN OWED THIS MONTH = 8@,> A ?"@<3(----------------------------------------?3  B } $COMPLETE INVOICE LIST" }$   ',6. INVOICE LIST)  , (""@"3 ,B68,--68@,-B68@,-6   ;"@33@-@J AcO((68,-8,%8<@,TI8<@,!?68@,-8@,%8<@,I ATpY((68@,-8@,%8<@,^M&"*'@"P:'@,8-@"B BI }M c d(6-8@, B"6.(6-e(6-8@, B"6.(6-f(6-8, B"6.(6-g6 3 (----------------------------------------6 h1 TOTAL CHARGES :-@@(&1 j1 TOTAL PAYMENTS :-@@(&1 l1 CHG-PAYMENTS :-@@(&1 n6 3 (----------------------------------------6 p"@3r;"@;3TOTAL CHARGES :7@<@&,s;"@;3TOTAL PAYMENTS :7@<@&,t;"@;3CHG-PAYMENTS :7@<@&,uB"@3?3(----------------------------------------B3w  B{$p((SBR FOR INPUTTING DATA ON 1 VENDORz68<,-{r6-@6-!6-@+ B?-@@0`7$@0%<$@0%,0 n6-%@r |[ 6-@@&W 7$@0%@<$@0%, CUST. NAME :[}<B:, @0<67B:,%@,.7@<@0&B:,,0067$@0%@<+%@,$@0,.a6-8<@, B$6.*6->@@&C ]  CURRENT OWED :a 068<@,-A:,a6-8<@, B$6.*6->@@&C ]  30-60 OWED :a 068<@,-A:,a6-8<@, B$6.*6->@@&C ]  60-90 OWED :a 068<@,-A:,a6-8<@, B$6.*6->@@&C ]  90 + OWED :a 068<@,-A:,a6-8<@, B$6.*6->@@&C ]  PAY LAST MONTH :a 068<@,-A:,a6-8<@, B$6.*6->@@&C ]  CHG LAST MONTH :a 068<@,-A:,a6-8<@, B$6.*6->@@&C ]  CUMUL. CHGES :a 068<@,-A:,$SBR INPUT DATA FOR 1 INV }4 1 &ҠŠ͠ԠҠ4 r6-@6-!6-+ B?-@@0`7$@0%<$@0%,0 n6-%@r ^ 6-@@&A 7$@0%@<$@0%,Z  ITEM NUMBER :^<B:, @0<67B:,%@,.7@<@0&B:,,0067$@0%@<+%@,$@0,.\6-8<, B2@@&7 N  CUST. NUMBER :R\ B68<,-U18<,!)8<,P:8<,,K ILLEGAL VENDOR NUMBERU A`eu 6-6-@ BO7$@0%@<$@0%@,49999k ILLEGAL CUSTOMER NUMBERu A`e68<,-\6-8<@, B2@@&7 N  ITEM AMOUNT :R\ B68<@,-r 6-6-@!6-@+ B?-@@0`7$@0%<$@0%,0 n6-%@r \ 6-@@&A 7$@0%@<$@0%,X  COMMENT :\<B:, @0<67B:,%@,.7@<@0&B:,,0067$@0%@<+%@,$@0,.$PNT 1ST LINE 6.=:8<,, 6-B:,*6-8<@, B$6.*6-*6-8<@, B$6.*6-*6-8<@, B$6.*6-*6-8<@, B$6.*6-x 6-6-@!6-@+ B?-@@0`7$@0%<$@0%,0 n6-%@r x6-@@& .@@X 7$@0%@<$@0%@,l@@&q @@"& 5@@0& 0@@7&5 @AaE6.7@<@&,067B:,%@,.G67B:,%@,. 67B:,%@,.7$@0%@<$@0%@,67B:,%@,.7@<@&,67B:,%@,.>67B:,%@,.7@<@&,R67B:,%@,.y67B:,%@,.7@<@&,67B:,%@,.>*67B:,%@,.7@<@&,>67B:,%@,."@3 $''PRINT CUSTOMER SECOND LINE ON CRT*6-8<@, B$6.*6-*6-8<@, B$6.*6-*6-8<@, B$6.*6-M@@& 0@@"&5 I@@6&M @Aapr 6.#6.7@<@&,767B:,%@,.^67B:,%@,.7@<@&,r67B:,%@,.>*67B:,%@,.7@<@&,>67B:,%@,.33$1 INV LINE ON CRT/PRNT 6.=:,6-B:,r 6-6-!6-@+ B?-@@0`7$@0%<$@0%,0 n6-%@r  6- 6.=:8<,, 6-B:,*6-8<@, B$6.*6-x 6-6-@ B+6-@?-@@0`7$@0%<$@0%,0 n6-%@r x6- 6-6- B@@& 0@@&T 7$@0%@<$@0%,h@@&m @@$& _@@1&6-)6-@3 B_ 7$@0%@<+%@,$@0,@AcP^ 6.#6.7@<@&,767B:,%@,.^67B:,%@,.7@<@ &, 6-6- BR67B:,%@,.7$@0%@<$@0%,y67B:,%@,.7@<@&,67B:,%@,.*67B:,%@,.7@<@&,>67B:,%@,.e67B:,%@,.7@<@&,k6-w6-@ B>>67B:,%@,.7$@0%@<+%@,$@0,3 $XPOST TO ACCTS.b }l?. &POSTING ACCTS-PRESS Y TO PROCEED N TO ; RETURN ?v 4N$" 0Y B " Ap C-@(68<@,-?68<@,-C -@c8<@,!Y688<,<@,-88<,<@,%8<@,c ApBB688<,<@,-88<,<@,%8<@, N 0 %ARE OWED BY DATE AND CUMULATIVE BILLJ TO BE UPDATED (Y/N) N%0Y*0N B% Aq 4N$UPDATE FILES6-6-@'6-1 B}67$@0%@<+%@,$@0,. 68@<,-68@<@,-p6-@6-@% Bp67$@0%@<+%@,$@0,. -@,,68<@,-8<@,%8<@,,68<@,-8<@,%8<@,H68<@,-8<@,d68<@,-8<@,68<@,-8<@, NOW APPLY PAYMENTS6-8<@, -@@6@"Ar 8<,"Ar*<68<,-8<,%&8<,26-< Ar46-8<,68<,-z !!68<@,-%8<@, $(#..6.$NO. ITEM # CUST# ITEM AMT COMMENT )#--6.#--- ------ ----- -------- -------P#226.(CS NAME CURRENT 30-60 60-90 90+Z#226.(-- ---- ------- ----- ----- ---n#226.(PMTS LAST MTH CHGES LAST MTH CUM CHGESo#116.'------------- --------------- --------#$'INPUT ERROR SBR'8 INPUT ERROR! TRY AGAIN!4-@A8 $'$t':-@@"3 PRESS ENTER TO CONTINUE 7:$'Y,N,A SBR' 6. 'B-@"> #ENTER Y IF OK,N IF ERROR,A TO ABORTB'+0Y*0N*0A! B+ B'$<( Y,N SBRA( 6. F('# ENTER Y IF OK, N IF ERROR 'P(%0Y*0N B% BZ($(MORE ENTRY? SBR( 6. (.* !DO YOU DESIRE MORE ENTRIES (Y/N) .(%0Y*0N B% B($)ONLY Y/N SBR)0Y*0N B)$*00ELIMINATES TRAILING BLANKS OF VARIABLE Z8$+B:,"@ B0 +<7B:,P,$A,'A0N6-@2NE 6.=:,B:, @E67B:,%@,.7@<@&B:,,4N'6.7B:,&&@N47@<@,0.467B:,%@,..00HN?6- -@B:,-7<,0.;6-%@? IN6-'BRN$0u''SUBROUTINE TO CREATE STRING ARRAY:u%%6-+&@,$@%%@Du$D8:REC