Table Of Contents | Index |
Example:In this example, ExamineLastLine is executed once each new line and is scaned for the word "Time Sync:". If the word is found it sets the server time to the value following that word.
ComNewLineProgram = Loc ExamineLastLineProcedure ExamineLastLine var St P P = pos('Time Sync:',ComLastLine) if P = 0 then Return St = mid(ComLastLine,P + 11,17) ;read Date and Time NovServerTime = TimeOf(St) EndProc
Category: | Modem |
---|
Table Of Contents | Index |
|