I:AR MENU, ACCOUNTS RECEIVABLE MENU, SSM, 2/06/79, REV. AR CP/M 2.2, 3/29/79J p :COPYRIGHT 1979 RETAIL SCIENCES INC.)J AZ: JJPN$"PROGRAM SELECTION MENU"TJ dlJ"A:AR MENU.BAS": }Jd P: @J hJ "YOU MAY SELECT ANY OF THE FOLLOWING PROGRAMS:": J );M$(); );"SET SYSTEM DATE"K );M$(); );"CUSTOMER FILE MAINTENANCE"EK );M$(); );"ENTER TRANSACTIONS"K V$( )"Y" );M$(); );"DELETE TRANSACTIONS"K  );M$(); );"OPEN CREDIT RECONCILIATION"K  );M$(); );"REPORT GENERATION (SUBMENU)L );M$(); );"END OF PERIOD PROCESSING"GL );M$(); );"QUERY CUSTOMER ACTIVITY"uL, );M$(); );"VERIFY FILE STRUCTURE"L3 );M$(); );"SYSTEM INITIALIZATION"L6 );"END"; );"END ACCOUNTS RECEIVABLE PROGRAM"M@: Q$"WHICH PROGRAM DO YOU WISH TO SELECT? ": Q: QT"MJ 8hMO R$M$()  : R$M$()  : R$M$() MT I : R$M$(I) (I V$( )"Y") hM^ I: : JMh R$M$() : "*** LOADING PROGRAM ";M$(I);" ..." Nr "A:AR"M$(I)".BAS"%N: SET SYSTEM DATEfN: Q$"PLEASE ENTER TODAY'S DATE (MM/DD/YY FORMAT): ": N "O",,"A:ARDATE.DAT": #,R$: N N: DISPLAY REPORT SUBMENUN hN "YOU MAY SELECT ANY OF THE FOLLOWING PROGRAMS:": &O );M$( ); );"INVOICE GENERATION"TO );M$( ); );"STATEMENT GENERATION"{O );M$( ); );"AGEING REPORT"O& );M$( ); );"TRANSACTIONS REPORT"O0 );M$(); );"CUSTOMER ACCOUNT REPORT"P: );M$(); );"RETURN TO MAIN MENU"PD @0P?: PROGRAM INITIALIZATION=P@ M$()PJM$()"DA":M$()"CF":M$()"ET":M$()"DT":M$()"QC":M$()"OC"PTM$()"EP":M$()"RP":M$()"VF":M$()"SI":M$( )"IN":M$( )"ST"Q^M$( )"AG":M$( )"TR":M$()"CA":M$()"ME": Qg: PRINT A HEADINGQh SC$;(W(H1$)));H1$: (W(H2$)));H2$: (W(H3$)));H3$: (W(H4$)));H4$: (W$));($,"-"): QO: SYSTEM INITIALIZATIONQPÕ H: "I",,"A:ARDATE.DAT": #,TD$: ZRZÆ V$( ): "I",,"A:ARSYS.DAT": #,V$(): V$()"A" : "I",,V$()":ARSYS.DAT": #,V$(){Rn I  : #,V$(I): : RwSC$"":I(V$()):SC$SC$(((V$(),I,))):RxWP: W: BELL$(): PWRÕ \SH1$"PEACHTREE SOFTWARE": H2$"ACCOUNTS RECEIVABLE SYSTEM": H3$"COPYRIGHT 1979 RETAIL SCIENCES, INC.": H4$PN$bS@ĎvS7: QUERY LINES8ǑQ$;:R$:RL$(R$,):RL%(R$)StNj R$"END" : : : : "*** END OF ";PN$: S: QUERY DATESȍ8Tȋ(R$)(R$)@TMO(R$,"/"):MO:MOR$"0"R$]TDA(,R$,"/"):DATȋDARL$(R$,):R$"0"(R$,):R$RL$R$TMO((R$,)):DA((R$,,)):YR((R$,))Tȋ(MO)(MO )(DA)(DA )ώTȍ:U: ERROR MESSAGESFUґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:Uԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$: Uԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";Uԑ" CONSULT BASIC MANUAL FOR EXPLANATION. ": E: t