N:printit/bas THUR 10/26/07r: ) "FIXING TRAN/DAT FILE" "r",,"tran/dat",  ,  AS A$ń ,():MAX (A$): "max=";MAX"ENTER START REC"; L: L L: "STARTING AT REC 1" "REC OLD NEW"* KL MAX4( ,KL2CN ((A$,,))d7IN ((A$,,))|ADA ((A$,,))CMO ((A$,,))F OININ K;OIN;IN: dӅP IN OININ:OMOMOمZ_"NEVER FOUND AN ISSUE...": cJd OIN} IN "IT'S A ROLLOVER"::don't do if inv rolloveri IN "ZERO INVOICE @";K;:(A$,,)(OMO): ,K:Ȇn "Repairing file - do not exit!!! - MAY TAKE 10 MINS": x:PRINT"DUPLICATE==> ";K;CN;IN; DA; MO;ASC(MID$(A$,2)):PRINT:K=K+3192:GOTO 40?} "INV# OIN# MONTH";IN;OIN;MO;G~ R[ LK MAXx j , Lx z:PRINT L; ,L ׇ , (): "STORED OLD MAX";(A$);"L=";L;"CURR OLD MAX";MAX(A$,,)(MAXx ): ,() "MAX UPDATED TO";MAXx # >"PROCESS COMPLETE..."DK Q~"clearing new space...": KL () A$( ,): ,K