I: GLAT, ACCOUNTING TRANSACTION TRANSFER, RDR, 7/9/78 REV. CP/M 2.2, 04/10/79 J X :COPYRIGHT 1978 RETAIL SCIENCES, INC..J LJPN$"ACCOUNTING TRANSFER"VJ PpJFM$"$$#,###,###.##-"JX:Q$"DO YOU WANT TO PRINT A CONTROL REPORT"Jb X: YES CR%: Jl (R$) CR%: JDT$""J CR% Rq:"THIS ";DT$;" DATA DISKETTE WAS CREATED ON ";ZD$N@Q$"IS THIS THE CORRECT DATA": XNB YES "THIS DISKETTE IS SKIPPED":NH IX ZNNL #,IXOVJ1$(F1$,): J2$F4$: J3$F3$: J4$F2$3O`J5$DS$((F5$)): II$F6$: :J6#DD#?OeJJ$J1$YOj (J2$,)"*" Oo (J1$)' (J1$)OC Ot O IXO F1$ZN$: F5$(SD!(ZD$)) :FROM FIRST RECORDO F4$VD$ :TODAYS DATEO:PUT #3,13P FO% OP: `:  :CLOSE MARIS & OTHERLP F1$, MA#, F2$, OK$RPvP : . : 9 P:"*** DISK I/O ERROR ON INPUT DISKETTE. CAN'T CONTINUE. ***":PP P 5 "Q:"*** PROPER TRANSFER FILE NOT FOUND ON THIS DISKETTE. ***"(Q1Q=QM1$J1$VQ  :GET MASTERjQ ER%  Q ER% T :BADQRM$"ACCOUNT #": 0u :HANDLE BAD ACCOUNT #QQ  M4$"M" RM$"M/S CODE": 0u: R M3$"2" RM$"TYPE CODE": 0u: 5R4  :ADD TRANS TO FILEGRH CR%  A z: M&`É ^`N#:X9$()():X8$()(): `II$((N#DD#H),,):`DD#((X9$II$X8$)(N#))ףp= #z:`ØSD!(S$)((S$,)(S$,)(S$,,))"aØDS$(D!)((D!),,)"/"((D!),)"/"((D!),,)QaĿ "I",,"A:GLDA.DAT": #,VD$:  :DATEaVS$V$(): VC$V$() :SYSTEM, COMPANY NAMEaĂ I (V$()): DK%(I)(V$(I)): ađ SC$: :: :DISPLAY HEADERS b"đ:"ONE MOMENT FOR PROGRAM STARTUP...."::;bƑ(W(VC$)));VC$:(W(VS$)));VS$TbƑ(W(PN$)));PN$mbƑ(W(VD$)));VD$sb.ǎb8Ǒ Q$;: R$btRL$(R$,)byNj R$"END" M : bȍ8:N!:R$E$ώ:DP:DGbȋ(R$,)" "R$(R$,):cȋ(R$)Z,c(ȂJJ(R$):CH((R$,JJ,))Gc2ȋCH/CH:DG:Ppc<ȋCH.DPDP:DPύ::PcFȋ(CH-CH+)JJύ:cPȃJJ:DGύ:cZN!(R$):(N!LB!N!UB!)LB!UB!ώcdȍ:dȍ 8: (R$) MO: DA: YR: 1dȋ(R$) (R$) dMO(R$,"/"): MO  : MO R$"0"R$dDA(,R$,"/"): DA dȋ DA RL$(R$,): R$"0"(R$,):R$RL$R$eMO((R$,)):DA((R$,,)):YR((R$,))Deȋ(MO)(MO )(DA)(DA )(YR)(YRc)ώReȍ:eeɍ8:DP:DGeɋ(R$,)" "R$(R$,):eJJ(R$,","):JJR$(R$,,JJ)(R$,JJ):eɋ(R$,)"$"R$(R$,)eɋ(R$)D#:fɂJJ(R$):CH((R$,JJ,))4fɋCH/CH:DG:]fɋCH.DPDP:DPύ::fɋ(CH-)(CH+)JJύ:fɃJJ:DGύ:fD#(R$"D"):fXQ$Q$" (Y OR N)? "f]YES:8:RL$"Y"YES:f_ʋ (R$) gbʋRL$"N"ύ:] : Lgʑ:"POSITION THE PAPER AT THE TOP OF A PAGE. "qgQ$"READY": X: (R$) gʋ YES  : gґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:g"ӋER%ώhTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$h^Ӊ MGhӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:hԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:hԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";hԑ" CONSULT BASIC MANUAL FOR EXPLANATION. "iԑ:"ABNORMAL END OF JOB ":%iՂI:BELL$;:: MgiHՑ: "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":izՑ: "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":i_:10/30/78 Multi ARray ISam - MARIS (OP) *j`ꕨ:OP,(,,,T,,, ,,H,,,t7jjꕨ:Yj=ER%:j::j: CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) jꕨ:NA$(DI%A)":"NA$:NA$ASNA$jER%:jꕨ:ER%:ER%:dk"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$kO0$"MARIS":O1$():O2$DA$:O3$(): O4$():O5$O4$:O6$(KL%):O7$OC$:O8$"103078"kFI%,:FI%:ER%:Il': OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) ul(땨2:NA$(DI%A)":"NA$:NA$ASNA$l2ER%:<l<땨:ER%:ER%:lF"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$%mPFI%,:O0$"MARIS"FI%:ER%:mZDA$O2$:EX%(O3$):NR%(O4$):OA(O5$):KL%(O6$):OC$O7$: FI%,(KL%)ASOK$,({KL%)ASOT$,ASOM$,ASOE$,ASOL$: O1$()x:NR%CndOKKL%:OTOK:OJOT:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OJOTOJ:FI%mnnOK$(OI)OT$(OJ):OJOJ:OI:OT$:ox:"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": BE$:NR%:FI%,:EX%:OPEX%:FI%: OM$"M"NR%NR%:OK$(NR%)OK$(OP)@oyOP:NR%:OH():OH():OH():OH() :OTuozOH(OT)NR%OTOT:OH(OT)OH(OT):zo{OKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)o|OT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OI| p}OK$(OIOH),OT$:OJ,OK:OH2pFI%,:O1$():FI%,:ODDI%:]p: CLOSE MARIS FILE (RETURNS: ER%) zp땨:FI%,:ER%:pER%:p땨:ER%ώpNR%:OKKL%:OTOKJqOJ:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOTFI%:OJcqOI:OT$:OJFI%qFI%,:O1$():O3$(EX%):O4$(NR%): O5$(OA):O7$OC$:FI%,:FI%:ER%:q: CREATE RECORD (KE$, RETURNS: OI, OS, ER%) r:ER%ώ: