I:GLML.BAS, G/L MASTER FILE LIST, RDR, 6/12/78 REV. CP/M 2.2, 7/27/79J X :COPYRIGHT 1978 RETAIL SCIENCES, INC.&J AJPN$"MASTER FILE LIST"KJ PbJPU$"#,###,###.##"JNR%(V$( )):0:J::"*** G/L MASTER FILE LIST ***":J"YOU MAY SELECT - 1 - TO LIST ALL INFORMATION WITHIN THE RECORDS"  :TOP-OF-FORMLC @'LH 0u: Su :HEADER LINES@LR  :GET RECORDRL\ ER% MyLf (M1$,,)"00" M1$(M1$,)Lp );M1$; );M2$;');M3$;-);M4$;3);M5$;Lr FC : LCLC: ` Lu FC Mx M3$"2" : LCLC: j "Mz M4$"M" : LCLC: j ,M| RM M3$"2" : : LCLC: j wM M4$"M" : : LCLC: j M 8);:PU$;MA#();M G);:PU$;MA#();M V);:PU$;MA#()MLCLC: FC ` M: LCLCM I N I "FISCAL ";+N I "PERIOD";RN  );I; );"-";:PU$;MA#(I);{N #);I;&);"-";:PU$;MA#(I);N <);I;?);"-";:PU$;MA#(I);N U);I;X);"-";N PU$;MA#(I );N I : O i);"YTD - ";p);O PU$;MA#() O I(O:COLCLC :LINE COUNToO` FC MC#MC#MA#(): MY#MY#MA#()Oj RCRC :RECORD COUNTO LC: : H: : ROM OM FO% OP: ` :CLOSE MARISPM :ANYTHING ELSE(PM PF% N :NO PRINTING DONE=PMLC8ύ:0umPM:"** TOTAL RECORDS IN FILE = ";RC:LCLCPM FC  M :NO TOTALS FOR THIS LISTPM #);"OUT OF BALANCE - CURRENT - ";:PU$;MC#QM #);" Y-T-D - ";:PU$;MY#QMLCLCQM 0QN:"END OF "PN$pQN:Q$"PUSH THE 'RETURN' KEY TO RETURN TO THE MAIN GL MENU "QN 8: (R$) QN "A:GL MENU"Q0uPF%:W: (W(VC$)));VC$;:PGPG: n);"PAGE ";PGQ:u (W(VS$)));VS$R?u (W(PN$)));PN$/RDu (W(VD$)));VD$5RIu;RNuyRSu"ACCOUNT DESCRIPTION TYP M/S COL";RUuFCϞ:);" CURRENT Y-T-D BUDGET":RXu"------- ------------------------- --- --- ---";9S]u FC 8);"------------ ------------ ------------": HSlu: LC: uS@ "I",,MD$":GLSRC.DAT": S$(), A!()S:OPENSFI%:NA$"GLMST.DAT":DI%DK%():OP:`Sij ER% TSγ F1$(),MA#() :COA FIELDS(Tس #, ASF1$(), ASF1$(), ASF1$(), ASF1$(), ASF1$()[TⳂ I : #, I AS T$, ASF1$(I): wT쳆 F2$() :JE FIELDST #,  AS F2$(),  AS F2$(), ASF2$(), ASF2$()T #, 'AST$, ASF2$(), ASF2$()T FO% :FILE OPEN FLAGT Ux:CLOSE"U FO% : FO%GUOP: `: ER% T : UU@:REWINDzUJOP: `: ER% T : U:CREATE NEW RECORDUKE$M1$: OP: `: ER% TU F1$()M1$: F1$()M2$: F1$()M3$: F1$()M4$0V F1$()M5$:I:DD#MA#(I): :F1$(I)II$:AV FI%,OS: ^V`:UPDATE CURRENT RECORDsVj ( :SEARCHVt ER% T : Vĸ:DELETE RECORDVθKE$M1$: OP: `: ER% T : V(:SEARCH FOR RECORDW2KE$M1$: OP: `: W:GET RECORD1WKE$M1$: OP: `SW ER% : ER% TWM1$F1$(): M2$F1$(): M3$F1$(): M4$F1$(): M5$F1$()WM1(M1$): M3(M3$): M5(M5$)W I :II$F1$(I): :MA#(I)DD#::X:GET NEXT RECORD)XOP: `: ER% T : BX:CREATE NEW EXTENTjXOLOS: OP : `: ER% TX F2$()J1$: F2$()J2$: F2$()J3$: F2$()J4$X F2$()(SD!(J5$)):DD#J6#: : F2$()II$X FI%,OS: YH:UPDATE CURRENT EXTENTYR (Y:DELETE EXTENTNYOP : `: ER% T : eY:GET NEXT EXTENTYOSOL: OP : `: ER% TY$J1$F2$(): J2$F2$(): J3$F2$(): J4$F2$()Y.J5$DS$((F2$())):II$F2$(): :J6#DD#:ZPÕ : BELL$()()()=ZZÿ "I",,"A:GLSYS.DAT": #,N$vZdÆ V$((N$)):V$()N$: I (N$):#,V$(I): I:ZnMD$V$( ):SC$V$():W(V$())ZË MD$"A" MD$"B" z: MZË MD$"A" ZDN1: V$ [ÿ "I",,MD$":GLSYS.DAT": #,N$B[Æ V$((N$)):V$()N$:I(N$): #,V$(I): I:l[MD$V$( ): MD$"B" H: M[Õ : [Ë 5 8 H: M[Ë 6 > A z: M[É  \N#:X9$()():X8$()(): 2\II$((N#DD#H),,):_\DD#((X9$II$X8$)(N#))ףp= #z:\ØSD!(S$)((S$,)(S$,)(S$,,))\ØDS$(D!)((D!),,)"/"((D!),)"/"((D!),,)\Ŀ "I",,"A:GLDA.DAT": #,VD$:  :DATE1]VS$V$(): VC$V$() :SYSTEM, COMPANY NAMEb]Ă I (V$()): DK%(I)(V$(I)): ]đ SC$: :: :DISPLAY HEADERS]"đ:"ONE MOMENT FOR PROGRAM STARTUP...."::]Ƒ(W(VC$)));VC$:(W(VS$)));VS$^Ƒ(W(PN$)));PN$^Ƒ(W(VD$)));VD$ ^.ǎ1^8Ǒ Q$;: R$B^tRL$(R$,)^^yNj R$"END" M : ^ȍ8:N!:R$E$ώ:DP:DG^ȋ(R$,)" "R$(R$,):^ȋ(R$)Z^(ȂJJ(R$):CH((R$,JJ,))^2ȋCH/CH:DG:P_<ȋCH.DPDP:DPύ::PB_Fȋ(CH-CH+)JJύ:Z_PȃJJ:DGύ:_ZN!(R$):(N!LB!N!UB!)LB!UB!ώ_dȍ:_ȍ 8: (R$) MO: DA: YR: _ȋ(R$) (R$) 2`MO(R$,"/"): MO  : MO R$"0"R$R`DA(,R$,"/"): DA `ȋ DA RL$(R$,): R$"0"(R$,):R$RL$R$`MO((R$,)):DA((R$,,)):YR((R$,))`ȋ(MO)(MO )(DA)(DA )(YR)(YRc)ώ`ȍ:aɍ8:DP:DG5aɋ(R$,)" "R$(R$,):oaJJ(R$,","):JJR$(R$,,JJ)(R$,JJ):aɋ(R$,)"$"R$(R$,)aɋ(R$)D#:aɂJJ(R$):CH((R$,JJ,))aɋCH/CH:DG: bɋCH.DPDP:DPύ::1bɋ(CH-)(CH+)JJύ:IbɃJJ:DGύ:]bD#(R$"D"):ubXQ$Q$" (Y OR N)? "b]YES:8:RL$"Y"YES:b_ʋ (R$) bbʋRL$"N"ύ:] : bʑ:"POSITION THE PAPER AT THE TOP OF A PAGE. "cQ$"READY": X: (R$) 5cʋ YES  : lcґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:yc"ӋER%ώcTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$c^Ӊ Mcӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:3dԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:ddԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";dԑ" CONSULT BASIC MANUAL FOR EXPLANATION. "dԑ:"ABNORMAL END OF JOB ":dՂI:BELL$;:: MeHՑ: "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":]ezՑ: "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":e_:10/30/78 Multi ARray ISam - MARIS (OP) e`ꕨ:OP,(,,,T,,, ,,H,,,tejꕨ:f=ER%:j::Pf: CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) |fꕨ:NA$(DI%A)":"NA$:NA$ASNA$fER%:fꕨ:ER%:ER%:g"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$gO0$"MARIS":O1$():O2$DA$:O3$(): O4$():O5$O4$:O6$(KL%):O7$OC$:O8$"103078"gFI%,:FI%:ER%:g': OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) "h(땨2:NA$(DI%A)":"NA$:NA$ASNA$1h2ER%:<Mh<땨:ER%:ER%:hF"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$hPFI%,:O0$"MARIS"FI%:ER%:iiZDA$O2$:EX%(O3$):NR%(O4$):OA(O5$):KL%(O6$):OC$O7$: FI%,(KL%)ASOK$,({KL%)ASOT$,ASOM$,ASOE$,ASOL$: O1$()x:NR%idOKKL%:OTOK:OJOT:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OJOTOJ:FI%jnOK$(OI)OT$(OJ):OJOJ:OI:OT$:jx:"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": BE$:NR%:FI%,:EX%:OPEX%:FI%: OM$"M"NR%NR%:OK$(NR%)OK$(OP)jyOP:NR%:OH():OH():OH():OH() :OT"kzOH(OT)NR%OTOT:OH(OT)OH(OT):z_k{OKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)k|OT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OI|k}OK$(OIOH),OT$:OJ,OK:OHkFI%,:O1$():FI%,:ODDI%: l: CLOSE MARIS FILE (RETURNS: ER%) 'l땨:FI%,:ER%:6lER%:Jl땨:ER%ώnlNR%:OKKL%:OTOKlOJ:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOTFI%:OJmOI:OT$:OJFI%lmFI%,:O1$():O3$(EX%):O4$(NR%): O5$(OA):O7$OC$:FI%,:FI%:ER%:m: CREATE RECORD (KE$, RETURNS: OI, OS, ER%) m:ER%ώ:mNR%OBςOJNR%OB:OK$(OJ),OK$(OJ):LnNR%NR%:OIOB:OK$(OI)KE$(OS):OK$KE$:OM$"M": OE$(OS):OL$(OS):FI%,OS:ER%:nS: DELETE RECORD (KE$, RETURNS: KE$, OI, OS, ER%) nT:ER%ώ::NR%NR%:OTOS: OINR%ςOJOINR%:OK$(OJ),OK$(OJ):n^OSOL:OSOTύ:^=ohOINR%ER%::OS((OK$(OI),)): KE$(OK$(OI),KL%):ER%:bo: REWIND (RETURNS: OI, ER%) oOI:NR%ER%::ER%:o: SEARCH (KE$, RETURNS: OI, OS, ER%) oOTNR%:OB:(KE$)KL%KE$(KE$(KL%," "),KL%) p&OBOTOI(OTOB):OT$(OK$(OI),KL%):ER%:Qp0OT$KE$OTOI:&:OT$KE$OBOI:&rp:OS((OK$(OI),)):ER%:p: GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) p:ER%ώ :FI%,OS:OE(OE$):OL(OL$):ER%:&q: GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) qOINR%ER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:qG: GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) -rHOIER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:hr: CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) r:FI%,OE:OL$(OS):FI%,OE: FI%,OL:OE$(OS):FI%,OL:FI%,OS:OE$(OE): OL$(OL):OM$"E":FI%,OS:ER%:!s: DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) EsFI%,OS:OM$"E"ER%::sFI%,OE:OL$(OL):FI%,OE: FI%,OL:OE$(OE):FI%,OL:ER%:ss: GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) stFI%,OS:OM$"E"ER%:OE(OE$):OL(OL$):ER%t~t/: SETUP (NR%) ,t0O:OK$(NR%):Tt: GET NEW SECTOR (RETURNS: OS) tOAFI%,OA:OSOA:OA(OL$):EX%EX%:OSEX%tFI%,:O3$(EX%):O5$(OA):FI%,:ER%:t: FREE OLD SECTOR (OS, RETURNS: OE, OL, ER%) ?uFI%,OS:OE(OE$):OL(OL$):OM$"F":OL$(OA):OAOS: FI%,OS:bu IILC A: : II: LC: OE, OL, ER%) ?uFI%,OS:OE(OE$):OL(OL$):O