ÿ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® AóZ: Ì�IPN$ð"AGEING REPORT"—I‰ d¬IË"A:ARAG.BAS": �ÀI :�Û MONTH DATAòI „ -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 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¿µJe‘ìJf‘"ENTER - 1 - TO PRINT A DETAILED AGEING REPORT""Kh‘" - 2 - TO PRINT A SUMMARY AGEING REPORT"ZKj‘:Q$ð"YOUR ENTRY? ":� 8Ç: ‹ ÿ’(R$)ñï Ï � ðÒ:‰j‰Kk‹ R$ð"1" Ï SFð: H3$ð"DETAILED "òH3$:‰ n¹Kl‹ R$ð"2" Ï SFðó: H3$ð"SUMMARY "òH3$: ‰ nÈKm� ðÒ:‰j+Ln‘:Q$ð"WHAT IS THE CURRENT DATE FOR THIS REPORT? ": � ÈÈ: � ,É: II$ðR$: � 1Ä: ADðNN: HD$ðR$SLx� ¼Ê: � ø§: ‚ Ið Î : G#(I)ð: ƒnL‚OPð: � `ê :�Û REWIND�LŒOPð: � `ê: ‹ ERñï ‰ ,«LŽ‹A$()ðIZ$÷A$()ðIZ$ωŒ¿L�‹ LCï9 Ï � ø§M‘ž: ž " ";A$();Ð);A$();Ð#);: T$ð"("òÿƒ(A$(),,)ò")"ò ÿƒ(A$(),,)ò"-"òÿƒ(A$(),,)6M”ž Ð#);T$;: LCðLCòqM–‚ Ið Î : S#(I)ð: ƒ: MRðOS: OPð : ‹ A$()ð"B" ‰ úŒMŸ:�Û NOT BAL FWD RECORD¬M ‹ OEðMR Ï ž: LCðLCò: ‰ ŒÅMª OSðOE: � `ê: � ø*ÚM´ ‹ OEðMR Ï ‰ æíM¾ OSðOE: � `êNÈ ‹ E3$ðB$() Ï � à. :¢ � È2: � ø*#NÒ ‰ ´);"---"; :¢ ž ÐC);: ‚ Ið Î : ž " --------";: ƒ: ž: LCðLCò�RÄ6ž ÐC);: ‚ Ið Î : ž Ù F1$;S#(I);: ƒ: ž: LCðLCò: ޝR—::�Û END OF BAL FWD RECORDÞR˜:Dðÿ«(A$( )): NNðÿ«(A$( )): ‹ DïNN Ï NNðDûR¢:� 6Ä: Ið: ‹ B#ñ Ï IðS§:G#(I)ðG#(I)òB#LS¬:ž Ð4);"---";Ð;);II$;ÐCòIô );: ž Ù F1$;B#: LCðLCò: ŽlS?œ:�Û PROGRAM INITIALIZATION…S@œNR%ðÿ”(V$()): � 0ò¾SJœFI%ð: NA$ð"ARCF.DAT": DI%ðÿ•(V$())óA: OPð: � `ê TOœ† A$(): Tð: ‚ Ið Î : ‡ N: À #,(T) AS T$,(N) AS A$(I): TðTòN: ƒTTQœ† B$(): Tð: ‚ Ið Î : ‡ N: À #,(T) AS T$,(N) AS B$(I): TðTòN: ƒ…TTœF1$ð"#######.##": PAð: DD#ð: �Ä: IZ$ðII$œT^œ† G#( ),S#( ): ŽºT¬£:�Û EJECT TO TOP OF PAGEäT¤‹ LCñï Ï ‚ IIðLC Î B: ž" ": ƒ: LCðêT¤ŽU÷§:�Û PRINT HEADING ON TOP OF PAPER$Uø§� ¤: ž: ž: ž­U¨ž Ð(PWóÿ’(H1$))ý);H1$;Ðn);"PAGE ";PA: PAðPAò: ž Ð(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 ¨LCðLCò: ŽïV»:�Û END THE PROGRAMIW€»OPð: � `ê: ‹ LCñï Ï Q$ð"*** END OF "òPN$ò" ***": ž: ž Ð(PWóÿ’(Q$))ý);Q$: LCðLCòVW…»‘: � ¤Â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 HEADING›Xh¿‘ SC$: ‘ Ð(Wóÿ’(H1$))ý);H1$: ‘ Ð(Wóÿ’(H2$))ý);H2$: ‘ Ð(Wóÿ’(H3$))ý);H3$: ‘ Ð(Wóÿ’(H4$))ý);H4$: ‘: ‘: ŽºXOÃ:�Û SYSTEM INITIALIZATIONíXPÕ ¨ ‰ HÕ: ¿ "I",,"A:ARDATE.DAT": … #,TD$: ÃWYZÆ V$(): ¿ "I",,"A:ARSYS.DAT": … #,V$(): ‹ V$()ñï"A" Ï Ã: ¿ "I",,V$()ò":ARSYS.DAT": … #,V$()wYn Ið Î : … #,V$(I): ƒ: óYwÃSC$ð"":‚IðÎÿ’(V$())Ñ:SC$ðSC$òÿ–(ÿ”(ÿƒ(V$(),I,))):ƒÖYxÃWðP: BELL$ðÿ–(): PWð„: LCðäY‚Õ ¨ ‰ äÔZ´ÃH1$ðV$(): H2$ð"ACCOUNTS RECEIVABLE": H3$ðPN$: H4$ðTD$XZÄN#ð€€¨:Z9$ðÿ–()òÿ–():Z8$ðÿ–()òÿ–(¨): ‰ ,Ä€ZÄII$ðÿƒ(ÿ´(N#òDD#ôH‡),,): Ž®Z"ÄDD#ð(ÿ­(Z9$òII$òZ8$)óÿ…(N#))ô×£p= ×#z: ŽÐZ,ĆMO( ):‚IðÎ :‡MO(I):ƒ:‰@ÄP[1ÄYRðÿ”(ÿ‚(II$,)): MOðÿ”(ÿ�(II$,)): DAðÿ”(ÿƒ(II$,)): NNðÿ…(YRô 6‰ò@€)òMO(MO)òDAóWG: ‹ (YR ü )ñï ÷ MOï Ï NNðNNóV[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) \8ÄII$ðÿ‚(ÿ“(MO),)ò"/"òÿ‚(ÿ“(DA),)ò"/"òÿ‚(ÿ“(YR),): Ž=\@ÄII$ðTD$: � 1Ä: TDðNN: ŽQ\7Ç:�Û QUERY LINEw\8Ç‘Q$;:±…R$:RL$ðÿ�(R$,):RL%ðÿ’(R$)”\tÇ‹ R$ñï"END" Ï Ž :¢ ‰ €»¨\ÇÈ:�Û QUERY DATEÀ\ÈÈ�8Ç:‹RLðÏR$ðTD$:ŽÛ\ÜÈ‹ÿ’(R$)ñøÿ’(R$)ï‰úÈ]ÞÈMOðÚ(R$,"/"):‹MOð‰úÈ:¢‹MOðÏR$ð"0"òR$$]àÈDAðÚ(,R$,"/"):‹DAð‰úÈU]âÈ‹DAðÏRL$ðÿ�(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.^XÊQ$ð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î,’ê,’ê,tïajꕨ‰äÔ:Ž‹a’êER%ð:Ž­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$Fb2ëER%ð×:©<ëbb<땨‰ºê:‹ER%ñï:ÏER%ð:ŽÁbFë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$çbPëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:Ž~cZëDA$ðO2$:EX%ðÿ«(O3$):NR%ðÿ«(O4$):OAðÿ«(O5$):KL%ðÿ«(O6$):OC$ðO7$: ÀFI%,(KL%)ASOK$,({óKL%)ASOT$,ASOM$,ASOE$,ASOL$: ‹O1$ñïÿ–(ÿ)Ïxë:¢‹NR%ðÏ‚ëddë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%/dnëOK$(OI)ðOT$(OJ):OJðOJò:ƒOI:¦OT$:‰‚ëÉdxë‘:‘"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": ‘BE$:NR%ð:ÁFI%,:‹EX%ñÏ‚ë:¢‚OPðÎEX%:ÁFI%: ‹OM$ð"M"ÏNR%ðNR%ò:OK$(NR%)ðOK$òÿ²(OP)eyëƒOP:‹NR%ñÏ‚ë:¢†OH():OH()ð:OH()ð:OH()ð :OTð7ezë‹OH(OTò)ñNR%ÏOTðOTò:OH(OTò)ðôOH(OTò)ò:‰zëte{ë‚OKðOTÎÑó:OHðOH(OK):‚OJðOHòÎNR%:OIðOJóOH:¥OT$,OK$(OJ)¬e|ë‹OT$ñOK$(OI)Ï¥OK$(OIòOH),OK$(OI):OIðOIóOH:‹OIïÏ|ëße}ë¥OK$(OIòOH),OT$:ƒOJ,OK:¦OH:OKðKL%ò:OTð€ýOKóhf~ë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ð�fëƒOI:¦OT$:‹OJñïÏÂFI%Üf‚ëÁFI%,:ÉO1$ðÿ–(ÿ):ÉO3$ðÿ²(EX%):ÉO4$ðÿ²(NR%): ÉO5$ðÿ²(OA):ÉO7$ðOC$:ÂFI%,:ODðDI%:‰¸ìg‹ë:�Û CLOSE MARIS FILE (RETURNS: ER%) gŒëÃFI%:ER%ð:Ž=g·ì:�Û REWIND (RETURNS: OI, ER%) ^g¸ìOIð:‹NR%ðÏER%ð:Ž:¢ER%ð:ŽŒgí:�Û SEARCH (KE$, RETURNS: OI, OS, ER%) ÅgíOTðNR%:OBð:‹ÿ’(KE$)ñïKL%ÏKE$ðÿ�(KE$òØ(KL%," "),KL%)ûg&í‹OBñðOTÏOIð(OTòOB)ý:OT$ðÿ�(OK$(OI),KL%):¢ER%ð:Ž,h0í‹OT$ïKE$ÏOTðOIó:‰&í:¢‹OT$ñKE$ÏOBðOIò:‰&í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%) diäí‹OIïðNR%ÏER%ð:Ž:¢OIðOIò:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:ާiGî:�Û GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) jHî‹OIñðÏER%ð:Ž:¢OIðOIó:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Ž@jsï:�Û GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) xjtïÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:‹OM$ñï"E"ÏER%ð~j~j/ò:�Û SETUP (NR%) ¨j0ò®O:†OK$(NR%):ŽTURNS: OE, OL, ER%) IjtïÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:‹OM$ñï"E"ÏER%ðOj~ïŽfj/ò:�Û SETUP (NR%) yj0:†OK$(NR%):ŽTURNS: OE, OL, ER%) IjtïÁFI%,OS:OEðÿ«(OE$Lðÿ«(OL$):ER%ð:‹THERN DIST., INC. 4350 BUFORD HWY. NE CHAMBLEE, GA. 30341 4046335555R¸"€€€¸ ‚+ž€P]€u+˜:€˜:€M7:WALLWHWAL