ÿëI:�ÛARST.BAS, A/R STATEMENT GENERATION, SSM, 2/06/79 REV. AR CP/M 2.1, 3/29/79J’ p :�ÛCOPYRIGHT 1979 RETAIL SCIENCES INC.*J® AóZ: ÌEJPN$ð"STATEMENT REPORT"OJ‰ ddJË"A:ARST.BAS": �xJ :�Û MONTH DATAªJ „ -1,30,59,90,120,151,181,212,243,273,304,334ÌJ:�Û FIELD POSITION IN MASTERöJ„ 6,24,24,24,10,1,4,4,4,2,2,4,4,2,4,4K':�Û FIELD POSITION IN EXTENTOK(„ 6,2,2,8,13,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,2,4gKd� PÃ: � @œ: � h¿£KnQ$ð"WHAT IS THE STATEMENT DATE? ": � ÈÈ: � ,É: SD$ðR$­Kx� ¼ÊùK‚Q$ð"IS THERE A STATEMENT OR DUN MESSAGE TO APPEAR ON ALL STATEMENTS? ":LŒ‘: � XÊ: ‹ Õ YES Ï MS$ð"": ‰ ªjL–‘ "WHAT IS THE MESSAGE (UP TO 75 CHARS)? ": ‘ Ø(K,"-"): Q$ð"": � 8LjL ‹ RLïK Ï ‰ – :¢ MS$ðR$ÆLª‘: Q$ð"SHOULD STATEMENTS BE GENERATED FOR ALL ACCOUNTS? "ÝL´� XÊ: ‹ YES ‰ ,JM¾‹ V$()ð"Y" Ï ‘: Q$ð"SHOULD STATEMENTS BE GENERATED FOR AUTOMATIC BILLNG ACCOUNTS": � XÊ: ‹ YES ‰ �iMÇ:�Û FOR PARTICULAR ACCOUNT‹MÈ� ': ‹ RLñï Ï � à.: ‰ È•MÒ‰ €»®M+:�Û FOR ALL ACCOUNTSÕM,OPð: � `ê: ‹ ERð Ï � à.: ‰ ,ßM6‰ €»ùM�:�Û AUTO BILL ACCNTS N�OPð: � `êHNšOPð: � `ê: ‹ ERð Ï ‹ A$()ð"A" Ï � à.: ‰ š :¢ ‰ šRN¤‰ €»vN':�Û QUERY CUSTOMER ID & VERIFY›N'‘:Q$ð"WHAT IS THE CUSTOMER ID? "ÈN'� 8Ç: ‹ RLð Ï Ž :¢ KE$ðR$: OPð: � `ê O$'‹ ER%ð Ï ‘"*** INVALID CUSTOMER ID - PLEASE RE-ENTER":‰ 'O.'ŽCOß.:�Û CREATE STATEMENT FOR A PARTICULAR CUSTOMER•Oà.II$ðA$(): � "Ä: TðTDó#: ‹ DD#ð ÷ ÿ«(A$( ))ñT ÷ ÿ«(A$( ))ñT ÷ Õ YES Ï ŽÝOï.DB#ð:CR#ð:BA#ð:CA$ðA$():CN$ðA$():C1$ðA$():C2$ðA$():PAð:�ø§EPô.‹ A$()ð"B" Ï II$ðA$(): � "Ä: BA#ðDD#: LCðLCò: ž: ž Ð);"BALANCE FWD.";ÐD);: T#ðDD#: � Ò2: žlPþ.OSðOE: OPð : � `ê: ‹ ERñï ‰ D/€P/‹ LCï5 Ï � ø§ðP/II$ðB$( ): � "Ä: T#ðDD#: II$ðB$(): � "Ä: DB#ðDB#òT#: CR#ðCR#òDD#: BA#ðBA#òT#óDD#: NNðÿ«(B$()): � 6Ä&Q/ž:žÐ);B$();Ð);II$;Ð);B$();Ð*);B$();Ð,);VQ&/�È2:T#ðDD#:�È2:T#ðBA#:�Ò2:ž:LCðLCò:‰þ.zQD/ž Ð.);"---------- ----------"®QN/ž Ð,);: T#ðDB#:� Ò2: T#ðCR#:� Ò2: ž: LCðLCòÞQX/‹ LCñ: Ï ž: LCðLCò: ‰ X/ :¢ ž Ð);"CODE"Rb/‹ BA#ï Ï P$ð"TOTAL DUE " :¢ P$ð" CREDIT "JRl/ž Ð);"0 - SALE 5 - PAYMENT";Ð4);"============"ŽRv/ž Ð);"1 - FREIGHT 6 - DISCOUNT";Ð*);P$;: T#ðBA#: � Ò2: žÈR€/ž Ð);"2 - TAX 7 - CREDIT";Ð4);"============"îRŠ/ž Ð);"3 - SERV. CH. 8 - RETURN" S”/ž Ð);"4 - MISC. DB 9 - MISC. CR": LCð@: Ž8SÇ2:�Û PRINT A NUMBERZSÈ2‹ T#ð Ï ž " ";: ŽŽSÒ2‹ ÿ†(T#)ï' Ï ž Ù F1$;T#; :¢ ž Ù F1$;ÿ�(T#);”SÜ2Ž´S?œ:�Û PROGRAM INITIALIZATIONÍS@œNR%ðÿ”(V$()): � 0òTJœFI%ð: NA$ð"ARCF.DAT": DI%ðÿ•(V$())óA: OPð: � `êQTOœ† A$(): Tð: ‚ Ið Î : ‡ N: À #,(T) AS T$,(N) AS A$(I): TðTòN: ƒœTQœ† B$(): Tð: ‚ Ið Î : ‡ N: À #,(T) AS T$,(N) AS B$(I): TðTòN: ƒ³TTœF1$ð"#########.##"ÊT^œ† G#( ),S#( ): ŽèT¬£:�Û EJECT TO TOP OF PAGEU¤‹ LCñï Ï ‚ IIðLC Î B: ž" ": ƒ: LCðU¤Ž?U÷§:�Û PRINT HEADING ON TOP OF PAPERaUø§� ¤: ž: ž: ž Ð-);Ø(,"*")}U¨ž Ð,);"***";ÐD);"***"°U ¨ž Ð);V$();Ð,);"*** S T A T E M E N T ***"ÖU¨ž Ð);V$();Ð,);"***";ÐD);"***"ûU ¨ž Ð);V$();Ð-);Ø(,"*"): ž: ž V*¨ž Ð,);"STATEMENT DATE: ";SD$: žNVß«:�Û PRINT REST OF HEADING FOR AN ACCOUNTsV૞ Ð,);"ACCOUNT NUMBER: ";CA$: ž›V嫞 Ð,);"PAGE";Ð:);": ";PA: PAðPAòâV꫞ Ð);Ø(,"="): ž Ð);CN$: ž Ð);C1$: ž Ð);C2$: ž Ð);Ø(,"=")Wô«ž: ž Ð(Uóÿ’(MS$))ý);MS$: ž_Wþ«ž " INVOICE DATE TERMS OR REF CODE DEBITS "; " CREDITS BALANCE"½W¬ž " -------- -------- ------------- ---- ---------- "; "---------- ----------"ÊW¬LCð: ŽãW»:�Û END THE PROGRAMýW€»OPð: � `ê: ‘: � ¤iXŠ»‘: ‘ Ð);"*** 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 HEADINGBYh¿‘ SC$: ‘ Ð(Wóÿ’(H1$))ý);H1$: ‘ Ð(Wóÿ’(H2$))ý);H2$: ‘ Ð(Wóÿ’(H3$))ý);H3$: ‘ Ð(Wóÿ’(H4$))ý);H4$: ‘: ‘: ŽaYOÃ:�Û SYSTEM INITIALIZATION”YPÕ ¨ ‰ HÕ: ¿ "I",,"A:ARDATE.DAT": … #,TD$: ÃþYZÆ V$(): ¿ "I",,"A:ARSYS.DAT": … #,V$(): ‹ V$()ñï"A" Ï Ã: ¿ "I",,V$()ò":ARSYS.DAT": … #,V$()Zn Ið Î : … #,V$(I): ƒ: ÃZZwÃSC$ð"":‚IðÎÿ’(V$())Ñ:SC$ðSC$òÿ–(ÿ”(ÿƒ(V$(),I,))):ƒ}ZxÃWðP: BELL$ðÿ–(): PWð„: LCð‹Z‚Õ ¨ ‰ äÔÆZ´ÃH1$ðV$(): H2$ð"ACCOUNTS RECEIVABLE": H3$ðPN$: H4$ðTD$ÿZÄN#ð€€¨:Z9$ðÿ–()òÿ–():Z8$ðÿ–()òÿ–(¨): ‰ ,Ä'[ÄII$ðÿƒ(ÿ´(N#òDD#ôH‡),,): ŽU["ÄDD#ð(ÿ­(Z9$òII$òZ8$)óÿ…(N#))ô×£p= ×#z: Žw[,ĆMO( ):‚IðÎ :‡MO(I):ƒ:‰@Ä÷[1ÄYRðÿ”(ÿ‚(II$,)): MOðÿ”(ÿ�(II$,)): DAðÿ”(ÿƒ(II$,)): NNðÿ…(YRô 6‰ò@€)òMO(MO)òDAóWG: ‹ (YR ü )ñï ÷ MOï Ï NNðNNóý[2ÄŽY\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: Žø\7Ç:�Û QUERY LINE]8Ç‘Q$;:±…R$:RL$ðÿ�(R$,):RL%ðÿ’(R$);]tÇ‹ R$ñï"END" Ï Ž :¢ ‰ €»O]ÇÈ:�Û QUERY DATEg]ÈÈ�8Ç:‹RLðÏR$ðTD$:Ž‚]ÜÈ‹ÿ’(R$)ñøÿ’(R$)ï‰úÈ®]ÞÈMOðÚ(R$,"/"):‹MOð‰úÈ:¢‹MOðÏR$ð"0"òR$Ë]àÈDAðÚ(,R$,"/"):‹DAð‰úÈü]âÈ‹DAðÏRL$ðÿ�(R$,):R$ð"0"òÿ‚(R$,):R$ðRL$òR$2^æÈMOðÿ”(ÿ�(R$,)):DAðÿ”(ÿƒ(R$,,)):YRðÿ”(ÿ‚(R$,))W^ðÈ‹(MOï)÷(MOñ )÷(DAï)÷(DAñ )ÏŽe^úÈ�Ô:‰ÈÈ�^+É:�Û INDICATE DATE USED¡^,É‹ RLð Ï ‘ "USING DATE ";R$§^6ÉŽ½^WÊ:�Û QUERY YES/NOÕ^XÊQ$ðQ$ò" (Y OR N)? "ö^]ÊYESð:�8Ç:‹RL$ð"Y"ÏYESðó:Ž__Ê‹ÿ’(R$)ðÏŽ!_bÊ‹RL$ñï"N"Ï�ðÒ:‰]Ê:¢Ž<_»Ê:�Û QUERY TOP-OF-PAGEo_¼Ê‘:‘"PLEASE SET THE PAPER AT THE TOP OF A FORM"œ_ÆÊQ$ð"PRESS 'RETURN' WHEN READY": � 8Ç: Ž´_ïÒ:�Û ERROR MESSAGESë_ðÒ‘"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:Ž-`TÓ‘"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$:`^Ó•¨‰:�i`¸Ó‘"*** NUMBER IS OUT OF RANGE. ***";BELL$:ލ`Ô‘"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:ŽÙ`äÔ‘:‘" BASIC ERROR NUMBER ";×;" LINE NO. ";ÖaîÔ‘" CONSULT BASIC MANUAL FOR EXPLANATION. ": Eð×: © tÖ_aHÕ‘ "*** IMPROPER SYSTEM FILES. RUN SYSTEM INITIALIZATIION ***": EðiaRÕ© tÖ~atÖ• ¨ ‰ : ‰ €»Äa_ê:�Û1/2/79 READ ONLY VERSION Multi ARray ISam - MARIS (OP) b`ꕨ‰ºê:•OP�’ê,(ë,Œë,’ê,’ê,¸ì,í, €í,äí,Hî,’ê,’ê,tïbjꕨ‰äÔ:Ž"b’êER%ð:ŽDbºê‹×ð=ÏER%ð:©jê:¢•¨‰äÔ:©äÔ¢b'ë:�Û OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) Îb(땨‰2ë:NA$ðÿ–(DI%òA)ò":"òNA$:ÇNA$ASNA$Ýb2ëER%ð×:©<ëùb<땨‰ºê:‹ER%ñï:ÏER%ð:ŽXcFë¿"R",FI%,NA$:NA$ðÿƒ(NA$,): ÀFI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$~cPëÁFI%,:‹O0$ñï"MARIS"ÏÃFI%:ER%ð:ŽdZë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$:‰‚ë`exë‘:‘"*** 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ðÎezë‹OH(OTò)ñNR%ÏOTðOTò:OH(OTò)ðôOH(OTò)ò:‰zë f{ë‚OKðOTÎÑó:OHðOH(OK):‚OJðOHòÎNR%:OIðOJóOH:¥OT$,OK$(OJ)Cf|ë‹OT$ñOK$(OI)Ï¥OK$(OIòOH),OK$(OI):OIðOIóOH:‹OIïÏ|ëvf}ë¥OK$(OIòOH),OT$:ƒOJ,OK:¦OH:OKðKL%ò:OTð€ýOKóÿf~ë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ðgëƒOI:¦OT$:‹OJñïÏÂFI%sg‚ëÁ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%ð:Ž#hí:�Û SEARCH (KE$, RETURNS: OI, OS, ER%) \híOTðNR%:OBð:‹ÿ’(KE$)ñïKL%ÏKE$ðÿ�(KE$òØ(KL%," "),KL%)’h&í‹OBñðOTÏOIð(OTòOB)ý:OT$ðÿ�(OK$(OI),KL%):¢ER%ð:ŽÃh0í‹OT$ïKE$ÏOTðOIó:‰&í:¢‹OT$ñKE$ÏOBðOIò:‰&íäh:íOSðÿ«(ÿ‚(OK$(OI),)):ER%ð:Žií:�Û GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) Yi€í�í:‹ER%ðÏŽ :¢ÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Ž˜iãí:�Û GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) ûiäí‹OIïðNR%ÏER%ð:Ž:¢OIðOIò:OSðÿ«(ÿ‚(OK$(OI),)):ÁFI%,OS: KE$ðOK$:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:Ž>jGî:�Û 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%) ktïÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:‹OM$ñï"E"ÏER%ðk~ïŽ,k/ò:�Û SETUP (NR%) ?k0ò®O:†OK$(NR%):ŽURNS: OE, OL, ER%) ktïÁFI%,OS:OEðÿ«(OE$):OLðÿ«(OL$):ER%ð:‹OM$ñï"E"ÏER%ðk~ïŽ,k