2025-05-05 13:52:40 +00:00
|
|
|
::ROUTINE SysWait PUBLIC
|
2025-05-11 20:18:18 +00:00
|
|
|
use arg seconds
|
|
|
|
|
address system 'sleep' seconds
|
|
|
|
|
return
|
2025-05-05 13:52:40 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Handle program termination */
|
|
|
|
|
::ROUTINE ProgramHalt
|
|
|
|
|
signal off halt
|
|
|
|
|
Say "PROGRAM TERMINATED AT THE KEYBOARD"
|
2025-05-11 20:18:18 +00:00
|
|
|
exit 0
|
|
|
|
|
|
