10	! LOGTOT.BAS
	! TO TOTAL LOGGED ON TIME FOR A GIVEN PERIOD
100 DIM L$[56],N$[50]V,D1$[9],D2$[9]
110 SD=24*3600	! SECONDS PER DAY
200 INPUT "USER NAME ";N$:
	PRINT TAB(12);N$
210 N$=N$+".LOG/RN/RO/SH/LN:56"
211 CS=0 : CM=0 : CH=0 : CD=0:
	TS=0 : TM=0 : TH=0 : TD=0:
	LD=0
212 INPUT "STARTING DATE ";D1$ : DF=DCEN(D1$)
214 IF DF<1 THEN PRINT "BAD DATE " : GOTO 212
216 INPUT "FINAL    DATE ";D2$ : DL=DCEN(D2$)
218 IF DL<1 THEN PRINT "BAD DATE " : GOTO 216
220 OPEN #3,N$:
	N=NRC(3):
	IF N<6 THEN 1010
230 LF=0:
300 FOR I=6 TO N
310 INPUT LINE #3@I,L$
315 DI=DCEN(SBS$(L$,1,8))	! LOGIN DATE
317 DO=DCEN(SBS$(L$,20,8))	! LOGOUT DATE
320 IF DO<DF THEN 1000	
325 IF DO>DL THEN 1000	
327 IF LD=VAL(SBS$(L$,23,2)) THEN 338
330 IF CD+CH+CM+CS=0 THEN 338
332 PRINT TAB(50);"DAILY CONNECT ";FRMT$(CD,3);":";FRMT$(CH,2);":";FRMT$(CM,2);":";FRMT$(CS,2) : PRINT
333 TS=TS+CS : CS=0 : IF TS>59 THEN LET TS=TS-60 : TM=TM+1
334 TM=TM+CM : CM=0 : IF TM>59 THEN LET TM=TM-60 : TH=TH+1
335 TH=TH+CH : CH=0 : IF TH>23 THEN LET TH=TH-24 : TD=TD+1
336 TD=TD+CD : CD=0 : LD=VAL(SBS$(L$,23,2))
337 PRINT TAB(50);"TOTAL CONNECT ";FRMT$(TD,3);":";FRMT$(TH,2);":";FRMT$(TM,2);":";FRMT$(TS,2) : PRINT
338 PRINT L$
339 CS=CS+VAL(SBS$(L$,49,2)) : IF CS>59 THEN LET CS=CS-60 : CM=CM+1
340 CM=CM+VAL(SBS$(L$,46,2)) : IF CM>59 THEN LET CM=CM-60 : CH=CH+1
341 CH=CH+VAL(SBS$(L$,43,2)) : IF CH>23 THEN LET CH=CH-60 : CD=CD+1
342 CD=CD+VAL(SBS$(L$,39,3))
1000 NEXT I
1005 PRINT TAB(50);"DAILY CONNECT ";FRMT$(CD,3);":";FRMT$(CH,2);":";FRMT$(CM,2);":";FRMT$(CS,2) : PRINT
1006 TS=TS+CS : CS=0 : IF TS>59 THEN LET TS=TS-60 : TM=TM+1
1007 TM=TM+CM : CM=0 : IF TM>59 THEN LET TM=TM-60 : TH=TH+1
1008 TH=TH+CH : CH=0 : IF TH>23 THEN LET TH=TH-24 : TD=TD+1
1009 TD=TD+CD : CD=0 : LD=VAL(SBS$(L$,23,2))
1010 PRINT TAB(50);"TOTAL CONNECT ";FRMT$(TD,3);":";FRMT$(TH,2);":";FRMT$(TM,2);":";FRMT$(TS,2) : PRINT
1020 CLOSE 3
1030 GOTO 200
