2000	! TIMCOR.BAS
	! TO CORRECT LOGGED ON TIME AFTER CHANGING A DATE OR TIME
2020 DIM A$[56],N$[20]V,B$[56],C$[12]
2040 INPUT "USER ";N$
2060 OPEN #3,N$+".LOG/MO/RN/SH/LN:56"
2080 N=NRC(3)
2100 PRINT "TOTAL RECORDS =";N
2120 INPUT "RECORD # ",RN
2140 DF=0
2160 INPUT LINE #3@RN,A$
2180 ! CALC CORRECT TIME
2200 DA=DCEN(SBS$(A$,20,8))-DCEN(SBS$(A$,1,8))
2220 HR=VAL(SBS$(A$,29,2))-VAL(SBS$(A$,10,2))
2240 MI=VAL(SBS$(A$,32,2))-VAL(SBS$(A$,13,2))
2260 SE=VAL(SBS$(A$,35,2))-VAL(SBS$(A$,16,2))
2280 IF SE<0 THEN SE=SE+60 : MI=MI-1
2300 IF MI<0 THEN MI=MI+60 : HR=HR-1
2320 IF HR<0 THEN HR=HR+24 : DA=DA-1
2340 IF DA<0 THEN DA=31 		:! NOT IMPORTANT IF THIS LONG
2360 C$=FRMT$(DA,3)+":"+FRMT$(HR,2)+":"+FRMT$(MI,2)+":"+FRMT$(SE,2)
2380 FOR J=1 TO 3
2400 IF SBS$(C$,J*3+2,1)=" " THEN C$=SEG$(C$,1,J*3+1)+"0"+SEG$(C$,J*3+3,12)
2420 NEXT J
2440 B$=SEG$(A$,1,38)+C$+SEG$(A$,51,56)
2460 PRINT #3@RN,B$			: ! PRINT CORRECTED RECORD
2480 PRINT 
2500 PRINT "CORRECTED  ";A$
2520 PRINT "TO READ    ";B$
2540 CLOSE 3 : GOTO 2040