STARTUP =建坐标系/开始,回调:, LIST= 是
建坐标系/终止
模式/手动
加载测头/OUTCAL_OLS
格式/文本,选项,标题,符号, ;测定值,标称值,公差,偏差,超差, ,
注释/运算符,是,Ready to start waiting
赋值/START_WAITING = SYSTEMTIME("H:m:s")
注释/文档,否,The following CALL will wait for about 10 seconds
CS1 =调用子例程/WAIT_FOR,:10,,
注释/运算符,是,"Started waiting at "+START_WAITING
,"Waited until "+SYSTEMTIME("H:m:s")
转到/END_PROGRAM
注释/文档,否,Waiting code starts here
注释/文档,否,This code waits for about
,SECONDS_TO_WAIT +1/-0 seconds
注释/文档,否,However, you can not wait for less
,than 2 seconds or more than 86000 seconds
子例程/WAIT_FOR,
SECONDS_TO_WAIT = 5 : THE NUMBER OF SECONDS TO WAIT,
=
IF/SECONDS_TO_WAIT<2
转到/END_WAITING
END_IF/
IF/SECONDS_TO_WAIT>86000
转到/END_WAITING
END_IF/
赋值/START_TIME = SYSTEMTIME("H:m:s")
赋值/START_HOUR = ELEMENT(1,":",START_TIME)
赋值/START_MINUTE = ELEMENT(2,":",START_TIME)
赋值/START_SECOND = ELEMENT(3,":",START_TIME)
赋值/END_SECOND = START_SECOND+INT(SECONDS_TO_WAIT % 60)
赋值/END_MINUTE = START_MINUTE+INT((SECONDS_TO_WAIT % 3600) / 60)
赋值/END_HOUR = START_HOUR+INT(SECONDS_TO_WAIT / 3600)
IF/END_SECOND>=60
赋值/END_SECOND = END_SECOND-60
赋值/END_MINUTE = END_MINUTE+1
END_IF/
IF/END_MINUTE>=60
赋值/END_MINUTE = END_MINUTE-60
赋值/END_HOUR = END_HOUR+1
END_IF/
IF/END_HOUR>=24
赋值/END_HOUR = END_HOUR-24
END_IF/
赋值/END_TIME = END_HOUR+":"+END_MINUTE+":"+END_SECOND
注释/文档,否,The loop below waits until we reach the correct time
DO/
赋值/CURRENT_TIME = SYSTEMTIME("H:m:s")
UNTIL/CURRENT_TIME==END_TIME
END_WAITING=标号/
终止子例程/
注释/文档,否,Waiting code ends here
END_PROGRAM=标号/