100	! LOGCOR.BAS
	! TO ENABLE CORRECTION OF ".STO" FILES
	! FROM DAMAGE CAUSED BY INCORRECT SYSTEM
	! TIME SETTING OR OTHER ERRORS
120 DIM L$[52],N$[50]V,A$[52]V
140 IF END THEN 480
160 INPUT "USER ";N$
180 OPEN #3,N$+".STO/MO/RN/SH/LN:52"
200 N=NRC(3)
220 PRINT "TOTAL RECORDS =";N
240 IF END THEN 460
260 INPUT "RECORD #";I
280 IF I < 1 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