6I:AREP.BAS, A/R END OF PERIOD, SSM, 2/06/79 REV. AR CP/M 2.0, 2/14/79hI  :COPYRIGHT 1979 RETAIL SCIENCES INC.uI AZ: IPN$"END OF PERIOD"I dI"A:AREP.BAS": I : MONTH DATAI -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 EXTENTJ( 6,2,2,8,13,1,1,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,2,4J1: EXTENT NAME DATAJ3 "SALES","FREIGHT","TAXES","SER. CH."K4 "MISC. DB","PAYMENTS","CREDITS","RETURNS","DISCOUNTS"/K5 "MISC. CR","A/R"GKd P: @: hKnQ$"WHAT DATE DETERMINES END-OF-PERIOD? ": : ,: EP$R$Kx:Q$"IS THIS ALSO THE END OF A YEAR": X: EYYES2L: "PLACE THE CURRENT DATA BASE DISKETTE IN DRIVE 0 AND A BLANK": "FORMATTED DISKETTE IN DRIVE 1": WLQ$"READY": X: YES L:: "*** THIS PROCESS MAY TAKE A FEW MINUTES"L: COPY SYSTEM FILE AND SET DATEL "I",,"A:ARSYS.DAT": "O",,"B:ARSYS.DAT"M I : #,T$: #,(");T$;(");: : BM "O",,"B:ARDATE.DAT": #,TD$: ^M: TRANSFER DATA FILEM : NA$"B:ARCF.DAT": NA$ AS NA$MER%: $N : ER%: Q$"A DATA FILE ALREADY EXISTS ON DRIVE 1, SHOULD IT BE OVERWRITTEN": X: YES NA$:  : xN "R",,NA$: NA$"ARCF.DAT": FI%: DI%: OP: `: ER : N #, AS X0$, AS X1$, AS X2$, AS X3$,  AS X4$, AS X5$, AS X6$,d AS X7$, AS X8$WO X0$"MARIS": X1$(): X2$TD$: X3$(): X4$(): X5$X4$: X6$(): X7$OC$: X8$"103078": #,O A$(),AA$(): T: I : N: #,(T) AS T$,(N) AS A$(I): #,(T) AS T$,(N) AS AA$(I): TTN: :P B$(),C$(): T: I : N: #,(T) AS T$,(N) AS B$(I): #,(T) AS T$,(N) AS C$(I): TTN: xP #,{ AS BX$: #,{ AS CX$, AS CM$, AS CE$, AS CL$PXAPOP: ` : TRANSFER CONSOLIDATED, UPDATED RECORDSP I  : G#(I): : CLEAR G/L TABLEQOP: ` : GET NEXT RECORD"Q ER lQ "WORKING ON ";A$(): CX$BX$: CM$"M": CE$(XA): CL$CE$Q EY DD#: : AA$( )II$: AA$()II$Q A$()"B" AA$()A$()Q #,XA: XMXA: XAXA : COPY RECORD ACCROSSRMROS+R A$()"B"  : ELSE BAL FWDcROSOE: OSMR OP : `: *:  : wR OEMR ROSOE: OP : `: * : EXTENT LIST NOT EMPTYR .: SSOS: TER" OEMR JS, OSOE: `: * : NOT AT END OF EXTENT LISTMS6 E3$B$() 2 : SEOS: 6: .: SSOSXS@ "iSJSEMR: 6ST TE CE$(XM): #,XA: #,XM: CL$(XA): CE$(XM): #,XMS^ SOP: ` : CLOSE MARIS FILE6T #,AS OK$,AS T$,AS O3$,AS O4$,iAS T$,AS OM$,AS OE$,AS OL$TEX%XA:NR%:,:EX%D:OPEX%:: OM$"M"NR%NR%:OK$(NR%)OK$(OP)TOP:NR%D:OH():OH():OH():OH() :OTTOH(OT)NR%OTOT:OH(OT)OH(OT):;U&OKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)sU0OT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OI0U:OK$(OIOH),OT$:OJ,OK:OH:OK:OT V=OJ:,EX%:OT$(OT):OB: OIOT:,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOT:OJ7V@OI:OT$:OJaVD,:O3$(EX%):O4$(NR%):,:"WX h: : "PLEASE REMOVE THE OLD A/R DATA DISK FROM DRIVE 0 AND SAVE IT": "AS A BACKUP COPY. PLACE THE A/R PROGRAM DISK IN DRIVE 0 AND": "LEAVE THE NEW A/R DATA DISK IN DRIVE 1."LWlQ$"READY": X: YES l : eW V$()"Y" W: CREATE G/L TRANSFER FILEW:"** CREATING G/L TRANSACTION FILE ** "::X "R",,"B:ARGLT.DAT": #, AS C1$, AS C2$, AS C3$, AS C4$, AS C5$, AS C6$bX C1$"12": I$(((EP$,)(EP$,)(EP$,,))): C5$I$: #,XS#: I : S#S#G#(I): C1$V$( I): C2$"R": C3$"": I$(I): C4$I$(I): C5$I$: DD#G#(I): : C6$II$: #: Y (S#G#()) #y YS#: I  : S#S#G#(I): C1$V$( I): C2$"R": C3$"": I$(I): C4$I$(I): C5$I$: DD#G#(I): : C6$II$: #: Y (S#G#( )) #y 2Z  C1$V$(): C2$"R": C3$"": I$( ): C4$I$( ): C5$I$: DD#G#( ): : C6$II$: #\ZDD#G#(): : C6$II$: #: fZ  Z*" ACCOUNT DATE NAME SC DEBITS CREDITS"[+" ------- -------- --------- --- -------- --------"U[/F1$" \ \ "EP$" \ \ R ": F2$" #########.##"[4 I : F1$;V$( I),I$(I);: <);: F2$;G#(I):[> I  : F1$;V$( I),I$(I);: /);: F2$;G#(I):\H F1$;V$(),I$( );: <);: F2$;G#( );\M F1$;V$(),I$( );: /);: F2$;G#()\R 4);"-------- --------": S#G#()G#( ): );"BALANCE";/);: F2$F2$;S#,S#\\LCLC\ \': QUERY CUSTOMER ID & VERIFY\':Q$"WHAT IS THE CUSTOMER ID? "(]' 8: RL : KE$R$: OP: `i]$' ER% "*** INVALID CUSTOMER ID - PLEASE RE-ENTER": 'o].']*: G/L TRANSACTION ACCUMULATION]* V$()"Y" B$()" " II  : II$B$(II): ": G#(II)G#(II)DD#: ]+&^.: CLEAR EXTENT ACCUMULATION TO CURRENT EXTENTq^.E0$B$(): E1(B$()): E2(B$()): E3$B$(): E4$B$(): E5$B$()^. II  : II$B$(II): ": E#(II)DD#: ^.EB$B$(): ED(B$()): ED$B$(): EC(B$()): EC$B$(): %_2: UPDATE EXTENT ACCUMULATION WITH CURRENT EXTENT@_2 E1(B$()) 2g_2 E1(B$()) E5$B$() 2_2E1(B$()): E2(B$()): E4$B$(): E5$B$(): EB$B$()_2 II  : II$B$(II): ": E#(II)E#(II)DD#: `2 ED(B$()) ED(B$()): ED$B$()E`2 EC(B$()) EC(B$()): EC$B$()K`3j`6: END OF SET PROCESSING`6 E#()E#( ) : ZERO BALANCE - NO TRANSACTIONS LEFT`6 V$( )"N" OSSS: 7`6 C$()E0$: C$()(E1) : CONSOLIDATE3a6 C$()(E2): C$()E3$: C$()E4$: C$()E5$ia6 II  : DD#E#(II): : C$(II)II$: a6 C$()EB$: C$()(ED): C$()ED$: C$()(EC): C$()EC$: :a7: TRANSFER SET OF RECORDSb7 OSSE `: CX$BX$: :: OSOE: 7+b7 SEMR `1b(7Tb:: TRANSFER AN EXTENT ACROSSb: C$()"S": CM$"E": CL$(XA): CE$(XA): #,XA: XAXA: TE: b?: PROGRAM INITIALIZATIONb@NR%(V$()): 0cTF1$"#######.##": HD$"G/L TRANSACTION REGISTER"Rc^MTd: I$(MT),R(MT),B#(MT),D(MT),G#( ),E#( ): pc: EJECT TO TOP OF PAGEc LC IILC B: " ": : LCcc: PRINT HEADING ON TOP OF PAPERc : : : Od (PW(H1$)));H1$: (PW(H2$)));H2$: (PW(H3$)));H3$: (PW(HD$)));HD$:: : LC : hd: END THE PROGRAMdOP: `: LC Q$"*** END OF "PN$" ***": : (PW(Q$)));Q$: LCLCd: ;e: );"*** END OF ";PN$;" ***": : "PRESS THE 'RETURN' KEY TO RETURN TO THE PROGRAM MENU": Q$""e 8: RL% : "*** LOADING PROGRAM MENU...": "A:AR MENU.BAS"eg: PRINT A HEADINGfh SC$: (W(H1$)));H1$: (W(H2$)));H2$: (W(H3$)));H3$: (W(H4$)));H4$: : : 3fO: SYSTEM INITIALIZATIONffPÕ H: "I",,"A:ARDATE.DAT": #,TD$: fZÆ V$(): "I",,"A:ARSYS.DAT": #,V$(): V$()"A" : "I",,V$()":ARSYS.DAT": #,V$()gn I : #,V$(I): : : SC$(, )mɋ(R$,)" "R$(R$,):xmJJ(R$,","):JJR$(R$,,JJ)(R$,JJ):mɋ(R$,)"$"R$(R$,)mɋ(R$)D#:mɂJJ(R$):CH((R$,JJ,))mɋCH/CH:DG: nɋCH.DPDP:DP:-nɋ(CH-)(CH+)JJ?nɃJJ:DGSnD#(R$"D"):pnʋF1%E9%:::nW: QUERY YES/NOnXQ$Q$" (Y OR N)? "n]YES:8:RL$"Y"YES:n_ʋ(R$)ώnbʋRL$"N"ύ:]:o: QUERY TOP-OF-PAGE8oʑ:"PLEASE SET THE PAPER AT THE TOP OF A FORM"XoQ$"READY":X:(R$)ώioʋYES:o: ERROR MESSAGESoґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:oTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$p^ӕ:6pӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:upԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:pԑ "*** THERE ARE MORE THAN 100 TRANSACTIONS IN A PERIOD FOR A"pԑ " CUSTOMER. CHANGE 'MT=100' IN LINE 40030 AND RETRY ": )qԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";fqԑ" CONSULT BASIC MANUAL FOR EXPLANATION. ": E: tqHՑ "*** IMPROPER SYSTEM FILE. RUN SYSTEM INITIALIZATIION ***": EqRթ trՑ "*** INVALID TOTAL IN G/L TRANSACTION - VERIFY TRANSACTION REGISTER": Gr֑ "*** DATA FILES NOT FOUND - RERUN WITH VALID FILES ***": \rt֕ : r_:1/2/79 READ ONLY VERSION Multi ARray ISam - MARIS (OP) r`ꕨ:OP,(,,,,,, ,,H,,,trjꕨ:sER%:"s=ER%:j::s': OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) s(땨2:NA$(DI%A)":"NA$:NA$ASNA$s2ER%:<s<땨:ER%:ER%:6tF"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$\tPFI%,:O0$"MARIS"FI%:ER%:tZDA$O2$:EX%(O3$):NR%(O4$):OA(O5$):KL%(O6$):OC$O7$: FI%,(KL%)ASOK$,({KL%)ASOT$,ASOM$,ASOE$,ASOL$: O1$()x:NR%zudOKKL%:OTOK:OJOT:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OJOTOJ:FI%unOK$(OI)OT$(OJ):OJOJ:OI:OT$:>vx:"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": BE$:NR%:FI%,:EX%:OPEX%:FI%: OM$"M"NR%NR%:OK$(NR%)OK$(OP)wvyOP:NR%:OH():OH():OH():OH() :OTvzOH(OT)NR%OTOT:OH(OT)OH(OT):zv{OKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)!w|OT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OI|Tw}OK$(OIOH),OT$:OJ,OK:OH:OKKL%:OTOKw~OJ:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOTFI%:OJwOI:OT$:OJFI%QxFI%,:O1$():O3$(EX%):O4$(NR%): O5$(OA):O7$OC$:FI%,:ODDI%:|x: CLOSE MARIS FILE (RETURNS: ER%) xFI%:ER%:x: REWIND (RETURNS: OI, ER%) xOI:NR%ER%::ER%:y: SEARCH (KE$, RETURNS: OI, OS, ER%) :yOTNR%:OB:(KE$)KL%KE$(KE$(KL%," "),KL%)py&OBOTOI(OTOB):OT$(OK$(OI),KL%):ER%:y0OT$KE$OTOI:&:OT$KE$OBOI:&y:OS((OK$(OI),)):ER%:y: GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) 7z:ER%ώ :FI%,OS:OE(OE$):OL(OL$):ER%:vz: GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) zOINR%ER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:{G: GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) }{HOIER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:{s: GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) {tFI%,OS:OE(OE$):OL(OL$):ER%:OM$"E"ER%{~ |/: SETUP (NR%) |0O:OK$(NR%):TURNS: OE, OL, ER%) {tFI%,OS:OE(OE$):OL(OL$):ER%:OM$"ER/<ʡ1*5% ~ʽ 4ý *5|B$ Ë3+ͫʻ4ͺ,ͺAÚ&ͳ,>.*( */ʹX4~#.4-:Y44=4~,ͫ͆