10 ! LOGTIME
100 DIM R$[56],U$[32]V,D$[10]V
120	INPUT "USER NAME     ",U$ :
	INPUT "STARTING DATE ",D$ : DB=DCEN(D$) :
	INPUT "ENDING DATE   ",D$ : DE=DCEN(D$)
140 OPEN #4,U$+".LOG/FX/LN:56/RO/EN:1000"
160 FOR I=1 TO 5 : INPUT LINE #4,R$ : NEXT I
180	S7=25200/60	: T7=0 :
	SN=43200/60	: TN=0 :
	S5=61200/60	: T5=0
200 INPUT LINE #4,R$ :
	D1=DCEN(SBS$(R$,1,8)) : D2=DCEN(SBS$(R$,20,8))
220	IF D2<DB THEN 200
		ELSE IF D2>DE THEN 1000
240	S1=SEC(SBS$(R$,10,8))/60 : S2=SEC(SBS$(R$,29,8))/60
260 IF D1=D2 THEN  GOSUB 2000 : GOTO 900
280 IF D1>D2 THEN  GOSUB 3000 : GOTO 900
300 DD=D2-D1 : O1=S1 : O2=S2
320 S2=86399/60 : GOSUB 2000	 ! FIRST DAY
340 S1=1 : IF DD=1 THEN 420
360	 FOR J=1 TO DD-1
380		 GOSUB 2000	 ! MIDDLE DAYS
400	 NEXT J
420 S2=O2 : GOSUB 2000		 ! LAST DAY
900 GOTO 200
1000 CLOSE 
1020	 PRINT :
	 PRINT "	MORNING HOURS           ";FRMT$(T7/60,7,1) :
	 PRINT "	AFTERNOON HOURS         ";FRMT$(TN/60,7,1) :
	 PRINT "	EVENING HOURS           ";FRMT$(T5/60,7,1) :
	 PRINT 
1900 EXIT 
2000 IF S1>S2 THEN  GOSUB 3000 : RETURN 
2010 DS=(S2-S1)
2020 IF S2<S7 OR S1>S5 THEN T5=T5+DS : GOTO 2130
2030 IF S1>=S7 AND S2<SN THEN T7=T7+DS : GOTO 2130
2040 IF S1>=SN AND S2<S5 THEN TN=TN+DS : GOTO 2130
2050 IF S1>S7 THEN 2090
2060 IF S2<SN THEN 	T5=T5+(S7-S1) :
			T7=T7+(S2-S7) : GOTO 2130
2070 IF S2>=SN AND S2<S5 THEN 	T5=T5+(S7-S1) :
				T7=T7+(SN-S7) :
				TN=TN+(S2-SN) : GOTO 2130
2080 IF S2>S5 THEN 	T5=T5+(S7-S1) :
			T7=T7+(SN-S7) :
			TN=TN+(S5-SN) :
			T5=T5+(S2-S5) : GOTO 2130
2090 IF S1>SN THEN 2120
2100 IF S2>SN AND S2<S5 THEN 	T7=T7+(SN-S1) :
				TN=TN+(S2-SN) : GOTO 2130
2110 IF S2>=S5 THEN 	T7=T7+(SN-S1) :
			TN=TN+(S5-SN) :
			T5=T5+(S2-S5) : GOTO 2130
2120	TN=TN+(S5-S1) :
	T5=T5+(S2-S5) : GOTO 2130
2130 RETURN 
3000	 PRINT "LOGON AFTER LOGOUT" :
	 PRINT R$ : RETURN