I:GLQA.BAS, G/L QUERY ACCOUNT STATUS, RDR, 7/19/78 REV. CP/M 2.0, 11/10/78J X :COPYRIGHT 1978 RETAIL SCIENCES, INC.,J KJPN$"QUERY ACCOUNT STATUS"UJ PlJFM$"####,###.##-"{JFIRST JNR%(V$( )): 0:  :INIT, OPENJ:Q$"DO YOU WANT THE OUTPUT ON THE TERMINAL OR PRINTER (T OR P)? "K 8: RL$"P" PF%: 6K  RL$"T" : hK:Q$"WHAT ACCOUNT NUMBER IS TO BE QUERIED? "K0Q : LB!d: UB!OC: KX (R$) R$R$"00"Kl (R$) : KM1$R$K  :READ MASTERKM3(M3$)L ER%   :NO-NO1L ER%  :OKcL:"** THIS ACCOUNT NUMBER DOES NOT EXIST **"L"** IN THE MASTER (CHART OF ACCOUNTS) FILE. **"L L M3 S$"[TYPE 1 TITLE ACCOUNT]": M M3 S$"[TYPE 2 DETAIL ACCOUNT]": )MS$"[TYPE "M3$" TOTAL ACCOUNT]"MM  :PRINT MASTER WHEREVERM M3  :TITLES & TOTALS GO NO FURTHERM  :READ TRANS EXTENTM ER% X:  :NO MORE FOR THIS MASTERM  p :PRINT DETAIL WHEREVERN 1N:Q$"ANY MORE ACCOUNTS TO BE QUERIED"JN X: YES TN MyN (M1$,)"00" M1$(M1$,)N PF% NN M1$;);M2$;);S$;<);N M3 ::N FM$;MA#()NN  :TOP OF FORMO 0u :HEADERS.O M1$;);M2$;);S$;<);QO  M3 : LCLC: : dO FM$;MA#()sOLCLC: Op PF% Oz );(J2$,););J3$;);J4$;");(J5$,);O *);: FM$;J6#O dP );(J2$,););J3$;);J4$;");(J5$,);+P *);: FM$;J6#5P d_PdTJ#TJ#J6# :TOTAL JOURNAL AMOUNTSPxLCLC: LC< : 0uPPX PF% Pb *);: FM$;TJ#;:" *";Pl <);: FM$;TJ#MA#();:" *"PvTJ#: Q *);: FM$;TJ#;:" *";2Q <);: FM$;TJ#MA#();:" *" 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$atRL$(R$,):RL$"?"ω~$ayNj R$"END" M : 7a~NjQύx:8vaNjQϑ"FOR FURTHER EXPLANATION SEE THE OPERATOR'S MANUAL"alj8aȍ8:N!:R$E$ώ:DP:DGaȋ(R$,)" "R$(R$,):aȋ(R$)Za(ȂJJ(R$):CH((R$,JJ,))b2ȋCH/CH:DG:P>b<ȋCH.DPDP:DPύ::PcbFȋ(CH-CH+)JJύ:{bPȃJJ:DGύ:bZN!(R$):(N!LB!N!UB!)LB!UB!ώbdȍ:bȍ 8: (R$) MO: DA: YR: bȋ(R$) (R$) ScMO(R$,"/"): MO  : MO R$"0"R$scDA(,R$,"/"): DA cȋ DA RL$(R$,): R$"0"(R$,):R$RL$R$cMO((R$,)):DA((R$,,)):YR((R$,))dȋ(MO)(MO )(DA)(DA )(YR)(YRc)ώ dȍ:3dɍ8:DP:DGVdɋ(R$,)" "R$(R$,):dJJ(R$,","):JJR$(R$,,JJ)(R$,JJ):dɋ(R$,)"$"R$(R$,)dɋ(R$)D#:dɂJJ(R$):CH((R$,JJ,))eɋCH/CH:DG:+eɋCH.DPDP:DPύ::Reɋ(CH-)(CH+)JJύ:jeɃJJ:DGύ:~eD#(R$"D"):eXQ$Q$" (Y OR N)? "e]YES:8:RL$"Y"YES:e_ʋ (R$) ebʋRL$"N"ύ:] : fʑ:"POSITION THE PAPER AT THE TOP OF A PAGE. "?fQ$"READY": X: (R$) Vfʋ YES  : fґ"*** INVALID ENTRY. PLEASE REENTER. ***";BELL$:f"ӋER%ώfTӑ"*** SYSTEM ERROR ";ER%;". PLEASE CONSULT MANUAL. ***";BELL$f^Ӊ Mgӑ"*** NUMBER IS OUT OF RANGE. ***";BELL$:Tgԑ"*** INCORRECT DATE. MUST BE FORM MM/DD/YY. ***";BELL$:gԑ:" BASIC ERROR NUMBER ";;" LINE NO. ";gԑ" CONSULT BASIC MANUAL FOR EXPLANATION. "gԑ:"ABNORMAL END OF JOB ":gՂI:BELL$;:: M5hHՑ: "*** PROPER SYSTEM FILE NOT FOUND. CAN'T CONTINUE. ***":~hzՑ: "*** SYSTEM FILE INITIALIZED IMPROPERLY. CAN'T CONTINUE. ***":h_:10/30/78 Multi ARray ISam - MARIS (OP) h`ꕨ:OP,(,,,T,,, ,,H,,,tijꕨ:'i=ER%:j::qi: CREATE MARIS FILE (FI%, NA$, DI%, DA$, KL%, OC$, RETURNS: ER%) iꕨ:NA$(DI%A)":"NA$:NA$ASNA$iER%:iꕨ:ER%:ER%:2j"R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$,ASO8$jO0$"MARIS":O1$():O2$DA$:O3$(): O4$():O5$O4$:O6$(KL%):O7$OC$:O8$"103078"jFI%,:FI%:ER%:k': OPEN MARIS FILE (FI%, NA$, DI%, RETURNS: DA$, EX%, NR%, OA, KL%, OC$, OI, ER%) Ck(땨2:NA$(DI%A)":"NA$:NA$ASNA$Rk2ER%:<nk<땨:ER%:ER%:kF"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%mdOKKL%:OTOK:OJOT:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OJOTOJ:FI%;mnOK$(OI)OT$(OJ):OJOJ:OI:OT$:mx:"*** FILE WAS NOT CLOSED PROPERLY. ONE MOMENT FOR FIX...": BE$:NR%:FI%,:EX%:OPEX%:FI%: OM$"M"NR%NR%:OK$(NR%)OK$(OP)nyOP:NR%:OH():OH():OH():OH() :OTCnzOH(OT)NR%OTOT:OH(OT)OH(OT):zn{OKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)n|OT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OI|n}OK$(OIOH),OT$:OJ,OK:OHoFI%,:O1$():FI%,:ODDI%:+o: CLOSE MARIS FILE (RETURNS: ER%) Ho땨:FI%,:ER%:WoER%:ko땨:ER%ώoNR%:OKKL%:OTOKpOJ:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOTFI%:OJ1pOI:OT$:OJFI%pFI%,:O1$():O3$(EX%):O4$(NR%): O5$(OA):O7$OC$:FI%,:FI%:ER%:p: CREATE RECORD (KE$, RETURNS: OI, OS, ER%) p:ER%ώ: qNR%OBςOJNR%OB:OK$(OJ),OK$(OJ):mqNR%NR%:OIOB:OK$(OI)KE$(OS):OK$KE$:OM$"M": OE$(OS):OL$(OS):FI%,OS:ER%:qS: DELETE RECORD (KE$, RETURNS: KE$, OI, OS, ER%) qT:ER%ώ::NR%NR%:OTOS: OINR%ςOJOINR%:OK$(OJ),OK$(OJ):r^OSOL:OSOTύ:^^rhOINR%ER%::OS((OK$(OI),)): KE$(OK$(OI),KL%):ER%:r: REWIND (RETURNS: OI, ER%) rOI:NR%ER%::ER%:r: SEARCH (KE$, RETURNS: OI, OS, ER%) sOTNR%:OB:(KE$)KL%KE$(KE$(KL%," "),KL%)As&OBOTOI(OTOB):OT$(OK$(OI),KL%):ER%:rs0OT$KE$OTOI:&:OT$KE$OBOI:&s:OS((OK$(OI),)):ER%:s: GET RECORD (KE$, RETURNS: OI, OS, OE, OL, ER%) t:ER%ώ :FI%,OS:OE(OE$):OL(OL$):ER%:Gt: GET NEXT RECORD (RETURNS: KE$, OI, OS, OE, OL, ER%) tOINR%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%) NuHOIER%::OIOI:OS((OK$(OI),)):FI%,OS: KE$OK$:OE(OE$):OL(OL$):ER%:u: CREATE EXTENT SECTOR (OE, OL, RETURNS: OS, ER%) v:FI%,OE:OL$(OS):FI%,OE: FI%,OL:OE$(OS):FI%,OL:FI%,OS:OE$(OE): OL$(OL):OM$"E":FI%,OS:ER%:Bv: DELETE EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) fvFI%,OS:OM$"E"ER%::vFI%,OE:OL$(OL):FI%,OE: FI%,OL:OE$(OE):FI%,OL:ER%:vs: GET EXTENT SECTOR (OS, RETURNS: OE, OL, ER%) wtFI%,OS:OM$"E"ER%:OE(OE$):OL(OL$):ER%#w~:w/: SETUP (NR%) Mw0O:OK$(NR%):uw: GET NEW SECTOR (RETURNS: OS) wOAFI%,OA:OSOA:OA(OL$):EX%EX%:OSEX%wFI%,:O3$(EX%):O5$(OA):FI%,:ER%:x: 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%) `x