I:GLTL.BAS, GL TRANSACTION REGISTER LIST, RDR, 6/12/78 REV. CP/M 2.1, 01/03/79!J X :COPYRIGHT 1978 RETAIL SCIENCES, INC./J OJPN$"TRANSACTIONS REGISTER"YJ PpJPU$"#,###,###.##"JJC#: JD#JNR%(V$( )):0:J::"*** TRANSACTIONS REGISTER LIST ***":K"YOU MAY SELECT - 1 - TO LIST ALL TRANSACTIONS BY ACCOUNT NUMBER"`K" - 2 - TO LIST SELECTED TRANSACTIONS BY SOURCE CODE"K:Q$"WHAT IS YOUR SELECTION (1 OR 2)? "K LB!: UB!: K4 N!  ,K  :PUT PAPER AT TOP OF FORMK 0u :PRINT HEADERSL  :GET NEXT MASTER+L ER% MIL  :GET NEXT EXTENT[L ER%  eL oL&  L @ :READ SRC DESCR'SL SC$:)" **** SOURCE CODE TABLE ****"L:I : );I;");S$(I):&M:Q$"WHAT SOURCE CODE DO YOU WISH TO LIST? ":LB!:UB!: 1MSC%N!KM  :TOP OF FORMlMPN$S$(SC%) :REPORT TITLEM 0u :HEADERSM  :READ MASTERM ER% MM  :READ EXTENTM" ER% N, (J4$)SC%  :LIST SELECTED SOURCES ONLYN6 +NM SNM FO% OP: ` :CLOSE MARISlNM :ANYTHING ELSE}NM RC NNMLC4ύNM:"** TOTAL TRANSACTIONS IN LIST = ";RC::LCLCNM");"TOTAL DEBITS ";2);:PU$;JD#OM");"TOTAL CREDITS";2);:PU$;JC#3OM2);"--------------"MOM JD#JC# JC#,JD#|OM!);"OUT OF BALANCE";2);:PU$;JC#JD#OMLCLCOM : :ANYTHING ELSEON:"END OF "PN$ON:Q$"PUSH THE 'RETURN' KEY TO RETURN TO THE MAIN GL MENU "PN 8: (R$) )PN "A:GL MENU"`P0u (W(VC$)));VC$;:PGPG: d);"PAGE ";PGzP:u (W(VS$)));VS$PDu (W(PN$)));PN$PNu (W(VD$)));VD$P}Q }"ACCOUNT DESCRIPTION REFER. S DATE AMOUNT"ZQ}"------- ------------------------- -------- - -------- ------------"iQ}: LC: Q耋 (J1$,)"00" J1$(J1$,)Q퀞 );J1$; );J2$;&);J3$;1);J4$;5);J5$;@);Q PU$;J6#R J6# JC#JC#J6# : JD#JD#J6# :CREDITS, DEBIT TOTALS.RLCLC: RCRCIR LC< : 0uOR|R@ "I",,MD$":GLSRC.DAT": S$(), A!()RJ I : #,I$: A!(I)(I$): I :ACCOUNT #'SRT I : #,S$(I): I :SOURCE DESCRIPTIONSSY #,FM$: FM%(FM$) :FISCAL MONTH START'S^ -Sh9S:OPENhSFI%:NA$"GLMST.DAT":DI%DK%():OP:`zSij ER% TSγ F1$(),MA#() :COA FIELDSSس #, ASF1$(), ASF1$(), ASF1$(), ASF1$(), ASF1$()TⳂ I : #, I AS T$, ASF1$(I): /T쳆 F2$() :JE FIELDSiT #,  AS F2$(),  AS F2$(), ASF2$(), ASF2$()T #, 'AST$, ASF2$(), ASF2$()T FO% :FILE OPEN FLAGTTx:CLOSET FO% : FO%TOP: `: ER% T : U@:REWIND2UJOP: `: ER% T : KU:CREATE NEW RECORDtUKE$M1$: OP: `: ER% TU F1$()M1$: F1$()M2$: F1$()M3$: F1$()M4$U F1$()M5$:I:DD#MA#(I): :F1$(I)II$:U FI%,OS: V`:UPDATE CURRENT RECORD+Vj ( :SEARCHGVt ER% T : \Vĸ:DELETE RECORDVθKE$M1$: OP: `: ER% T : V(:SEARCH FOR RECORDV2KE$M1$: OP: `: V:GET RECORDVKE$M1$: OP: ` W ER% : ER% TJWM1$F1$(): M2$F1$(): M3$F1$(): M4$F1$(): M5$F1$()qWM1(M1$): M3(M3$): M5(M5$)W I :II$F1$(I): :MA#(I)DD#::W:GET NEXT RECORDWOP: `: ER% T : W:CREATE NEW EXTENT"XOLOS: OP : `: ER% T]X F2$()J1$: F2$()J2$: F2$()J3$: F2$()J4$X F2$()(SD!(J5$)):DD#J6#: : F2$()II$X FI%,OS: XH:UPDATE CURRENT EXTENTXR X:DELETE EXTENTYOP : `: ER% T : Y:GET NEXT EXTENTDYOSOL: OP : `: ER% TwY$J1$F2$(): J2$F2$(): J3$F2$(): J4$F2$()Y.J5$DS$((F2$())):II$F2$(): :J6#DD#:YPÕ : BELL$()()()YZÿ "I",,"A:GLSYS.DAT": #,N$.ZdÆ V$((N$)):V$()N$: I (N$):#,V$(I): I:SZnMD$V$( ):SC$V$():W(V$())|ZË MD$"A" MD$"B" z: MZË MD$"A" ZDN1: V$Zÿ "I",,MD$":GLSYS.DAT": #,N$ZÆ V$((N$)):V$()N$:I(N$): #,V$(I): I:$[MD$V$( ): MD$"B" H: M9[Õ : Z[Ë 5 8 H: M[Ë 6 > A z: M[É [N#:X9$()():X8$()(): [II$((N#DD#H),,):\DD#((X9$II$X8$)(N#))ףp= #z:F\ØSD!(S$)((S$,)(S$,)(S$,,))\ØDS$(D!)((D!),,)"/"((D!),)"/"((D!),,)\Ŀ "I",,"A:GLDA.DAT": #,VD$:  :DATE\VS$V$(): VC$V$() :SYSTEM, COMPANY NAME]Ă I (V$()): DK%(I)(V$(I)): B]đ SC$: :: :DISPLAY HEADERSr]"đ:"ONE MOMENT FOR PROGRAM STARTUP...."::]Ƒ(W(VC$)));VC$:(W(VS$)));VS$]Ƒ(W(PN$)));PN$]Ƒ(W(VD$)));VD$].ǎ]8Ǒ Q$;: R$]tRL$(R$,)^yNj R$"END" M : 8^ȍ8:N!:R$E$ώ:DP:DG[^ȋ(R$,)" "R$(R$,):m^ȋ(R$)Z^(ȂJJ(R$):CH((R$,JJ,))^2ȋCH/CH:DG:P^<ȋCH.DPDP:DPύ::P^Fȋ(CH-CH+)JJύ:_PȃJJ:DGύ:=_ZN!(R$):(N!LB!N!UB!)LB!UB!ώK_dȍ:w_ȍ 8: (R$) MO: DA: YR: _ȋ(R$) (R$) _MO(R$,"/"): MO  : MO R$"0"R$ `DA(,R$,"/"): DA ?`ȋ DA RL$(R$,): R$"0"(R$,):R$RL$R$u`MO((R$,)):DA((R$,,)):YR((R$,))`ȋ(MO)(MO )(DA)(DA )(YR)(YRc)ώ`ȍ:`ɍ8:DP:DG`ɋ(R$,)" "R$(R$,):'aJJ(R$,","):JJR$(R$,,JJ)(R$,JJ):Eaɋ(R$,)"$"R$(R$,)Zaɋ(R$)D#:~aɂJJ(R$):CH((R$,JJ,))aɋCH/CH:DG:aɋCH.DPDP:DPύ::aɋ(CH-)(CH+)JJύ:bɃJJ:DGύ:bD#(R$"D"):-bXQ$Q$" (Y OR N)? "Nb]YES:8:RL$"Y"YES:ab_ʋ (R$) ~bbʋRL$"N"ύ:] : bʑ:"POSITION THE PAPER AT THE TOP OF A PAGE. "bQ$"READY": X: (R$) bʋ YES  : $cґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:1c"ӋER%ώscTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$}c^Ӊ Mcӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:cԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:*dԑ"*** START PROGRAM NOT RUN. CAN'T CONTINUE. ***";BELL$:[dԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";dԑ" CONSULT BASIC MANUAL FOR EXPLANATION. "dԑ:"ABNORMAL END OF JOB ":dՂI:BELL$;:: M eHՑ: "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":TezՑ: "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":e_:10/30/78 Multi ARray ISam - MARIS (OP) e`ꕨ:OP,(,,,T,,, ,,H,,,tejꕨ:e=ER%:j::Gf: CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) sfꕨ: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$wgO0$"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$(h2ER%:<Dh<땨:ER%:ER%:hF"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$hPFI%,:O0$"MARIS"FI%:ER%:`iZDA$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() :OTkzOH(OT)NR%OTOT:OH(OT)OH(OT):zVk{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%:-lER%:Al땨:ER%ώelNR%: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%cmFI%,: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):CnNR%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ύ:^4ohOINR%ER%::OS((OK$(OI),)): KE$(OK$(OI),KL%):ER%:Yo: REWIND (RETURNS: OI, ER%) zoOI: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%:Hp0OT$KE$OTOI:&:OT$KE$OBOI:&ip: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%:_r: 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%)