
TYPE
  iit$vt_timeout = record
    case on: boolean of
    = TRUE =
      length: nat$wait_time,
      purge: boolean,
    = FALSE =
    casend,
  recend;

*copyc nat$wait_time
