1. 令 a = Inputbox("时间设定（1秒=1000）")
2. 令 mm = Inputbox("模式设定0注销1关机2重启")
3. 延时 a 毫秒
4. 标记 A
5. 如果 mm = 0 则
6.     调用 Sys.ExitOS(0)
7. 条件结束
8. 如果 mm = 1 则
9.     调用 Sys.ExitOS(1)
10. 条件结束
11. 如果 mm = 2 则
12.     调用 Sys.ExitOS(2)
13. 条件结束
14. 子程序 OnScriptExit()
15.     跳转到标记 A(子程序 OnScriptExit)
16. 子程序结束