ÿ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® AóZ: Ì£IPN$ð"CUSTOMER ACCOUNT LISTING"­I‰ dÂIË"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 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$ð"WHAT DATE SHOULD GO ON THIS LISTING? ": � ÈÈ: � ,É: HD$ðR$!Kx� ¼Ê: � ø§: B#ðBKÈOPð: � `ê: ‹ ERñï Ï ‰ ,VKÍ‹ LCï: Ï � ø§“KÒP$ð"("òÿƒ(A$(),,)ò")"òÿƒ(A$(),,)ò"-"òÿƒ(A$(),,)øKðII$ð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#: LCðLCò: B#ðB#òDD#nL‰ ȱL,ž Ðu);"========": ž Ð );"TOTALS";Ðs);: ž Ù F1$;B#: LCðLCò»L6‰ €»ß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 INITIALIZATION±M@œNR%ðÿ”(V$()): � 0òêMJœFI%ð: NA$ð"ARCF.DAT": DI%ðÿ•(V$())óA: OPð: � `ê5NOœ† A$(): Tð: ‚ Ið Î : ‡ N: À #,(T) AS T$,(N) AS A$(I): TðTòN: ƒ€NQœ† B$(): Tð: ‚ Ið Î : ‡ N: À #,(T) AS T$,(N) AS B$(I): TðTòN: ƒ›NTœF1$ð"#######.##": PAðµN^œ† G#( ),S#( ),C$()XOhœC$()ð"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 PAGE¦O¤‹ LCñï Ï ‚ IIðLC Î B: ž" ": ƒ: LCð¬O¤ŽÓO÷§:�Û PRINT HEADING ON TOP OF PAPERæOø§� ¤: ž: ž: žhP¨ž Ð(PWóÿ’(H1$))ý);H1$;Ðn);"PAGE ";PA: PAðPAò: ž Ð(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 REPORT�Q°³‘: ‘ "PRESS THE 'RETURN' KEY TO CONTINUE ";: Q$ð"": � 8Ç: ލQ»:�Û END THE PROGRAMR€»OPð: � `ê: ‹ LCñï Ï Q$ð"*** END OF "òPN$ò" ***": ž: ž Ð(PWóÿ’(Q$))ý);Q$: LCðLCòR…»‘: � ¤{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 INITIALIZATION¦SPÕ ¨ ‰ HÕ: ¿ "I",,"A:ARDATE.DAT": … #,TD$: ÃTZÆ V$(): ¿ "I",,"A:ARSYS.DAT": … #,V$(): ‹ V$()ñï"A" Ï Ã: ¿ "I",,V$()ò":ARSYS.DAT": … #,V$()0Tn Ið Î : … #,V$(I): ƒ: ÃlTwÃSC$ð"":‚IðÎÿ’(V$())Ñ:SC$ðSC$òÿ–(ÿ”(ÿƒ(V$(),I,))):ƒ�TxÃWðP: BELL$ðÿ–(): PWð„: LCð�T‚Õ ¨ ‰ äÔØT´ÃH1$ðV$(): H2$ð"ACCOUNTS RECEIVABLE": H3$ðPN$: H4$ðTD$UÄN#ð€€¨:Z9$ðÿ–()òÿ–():Z8$ðÿ–()òÿ–(¨): ‰ ,Ä9UÄII$ðÿƒ(ÿ´(N#òDD#ôH‡),,): ŽgU"ÄDD#ð(ÿ­(Z9$òII$òZ8$)óÿ…(N#))ô×£p= ×#z: މU,ĆMO( ):‚IðÎ :‡MO(I):ƒ:‰@Ä V1ÄYRðÿ”(ÿ‚(II$,)): MOðÿ”(ÿ�(II$,)): DAðÿ”(ÿƒ(II$,)): NNðÿ…(YRô 6‰ò@€)òMO(MO)òDAóWG: ‹ (YR ü )ñï ÷ MOï Ï NNðNNóV2ÄŽkV6ÄT!ðNNòWG: YRðÿ…(T!õ 6‰): DAðÿ…(T!óYRô 6‰): MOð : ‹ (YR ü )ñï ÷ DAï: Ï DAðDAò�V7Ä‹ DAñðMO(MO) Ï MOðMOó: ‰ 7Ä :¢ DAðDAóMO(MO)ÙV8ÄII$ðÿ‚(ÿ“(MO),)ò"/"òÿ‚(ÿ“(DA),)ò"/"òÿ‚(ÿ“(YR),): ŽöV@ÄII$ðTD$: � 1Ä: TDðNN: Ž W7Ç:�Û QUERY LINE0W8Ç‘Q$;:±…R$:RL$ðÿ�(R$,):RL%ðÿ’(R$)MWtÇ‹ R$ñï"END" Ï Ž :¢ ‰ €»aWÇÈ:�Û QUERY DATEyWÈÈ�8Ç:‹RLðÏR$ðTD$:Ž”WÜÈ‹ÿ’(R$)ñøÿ’(R$)ï‰úÈÀWÞÈMOðÚ(R$,"/"):‹MOð‰úÈ:¢‹MOðÏR$ð"0"òR$ÝWàÈDAðÚ(,R$,"/"):‹DAð‰úÈXâÈ‹DAðÏRL$ðÿ�(R$,):R$ð"0"òÿ‚(R$,):R$ðRL$òR$DXæÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))iXðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )ÏŽwXúÈ�Ô:‰ÈÈ“X+É:�Û INDICATE DATE USED³X,É‹ RLð Ï ‘ "USING DATE ";R$¹X6ÉŽÔX»Ê:�Û QUERY TOP-OF-PAGEY¼Ê‘:‘"PLEASE SET THE PAPER AT THE TOP OF A FORM"4YÆÊQ$ð"PRESS 'RETURN' WHEN READY": � 8Ç: ŽLYïÒ:�Û ERROR MESSAGESƒYðÒ‘"*** 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ð×: © tÖ÷ZHÕ‘ "*** 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\2ëER%ð×:©<ë‘\<땨‰ºê:‹ER%ñï:ÏER%ð:Žð\Fë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$]PëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:Ž­]ZëDA$ðO2$:EX%ðÿ«(O3$):NR%ðÿ«(O4$):OAðÿ«(O5$):KL%ðÿ«(O6$):OC$ðO7$: ÀFI%,(KL%)ASOK$,({óKL%)ASOT$,ASOM$,ASOE$,ASOL$: ‹O1$ñïÿ–(ÿ)Ïxë:¢‹NR%ðÏ‚ë4^dë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%^^nëOK$(OI)ðOT$(OJ):OJðOJò:ƒOI:¦OT$:‰‚ëø^xë‘:‘"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": ‘BE$:NR%ð:ÁFI%,:‹EX%ñÏ‚ë:¢‚OPðÎEX%:ÁFI%: ‹OM$ð"M"ÏNR%ðNR%ò:OK$(NR%)ðOK$òÿ²(OP)1_yëƒOP:‹NR%ñÏ‚ë:¢†OH():OH()ð:OH()ð:OH()ð :OTðf_zë‹OH(OTò)ñNR%ÏOTðOTò:OH(OTò)ðôOH(OTò)ò:‰zë£_{ë‚OKðOTÎÑó:OHðOH(OK):‚OJðOHòÎNR%:OIðOJóOH:¥OT$,OK$(OJ)Û_|ë‹OT$ñOK$(OI)Ï¥OK$(OIòOH),OK$(OI):OIðOIóOH:‹OIïÏ|ë`}ë¥OK$(OIòOH),OT$:ƒOJ,OK:¦OH:OKðKL%ò:OTð€ýOKó—`~ë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ð°`ëƒOI:¦OT$:‹OJñïÏÂFI% a‚ëÁFI%,:ÉO1$ðÿ–(ÿ):ÉO3$ðÿ²(EX%):ÉO4$ðÿ²(NR%): ÉO5$ðÿ²(OA):ÉO7$ðOC$:ÂFI%,:ODðDI%:‰¸ì6a‹ë:�Û CLOSE MARIS FILE (RETURNS: ER%) GaŒëÃFI%:ER%ð:Žla·ì:�Û REWIND (RETURNS: OI, ER%) �a¸ìOIð:‹NR%ðÏER%ð:Ž:¢ER%ð:Ž»aí:�Û SEARCH (KE$, RETURNS: OI, OS, ER%) ôaíOTðNR%:OBð:‹ÿ’(KE$)ñïKL%ÏKE$ðÿ�(KE$òØ(KL%," "),KL%)*b&í‹OBñðOTÏOIð(OTòOB)ý:OT$ðÿ�(OK$(OI),KL%):¢ER%ð:Ž[b0í‹OT$ïKE$ÏOTðOIó:‰&í:¢‹OT$ñKE$ÏOBðOIò:‰&í|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%) “cäí‹OIïðNR%ÏER%ð:Ž:¢OIðOIò:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:ŽÖcGî:�Û GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) 7dHî‹OIñðÏER%ð:Ž:¢OIðOIó:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Žodsï:�Û GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) §dtïÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:‹OM$ñï"E"ÏER%ð­d~ïŽÄd/ò:�Û SETUP (NR%) ×d0ò®O:†OK$(NR%):ŽTURNS: OE,,