I:ARVF, A/R VERIFY FILE, SSM, 2/06/79 REV. AR CP/M 2.0, 2/14/79J  :COPYRIGHT 1979 RETAIL SCIENCES INC.J AZ: &J d;J"A:ARVF.BAS": eJdMX: E(MX),L(MX),M$(MX),OK$()Ji: "*** FILE IS NOW BEING VERIFIED ***": Jn"I",,"A:ARSYS.DAT": #,V1$,V2$: Jx V1$"A" "I",,V1$":ARSYS.DAT": #,V1$,V2$: KNA$V2$":ARCF.DAT"+K: OPEN MARIS FILE@K:NA$ASNA$OKER%:K: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 ***"MNMNR%:FI%,:EX%,:OPEX%:FI%:NN:E(N)(OE$): L(N)(OL$):M$(N)OM$:OM$"M"NR%NR%:OK$(NR%)OK$(OP)MOP:NR%,:OH():OH():OH():OH() :OTMOH(OT)NR%OTOT:OH(OT)OH(OT):;NOKOT:OHOH(OK):OJOHNR%:OIOJOH:OT$,OK$(OJ)sNOT$OK$(OI)ϥOK$(OIOH),OK$(OI):OIOIOH:OINOK$(OIOH),OT$:OJ,OK:OH:OKKL%:OTOK/OOJ:FI%,EX%:OT$(OT):OB: OIOT:FI%,(OB)ASOT$,(OK)ASOT$(OI):OBOBOK:: OINR%:OT$(OJ)OK$(OI):OJOJ:OJOTFI%:OJHO"OI:OT$:OJFI%O,FI%,:O1$():O3$(EX%):O4$(NR%): O5$(A):O7$OC$:FI%,:O6: CHECK AVAIL LIST - MARK USED RECORDS&P@ A (A)(AEX%) r : M$(A)"F" r : TL(A): L(A): E(A): AT: @OPJ: CHECK FILE FOR BAD EXTENT LINKSrPT I N: M$(I)"M" zP^ IPh "*** ALL FILE LINKS VERIFY CORRECTLY ***": : JQr"*** FILE LINKS DON'T CHECK -": "DO YOU WISH TO RUN 'ARMSTFIX' TO RE-BUILD THE FILE (Y OR N)? ";: R$: (R$,)"Y" "A:ARMSTFIX.BAS"bQ|: RETURN TO MENUwQ"A:AR MENU.BAS"Q: CKECK LINKS FOR A RECORDQMI:PMQQL(P): (Q)(QEX%) r : E(Q)P rRRE(P): (R)(REX%) r : L(R)P r,RPQ: PM  :  (Q)(QEX%) r : E(Q)P rRRE(P): (R)(REX%) r : L(R)P r,RPQ: