I:GLVF, GENERAL LEDGER VERIFY FILE, SSM,1/2/79 REV. GL CP/M 2.1, 03/01/79J  :COPYRIGHT 1979 RETAIL SCIENCES INC.#J AZ-J dBJ"A:GLVF.BAS": lJdMX: E(MX),L(MX),M$(MX),OK$()Jn "I",,"A:GLSYS.DAT": #,N$Jp V$((N$)):V$()N$: I (N$):#,V$(I): I:JrV1$V$( )JxV1$"A"Jz V$K| "I",,V1$":GLSYS.DAT": #,N$LK~ V$((N$)):V$()N$:I(N$): #,V$(I): I:KV1$V$( ):V1$"B"ϑ"*** BAD SYSTEM FILE ***":KNA$V1$":GLMST.DAT"K: OPEN MARIS FILEK:NA$ASNA$KER%:.L:ER%: "*** DATA FILE DOES NOT EXIST ON DRIVE ";V2$;" ***": LFI%: "R",FI%,NA$:NA$(NA$,): FI%,ASO0$,ASO1$,ASO2$,ASO3$,ASO4$,ASO5$,ASO6$,dASO7$LFI%,:O0$"MARIS" : "*** DATA FILE IS NOT A VALID MARIS FILE ***": MEX%(O3$):NR%(O4$):A(O5$):KL%(O6$): FI%,(KL%)ASOK$,({KL%)ASOT$,ASOM$,ASOE$,ASOL$: O1$() "*** DATA FILE HAD NOT BEEN CLOSED PROPERLY ***"M: "*** FILE IS NOW BEING VERIFIED ***": : NJNNR%:FI%,:EX%,:OPEX%:FI%:NN:E(N)(OE$): L(N)(OL$):M$(N)OM$:OM$"M"NR%NR%:OK$(NR%)OK$(OP)NOP:NR%,:OH():OH():OH():OH() :OTNOH(OT)NR%OTOT:OH(OT)OH(OT):NOKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)-OOT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OI`OOK$(OIOH),OT$:OJ,OK:OH:OKKL%:OTOKOOJ:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOTFI%:OJP"OI:OT$:OJFI%RP,FI%,:O1$():O3$(EX%):O4$(NR%): O5$(A):O7$OC$:FI%,:P6: CHECK AVAIL LIST - MARK USED RECORDSP@ A (A)(AEX%) r : M$(A)"F" r : TL(A): L(A): E(A): AT: @ QJ: CHECK FILE FOR BAD EXTENT LINKS,QT I N: M$(I)"M" 4Q^ InQh "*** ALL FILE LINKS VERIFY CORRECTLY ***": : Rr"*** FILE LINKS DON'T CHECK - ": "DO YOU WISH TO RUN GLMSTFIX TO RE-BUILD THE FILE (Y OR N)? ";: R$: (R$,)"Y" "A:GLMSTFIX.BAS"R|: RETURN TO MENUsR: "PRESS THE 'RETURN' KEY TO RETURN TO THE SYSTEM MENU": R$: (R$) R: "*** LOADING GL MENU...": "A:GL MENU.BAS"R: CKECK LINKS FOR A RECORDRMI:PM SQL(P): (Q)(QEX%) r : E(Q)P r?SRE(P): (R)(REX%) r : L(R)P r\SPQ: PM  : : (Q)(QEX%) r : E(Q)P r?SRE(P):