@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@W!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `8  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D8:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D8:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED005 FREE SECTORS COPYING---D1:FNTUTILS.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 164ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u05  15 2 2151^116115ύ011$r2ԭ5 3)5)5ԭx GT}@@L00)+& 2 L0=ɛ -L!1LV1L1 /3 3ȹ441L-4 v3 25 2H 2h͔5U}L3L3 2 k3U hh`DOC`QL3P1Lk0S1H /3h0B k3@ VL0LU!#$53 1181118V}1111Ε5 1Lk0552 1Ȍ1i111i11115Lk0pppB4f5&&&&&&&&^6f^6&&&&&W}&&A1@BJ D2ELVK@BHILV^Щ6 2BD2EJ VBD5EHI0 V0%5X}5 2iХiL[2 25 25`D:*.*` i@`8 ``@i `8@`0 BLV525<4Y}5`HH i ԍΗ552 ԍhh@ Lح1Э1Ѣ 24.4 24Z}4`D4E` 2BJ k3LVRH` 2BD4EhK)I JLV333 BASIC language TUR > TURBO BASIC OBJ| f}COM > MACHINE language DOC > DOCumentation PIC|MIC|FNT|MVM > Graphics AMS|MUS|MBD > Music LST > BASIC g} LISTing -Some MACHINE language programs can only be run by loading the MENU without BASIC! ------- -For s h}ome programs, XL/XE models may require a "TRANSLATOR" program (available from BELLCOM) to be loaded first! -Most i}programs are relatively self-explanatory; however, some may have separate DOCumentation files. Some BASIC programs m j}ay contain instructions in their program listings. LIST to read. -To view DOCumentation files one page at a time, k} press [START], [Return], or the Joystick Trigger to display the highlighted DOC file. Pressing the [Esc] key cau l}ses a return to MENU. -To print out a hard-copy of any DOCumentation file, [Q]uit the MENU, boot DOS, and then from m} DOS, use the (C)Copy command: D:Filename.DOC,P: -To use this great MENU program on your own disks, simply n} copy the file "AUTORUN.SYS". D:Filename.DOC,P: -To use this great MENU program on your own disks, simply !OJJZ9DDF1F2F4F9F7F10TEMPZ8V1V2V0XXV3V4IYY1ZJA0A1A2A3A4A5A6A7SPPJJB0B1VZNZ2Z3p}NAAMBBFZNAAAAAAAABBF3XHTHHHHHHHHHAIq} r} !@"#$s}%&@'()@*+,-./01234t}56789:;<=>?@ABCu}DEFGHIJKLMNOPQ;@v},1@'@@9* 1 }30 (ӠŠ͠3 V, $THIS PROGRAM IS w}A BALANCE FORWARDINGV %ACCOUNTS REIEVABLE SYSTEM. WHAT THIS R+ #MEANS IS THAT PAYMENTS DON'T ACCRUER "TOWARDS ANY INDx}IVIDUAL INVOICE BUT U, $TOWARDS LUMP SUM BALANCES REIEVABLE.U $THIS TYPE OF A/R SYSTEM IS TYPICALLY## USED BY PROFEy}SSIONALS. FORe. &EXAMPLE, MONEY OWED ON CHARGE CARDS IS=  THIS TYPE.e #INVOICES ARE KEPT ON FILE UNTIL THEU, $MOz}NTH'S END. LINE PRINTER OUTPUT IS U $SUPPORTED. DATE FILES MAY BE STOREDN+ #ON DISKETTE. SEE THE ACCOMPANYING N DO{}CUMENTATION 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 SY}STEM<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. TU}RN 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 }Tb}GGAA A!A"A#A0APApl A0 } "& NEW FILE}0 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 DRIV}E2 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 NO}NE DN B"$. 6-6- } $ Ac. A`P }6- A@%  A`} }    _&-P:'@,$@%@/6.=:,86-B:,L@@&Q [ Aa_ } A@ REPORT GENERATOR }-@@, })  Ԡ, "" 1. AGED RECIE}VABLES 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%@,49999AQ}3 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. CUSTOME}R LIST0  j""@"3 k"@33n    Aax"@3}333}    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 } $COMP}LETE INVOICE LIST" }$   ',6. INVOICE LIST)  , (""@"3 ,B68},--68@,-B68@,-6   ;"@33@-@J AcO((6}8,-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"@3}r;"@;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 06}8<@,-A:,a6-8<@, B$6.*6->@@&C ]  60-90 OWED :a 0}68<@,-A:,a6-8<@, B$6.*6->@@&C ]  90 + OWED :a 0}68<@,-A:,a6-8<@, B$6.*6->@@&C ]  PAY LAST MONTH :a 0}68<@,-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 NUMB}ERU 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-@(6}8<@,-?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$UPDAT}E 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*<6}8<,-8<,%&8<,26-< Ar46-8<,68<,-z !!68<@,-%8<@,} $(#..6.$NO. ITEM # CUST# ITEM AMT COMMENT )#--6.#--- ------ ----- -------- -------P#226.(CS NAME CU}RRENT 30-60 60-90 90+Z#226.(-- ---- ------- ----- ----- ---n#226.(PMTS LAST MTH CHGES LAST MTH CUM CH}GESo#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('# ENT}ER 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)$*00E}LIMINATES 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:RE}C? IN6-'BRN$0u''SUBROUTINE TO CREATE STRING ARRAY:u%%6-+&@,$@%%@Du$D8:RE6YDYZ9NAADDZZZ8F6V7V8V9V5V6VVV0FT7PBVZNDF4F5XYIV1V2V3TEMPV4NETXXF7F8PNSPA1}A2A3A4A5YZJAHXHTHHHHNEAAAAAAA1A1A1A1A1A1RTTFPBI@}zKKNAAMBBDDFZ9ZQQNF1F2ZNZAZ8AAAAAAAYBBY1IF4F9F7F10F3JVXV1XXHTV2 }HV3HV4HZ2V0SPA0A1A2A3A4HHA5HA6HA7HJJHB0B1Z3ATEMPIPV510D@@ }  } !"# }$%&'()*+,@-./012}3456789:;<=>?@AB}CDEFGHIJKLMNOPQR}STU;@,1@'@@9* 1 }2/ 'Ӡ}͠2 T, $THIS PROGRAM IS A BALANCE FORWARDINGT #ACCOUNTS PAYABLE SYSTEM. WHAT THIS R+ #MEANS IS THAT P}AYMENTS DON'T ACCRUER "TOWARDS ANY INDIVIDUAL INVOICE BUT S* "TOWARDS LUMP SUM BALANCES PAYABLE.S $THIS TYPE OF A/R SY}STEM IS TYPICALLYT) !USED WHEN TOTAL OWED RATHER THAN T &INDIVIDUAL INVOICES ARE IMPORTANT. FORe. &EXAMPLE, MONEY O}WED 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<,-: > ; } ; )Πՠ -- !}% 1. ADD TO/BEGIN INVOICE/PAYMENT FILE  2. SWITCH DRIVES  3. TURN PRINTER ON/OFF&&  4. READ FILE IN FROM D"}ISKETTE&&&  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 }TbGGAA A!A"A#A0&}APApl A,,ADD TO OR START FILE ALREADY IN MEMORY0 } "& NEW FILE0 B6'}-%@ 6- A`PINPUT 1 RECORD4 }    Ac4PRINT OUT 1 RECORD B4N(}A  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 DISK2 } ( PUT DATA DISK I,}N 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 @$WRITE FILE OUT TO DI/}SK  }-@@ $ PUT DISK IN DRIVE $ B  }-@ e! PRESENT FILE NAME IS '0}3  ' NEW NAME :7>4[@F:@,&@e A# 3 6.67B:,%@,.:367B:,%@,. 31} }-@@3 Ǡ @@  @$ -@ A(P 2}) -@ A&P A }B @L $ ""INPUT 1 VENDOR FROM DISKETTE x@@3}*@7@D@Q@^@k@x@ 68<,-%68<@4},-668<@,-G68<@,-X68<@,-i68<@,-z68<@,-68<@,- 6.7@}A1  }  -@ Ac *'@"P:'@,& A@*    6-&@ $$'?}@"P:'@,A0 A@  $ EDIT VENDOR& }+  0 55 #VENDOR # TO EDIT MUST BE LESS THAN %@}@1  5 ]+ "VENDOR NUMBER TO EDIT (0 TO END) /64S@F:@,&@] A1%9  : a-@A}B:,:@:7<,, @G)@:7<,,!@YW@F:@,&@a A1%<  6-A:,=  ? "$B}D >68<,-  & Aa) - 1 ; AaP> N A`X   B A1EDIT SUBROUTINE C} } 6-N A@0@ -ENTER # OF ITEM YOU WISH TO EDIT, 0 IF NONE DN B"$D}. 6-6- } $ Ac. A`P }6- A@%  A` }    _&-P:E}'@,$@%@/6.=:,86-B:,L@@&Q [ Aa_  A@ REPORT GENERATOR F}}-@@, })  Ԡ,  1. AGED PAYABLES REPORT!! 2. COMPLETE VENDOR G} LIST-- %3. COMPLETE VENDOR LIST WITH INVOICES 4. LIST OF ALL INVOICES 5. END LIST PROGRAMW % ENTER H}APPROPRIATE CHOICE )04M@F:@,&@W AP`a-@B:,:@:7<,, @G)@:7<,,!@YI}W@F:@,&@a AP` 6-A:,"@$''AQARASAT APJ}AGED PAYABLES REPORT*-@&68,-*  }B   *6.AGED PAYABLES REPORT <K}  B  ""@"3 "@33( $@F:@,&@( L}-@W 6-6-@ BW7$@0%@<$@0%@,49999AQ3 Aa.-@M}@*68,-8,%8<,.  3&'@"P:'@,*") 3 B  "@3  (6-N}8@, B"6.(6-(6-8@, B"6.(6-(6-8@, B"6.(6-(6-8@O}, B"6.(6-r TOTALS#@@&( <@@"&A U@@0&Z n@P}@7&r v"@v3TOTALS7@<@&,7@<@&,7@<@&,7@<@Q}&,("@3F   BK$PCOMPLETE VENDOR LISTR }_-@a 6-6-@R} Bd;;7$@0%@<$@0%@,49999AR`f"@33i.  6. VENDOR LIST.  S} j""@"3 k"@33n    Aax"@3333}T}    AaP."!-@"+ B.  }"@33 $((COMPLETEU} VENDOR LIST PLUS INVOICES }. 6. VENDOR LIST+  . ""@"3 -V}@ 6-6-@ B;;7$@0%@<$@0%@,49999AS`*-@@&6W}8,-* "@3332     Aa'"@*3.323*    AaP '"@X}*3   "@33-@C8<," AcC68@,-8@,%8<@Y},  A"@;3CHANGE IN OWED THIS MONTH = 8@,>3A3A"@; CHANGE IN OWED THIS MONTH Z}= 8@,> A ?"@<3(----------------------------------------?3  B } $[}COMPLETE INVOICE LIST" }$   ',6. INVOICE LIST)  , (""@"3 ,B\}68,--68@,-B68@,-6   ;"@33@-@J Ac]}O((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 :-@@(a}&1 l1 CHG-PAYMENTS :-@@(&1 n6 3 (----------------------------------------6 p"@b}3r;"@;3TOTAL CHARGES :7@<@&,s;"@;3TOTAL PAYMENTS :7@<@&,tc};"@;3CHG-PAYMENTS :7@<@&,uB"@3?3(----------------------------------------B3wd}  B{$p((SBR FOR INPUTTING DATA ON 1 VENDORz68<,-{r6-@6-!6-@+ B?e}-@@0`7$@0%<$@0%,0 n6-%@r |[ 6-@@&W 7$@0%@<$@f}0%, VEND. NAME :[}<B:, @0<67B:,%@,.7@<@0&B:,,0067$@0%@<+%g}@,$@0,.a6-8<@, B$6.*6->@@&C ]  CURRENT OWED :a 0q}B%DOS SYSB*)DUP SYSB SAUTORUN SYSB_HELP DOCBoACCTREC BASB ACCTPAY BASBqINVOICE BASBPAYROLL BAS68<@,-A:,a6-8<@, B$6.*6->@@&C ]  30-60 OWED :a 0r}68<@,-A:,a6-8<@, B$6.*6->@@&C ]  60-90 OWED :a s}068<@,-A:,a6-8<@, B$6.*6->@@&C ]  90 + OWED :at} 068<@,-A:,a6-8<@, B$6.*6->@@&C ]  PAY LAST MONTH :au} 068<@,-A:,a6-8<@, B$6.*6->@@&C ]  CHG LAST MONTH :av} 068<@,-A:,a6-8<@, B$6.*6->@@&C ]  CUMUL. CHGES :aw} 068<@,-A:,$**SBR FOR INPUTTING DATA FOR 1 INVOICE }4 1 &ҠŠ͠x}ԠҠ4 r6-@6-!6-+ B?-@@0`7$@0%<$@0%,0 n6-%@y}r ^ 6-@@&A 7$@0%@<$@0%,Z  ITEM NUMBER :^<B:, @0<67B:z},%@,.7@<@0&B:,,0067$@0%@<+%@,$@0,.\6-8<, B2@{}@&7 N  VEND. NUMBER :R\ B68<,-U18<,!)8<,P:8<,,K I|}LLEGAL VENDOR NUMBERU A`es 6-6-@ BO7$@0%@<$@0%@,49999i ILLEGAL VEN}}DOR NUMBERs A`e68<,-\6-8<@, B2@@&7 N  ITEM AMOUNT :R\ ~}B68<@,-r 6-6-@!6-@+ B?-@@0`7$@0%<$@0%,0 n}6-%@r \ 6-@@&A 7$@0%@<$@0%,X  COMMENT :\<B:, @0}<67B:,%@,.7@<@0&B:,,0067$@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 @AaE6.7@<@&,067B:,%@,.G67B:,%@,. 67B:,%@},.7$@0%@<$@0%@,67B:,%@,.7@<@&,67B:,%@,.>67B:,%@,.}7@<@&,R67B:,%@,.y67B:,%@,.7@<@&,67B:,%@,.>*67B:,%@,.7@}<@&,>67B:,%@,."@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@<@&,767B:,%}@,.^67B:,%@,.7@<@&,r67B:,%@,.>*67B:,%@,.7@<@&,>67B:,%@},.33$))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@<@&,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 # 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 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,'A}0N6-@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$ D:ACCTPAY.BASN6-'BRN$0u''SUBROUTINE TO CREATE STRING ARRAY:u%%6-+&5 I77FRNND2QUQUP1PEQOD3D4D5D6H1H2H3H4H5H6H7H8H9Z9XXTEMPT4Z2HDNIDINN4N5N6N1POSV}H5TMF3F4ZOXYP1F1F2F6F7D7HSPODDPETEAAAFAQSATN2SDH6T5T3ZCCJQJPJJTATQQJHXHTAA}CCCHHHHTTTZ8I@@@@ } @@@@@@} !"#$%&'()*+},-./0123456789:}@;<=@>?@ABCDEFGHIJ}KLMNOPQRSTUVWXY}Z[\]^_`abcdefg }'}@'@@9 $!  ͠$ ;@P,;@,;A,;A,;@ },9@ ,9@ ,9@ ,9@ ,;A,;A,;A,;A,;A,;A,;A},;A,9@P,9@P,9@P,9@P,9@P,;A,;A,;A,;A,;}A,9@P,;A,;A,;A,;A,;A,;A,;A,;A,;A,;A},;A,(;A,;A,;A,;A,;A,;A,;A,;A,;A,;A},;A,;A,2;A,;A,;A,;A,;A,;A,;A,;A,9A},;A,;A,9@,7&&;A,;A,;A,9 APz-@v67$@P}%@<+%@,$@P,.1 z dua6.W } u67B:,%@,.e- 6.6.6.6.!6.'6.-6.}uu6.k IN}( %  INVOICING PROCEDURE ( X/ 'EACH INVOICE CAN HAVE AT MOST 10 LINES.X $INVOICE IS PRINTED ON SCREEN AND/OR} U+ #PRINTER WHEN COMPLETE. AT MOST, 50U %INVOICES MAY BE PROCESSED IN ONE RUN. B-)  IS THE PRINTER BEI}NG USED (Y/N) -%0Y*0N B% A@L= }4Y3 PREPARE INVOICE IN PRINTER. = BV }}`[ A 2  ENTER NUMBER OF CUSTOMERS TO BE M INVOICED (-1 TO END) Q[ Bas)6. } N6. s6. bk(6. k}6.< e"6@AjP  CUSTOMER NAME :#}P67$@0%@<+%@,$@0,.oY 2ND LINE NAME : Y67@$@0%@<+@%@,$@}0,.tY STREET ADDRESS : Y67@$@0%@<+@%@,$@0,.y  CITY :} z  STATE : {  ZIP : |--67B:,%@,.7@<@0&B:,,~<<67@}$@0%@<+@%@,$@0,.<<67@$@0%@<+@%@,$@0,.<<67@$}@0%@<+@%@,$@0,.F A  8 PRESS 1 TO INVOICE, 2 TO ABORT <F B-@}*@# B- A "@A+6-+CG=# LINES PRINTED SO FAR }6-%@}36-@3NUMBER OF LINES IN INVOICE SO FARO INPUT INVOICE NUMBER "O67$@0%@<+%@,$@0},.t* !INPUT DATE OF INVOICE (MM/DD/YY) .[67$@0%@<+%@,$@0,.jB:,@t B) 6}.*, ( INPUT CUSTOMER ORDER NUMBER ,- SHIPPED VIA : .6. NET 10 DAYS/ TERMS : 0} 2M *  ***********7 LINE I  ITEM NO. :M70067$@0%@<+%@,$@0},.<Z ITEM DESCRIPTION :L67$@0%@<+%@,$@0,.Z6-%@=z37$@0%@<+%@},$@0,4EKb67$@0%@<+%@,$@0,.0p6-%@z A0> APB6-%@F}JM QUANTITY ORDER :7 UNIT PRICE :;D68,-M68,-K }P++ !NUMBER OF LINES PRINTED SO F}AR = U  Z68,-8,$8,a 6-d   A@n Bx; 4N  DO AGAIN# B16-&@}; A0($ MORE ITEM ON INVOICE (Y/N) (%0Y*0N B% A4NAPF@}2 INVOICE FULL. MACHINE TO TOTAL< BF AY6-%@ A0INVOICE COMPLETE8 } TAXABLE} (Y/N) "80Y*0NAQE AR4Y) TAX RATE (%) -;6-'AE B" SHIPPING }" }m 4Y }P INVOICE NUMBER 7$@0%@<+%@,$@0,m-@%F:@,&@:}7 DATE :7$@0%@<+%@,$@0,:      4Y33!6-6-!6-}@-@ A@&6-%8,16-%8,<6-%8,@ 00 (----------------------------------------8 4Y83}(----------------------------------------1 6.=:,6-B:,6-% B+6.16-K TOTAL :.@}@!&3 G@@5&K 6-4Y6-$J 4YJ3 TOTAL :7@<@ &,7}@<@&,N 6- B6.6-6 SALES TAX :J@@5&N H 6- B6.0} SHIPPING :D@@5&H [ 4Y33 SALES TAX :7@<@#&,[3 SHIPPING :7@<}@#&, 6-%%68@,-N 6- B6.6-6 PAY THIS AMOUNT :J@@5&N 7 4}Y73PAY THIS AMOUNT:7@<@&,; 4Y;3(---------------------------------------- B0 }4N& OLD INVOICE ELIMINATED0 ACOMPLETED INVOICE GOOD0YA3 663 7$@0}%@<+%@,$@0,|=7@$@0%@<+@%@,$@0,0|3 7@$@0%@}<+@%@,$@0,BB3 7@$@0%@<+@%@,$@0,"3 , , }'I 3 C7@$@0%@<+@%@,$@0,4I3 , 3 3 .~3 7$@0%@<$}@0%@,  =:,  7$@0%@<+%@,$@0,  /% 3 -@! AA}% 3WW3O ---------------4 3 6[ 6- B}6.[37@<@E,TOTAL :7@<@&,$:[ 6- B6.[37@<@E,SALES }TAX :7@<@&,$<[ 6- B6.[37@<@E,SHIPPING :7@<@&,$}>[ 6- B6.[37@<@E,PAY THIS AMT. :7@<@&,$?!-@@  ! }@rZZ6.P |6-%@68,-z}67$@0%@<+%@,$@0,.7@$@0%@<+@%@,$@0,67$@0%@<+%@},$@0,.7@1<@`,AA67$@0%@<+%@,$@0,.7@1<@`,eA67$@0%@<+%}@,$@0,.7@1<@`,S68,-8@,e68,-8@, 68,-68,-68,- ZERO ALL INVOICE }VARIABLES-@@E67$@0%@<+%@,$@0,.s67$@0%@<+%@,$@0,.}68,-68,-68,-167$@0%@<+%@,$@0,._67$@0%@<+%@},$@0,.67$@0%@<+%@,$@0,.67$@0%@<+%@,$@0,.  }-)}  DO YOU WANT MORE INVOICES (Y/N) -%0Y*0N B% A0?"@P+ TRANSACTION MATRIX FULL5 B}? A4YA }: }6 &PRESS 1 FOR TRANSACTION REPORT,ELSE 2 :%01*02 B}% A42A8 4Y8 (PREPARE PRINTER FOR TRANSACTION ON FILE. B& 0Y } A}5'-@  ( }+30 (ΠԠ3 ,/ 4Y,3 TRANSA}CTION REPORT/30   5 4Y33:-@6.=:8,,&6-B:,V6-B:7$@0%@<+%@,$@0},,6-B:7$@0%@<+%@,$@0,,;q36-B:7$@0%@<+%@,$@0,,<6-8,F B}L6.R6-[6-8,e Bk6.q6-<@ =3 6.367B:,%@,.7@<@&B:,,>A}@@A 7$@0%@<+%@,$@0,?<<67B:,%@,.7$@0%@<$@0%@,@^}@@A 7$@0%@<+%@,$@0,^@F:@,&@A<<67B:,%@,.7$@0%@}<$@0%@,B^@@ A 7$@0%@<+%@,$@0,^@F:@,&@C<<67}B:,%@,.7$@0%@<$@0%@,D@@' E.67B:,%@,..67B:,%@,. }F@@7&  G67B:,%@,.I 4Y3N36-6-'6-36-P}-@R/6-%8,6-%8,$6-%8,/6-%8,S U// '---------------------------------------X 4Y}3 Yc  6- B6."6-G EXTENDED PRICE TOTALS : [@@6&c $Z_ 6- B6}.6-C TOTAL SHIPPING :W@@6&_ $[Y 6- B6.= TOTAL SALES TAX } :Q@@5&Y $\| 6- B6.6-C TOTAL OF INVOICE AMOUNTS :W@@6&}_ $|@F:@,&@^0YA_++3EXTENDED PRICE TOTALS :$`++3TOTAL SHIPPING } :$a++3TOTAL SALES TAX :$b++3TOTAL OF INVOICE AMOUNTS :$gMM3INVOICE NUMBER }7@1<@6, DATE : 7@1<@`,h   lPRINT 1 LINEs6-@0?6-B:7$@0%@}<+%@,$@0,,K6.=:8,,T6-B:,]6-8,g Bm6.s6-" 6-8, B6."6-6 @}667B:,%@,.7@<@&,/ 7$@0%@<+%@,$@0,A@@k 7$@0%@}<$@0%@,@@!& 0Y)0N A@37$@0%@<$@0%@,7$@}0%@<$@0%@,7@<@&B:,, 7@<@&B:,, 4@@'& }0@@5&4 $&&PRINT LINE OF INVOICE ON PRINTER44LINE BELOW EXECUTED IF QUANTITY NOT AN INTEGER2}7$@0%@<+%@,$@0,40] 7$@0%@<+%@,$@0,37$@0%@<+%@,$@0}, \B:, +%@,$@0K-B:,%@+%@,$@0%@X67<,. \ 07$@0%@<$ }@0%@,0 B@@m 7$@0%@<+%@,$@0,37$@0%@<+%@,$@0, }TB:, +%@,$@0C-B:,%@+%@,$@0P67<,. T 07$@0%@<$@0%@ },0 B@@m 7$@0%@<+%@,$@0,37$@0%@<+%@,$@0,TB:, +% }@,$@0C-B:,%@+%@,$@0P67<,. T 07$@0%@<$@0%@,0 B@ }@m 7$@0%@<+%@,$@0,37$@0%@<+%@,$@0,TB:, +%@,$@0}C-B:,%@+%@,$@0P67<,. T 07$@0%@<$@0%@,0 B@@m }7$@0%@<+%@,$@0,37$@0%@<+%@,$@0,TB:, +%@,$@0C-B:,%@}+%@,$@0P67<,. T 07$@0%@<$@0%@,0 B@@m 7$@0%@}<+%@,$@0,37$@0%@<+%@,$@0,(#116.'RF ITM# DATE APPL TO AMT DISCOUNTS)#116.}'__ ____ ____ ____ __ ___ _________F#116.'CST# DATE INV# TYPE AMT OTHERG#116.'---- ---- ---- ---}- --- -----d#006.&ITM# DESCRIPTION QT# UNIT PR EXT PRe#006.&____ ___________ ___ _______ ______#$'INP}UT ERROR SBR'8 INPUT ERROR! TRY AGAIN !4-@A8 $'$t':-@"3 PRESS ENTER TO CONTINUE }7:$'Y,N,A SBR' 6. '3/ &ENTER Y IF OK, N IF ERROR, A TO ABORT 3'+0Y*0N*0A! B+ B}'$<( Y,N SBRA( 6.F(+ ' ENTER Y IF OK, N IF ERROR +P(%0Y*0N B% BZ($(MO}RE ENTRY? SBR( 6.(.* !DO YOU DESIRE MORE ENTRIES (Y/N) .(%0Y*0N B% B($)ONLY Y/}N SBR)0Y*0N B)$*''ELIMINATES TRAILING BLANKS OF Z8$+<7B:,P,$A,'A0N6-@2NE 6.=:,B:}, @E67B:,%@,.7@<@&B:,,4N'6.7B:,&&@N47@<@,0.467B:,%@,..00HNH6- -@B:,-7<,0.;6}-%@? H6-B:,IN6-'BRN$ D:INVOICE.BAS,..00HNH6- -@B:,-7<,0.;6E }@@@ !"}#$%&'()*+,-./012 }3456789:;<=>?@A!}BCDEFGHIJKLMNOPQ"}RSTUVWXYZ'@'@@9;@#}, W }-@@@% -) W (̠͠"-@@@ -" $} R) !THIS PROGRAM IS A BRIEF IN MEMORYR $PAYROLL SYSTEM. ESSENTIALLY IT IS AV* "PROGRAM WHICH COMPUTES FEDER%}AL ANDV 'FICA WITHHOLDING AND STORES PAY RECORDS.. &IN A FORM WHICH PERMITS EASY ACCESS TOW- %THOSE INTERESTED IN 9&}41 OR W-2 FORMS.W %THERE IS AT PRESENT, NO PROVISION FORY/ 'STATE OR LOCAL WITHHOLDING BUT THIS CANY %BE HANDLED VIA '}THE 'OTHER DEDUCTIONS'  CATEGORY. [- %THE DIMENSIONING LIMITS THE PAYROLLS [ (MASTER FILE TO 25 EMPLOYEES, THOUGH (}THIS">/ 'MAY BE INCREASED IF MUCH MAIN MEMORY IS>  AVAILABLE.$U) !REMEMBER THAT THE MASTER MUST BE U 'RECALLED FRO)}M STORAGE BEFORE OPERATIONS&?/ 'ARE PERFORMED AND RESTORED. AFTER THE ?  OPERATIONS.84-@#0 PRESS ENT*}ER TO BEGIN 49: };6-@%9<@,;A@,;@,;@P,;@P,;@,;@P+},;@P,;@P,;@P,;@P,;@P,;@P,<, 6.D26-@" A , A!A(;@0,},;@P,(FORMATTINGC9@<@ ,9@<@ ,9@,;@,;@P,;@P,;@P-},;@P,;@P,;@P,;@P,;@P,;@P,;A,D;@P,;@P,;@P,;@P.},;@P,;@P,;@P,;@,;@P,;@P,;@P,;@P,;@P,;@P,EUU6.K /} FD-@@+-@@ <68<,0}-@ D GD-@@+-@@ <68<,-@ D I7 }-@@-  1}7 AK B@L{-@yw67$@P%@<+%@,$@P,.2 2} { P}-@6-#6-@- By67$@0%@<+%@,$@0,.9999 3} } d>-@%-@@668<,-: > = (} (:((4}ՠ=(oo(g 1. MASTER FILE MAINTENANCE 2. SWITCH DRIVES 3. TURN PRINT5}ER ON/OFFkk(c 4. READ FILE FROM DISK 5. WRITE FILE TO DISK 6. COMPUTE PAYROLLDD(< 6}7. POST PAYROLL TO YTD TOTALS 8. REPORT GENERATORB?(7 9 END OF PERIOD FILE MAINTENANCE 10 END PROGRAMB(7}XL ENTER YOU CHOICE %4B@F:@,&@L AYa-@B:,:@:7<,, @G)@:7<,8},!@YW@F:@,&@a AZ 6-A:,]Z"@3 ARE YOU SURE YOU WANT TO QUIT 7P79}@<@,4YW }ZbOOA1A A!A"A#AxApAPAsl Aa:} }-@0 ACTIVE DRIVE :94D1B6.D2F Z-@A^ a$+ 6.D1 $-@A;}( +$4f }-@(@+  PRINTER :7"@C6-K OFF_-@Ac f$>26-@<} ON +-@A/ 2$READ IN FILE FROM DISK- } # PUT DISK IN DRIVE- B6 } =}2 ENTER NAME OF FILE TO BE READ :6J#@:7@<@,, @e@@F:@,&@J A"&3 }>}-@@3 Ǡ3 6.67B:,%@,.:367B:,%@,. @@?}@-@ A%P @$WRITE FILE OUT TO DISK } , " PUT DATA DI@}SK IN DRIVE , B N   - PRESENT FILE NAME IS ''=  NEW NAME :AH0N6. 3 }-@@A}3 Ǡ 3 6.67B:,%@,.:367B:,%@,. @@  @B}) -@ A&P B @L $ $$INPUT 1 EMPLOYEE FROM DISKETTE 3-@$@/C}68<,-3  8-@@$@86.7@H B? G}"$A }D $68<,- Aa! $ N A`X   B A1REPORT GENERATOH}R/ } ,  REPORT MENU/   1. PAYROLL REGISTER.. & 2. COMPLETE EMPLOYEE LIST WITH TOTALSI}  3. END REPORT GENERATOR@ AP`  2 ENTER APPROPRIATE CHOICE 6@ B"@$AQJ}ARAS APPAYROLL REGISTER }x ' DATE FOR PAYROLL REGISTER :+:B:, @W@K}F:@,&@a AQx6.7@<@, }*-@&68,-* L6.PAYROLLL} REGISTER :067B:,%@,.3 E@@I L "@3333    -@AM} 6-6-@ B%6-+6-76-@A Bdd7$@0%@<$@0%@,49999)7$@0%N}@<$@0%@,0AQ3 6.=:,6-B:,*6-8<@, B$6.*6-*6-8<@, BO}$6.*6-*6-8<@, B$6.*6-*6-8<@, B$6.*6-Q;6-8<@,&8<P}@,&8<@,&8<@,E BK6.Q6-{@@& 0@@&5 I@@Q}&N b@@#&g {@@0&g @@7& 4-@@O68,-8,%8<%R}@,S g"AQ3..3 ID# :7@<@&B:,, Y.3 GROSS :7@<@&B:,,S}Y3 FD WITH :7@<@&B:,, Y.3 FICA :7@<@&B:,,Y3 SPECIAL :7@<@&BT}:,, 1.3 NET :7@<@&B:,,13 3&'@"P:'@,*") 3 B    U}336-8@,&8@,&8@,&8@,M6-8@, B"6.(6-76-8@,A BG6.M6-V}i6-8@, B"6.(6-76-8@,A BG6.M6-S6-] Bc6.i6-^   TOT.W}'@@&, @@@&E Y@@#&^ 4@@0& 0@@7&4 X} " AQ!3#3TOTALS$3(..3 GROSS :7@<@&B:,,-..3 FD WITH :7@Y}<@&B:,,2..3 FICA :7@<@&B:,,7..3 SPECIAL :7@<@&B:,,<..3 NET Z} :7@<@&B:,,F  BK$PCOMPLETE EMPLOYEE LISTQ }S*-@@&68,-[}* U*6. EMPLOYEE LIST*  _-@a" }dW 6-6-@ BW\}7$@0%@<$@0%@,49999ARUn Aas"@ Abx.-@@*68,-8,]}%8<,. &"  B# }&   "@3 "@33:" 6 P^}RESS ENTER FOR COMPANY TOTAL :0"@03 COMPANY TOTALS" }D #  _}COMPANY TOTALS& 2"@D-@"   u<68@,-8@,&8@,&8@,&8@,u68@`},-8@,&8@ ,&8@,&8@,M6-8@, B"6.(6-76-8@,A BG6.M6a}-M6-8@, B"6.(6-76-8@,A BG6.M6-(6-8@, B"6.(6-n b}Y@@&# 7@@&< P@@!&U i@@0&n 8@@7c}& 8@F:@,&@r6-8@, B"6.(6-76-8@,A BG6.M6-\6-8@d},f Bl6.r6-M6-8@ , B"6.(6-76-8@,A BG6.M6-n M@@e}&# 7@@&< P@@!&U i@@0&n ;@@7& 8@Ff}:@,&@; " B$_ 3Y43 GROSS :7@<@&B:,,_3 FD WTH :7@g}<@&B:,,..3 FICA :7@<@&B:,,..3 SPECIAL :7@<@&B:,,..3 NET h} :7@<@&B:,, 3 3 3Mr6-8@, B"6.(6-76-8@,A BG6.M6-i}\6-8@,f Bl6.r6-M6-8@ , B"6.(6-76-8@,A BG6.M6-..3 GRj}OSS :7@<@&B:,,..3 FD WTH :7@<@&B:,,..3 FICA :7@<@&B:,k},..3 SPECIAL :7@<@&B:,,;.3 NET :7@<@&B:,,8 B;$$p**l}SBR FOR INPUTTING DATA ON 1 EMPLOYEEz B } }  EMPLOYEE # e #  EMPL. NAME :';B:m}, @0*0e67B:,%@,.7@<@0&B:,,S 6-6-@ B&0S67$@0%@<+%@n},$@0,.b  SS# :$8B:, @0*0b67B:,%@,.7@<@0&B:,,S 6-6o}-@ B&0S67$@0%@<+%@,$@0,.b  ADDR LINE 1 :$8B:, @0*0p}b67B:,%@,.7@<@0&B:,,S 6-6-@ B&0S67$@0%@<+%@,$@0,q}.b  ADDR LINE 2 :$8B:, @0*0b67B:,%@,.7@<@0&B:,,S 6-6-@ r}B&0S67$@0%@<+%@,$@0,.b  LAST PAY DAY :$8B:, @0*0b67B:,%s}@,.7@<@0&B:,,S 6-6-@ B&0S67$@0%@<+%@,$@0,.]6-8t}<@, B$6.*6->@@&C Y  PAY RATE :] 068<@,-A:,W6-8<u}@, B$6.8@@&= S  # EXEMPTION :W 068<@,-A:,Z6-8<@,v} B$6.8@@&= S  MAR=2 SING=1 :WZ  068<@,-A:,C/8<@,@w}*8<@,@9 BC A`0Q6-8<@, B$6.*6-;6-8<@,E BK6.Q6-x}Q6-8<@, B$6.*6-;6-8<@,E BK6.Q6-]   Y&@@&+ ?y}@@ &D X@@&] 4@@$& 0@@1&4 9 , !YTD GROSS,FED WIz}TH, FICA,SPECIAL:/ 9G68<@,-%68<@,-668<@,-G68<@,-e }    {} M3@@&8 L@@ &Q e@@&9 @@$&! 5@@1|}&9 l , !MTD GROSS,FED WITH, FICA,SPECIAL / 9J68<@,-[68<@ ,-l68<@,-;68}}<@,-%6-8<@,/ B56.;6-*6-8<@, B$6.*6-*6-8<@, B$~}6.*6-*6-8<@, B$6.*6- 6.=:,6-B:,k }     C3@@&}8 L@@ &Q k@@&@9 @@$&! 5@@1&9 8 +  CU}RR GROSS,FED WITH,FICA,SPECIAL. 8G68<@,-%68<@,-668<@,-G68<@,-$""}PRINT EMPLOYEE RECORD ON CRT }   EMPLOYEE #:k 6-6-@ BY  NAME :7$@0}%@<+%@,$@0,k@k 6-6-@ BY  SS NO. :7$@0%@<+%@},$@0,k@==  RATE :P:+8<@,%>P,$A,'A\  ADDRESS :6-&6-@}0 B\ 7$@0%@<+%@,$@0,m  6-%6-@/ B[ 7$@0%@}<+%@,$@0,m@n 6-6-@ B0  LAST PAY :\ 7$@0%@<+%@,$}@0,n@h  EXEMPT :8<@,E MAR (2),SING (1) : 8<@,H h Y = YTD M=MTD C=C}URRENT    6.=:,6-B:,6.Q6-8<@, B$6.*6-;6-8<@,E BK6.}Q6-Q6-8<@, B$6.*6-;6-8<@,E BK6.Q6-Q;6-8<@,&8<@,&8<}@,&8<@,E BK6.Q6-n Y@@&# 7@@&< P@@&U }i@@#&n m@@0& 0@@7&4 =6.=:,F6-B:,W6-8<@,a B}g6.m6-x6-8<@ , B$6.*6-;6-8<@,E BK6.Q6-b6-8<@,l Br6.}x6-Q;6-8<@,&8<@ ,&8<@,&8<@,E BK6.Q6-n M@@&# 7}@@&< P@@&U i@@#&n 4@@0& 0@@7&4 }c 6.=:,6-B:,&6-8<@,0 B66.<6-M6-8<@,W B]6.c6-Q6-8<@, B}$6.*6-;6-8<@,E BK6.Q6-Q;6-8<@,&8<@,&8<@,&8<@,E BK}6.Q6-n C@@&# 7@@&< P@@&U i@@#&n 4}@@0& 0@@7&4 $8&&PRINT EMPLOYEE RECORD ON PRINTER;3=3 EMPLOYEE #:BX 6}-6-@ BX3 NAME :7$@0%@<+%@,$@0,DX 6-6-@ BX3 SS NO. } :7$@0%@<+%@,$@0,F==3 RATE :P:+8<@,%>P,$A,'ALX 6-6-@} BX3 ADDRESS :7$@0%@<+%@,$@0,NX 6-6-@ BX3 7$@0}%@<+%@,$@0,QX 6-6-@ BX3 LAST PAY :7$@0%@<+%@,$@0,R 3} EXEMPT :8<@,SF(3MAR (2),SING (1) : 8<@,F3Y = YTD M=MTD C=CURRENTT 6.=:,6-B:,6.U}Q6-8<@, B$6.*6-;6-8<@,E BK6.Q6-VQ6-8<@, B$6.*6-;6}-8<@,E BK6.Q6-WQ;6-8<@,&8<@,&8<@,&8<@,E BK6.Q6-X:3 3}3Y:3 ID# :7@<@&B:,,Z..3 GROSS :7@<@&B:,,\..3 FD WITH :7@}<@&B:,,^..3 FICA :7@<@&B:,,`..3 SPECIAL :7@<@&B:,,b..3 NET } :7@<@&B:,,d< 6.=:,6-B:,&6-8<@,0 B66.<6-ex6-8<@ , B$6.}*6-;6-8<@,E BK6.Q6-b6-8<@,l Br6.x6-fQ;6-8<@,&8<@ ,&8<@},&8<@,E BK6.Q6-i 3 3j 3Ml..3 ID# :7@<@&B:,,n..3 GROSS :}7@<@&B:,,p..3 FD WITH :7@<@&B:,,r..3 FICA :7@<@&B:,,t..3 }SPECIAL :7@<@&B:,,v..3 NET :7@<@&B:,,yc 6.=:,6-B:,&6-8<@,0 }B66.<6-M6-8<@,W B]6.c6-zQ6-8<@, B$6.*6-;6-8<@,E B}K6.Q6-{Q;6-8<@,&8<@,&8<@,&8<@,E BK6.Q6-~ 3 3 3C..3 ID# } :7@<@&B:,,..3 GROSS :7@<@&B:,,..3 FD WITH :7@<@&B:,,}..3 FICA :7@<@&B:,,..3 SPECIAL :7@<@&B:,,..3 NET :7@<}@&B:,, 3 3-@@%3 $XPOST TO ACCTSb }lA 0 %POSTING ACCTS,PRESS }Y TO PROCEED,N TO= RETURN Av 4N$" 0Y B " Ap    DATE OF PAYROLL    B}0 }-@@0 Ǡ-@Q 6-6-@ BQ07$@0%@}<+$@0%B:,,,AqPP6-8<@,268<@,-8<@,%P68<@,-8<@,%P6-8<@},268<@,-8<@,%P68<@ ,-8<@ ,%P6-8<@,268<@,-8<@,%P68<@},-8<@,%P6-8<@,268<@,-8<@,%P68<@,-8<@,% ' }  ALL }DONE$ B'$3 } 0 END OF PERIOD FILE MAINTENANCE3 40 'DO YOU WANT TO ZERO ALL MTD AMTS (Y/N) 4%}0Y*0N B% Asy 4Y-@068<@,-G68<@ ,-^68<@,-}u68<@,-y  40 'DO YOU WANT TO ZERO ALL YTD AMTS (Y/N) 4%0Y*0N B% AsP}w 4Y-@E68<@,-$8<@,"\68<@,-s68<@,-w $x}77SUBROUTINE FOR INPUTTING DATA & COMPUTING PAYROLLy% } A B% }z* & ENTER PAY DATE (MM/DD/YY}) *{/B:,@"  INPUT ERROR% / Ax}J Ax8 %ENTER ID# (0 TO END),REG HRS,PREM HRS@J B}"$ 6-6-@ BRH )!)P:,)7$@0%@<$@0%@,49999}R Ax@66-8<@,%6-8<@,66-8<@,! A A! AR6-> )ENTER SPE}CIAL WITHHOLDING (ENTER IF NONE)BI0R6-A:,: A:COMPUTE FICA:STORE DATA IN EMPLOYEE RECORD  Aa}  B } Ax, INPUT ERROR. TRY AGAIN." , Ax@$$SUBROUTINE GIVING INSTRUCTIONSE J*}* "THE FOLLOWING COMPUTES FEDERAL ANDK WITHHOLDING AMOUNTST// 'INPUT FOR EACH EMPLOYEE IS AN ID#(1-25)^// 'THEN }THE # OF REGULAR HOURS (NORM RATE)h.. &THEN NUMBER OF PREMIUM HOURS (OT RATE)r THEN PRESS RETURN.|[/ 'THEN INPUT }ANY SPECIAL WITHHOLDING AMT.[ '& PRESS ENTER, NOW REPEAT STARTING WITH!! ID# FOR NEXT EMPLOYEE,ETCG* "BE SRE TO PU}T A COMMA BETWEEN EACHG ENTRY FOR EACH EMPLOYEE=f. &INPUT 0 FOR END OF DATA AND ENTER WHENZ 'REQUESTED. PRINTOUT OF }ALL RESULTS WILLf FOLLOW.$ ((SUBROUTINE FOR COMPUTING GROSS PAY 6-$%@P$$ $ ''SUBROUTINE COMPU}TES FEDERAL WAGES 6-&@@$! $l &&SUBROUTINE COMPUTING WITHHOLDINGq //T1 IS WITHHOLDING. X IS BRACKET WE ARE }INv 6-6-@{ AE 8<,A@ KK6-%P:+8<,&8<&@,,$8<&@,$}A%?P,'A 6-%@ A  FF6-%P:+&8<&@,,$8<&@,$A%?P,'A} $ SETS UP PAY ARRAY I68<@,-%68<@,-668<@,-I68<@,-$ ;-@@}"6-8<,, B768<,-;  <B:, @0<67B:,%@,.7@<@0&B:,, L 6-6-@ B}L67$@0%@<+%@,$@0,. $M!<B:, @0<67B:,%@,.7@<@0&B:,,(#226.( I}D GROSS FD WITH FICA SPECIAL NET)#226.( -- ----- -- ---- ---- ------- ----#116.' GROSS FD WTH FICA SP}ECIAL NET.#116.' ----- -- --- ---- ------- ---0#$'INPUT ERROR SBR'7 INPUT ERROR ! TRY AGAIN3-@}A7 $'$t'8-@"4 PRESS RETURN TO CONTINUE 8u'$'Y,N,A SSBR' 6. '1- $ENTER} Y IF OK,N IF ERROR,A TO ABORT 1'+0Y*0N*0A! B+ B'$<( Y,N,SBRA( 6. F('# ENTER Y }IF OK, N IF ERROR 'P(%0Y*0N B% BZ($(MORE ENTER? SBR( 6. (.* !DO YOU DESIRE MORE }ENTRIES (Y/N) .(%0Y*0N B% B($)ONLY YLN SBR)0Y*0N B)$*00ELIMIN}ATES TRAILING BLANKS OF VARIABLE Z8$*B:,"@ B +<7B:, B <7B-@@+-@@/":68<,-> B F7$ N$$** ROUTINE} TO FORMAT OUTPUT ***N&&6-P:+%>P,$A,'A0N6-@2NE 6.=:,B:, @E67B:,%@,.7@}<@&B:,,4N'6.7B:,&&@N47}@<@,0.467B:,%@,..00HNH6- -@B:,-7<,0.;6-%@? H6-B:,IN6-'}BRN$0u''SUBROUTINE TO CREATE STRING ARRAY:u%%6-+&@,$@%%@Du$D8:PAY-B:,IN6-'n