Sub main()

SPtime =Time
SPh= Hour(SPtime)
SPm= Minute(SPtime)
SPTc= ((SPh *60) + SPm)
STTC= GetVAR(550)
TRT= (SPTc - STTc)

If GETparam(100) = 0 Then 
Open "c:/Mach3/TempLOG.txt" For Input  As #2
Do While Not EOF(2)
Line Input #2, filedata
ST= filedata
Loop
Close #2
ET=Time()
Open "C:/mach3/worklog.txt" For Append As #3
Write #3,"" &st &",  EndTime " &ET &" , Total Run Time " & TRT &"  Minutes"
Close #3
setparam(100,1)
End If


End Sub