::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