@I:ARQC.BAS, A/R QUERY CUSTOMER ACTIVITY, SSM, 2/06/79 REV. AR CP/M 2.0, 2/14/79rI p :COPYRIGHT 1979 RETAIL SCIENCES INC.I AZ: IPN$"QUERY CUSTOMER ACTIVITY"I dI"A:ARQC.BAS": I : MONTH DATAJ -1,30,59,90,120,151,181,212,243,273,304,334(J: FIELD POSITION IN MASTERRJ 6,24,24,24,10,1,4,4,4,2,2,4,4,2,4,4tJ': 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: @: hKnQ$"SHOULD THE OUTPUT GO TO THE TERMINAL OR PRINTER (T OR P)? "@Kx 8: RL$"T" PR:  : RL$"P" xXK : : PRK:Q$"IS THIS REPORT FOR ALL CUSTOMER ACCOUNTS": X: YES ,K: FOR PARTICULAR ACCOUNTK ': RL .: K L+: FOR ALL ACCOUNTS+L,OP: `: ER .: ,AL: END OF REPORTKL oL': QUERY CUSTOMER ID & VERIFYL':Q$"WHAT IS THE CUSTOMER ID? "L' 8: RL : KE$R$: OP: `M$' ER% "*** INVALID CUSTOMER ID - PLEASE RE-ENTER": 'M.'8M.: GENERATE REPORT FOR PARTICULAR CUSTOMERuM.P$"("(A$(),,)")"(A$(),,)"-"(A$(),,)M.T$A$(): T$"R" T$" REGULAR" : T$"A" T$"AUTO BILL" : T$" BAL FWD"5N/II$A$(): ": CB#DD#: II$A$(): ": BF#DD#: II$A$(): ": AB#DD#: TX!(A$())N/NN(A$( )): 6: DB$II$: II$A$( ): ": DB#DD#: II$A$( ): ": YS#DD#N/NN(A$( )): 6: CR$II$: II$A$(): ": CR#DD#: II$A$(): ": YP#DD#N&/ PR D/gO0/ h: A$();8);"DATE LAST DB: ";DB$: );"TYPE : ";T$;8);"AMT LAST DB :";: F1$;DB#P2/ A$(););"CUR. BAL. :";: F1$;CB#;: 8);"YTD DEBITS :";: F1$;YS#: A$(););"BAL. FWD. :";: F1$;BF#;: 8);"DATE LAST CR: ";CR$P4/ A$(););"AUTO. BILL:";: F1$;AB#;: 8);"AMT LAST CR :";: F1$;CR#: P$;);"TAX RATE : ";: "##.###%";TX!;: 8);"YTD CREDITS :";: F1$;YP#: mQ6/ "INVOICE CODE DATE TERMS OR REF. DEBITS "; " CREDITS BALANCE": "------- -------- -------- ------------- ---------- "; "---------- ----------"wQ:/ /QD/ LC5 QE/:: A$();8);"DATE LAST DB: ";DB$: );"TYPE : ";T$;8);"AMT LAST DB :";: F1$;DB#RF/ A$(););"CUR. BAL. :";: F1$;CB#;: 8);"YTD SALES :";: F1$;YS#: A$(););"BAL. FWD. :";: F1$;BF#;: 8);"DATE LAST CR: ";CR$GSH/ A$(););"AUTO. BILL:";: F1$;AB#;: 8);"AMT LAST CR :";: F1$;CR#: P$;);"TAX RATE : ";: "##.###%";TX!;: 8);"YTD PAYMENTS:";: F1$;YP#: SJ/ "INVOICE CODE DATE TERMS OR REF. DEBITS "; " CREDITS BALANCE": "------- -------- -------- ------------- ---------- "; "---------- ----------" TN/LCLC BT/OSOE: OP : `: ER PR : : T/NN(B$()): 6: DA$II$: II$B$( ): ": DB#DD#: II$B$(): ": CR#DD#: BF#BF#DB#CR#T/ PR / U/ B$(););C$((B$())););DA$;);B$();*);: F2$;DB#,CR#,BF#U/ /(U/ LC? U/ B$(););C$((B$())););DA$;);B$();*);: F2$;DB#,CR#,BF#: LCLC: /U?: PROGRAM INITIALIZATIONU@NR%(V$()): 0UJFI%: NA$"ARCF.DAT": DI%(V$())A: OP: `CVO A$(): T: I : N: #,(T) AS T$,(N) AS A$(I): TTN: VQ B$(): T: I : N: #,(T) AS T$,(N) AS B$(I): TTN: VTF1$"#######.##": F2$" #######.## #######.## #######.##": PAV^ G#( ),S#( ),C$()WhC$()"SALE":C$()"FREIGHT":C$()"TAX":C$()"SERV. CH": C$()"MISC. DB":C$()"PAYMENT":C$()"DISCOUNT":C$()"CREDIT": C$()"RETURN":C$()"MISC. CR"WrW: EJECT TO TOP OF PAGEW LC IILC B: " ": : LCW X: PRINT HEADING ON TOP OF PAPER X : : : X (W(H1$)));H1$;D);"PAGE ";PA: PAPA: (W(H2$)));H2$: (W(H3$)));H3$: (W(H4$)));H4$:: : LC X X: PAUSE TO SHOW REPORT Y: "PRESS THE 'RETURN' KEY TO CONTINUE ";: Q$"": 8: $Y: END THE PROGRAM~YOP: `: LC Q$"*** END OF "PN$" ***": : (PW(Q$)));Q$: LCLCY: Y: );"*** END OF ";PN$;" ***": : "PRESS THE 'RETURN' KEY TO RETURN TO THE PROGRAM MENU": Q$""FZ 8: RL% : "*** LOADING PROGRAM MENU...": "A:AR MENU.BAS"_Zg: PRINT A HEADINGZh SC$: (W(H1$)));H1$: (W(H2$)));H2$: (W(H3$)));H3$: (W(H4$)));H4$: : : ZO: SYSTEM INITIALIZATION"[PÕ H: "I",,"A:ARDATE.DAT": #,TD$: [ZÆ V$(): "I",,"A:ARSYS.DAT": #,V$(): V$()"A" : "I",,V$()":ARSYS.DAT": #,V$()[n I : #,V$(I): : [wSC$"":I(V$()):SC$SC$(((V$(),I,))): \xWP: BELL$(): PWP: LC\Õ T\H1$V$(): H2$"ACCOUNTS RECEIVABLE": H3$PN$: H4$TD$\N#:Z9$()():Z8$()(): ,\II$((N#DD#H),,): \"DD#((Z9$II$Z8$)(N#))ףp= #z: ],ĆMO( ):I :MO(I)::@]1YR((II$,)): MO((II$,)): DA((II$,)): NN(YR6@)MO(MO)DAWG: (YR ) MO NNNN]2Ď]6T!NNWG: YR(T!6): DA(T!YR6): MO : (YR ) DA: DADA^7ċ DAMO(MO) MOMO: 7 : DADAMO(MO)U^8II$((MO),)"/"((DA),)"/"((YR),): r^@II$TD$: 1: TDNN: ^7: QUERY LINE^8ǑQ$;:R$:RL$(R$,):RL%(R$)^tNj R$"END" : ^: QUERY DATE^ȍ8:RLώ _ȋ(R$)(R$)5_MO(R$,"/"):MO:MOR$"0"R$R_DA(,R$,"/"):DA_ȋDARL$(R$,):R$"0"(R$,):R$RL$R$_MO((R$,)):DA((R$,,)):YR((R$,))_ȋ(MO)(MO )(DA)(DA )ώ_ȍ:`W: QUERY YES/NO`XQ$Q$" (Y OR N)? ";`]YES:8:RL$"Y"YES:K`_ʋ(R$)ώf`bʋRL$"N"ύ:]:`: QUERY TOP-OF-PAGE`ʑ:"PLEASE SET THE PAPER AT THE TOP OF A FORM"`Q$"PRESS 'RETURN' WHEN READY": 8: `: ERROR MESSAGES0aґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:raTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$a^ӕ:aӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:aԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:bԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";[bԑ" CONSULT BASIC MANUAL FOR EXPLANATION. ": E: tbHՑ "*** IMPROPER SYSTEM FILES. RUN SYSTEM INITIALIZATIION ***": EbRթ tbt֕ :  c_:1/2/79 READ ONLY VERSION Multi ARray ISam - MARIS (OP) Nc`ꕨ:OP,(,,,,,, ,,H,,,t[cjꕨ:gcER%:c=ER%:j::c': OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) d(땨2:NA$(DI%A)":"NA$:NA$ASNA$"d2ER%:<>d<땨:ER%:ER%:dF"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$dPFI%,:O0$"MARIS"FI%:ER%:ZeZDA$O2$:EX%(O3$):NR%(O4$):OA(O5$):KL%(O6$):OC$O7$: FI%,(KL%)ASOK$,({KL%)ASOT$,ASOM$,ASOE$,ASOL$: O1$()x:NR%edOKKL%:OTOK:OJOT:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OJOTOJ:FI% fnOK$(OI)OT$(OJ):OJOJ:OI:OT$:fx:"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": BE$:NR%:FI%,:EX%:OPEX%:FI%: OM$"M"NR%NR%:OK$(NR%)OK$(OP)fyOP:NR%:OH():OH():OH():OH() :OTgzOH(OT)NR%OTOT:OH(OT)OH(OT):zPg{OKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)g|OT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OI|g}OK$(OIOH),OT$:OJ,OK:OH:OKKL%:OTOKDh~OJ:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOTFI%:OJ]hOI:OT$:OJFI%hFI%,:O1$():O3$(EX%):O4$(NR%): O5$(OA):O7$OC$:FI%,:ODDI%:h: CLOSE MARIS FILE (RETURNS: ER%) hFI%:ER%:i: REWIND (RETURNS: OI, ER%) :iOI:NR%ER%::ER%:hi: SEARCH (KE$, RETURNS: OI, OS, ER%) iOTNR%:OB:(KE$)KL%KE$(KE$(KL%," "),KL%)i&OBOTOI(OTOB):OT$(OK$(OI),KL%):ER%:j0OT$KE$OTOI:&:OT$KE$OBOI:&)j:OS((OK$(OI),)):ER%:cj: GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) j:ER%ώ :FI%,OS:OE(OE$):OL(OL$):ER%:j: GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) @kOINR%ER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:kG: GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) kHOIER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:ls: GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) TltFI%,OS:OE(OE$):OL(OL$):ER%:OM$"E"ER%Zl~ql/: SETUP (NR%) l0O:OK$(NR%):TURNS: OE, OL, ER%) YltFI%,OS:OE(OE$):OL(OL$):ER%:OM$"E"ER%_l~vl/: UP