AI:ARCA.BAS, A/R CUSTOMER ACCOUNT LISTING, SSM, 2/06/79 REV. AR CP/M 2.0, 2/14/79sI p :COPYRIGHT 1979 RETAIL SCIENCES INC.I AZ: IPN$"CUSTOMER ACCOUNT LISTING"I dI"A:ARCA.BAS": I : MONTH DATAJ -1,30,59,90,120,151,181,212,243,273,304,334*J: FIELD POSITION IN MASTERTJ 6,24,24,24,10,1,4,4,4,2,2,4,4,2,4,4vJ': 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: @: h KnQ$"WHAT DATE SHOULD GO ON THIS LISTING? ": : ,: HD$R$!Kx : : B#BKOP: `: ER ,VK LC: KP$"("(A$(),,)")"(A$(),,)"-"(A$(),,)KII$A$(): ": T$A$(): T$"A" T$"AUTO BILL" : T$"R" T$"REGULAR" : T$"BAL FWD"dL: " ";A$(); );A$();%);A$();" ";A$();Y);P$; i);T$;s);: F1$;DD#: LCLC: B#B#DD#nL L, u);"========":  );"TOTALS";s);: F1$;B#: LCLCL6 L': QUERY CUSTOMER ID & VERIFYM':Q$"WHAT IS THE CUSTOMER ID? "1M' 8: RL : KE$R$: OP: `rM$' ER% "*** INVALID CUSTOMER ID - PLEASE RE-ENTER": 'xM.'M?: PROGRAM INITIALIZATIONM@NR%(V$()): 0MJFI%: NA$"ARCF.DAT": DI%(V$())A: OP: `5NO A$(): T: I : N: #,(T) AS T$,(N) AS A$(I): TTN: NQ B$(): T: I : N: #,(T) AS T$,(N) AS B$(I): TTN: NTF1$"#######.##": PAN^ G#( ),S#( ),C$()XOhC$()"SALE":C$()"FREIGHT":C$()"TAX":C$()"SERV. CH": C$()"MISC. DB":C$()"PAYMENT":C$()"DISCOUNT":C$()"CREDIT": C$()"RETURN":C$()"MISC. CR"^Or|O: EJECT TO TOP OF PAGEO LC IILC B: " ": : LCOO: PRINT HEADING ON TOP OF PAPERO : : : hP (PW(H1$)));H1$;n);"PAGE ";PA: PAPA: (PW(H2$)));H2$: (PW(H3$)));H3$: (PW(HD$)));HD$:: P "ACCOUNT";);"CUSTOMER NAME";:);"ADDRESS";]); "PHONE";l);"TYPE";v);"BALANCE""Q "------- ";(,"-");" ";(1,"-");" "; "------------- --------- --------"/Q LC : MQ: PAUSE TO SHOW REPORTQ: "PRESS THE 'RETURN' KEY TO CONTINUE ";: Q$"": 8: Q: END THE PROGRAMROP: `: LC Q$"*** END OF "PN$" ***": : (PW(Q$)));Q$: LCLCR: {R: );"*** END OF ";PN$;" ***": : "PRESS THE 'RETURN' KEY TO RETURN TO THE PROGRAM MENU": Q$""R 8: RL% : "*** LOADING PROGRAM MENU...": "A:AR MENU.BAS"Rg: PRINT A HEADINGTSh SC$: (W(H1$)));H1$: (W(H2$)));H2$: (W(H3$)));H3$: (W(H4$)));H4$: : : sSO: SYSTEM INITIALIZATIONSPÕ H: "I",,"A:ARDATE.DAT": #,TD$: TZÆ V$(): "I",,"A:ARSYS.DAT": #,V$(): V$()"A" : "I",,V$()":ARSYS.DAT": #,V$()0Tn I : #,V$(I): : lTwSC$"":I(V$()):SC$SC$(((V$(),I,))):TxWP: BELL$(): PW: LCTÕ TH1$V$(): H2$"ACCOUNTS RECEIVABLE": H3$PN$: H4$TD$UN#:Z9$()():Z8$()(): ,9UII$((N#DD#H),,): gU"DD#((Z9$II$Z8$)(N#))ףp= #z: U,ĆMO( ):I :MO(I)::@ V1YR((II$,)): MO((II$,)): DA((II$,)): NN(YR6@)MO(MO)DAWG: (YR ) MO NNNNV2ĎkV6T!NNWG: YR(T!6): DA(T!YR6): MO : (YR ) DA: DADAV7ċ DAMO(MO) MOMO: 7 : DADAMO(MO)V8II$((MO),)"/"((DA),)"/"((YR),): V@II$TD$: 1: TDNN: W7: QUERY LINE0W8ǑQ$;:R$:RL$(R$,):RL%(R$)MWtNj R$"END" : aW: QUERY DATEyWȍ8:RLR$TD$:Wȋ(R$)(R$)WMO(R$,"/"):MO:MOR$"0"R$WDA(,R$,"/"):DAXȋDARL$(R$,):R$"0"(R$,):R$RL$R$DXMO((R$,)):DA((R$,,)):YR((R$,))iXȋ(MO)(MO )(DA)(DA )ώwXȍ:X+: INDICATE DATE USEDX,ɋ RL "USING DATE ";R$X6ɎX: QUERY TOP-OF-PAGEYʑ:"PLEASE SET THE PAPER AT THE TOP OF A FORM"4YQ$"PRESS 'RETURN' WHEN READY": 8: LY: ERROR MESSAGESYґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:YTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$Y^ӕ:Zӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:@Zԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:qZԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";Zԑ" CONSULT BASIC MANUAL FOR EXPLANATION. ": E: tZHՑ "*** IMPROPER SYSTEM FILES. RUN SYSTEM INITIALIZATIION ***": E[Rթ t[t֕ : \[_:1/2/79 READ ONLY VERSION Multi ARray ISam - MARIS (OP) [`ꕨ:OP,(,,,,,, ,,H,,,t[jꕨ:[ER%:[=ER%:j:::\': OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) f\(땨2:NA$(DI%A)":"NA$:NA$ASNA$u\2ER%:<\<땨:ER%:ER%:\F"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$]PFI%,:O0$"MARIS"FI%:ER%:]ZDA$O2$:EX%(O3$):NR%(O4$):OA(O5$):KL%(O6$):OC$O7$: FI%,(KL%)ASOK$,({KL%)ASOT$,ASOM$,ASOE$,ASOL$: O1$()x:NR%4^dOKKL%:OTOK:OJOT:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OJOTOJ:FI%^^nOK$(OI)OT$(OJ):OJOJ:OI:OT$:^x:"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": BE$:NR%:FI%,:EX%:OPEX%:FI%: OM$"M"NR%NR%:OK$(NR%)OK$(OP)1_yOP:NR%:OH():OH():OH():OH() :OTf_zOH(OT)NR%OTOT:OH(OT)OH(OT):z_{OKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)_|OT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OI|`}OK$(OIOH),OT$:OJ,OK:OH:OKKL%:OTOK`~OJ:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOTFI%:OJ`OI:OT$:OJFI% aFI%,:O1$():O3$(EX%):O4$(NR%): O5$(OA):O7$OC$:FI%,:ODDI%:6a: CLOSE MARIS FILE (RETURNS: ER%) GaFI%:ER%:la: REWIND (RETURNS: OI, ER%) aOI:NR%ER%::ER%:a: SEARCH (KE$, RETURNS: OI, OS, ER%) aOTNR%:OB:(KE$)KL%KE$(KE$(KL%," "),KL%)*b&OBOTOI(OTOB):OT$(OK$(OI),KL%):ER%:[b0OT$KE$OTOI:&:OT$KE$OBOI:&|b:OS((OK$(OI),)):ER%:b: GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) b:ER%ώ :FI%,OS:OE(OE$):OL(OL$):ER%:0c: GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) cOINR%ER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:cG: GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) 7dHOIER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:ods: GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) dtFI%,OS:OE(OE$):OL(OL$):ER%:OM$"E"ER%d~d/: SETUP (NR%) d0O:OK$(NR%):TURNS: OE,,