12 lines
212 B
Rexx
12 lines
212 B
Rexx
::ROUTINE SysWait PUBLIC
|
|
use arg seconds
|
|
address system 'sleep' seconds
|
|
return
|
|
|
|
|
|
/* Handle program termination */
|
|
::ROUTINE ProgramHalt
|
|
signal off halt
|
|
Say "PROGRAM TERMINATED AT THE KEYBOARD"
|
|
exit 0
|