ÿ@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® AóZ: Ì¡IPN$ð"QUERY CUSTOMER ACTIVITY"«I‰ dÀIË"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 EXTENT«J(„ 6,2,2,8,13,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,2,4ÃJd� PÃ: � @œ: � h¿KnQ$ð"SHOULD THE OUTPUT GO TO THE TERMINAL OR PRINTER (T OR P)? "@Kx� 8Ç: ‹ RL$ð"T" Ï PRð: ‰ Œ :¢ ‹ RL$ñï"P" Ï ‰ xXK‚� ¼Ê: � ø§: PRðó KŒ‘:Q$ð"IS THIS REPORT FOR ALL CUSTOMER ACCOUNTS": � XÊ: ‹ YES ‰ ,¿KÇ:�Û FOR PARTICULAR ACCOUNTáKÈ� ': ‹ RLñï Ï � à.: ‰ ÈëKÒ‰ �L+:�Û FOR ALL ACCOUNTS+L,OPð: � `ê: ‹ ERð Ï � à.: ‰ ,AL�:�Û END OF REPORTKL�‰ €»oL':�Û QUERY CUSTOMER ID & VERIFY”L'‘: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/‹ LCï5 Ï � ø§ö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/LCðLCò BT¨/OSðOE: 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#: LCðLCò: ‰ ¨/¦U?œ:�Û PROGRAM INITIALIZATION¿U@œNR%ðÿ”(V$()): � 0òøUJœFI%ð: NA$ð"ARCF.DAT": DI%ðÿ•(V$())óA: OPð: � `êCVOœ† A$(): Tð: ‚ Ið Î : ‡ N: À #,(T) AS T$,(N) AS A$(I): TðTòN: ƒŽVQœ† B$(): Tð: ‚ Ið Î : ‡ N: À #,(T) AS T$,(N) AS B$(I): TðTòN: ƒÕVTœF1$ð"#######.##": F2$ð" #######.## #######.## #######.##": PAðïV^œ† G#( ),S#( ),C$()’WhœC$()ð"SALE":C$()ð"FREIGHT":C$()ð"TAX":C$()ð"SERV. CH": C$()ð"MISC. DB":C$()ð"PAYMENT":C$()ð"DISCOUNT":C$()ð"CREDIT": C$()ð"RETURN":C$()ð"MISC. CR"˜WrœŽ¶W¬£:�Û EJECT TO TOP OF PAGEàW¤‹ LCñï Ï ‚ IIðLC Î B: ž" ": ƒ: LCðæW¤Ž X÷§:�Û PRINT HEADING ON TOP OF PAPER Xø§� ¤: ž: ž: ž¥X¨ž Ð(Wóÿ’(H1$))ý);H1$;ÐD);"PAGE ";PA: PAðPAò: ž Ð(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~Y€»OPð: � `ê: ‹ LCñï Ï Q$ð"*** END OF "òPN$ò" ***": ž: ž Ð(PWóÿ’(Q$))ý);Q$: LCðLCò‹Y…»‘: � ¤÷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 HEADINGÐZh¿‘ 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): ƒ: Ãè[wÃSC$ð"":‚IðÎÿ’(V$())Ñ:SC$ðSC$òÿ–(ÿ”(ÿƒ(V$(),I,))):ƒ \xÃWðP: BELL$ðÿ–(): PWðP: 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):ƒ:‰@Ä…]1ÄYRðÿ”(ÿ‚(II$,)): MOðÿ”(ÿ�(II$,)): DAðÿ”(ÿƒ(II$,)): NNðÿ…(YRô 6‰ò@€)òMO(MO)òDAóWG: ‹ (YR ü )ñï ÷ MOï Ï NNðNNó‹]2ÄŽç]6ÄT!ðNNòWG: YRðÿ…(T!õ 6‰): DAðÿ…(T!óYRô 6‰): MOð : ‹ (YR ü )ñï ÷ DAï: Ï DAðDAò^7Ä‹ DAñðMO(MO) Ï MOðMOó: ‰ 7Ä :¢ DAðDAóMO(MO)U^8ÄII$ðÿ‚(ÿ“(MO),)ò"/"òÿ‚(ÿ“(DA),)ò"/"òÿ‚(ÿ“(YR),): Žr^@ÄII$ðTD$: � 1Ä: TDðNN: ކ^7Ç:�Û QUERY LINE¬^8Ç‘Q$;:±…R$:RL$ðÿ�(R$,):RL%ðÿ’(R$)É^tÇ‹ R$ñï"END" Ï Ž :¢ ‰ €»Ý^ÇÈ:�Û QUERY DATEî^ÈÈ�8Ç:‹RLðÏŽ _ÜÈ‹ÿ’(R$)ñøÿ’(R$)ï‰úÈ5_ÞÈMOðÚ(R$,"/"):‹MOð‰úÈ:¢‹MOðÏR$ð"0"òR$R_àÈDAðÚ(,R$,"/"):‹DAð‰úȃ_âÈ‹DAðÏRL$ðÿ�(R$,):R$ð"0"òÿ‚(R$,):R$ðRL$òR$¹_æÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))Þ_ðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )ÏŽì_úÈ�Ô:‰ÈÈ`WÊ:�Û QUERY YES/NO`XÊQ$ð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ð×: © tÖ¤bHÕ‘ "*** IMPROPER SYSTEM FILES. RUN SYSTEM INITIALIZATIION ***": Eð®bRÕ© tÖÃbtÖ• ¨ ‰ : ‰ €» c_ê:�Û1/2/79 READ ONLY VERSION Multi ARray ISam - MARIS (OP) Nc`ꕨ‰ºê:•OP�’ê,(ë,Œë,’ê,’ê,¸ì,í, €í,äí,Hî,’ê,’ê,tï[cjꕨ‰äÔ:Žgc’êER%ð:މ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$"d2ëER%ð×:©<ë>d<땨‰ºê:‹ER%ñï:ÏER%ð:Ž�dFë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$ÃdPëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:ŽZeZëDA$ðO2$:EX%ðÿ«(O3$):NR%ðÿ«(O4$):OAðÿ«(O5$):KL%ðÿ«(O6$):OC$ðO7$: ÀFI%,(KL%)ASOK$,({óKL%)ASOT$,ASOM$,ASOE$,ASOL$: ‹O1$ñïÿ–(ÿ)Ïxë:¢‹NR%ðÏ‚ëáedëOKðKL%ò:OTð€ýOKó:OJðOTò:ÁFI%,EX%:†OT$(OT):OBð: ‚OIðÎOT:ÀFI%,(OB)ASOT$,(OK)ASOT$(OI):OBðOBòOK:ƒ: ‚OIðÎNR%:‹OJïOTÏOJð:ÁFI% fnëOK$(OI)ðOT$(OJ):OJðOJò:ƒOI:¦OT$:‰‚ë¥fxë‘:‘"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": ‘BE$:NR%ð:ÁFI%,:‹EX%ñÏ‚ë:¢‚OPðÎEX%:ÁFI%: ‹OM$ð"M"ÏNR%ðNR%ò:OK$(NR%)ðOK$òÿ²(OP)ÞfyëƒOP:‹NR%ñÏ‚ë:¢†OH():OH()ð:OH()ð:OH()ð :OTðgzë‹OH(OTò)ñNR%ÏOTðOTò:OH(OTò)ðôOH(OTò)ò:‰zëPg{ë‚OKðOTÎÑó:OHðOH(OK):‚OJðOHòÎNR%:OIðOJóOH:¥OT$,OK$(OJ)ˆg|ë‹OT$ñOK$(OI)Ï¥OK$(OIòOH),OK$(OI):OIðOIóOH:‹OIïÏ|ë»g}ë¥OK$(OIòOH),OT$:ƒOJ,OK:¦OH:OKðKL%ò:OTð€ýOKóDh~ëOJð:ÁFI%,EX%:†OT$(OT):OBð: ‚OIðÎOT:ÀFI%,(OB)ASOT$,(OK)ASOT$(OI):OBðOBòOK:ƒ: ‚OIðÎNR%:ÉOT$(OJ)ðOK$(OI):OJðOJò:‹OJïOTÏÂFI%:OJð]hëƒOI:¦OT$:‹OJñïÏÂFI%¸h‚ëÁFI%,:ÉO1$ðÿ–(ÿ):ÉO3$ðÿ²(EX%):ÉO4$ðÿ²(NR%): ÉO5$ðÿ²(OA):ÉO7$ðOC$:ÂFI%,:ODðDI%:‰¸ìãh‹ë:�Û CLOSE MARIS FILE (RETURNS: ER%) ôhŒëÃFI%:ER%ð:Ži·ì:�Û REWIND (RETURNS: OI, ER%) :i¸ìOIð:‹NR%ðÏER%ð:Ž:¢ER%ð:Žhií:�Û SEARCH (KE$, RETURNS: OI, OS, ER%) ¡iíOTðNR%:OBð:‹ÿ’(KE$)ñïKL%ÏKE$ðÿ�(KE$òØ(KL%," "),KL%)×i&í‹OBñðOTÏOIð(OTòOB)ý:OT$ðÿ�(OK$(OI),KL%):¢ER%ð:Žj0í‹OT$ïKE$ÏOTðOIó:‰&í:¢‹OT$ñKE$ÏOBðOIò:‰&í)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%) @käí‹OIïðNR%ÏER%ð:Ž:¢OIðOIò:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:ŽƒkGî:�Û GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) äkHî‹OIñðÏER%ð:Ž:¢OIðOIó:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Žlsï:�Û GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) TltïÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:‹OM$ñï"E"ÏER%ðZl~ïŽql/ò:�Û SETUP (NR%) „l0ò®O:†OK$(NR%):ŽTURNS: OE, OL, ER%) YltïÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:‹OM$ñï"E"ÏER%ð_l~ïŽvl/ò:�Û UP