I:GLTB.BAS, G/L TRIAL BALANCE (DETAIL REPORT), RDR, 6/30/78 REV. CP/M 2.4, 7/27/79&J: COPYRIGHT 1978 RETAIL SCIENCES, INC.0J X>J VJPN$"TRIAL BALANCE"`J PxJFM$"#,###,###.##-"JNR%(V$( )): 0:  :INIT, OPENJ:Q$"WHAT DATE IS TO BE PRINTED ON THE REPORT (MM/DD/YY)? "K0  :GET & SAVE DATE*K:(R$)ϑ"USING ";VD$:VD$R$DKXPF% :PRINT FLAG^Kl  :TOP-OF-FORMtK 0u :HEADERSK  N :READ AND PROCESS MASTER RECORDS UNTIL TYPE 2 HITK  :READ TRANS EXTENTL ER%  :NO MORE FOR THIS MASTER)L  /);J2$;I);(J5$,);Q);J4$;9L4 U);J3$;QLH `);: FM$;J6#uL\LCLC: LC< : 0uLp J6# CC#CC#J6# : CD#CD#J6#LT#()T#()J6#LJCJCL L `);: FM$;T#();:" *";M o);: FM$;T#()MA#();:" *"MLCLC8M JC $: JC>M$bM8LCLC: LC< : 0upML I M`T#(I)T#(I)T#()Mt IMMA#()T#(): ` :REWRITE MASTER WITH NEW CURRENTMT#() :RESET CURRENT TO ZERON  :GO AROUND AGAINNM DNM FO% OP: ` :CLOSE MARIS]NM :ANYTHING ELSEoNM PF% NNMLC6ύNM:" *** TOTALS :";%);NM"BEGINNING";6);"CURRENT";E);"ENDING"NM :ANYTHING ELSENM );"DEBITS";#);OM FM$;BD#;: 2);/OM FM$;CD#;: A);COM FM$;BD#CD#^OM );"CREDITS";#);wOM FM$;BC#;: 2);OM FM$;CC#;: A);OM FM$;BC#CC#OM:" *** OUT OF BALANCE :";#);OM FM$;BD#BC#;: 2);PM FM$;CD#CC#;: A); PM FM$;BD#BC#CD#CC#3PMLCLC: HPN:"END OF "PN$PN:Q$"PUSH THE 'RETURN' KEY TO RETURN TO THE MAIN GL MENU "PN 8: (R$) PN "A:GL MENU"P N  :READ MASTERP4N ER% M :EOFQ9NM3(M3$) :TYPE CODE:QHN (M1$,,)"00" MM$(M1$,) : MM$M1$NQ\N M3 NhQpN:); MM$;);M2$:QNLCLC: LC< : 0uQN  NQN M3 `OQN );MM$;);M2$;QN ");: FM$;MA#()QNLCLC: LC< : 0u0RN MA#() BC#BC#MA#() : BD#BD#MA#()YRO I  : TY#(I)TY#(I)MA#() : _R$OvR`O );MM$;);M2$;RtO `);: FM$;T#(M3);:" **";RO o);: FM$;T#(M3)TY#(M3);:" **"ROROLCLC: LC< : 0uSO IM3  SOT#(I)SOTY#(I)$SP I.SP  NjS0uW: (W(VC$)));VC$;:PGPG: n);"PAGE ";PGS:u (W(VS$)));VS$SDu (W(PN$)));PN$SNu (W(VD$)));VD$SXu@Tbu" ------------ACCOUNT------------ -BEGINNING- --------------------------TRANSACTION----------------------- ---ENDING---"Tlu" NUMBER DESCRIPTION BALANCE DESCRIPTION DATE SRC REFERENCE AMOUNT BALANCE"BUvu" ------ ----------------------- ----------- ------------------------ ----- --- --------- ----------- ------------"HUuWUuLCLC: U@ "I",,MD$":GLSRC.DAT": S$(), A!()UJ I : #,I$: A!(I)(I$): I :ACCOUNT #'SUT I : #,S$(I): I :SOURCE DESCRIPTIONS'VY #,MM$: FM%(MM$) :FISCAL MONTH START/V^ 5VhAV:OPENpVFI%:NA$"GLMST.DAT":DI%DK%():OP:`Vij ER% TVγ F1$(),MA#() :COA FIELDSVس #, ASF1$(), ASF1$(), ASF1$(), ASF1$(), ASF1$()WⳂ I : #, I AS T$, ASF1$(I): 7W쳆 F2$() :JE FIELDSqW #,  AS F2$(),  AS F2$(), ASF2$(), ASF2$()W #, 'AST$, ASF2$(), ASF2$()W FO% :FILE OPEN FLAGWWx:CLOSEW FO% : FO%XOP: `: ER% T : X@:REWIND:XJOP: `: ER% T : SX:CREATE NEW RECORD|XKE$M1$: OP: `: ER% TX F1$()M1$: F1$()M2$: F1$()M3$: F1$()M4$X F1$()M5$:I:DD#MA#(I): :F1$(I)II$:Y FI%,OS: Y`:UPDATE CURRENT RECORD4Yj ( :SEARCHPYt ER% T : eYĸ:DELETE RECORDYθKE$M1$: OP: `: ER% T : Y(:SEARCH FOR RECORDY2KE$M1$: OP: `: Y:GET RECORDYKE$M1$: OP: `Z ER% : ER% TSZM1$F1$(): M2$F1$(): M3$F1$(): M4$F1$(): M5$F1$()zZM1(M1$): M3(M3$): M5(M5$)Z I :II$F1$(I): :MA#(I)DD#::Z:GET NEXT RECORDZOP: `: ER% T : [:CREATE NEW EXTENT+[OLOS: OP : `: ER% Tf[ F2$()J1$: F2$()J2$: F2$()J3$: F2$()J4$[ F2$()(SD!(J5$)):DD#J6#: : F2$()II$[ FI%,OS: [H:UPDATE CURRENT EXTENT[R [:DELETE EXTENT\OP : `: ER% T : &\:GET NEXT EXTENTM\OSOL: OP : `: ER% T\$J1$F2$(): J2$F2$(): J3$F2$(): J4$F2$()\.J5$DS$((F2$())):II$F2$(): :J6#DD#:\PÕ : BELL$()()()\Zÿ "I",,"A:GLSYS.DAT": #,N$7]dÆ V$((N$)):V$()N$: I (N$):#,V$(I): I:\]nMD$V$( ):SC$V$():W(V$())]Ë MD$"A" MD$"B" z: M]Ë MD$"A" ]DN1: V$]ÿ "I",,MD$":GLSYS.DAT": #,N$^Æ V$((N$)):V$()N$:I(N$): #,V$(I): I:-^MD$V$( ): MD$"B" H: MB^Õ : c^Ë 5 8 H: M^Ë 6 > A z: M^É ^N#:X9$()():X8$()(): ^II$((N#DD#H),,): _DD#((X9$II$X8$)(N#))ףp= #z:O_Ø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)): K`đ SC$: :: :DISPLAY HEADERS{`"đ:"ONE MOMENT FOR PROGRAM STARTUP...."::`Ƒ(W(VC$)));VC$:(W(VS$)));VS$`Ƒ(W(PN$)));PN$`Ƒ(W(VD$)));VD$`.ǎ`8Ǒ Q$;: R$atRL$(R$,)ayNj R$"END" M : Aaȍ8:N!:R$E$ώ:DP:DGdaȋ(R$,)" "R$(R$,):vaȋ(R$)Za(ȂJJ(R$):CH((R$,JJ,))a2ȋCH/CH:DG:Pa<ȋCH.DPDP:DPύ::PbFȋ(CH-CH+)JJύ:bPȃJJ:DGύ:FbZN!(R$):(N!LB!N!UB!)LB!UB!ώTbdȍ:bȍ 8: (R$) MO: DA: YR: bȋ(R$) (R$) bMO(R$,"/"): MO  : MO R$"0"R$cDA(,R$,"/"): DA Hcȋ DA RL$(R$,): R$"0"(R$,):R$RL$R$~cMO((R$,)):DA((R$,,)):YR((R$,))cȋ(MO)(MO )(DA)(DA )(YR)(YRc)ώcȍ:cɍ8:DP:DGcɋ(R$,)" "R$(R$,):0dJJ(R$,","):JJR$(R$,,JJ)(R$,JJ):Ndɋ(R$,)"$"R$(R$,)cdɋ(R$)D#:dɂJJ(R$):CH((R$,JJ,))dɋCH/CH:DG:dɋCH.DPDP:DPύ::dɋ(CH-)(CH+)JJύ: eɃJJ:DGύ:eD#(R$"D"):6eXQ$Q$" (Y OR N)? "We]YES:8:RL$"Y"YES:je_ʋ (R$) ebʋRL$"N"ύ:] : eʑ:"POSITION THE PAPER AT THE TOP OF A PAGE. "eQ$"READY": X: (R$) eʋ YES  : -fґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$::f"ӋER%ώ|fTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$f^Ӊ Mfӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:fԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:%gԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";Vgԑ" CONSULT BASIC MANUAL FOR EXPLANATION. "vgԑ:"ABNORMAL END OF JOB ":gՂI:BELL$;:: MgHՑ: "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":hzՑ: "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":Sh_:10/30/78 Multi ARray ISam - MARIS (OP) h`ꕨ:OP,(,,,T,,, ,,H,,,thjꕨ:h=ER%:j::i: CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) =iꕨ:NA$(DI%A)":"NA$:NA$ASNA$LiER%:giꕨ:ER%:ER%:i"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$AjO0$"MARIS":O1$():O2$DA$:O3$(): O4$():O5$O4$:O6$(KL%):O7$OC$:O8$"103078"YjFI%,:FI%:ER%:j': OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) j(땨2:NA$(DI%A)":"NA$:NA$ASNA$j2ER%:<k<땨:ER%:ER%:mkF"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$kPFI%,:O0$"MARIS"FI%:ER%:*lZDA$O2$:EX%(O3$):NR%(O4$):OA(O5$):KL%(O6$):OC$O7$: FI%,(KL%)ASOK$,({KL%)ASOT$,ASOM$,ASOE$,ASOL$: O1$()x:NR%ldOKKL%:OTOK:OJOT:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OJOTOJ:FI%lnOK$(OI)OT$(OJ):OJOJ:OI:OT$:umx:"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": BE$:NR%:FI%,:EX%:OPEX%:FI%: OM$"M"NR%NR%:OK$(NR%)OK$(OP)myOP:NR%:OH():OH():OH():OH() :OTmzOH(OT)NR%OTOT:OH(OT)OH(OT):z n{OKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)Xn|OT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OI|wn}OK$(OIOH),OT$:OJ,OK:OHnFI%,:O1$():FI%,:ODDI%:n: CLOSE MARIS FILE (RETURNS: ER%) n땨:FI%,:ER%:nER%: o땨:ER%ώ/oNR%:OKKL%:OTOKoOJ:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOTFI%:OJoOI:OT$:OJFI%-pFI%,:O1$():O3$(EX%):O4$(NR%): O5$(OA):O7$OC$:FI%,:FI%:ER%:bp: CREATE RECORD (KE$, RETURNS: OI, OS, ER%) zp:ER%ώ:pNR%OBςOJNR%OB:OK$(OJ),OK$(OJ): qNR%NR%:OIOB:OK$(OI)KE$(OS):OK$KE$:OM$"M": OE$(OS):OL$(OS):FI%,OS:ER%:GqS: DELETE RECORD (KE$, RETURNS: KE$, OI, OS, ER%) qT:ER%ώ::NR%NR%:OTOS: OINR%ςOJOINR%:OK$(OJ),OK$(OJ):q^OSOL:OSOTύ:^qhOINR%ER%::OS((OK$(OI),)): KE$(OK$(OI),KL%):ER%:#r: REWIND (RETURNS: OI, ER%) DrOI:NR%ER%::ER%:rr: SEARCH (KE$, RETURNS: OI, OS, ER%) rOTNR%:OB:(KE$)KL%KE$(KE$(KL%," "),KL%)r&OBOTOI(OTOB):OT$(OK$(OI),KL%):ER%:s0OT$KE$OTOI:&:OT$KE$OBOI:&3s:OS((OK$(OI),)):ER%:ms: GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) s:ER%ώ :FI%,OS:OE(OE$):OL(OL$):ER%:s: GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) JtOINR%ER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:tG: GET PREVIOUS RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) tHOIER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:)u: CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) u:FI%,OE:OL$(OS):FI%,OE: FI%,OL:OE$(OS):FI%,OL:FI%,OS:OE$(OE): OL$(OL):OM$"E":FI%,OS:ER%:u: DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) vFI%,OS:OM$"E"ER%::LvFI%,OE:OL$(OL):FI%,OE: FI%,OL:OE$(OE):FI%,OL:ER%:vs: GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) vtFI%,OS:OM$"E"ER%:OE(OE$):OL(OL$):ER%v~v/: SETUP (NR%) v0O:OK$(NR%):w: GET NEW SECTOR (RETURNS: OS) KwOAFI%,OA:OSOA:OA(OL$):EX%EX%:OSEX%~wFI%,:O3$(EX%):O5$(OA):FI%,:ER%:w: FREE OLD SECTOR (OS, RETURNS: OE, OL, ER%) xFI%,OS:OE(OE$):OL(OL$):OM$"F":OL$(OA):OAOS: FI%,OS:#x IILC A: : II: LC: OE, OL, ER%) xFI%,OS:OE(OE$):OL(OL$):OM$"F":OL$(OA):OAOS: FI%,OS:#x IILC A: :