100	! logcor.bas
	! to enable correction of ".log" files
	! from damage caused by incorrect system
	! time setting or other errors
120 dim l$[56],n$[50]v,a$[56]v
140 if end then 480
150 set upper on
160 input "User ";n$
180 open #3,n$+".LOG/MO/RN/SH/LN:56"
200 n=nrc(3)
220 print "Total records =";n
240 if end then 460
260 input "Record #";i
280 if i < 6 or i > n then 260
	else input line #3@i,l$
300 for j=1 to 6 : print "1234567890"; : next j : print
320 print l$
340 if end then 240
360 input "Col #, String ";c,a$
380 call "INSTRG"(l$,a$,c)
400 input ""+l$+"! OK";a$
420 if pos(a$,"Y") <> 1 then 260
	else print #3@i,l$
440 goto 260
460 close 3 : goto 140
480 close 3 : exit
