6I:ARAG.BAS, A/R AGEING REPORT, SSM, 1/28/79 REV. AR CP/M 2.1, 3/01/79hI p :COPYRIGHT 1979 RETAIL SCIENCES INC.uI AZ: IPN$"AGEING REPORT"I dI"A:ARAG.BAS": I : MONTH DATAI -1,30,59,90,120,151,181,212,243,273,304,334J: FIELD POSITION IN MASTER>J 6,24,24,24,10,1,4,4,4,2,2,4,4,2,4,4`J': FIELD POSITION IN EXTENTJ( 6,2,2,8,13,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,2,4Jd P: @: hJeJf"ENTER - 1 - TO PRINT A DETAILED AGEING REPORT""Kh" - 2 - TO PRINT A SUMMARY AGEING REPORT"ZKj:Q$"YOUR ENTRY? ": 8: (R$) :jKk R$"1" SF: H3$"DETAILED "H3$: nKl R$"2" SF: H3$"SUMMARY "H3$: nKm :j+Ln:Q$"WHAT IS THE CURRENT DATE FOR THIS REPORT? ": : ,: II$R$: 1: ADNN: HD$R$SLx : : I : G#(I): nLOP: ` : REWINDLOP: `: ER ,LA$()IZ$A$()IZ$ωL LC9 M: " ";A$(););A$();#);: T$"("(A$(),,)")" (A$(),,)"-"(A$(),,)6M #);T$;: LCLCqM I : S#(I): : MROS: OP : A$()"B" M: NOT BAL FWD RECORDM OEMR : LCLC: M OSOE: `: *M OEMR M OSOE: `N E3$B$() . : 2: *#N );"---"; : C);: I : " --------";: : : LCLCR6 C);: I : F1$;S#(I);: : : LCLC: R:: END OF BAL FWD RECORDR:D(A$( )): NN(A$( )): DNN NNDR: 6: I: B# IS:G#(I)G#(I)B#LS: 4);"---";;);II$;CI );: F1$;B#: LCLC: lS?: PROGRAM INITIALIZATIONS@NR%(V$()): 0SJFI%: NA$"ARCF.DAT": DI%(V$())A: OP: ` TO A$(): T: I : N: #,(T) AS T$,(N) AS A$(I): TTN: TTQ B$(): T: I : N: #,(T) AS T$,(N) AS B$(I): TTN: TTF1$"#######.##": PA: DD#: : IZ$II$T^ G#( ),S#( ): T: EJECT TO TOP OF PAGET LC IILC B: " ": : LCTU: PRINT HEADING ON TOP OF PAPER$U : : : U (PW(H1$)));H1$;n);"PAGE ";PA: PAPA: (PW(H2$)));H2$: (PW(H3$)));H3$: (PW(HD$)));HD$:: : LC :V "ACCOUNT CUSTOMER NAME PHONE INVOICE "; "DUE DATE CURRENT 1-30 31-60 OVER 60 TOTAL OPEN CR"V "------- ------------------------ ------------- ------- "; "-------- -------- -------- -------- -------- -------- --------"V LCLC: V: END THE PROGRAMIWOP: `: LC Q$"*** END OF "PN$" ***": : (PW(Q$)));Q$: LCLCVW: W: );"*** END OF ";PN$;" ***": : "PRESS THE 'RETURN' KEY TO RETURN TO THE PROGRAM MENU": Q$""X 8: RL% : "*** LOADING PROGRAM MENU...": "A:AR MENU.BAS"*Xg: PRINT A HEADINGXh SC$: (W(H1$)));H1$: (W(H2$)));H2$: (W(H3$)));H3$: (W(H4$)));H4$: : : XO: SYSTEM INITIALIZATIONXPÕ H: "I",,"A:ARDATE.DAT": #,TD$: WYZÆ V$(): "I",,"A:ARSYS.DAT": #,V$(): V$()"A" : "I",,V$()":ARSYS.DAT": #,V$()wYn I : #,V$(I): : YwSC$"":I(V$()):SC$SC$(((V$(),I,))):YxWP: BELL$(): PW: LCYÕ ZH1$V$(): H2$"ACCOUNTS RECEIVABLE": H3$PN$: H4$TD$XZN#:Z9$()():Z8$()(): ,ZII$((N#DD#H),,): Z"DD#((Z9$II$Z8$)(N#))ףp= #z: Z,ĆMO( ):I :MO(I)::@P[1YR((II$,)): MO((II$,)): DA((II$,)): NN(YR6@)MO(MO)DAWG: (YR ) MO NNNNV[2Ď[6T!NNWG: YR(T!6): DA(T!YR6): MO : (YR ) DA: DADA[7ċ DAMO(MO) MOMO: 7 : DADAMO(MO) \8II$((MO),)"/"((DA),)"/"((YR),): =\@II$TD$: 1: TDNN: Q\7: QUERY LINEw\8ǑQ$;:R$:RL$(R$,):RL%(R$)\tNj R$"END" : \: QUERY DATE\ȍ8:RLR$TD$:\ȋ(R$)(R$)]MO(R$,"/"):MO:MOR$"0"R$$]DA(,R$,"/"):DAU]ȋDARL$(R$,):R$"0"(R$,):R$RL$R$]MO((R$,)):DA((R$,,)):YR((R$,))]ȋ(MO)(MO )(DA)(DA )ώ]ȍ:]+: INDICATE DATE USED],ɋ RL "USING DATE ";R$^6Ɏ^W: QUERY YES/NO.^XQ$Q$" (Y OR N)? "V^]YES: 8: RL$"Y" YES: i^_ʋ (R$) ^bʋ RL$"N" : ] : ^: QUERY TOP-OF-PAGE^ʑ:"PLEASE SET THE PAPER AT THE TOP OF A FORM"_Q$"PRESS 'RETURN' WHEN READY": 8: _: ERROR MESSAGESV_ґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:_Tӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$_^ӕ:_ӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:`ԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:D`ԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";`ԑ" CONSULT BASIC MANUAL FOR EXPLANATION. ": E: t`HՑ "*** IMPROPER SYSTEM FILES. RUN SYSTEM INITIALIZATIION ***": E`Rթ t`t֕ : E-a_:1/2/79 READ ONLY VERSION Multi ARray ISam - MARIS (OP) ra`ꕨ:OP,(,,,,,, ,,H,,,tajꕨ:aER%:a=ER%:j:: b': OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) 7b(땨2:NA$(DI%A)":"NA$:NA$ASNA$Fb2ER%:<bb<땨:ER%:ER%:bF"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$bPFI%,:O0$"MARIS"FI%:ER%:~cZDA$O2$:EX%(O3$):NR%(O4$):OA(O5$):KL%(O6$):OC$O7$: FI%,(KL%)ASOK$,({KL%)ASOT$,ASOM$,ASOE$,ASOL$: O1$()x:NR%ddOKKL%:OTOK:OJOT:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OJOTOJ:FI%/dnOK$(OI)OT$(OJ):OJOJ:OI:OT$:dx:"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": BE$:NR%:FI%,:EX%:OPEX%:FI%: OM$"M"NR%NR%:OK$(NR%)OK$(OP)eyOP:NR%:OH():OH():OH():OH() :OT7ezOH(OT)NR%OTOT:OH(OT)OH(OT):zte{OKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)e|OT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OI|e}OK$(OIOH),OT$:OJ,OK:OH:OKKL%:OTOKhf~OJ:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOTFI%:OJfOI:OT$:OJFI%fFI%,:O1$():O3$(EX%):O4$(NR%): O5$(OA):O7$OC$:FI%,:ODDI%:g: CLOSE MARIS FILE (RETURNS: ER%) gFI%:ER%:=g: REWIND (RETURNS: OI, ER%) ^gOI:NR%ER%::ER%:g: SEARCH (KE$, RETURNS: OI, OS, ER%) gOTNR%:OB:(KE$)KL%KE$(KE$(KL%," "),KL%)g&OBOTOI(OTOB):OT$(OK$(OI),KL%):ER%:,h0OT$KE$OTOI:&:OT$KE$OBOI:&Mh:OS((OK$(OI),)):ER%:h: GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) h:ER%ώ :FI%,OS:OE(OE$):OL(OL$):ER%:i: GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) diOINR%ER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:iG: GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) jHOIER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:@js: GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) xjtFI%,OS:OE(OE$):OL(OL$):ER%:OM$"E"ER%~j~j/: SETUP (NR%) j0O:OK$(NR%):TURNS: OE, OL, ER%) IjtFI%,OS:OE(OE$):OL(OL$):ER%:OM$"E"ER%Oj~fj/: SETUP (NR%) yj0:OK$(NR%):TURNS: OE, OL, ER%) IjtFI%,OS:OE(OE$L(OL$):ER%:THERN DIST., INC. 4350 BUFORD HWY. NE CHAMBLEE, GA. 30341 4046335555R" +P]u+::M7:WALLWHWAL