ÉÊzÇKÜKNÃA¨A¤MÉB¨B¤ÏDD¤F¤ÉÕØÙZ9¤Z¹QQ¤NÉÎF1¤F2¤ZN¤Z¤A°Z8¤A±A²A³A´AµA¶A·Y¤B°B±Y1¤ÊI¤F4¤F9¤F7¤F10¤ËF3¤J¤ÈV¨XØV1¤XX¤H±TÔV2¤H²V3¤H³V4¤H´Z2¤V0¤ÐÃSP¤A0¤A1¤A2¤A3¤A4¤HµH¶A5¤H·A6¤H¸A7¤H¹JJ¤H°B0¤B1¤Z3¤AÁTEMP¤IÉP¤V510¸D¤@€@€€€ €€€€€€€ !€"#€$€%€&€'€()€*€+,@-.€/€012€34€56€78€9€:;<€=€>€?€@€A€BCD€EF€GH€IJ€KL€M€N€OP€QR€ST€U;@,1@‚'@ƒ@9* 1 }2/ '        ÁÃÃÏÕÎÔÓ ÐÁÙÁÂÌÅ ÐÒÏÇÒÁÍ       2 T, $THIS PROGRAM IS A BALANCE FORWARDINGT #ACCOUNTS PAYABLE SYSTEM. WHAT THIS R+ #MEANS IS THAT PAYMENTS DON'T ACCRUER "TOWARDS ANY INDIVIDUAL INVOICE BUT S* "TOWARDS LUMP SUM BALANCES PAYABLE.S $THIS TYPE OF A/R SYSTEM IS TYPICALLYT) !USED WHEN TOTAL OWED RATHER THAN T &INDIVIDUAL INVOICES ARE IMPORTANT. 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ƒ-A„9ƒ<@,+…;A%,DMAX INVOICES IN SYSTEM›=36†-@6‡.D2 }) A 3 A!>- }-@@-  ÉÎÉÔÉÁÌÉÚÉÎÇ?6€-@Aˆ;@P,FORMATTING›F AK 6‚.Pw‰-@Iw6‚7‰$@P%@<+‰%@,$@P,.2 Zgc6…7‰$@P%@<+‰%@,$@P,.2 g ‰_a‰-@€6‹-‰#6Œ-@- B]6‚7Š$@0%@<Š$@0%@,.9999a ‰d>‰-@€%£-@@668‰<£,-: £> ‰n,‰-@ƒ(6„8‰<@,-, ‰x>‰-@€%£-@@668‰<£,-: £> ‰ô; } ; )                ÍÁÉΠÍÅÎÕ                þ-- % 1. ADD TO/BEGIN INVOICE/PAYMENT FILE  2. SWITCH DRIVES  3. TURN PRINTER ON/OFF&&  4. READ FILE IN FROM DISKETTE&&&  5. WRITE FILE OUT TO DISKETTE0  6. EDIT FILE:  7. REPORT GENERATORD// ' 8. POST AND ELIMINATE INVOICES--UPDATEI  9. END PROGRAMW 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 }TbGGŽAA A!A"A#A0APApl Aè,,ADD TO OR START FILE ALREADY IN MEMORY›ò0 } "& NEW FILE0 B÷6‰-%@ø 6£-‰ü A`PINPUT 1 RECORD›4 }  ’ “ 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$˜READ IN FILE FROM DISK›¢2 } ( PUT DATA DISK IN DRIVE2 B±d } 2 ENTER NAME OF FILE TO BE READ :6”=”4Z@„F:@„&@,d A"%²3 }-@@3 ªª ÒÅÁÄÉÎÇ ÄÁÔÁ ªª´3 6•.‡6•7B:•,%@,.:36•7B:•,%@,.”¶ @@•À@ʉ-@ A'P ‰Ï‰-@€ A%P ‰Ô@Þ$üWRITE FILE OUT TO DISK›  }-@@ $ PUT DISK IN DRIVE $ B  }-@ e! PRESENT FILE NAME IS '”3  ' NEW NAME :7”>”4[@„F:@„,&@e A# 3 6•.‡6•7B:•,%@,.:36•7B:•,%@,.” 3 }-@@3 ªª ×ÒÉÔÉÎÇ ÄÁÔÁ ªª @@•  @$ ‰-@ A(P ‰) ‰-@€ A&P ‰A }B @L $ö ""INPUT 1 VENDOR FROM DISKETTE› x@–@—*@˜7@™D@šQ@›^@œk@x@ž ‹68‰<,-–%68‰<@,-˜668‰<@,-™G68‰<@,-šX68‰<@,-›i68‰<@,-œz68‰<@,-‹68‰<@,-ž 6—.—7@68‰<,-‰ ¥ ¦& Aa) - §1 ¨; AaP> N A`X   B A1 EDIT SUBROUTINE›ª }´ ¹6‰-¾N A@0@ -ENTER # OF ITEM YOU WISH TO EDIT, 0 IF NONE D‰N BÉ"$È. 6©-£6£-‰ } ’$ Ac. A`PÒ }6£-© A@%Ü  A`æ }  “  ªð_&£-P:©'@,$@%@©/6«.=:£,86¬-B:«,L@…@&¬Q «[ Aa_ £ú A@ ˆREPORT GENERATOR› }-@@, })  ÒÅÐÏÒÔ ÍÅÎÕ, ’ 1. AGED PAYABLES REPORTœ!! 2. COMPLETE VENDOR LIST¦-- %3. COMPLETE VENDOR LIST WITH INVOICES° 4. LIST OF ALL INVOICESº 5. END LIST PROGRAMÄW % ENTER APPROPRIATE CHOICE )04M@„F:@„,&@W AP`Åa‰-@B:,:@:7‰<‰,, @G)@:7‰<‰,,!@YW@„F:@„,&@a AP`Æ ‰6Ž-A:,ÉŽ"@$Î''ŽAQARASATØ APìAGED PAYABLES REPORT›ñ*‰-@&6­8‰,-* ‰ò }óB   *6ˆ.AGED PAYABLES REPORT <  ˆB  ô"†"@"3 ˆõ†"@3¥3¦ö( ¥$@„F:@„,&@( ¦û‰-@€ýW 6‹-‰6Œ-@ BW‚7Š$@0%@<Š$@0%@,49999AQ3 Aa.£-@@*6­8£,-­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†"@v3TOTALS½7@<@&±,¯½7@<@&´,³½7@<@&¶,µ½7@<@&¸,·(†"@3F   BK$PCOMPLETE VENDOR LIST›R }_‰-@€a 6‹-‰6Œ-@ Bd;;‚7Š$@0%@<Š$@0%@,49999AR`f†"@33i.  6ˆ. VENDOR LIST.  ˆj"†"@"3 ˆk†"@3¥3¦n  ¥ ¦ Aax†"@333§3¨}  § ¨ AaP‚.†"!-@"+ B. ‡ }ˆ†"@33Œ ‰ª$´((COMPLETE VENDOR LIST PLUS INVOICES›¾ }À. 6ˆ. VENDOR LIST+  ˆ. Á"†"@"3 ˆÃ‰-@€Å 6‹-‰6Œ-@ BÈ;;‚7Š$@0%@<Š$@0%@,49999AS`Í*£-@@&6­8£,-* £Ï†"@33¥3¦Ò2   ¥ ¦ Aa'†"@*3.3§23¨Ó*  § ¨ AaP '†"@*3Ô  ’ “Õ†"@3’3“Ö£-@×C„8£<,"‰ AcC6­8@,-­8@,%„8£<@,Ø £Ù çA†"@;3CHANGE IN OWED THIS MONTH = ­8@,>3A3èA†"@; CHANGE IN OWED THIS MONTH = ­8@,> A é?†"@<3(----------------------------------------?3ë  Bí }ð ‰ú$COMPLETE INVOICE LIST›" }$   ',6ˆ. INVOICE LIST)  ˆ, ("†"@"3 ˆ,B6­8,--6­8@,-B6­8@,-6  ’ “;†"@3’3“@£-@J AcO((6­8,-­8,%„8£<@,TI„8£<@,!?6­8@,-­8@,%„8£<@,I ATpY((6­8@,-­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 VENDOR›z68‰<,-‰{r6¼-@6‹-‰!6Œ-@+ B?»-@@0`‚7Š$@0%»<Š$@0%»,0 n6¼-¼%@r »|[ 6¬-¼@…@&¬W ‚7Š$@0%@<Š$@0%¬, VEND. NAME :[Ÿ}<B:Ÿ, @0<6Ÿ7B:Ÿ,%@,.½7@<@0&B:Ÿ,,€006‚7Š$@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 FOR INPUTTING DATA FOR 1 INVOICE›£ }©4 1 &ÅÎÔÅÒ ÎÅÇÁÔÉÖÅ ÉÔÅÍ ÁÍÏÕÎÔ ÆÏÒ ÐÁÙÍÅÎÔ4 ªr6¼-@6‹-‰!6Œ-+ B?»-@@0`…7Š$@0%»<Š$@0%»,0 n6¼-¼%@r »¬^ 6¬-¼@…@&¬A …7Š$@0%@<Š$@0%¬,Z  ITEM NUMBER :^Ÿ­<B:Ÿ, @0<6Ÿ7B:Ÿ,%@,.½7@<@0&B:Ÿ,,®006…7Š$@0%@<+Š%@,$@0,.Ÿ±\6®-„8‰<, B2@…@&²7 °N  VEND. NUMBER :R \ B²6„8‰<,- ³U1„8‰<,!€)„8‰<,P:„8‰<,,K ILLEGAL VENDOR NUMBERU A`e´s 6‹- 6Œ-@ BO‚7Š$@0%@<Š$@0%@,49999i ILLEGAL VENDOR NUMBERs A`eµ6„8‰<,- ¶\6®-„8‰<@, B2@…@&²7 °N  ITEM AMOUNT :R¡\ B·6„8‰<@,-¡¸r 6‹-‰6Œ-@!6¼-@+ B?»-@@0`…7Š$@0%»<Š$@0%»,0 n6¼-¼%@r »»\ 6¬-¼@…@&¬A …7Š$@0%@<Š$@0%»,X  COMMENT :\Ÿ¼<B:Ÿ, @0<6Ÿ7B:Ÿ,%@,.½7@<@0&B:Ÿ,,À006…7Š$@0%@<+Š%@,$@0,.ŸÓ$Ô##PRINT 1ST LINE ON CRT/PRINTER›ß 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 Âç†@AaEè§6ˆ.½7@<@&±,06ˆ7B:ˆ,%@,.¾G6ˆ7B:ˆ,%@,. €6ˆ7B:ˆ,%@,.‚7Š$@0%@<Š$@0%@,§6ˆ7B:ˆ,%@,.½7@<@&´,í6ˆ7B:ˆ,%@,.¿>6ˆ7B:ˆ,%@,.½7@<@&¶,R6ˆ7B:ˆ,%@,.Ày6ˆ7B:ˆ,%@,.½7@<@&¸,6ˆ7B:ˆ,%@,.Áò>*6ˆ7B:ˆ,%@,.½7@<@&Ã,>6ˆ7B:ˆ,%@,.Âü†"@3ˆþ $%%PRINT VENDOR 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@<@&Æ,76ˆ7B:ˆ,%@,.Å^6ˆ7B:ˆ,%@,.½7@<@&È,r6ˆ7B:ˆ,%@,.Ç>*6ˆ7B:ˆ,%@,.½7@<@&Ê,>6ˆ7B:ˆ,%@,.É3ˆ3$œ))PRINT 1 INVOICE LINE ON CRT/PRINTER›¡ 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@<@&Ì,76ˆ7B:ˆ,%@,.Ë^6ˆ7B:ˆ,%@,.½7@<@ &¬,µ 6‹-£6Œ- BR6ˆ7B:ˆ,%@,.…7Š$@0%@<Š$@0%¬,y6ˆ7B:ˆ,%@,.½7@<@&±,6ˆ7B:ˆ,%@,.ͺ*6ˆ7B:ˆ,%@,.½7@<@&´,>6ˆ7B:ˆ,%@,.Îe6ˆ7B:ˆ,%@,.½7@<@&¶,k6‹-£w6Œ-@ B¿>>6ˆ7B:ˆ,%@,.…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 ‰”‰-@žc„8‰<@,!Y68„8‰<,<@,-8„8‰<,<@,%„8‰<@,c Ap€£BB68„8‰<,<@,-8„8‰<,<@,%„8‰<@,¨ ‰¼N 0 %ARE OWED BY DATE AND CUMULATIVE BILLJ TO BE UPDATED (Y/N) NÏÆ%Ï0Y*Ï0N B% AqÐ Ï4N$îUPDATE FILES›ó·6-6‹-@'6Œ-1 B}6…7Š$@0%@<+Š%@,$@0,. š6„8@<,-·6„8@<@,-ôp6‹-@6Œ-@% Bp6…7Š$@0%@<+Š%@,$@0,. ø‰-@€ý,,68‰<@,-8‰<@,%8‰<@,€,68‰<@,-8‰<@,%8‰<@,H68‰<@,-8‰<@,d68‰<@,-8‰<@,€68‰<@,-8‰<@, NOW APPLY PAYMENTS›6Ð-8‰<@, £-@@6@Ð"Ar 8‰<£,"Ar*<68‰<£,-8‰<£,%Ð&8‰<£,26Ð-< Ar46Ð-8‰<£,68‰<£,-z £„!!68‰<@,-Ð%8‰<@,Ž ‰˜$(#..6’.$NO. ITEM # VEND# ITEM AMT COMMENT )#--6“.#--- ------ ----- -------- -------P#226¥.(VN 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 SBR›A( 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:°, @E6°7B:°,%@,.½7@<@&B:°,,4N'6Ñ.°7B:°,&‹&@N4Ñ7@<@,0.46°7B:°,%@,..00HN?6²- Ò-@B:°,-°7Ò<Ò,0.;6²-²%@? ÒIN6®-®'BRN$0u''SUBROUTINE TO CREATE STRING ARRAY›:u%%6Š-+‹&@,$@%Œ%@Du$€ D:ACCTPAY.BAS