sub GetLog(tStart$,tEnd$,fname$) '[013]
'This routine gets a start and finish time in string format
'then opens the fname$ file and prints the relevant log entries

LOCAL genin$,st%,end%,cur%

IF fname$="" THEN fname$="syslog.txt"
st%=(VAL(LEFT$(tStart$,2))*3600)+VAL(MID$(tStart$,4,2))*60)+VAL(RIGHT$(tStart$,2))
end%=(VAL(LEFT$(tEnd$,2))*3600)+(VAL(MID$(tEnd$,4,2))*60)+VAL(RIGHT$(tEnd$,2))

OPEN fname$ FOR INPUT AS #9

DO WHILE NOT EOF(9)

LINE INPUT #9,genin$
cur%=(VAL(MID$(genin$,10,2))*3600)+(VAL(MID$(genin$,13,2))*60)+VAL(MID$(genin$,16,2))
IF cur%>=st% THEN
PRINT genin$
ELSE IF cur%>end% THEN
EXIT DO
END IF

LOOP

CLOSE#9
END SUB

[1297] End%=(Val(Left$(tEnd$,2))*3600)+(Val(Mid$(tEnd$,4,2))*60)+Val(Right$(tEnd$,2))
Error: Unexpected text: %Ç(©“tEnd$,2))·3600)»(©–tEnd$,4,2))·60)»©œtEnd$,2))