
  TYPE
    fmt$cycle_device_info = record
      case device_assigned: boolean of
      = FALSE =
        ,
      = TRUE =
        device_class: rmt$device_class,
        cycle_formerly_opened_info: fmt$cycle_formerly_opened_info,
      casend,
    recend;

*copyc fmt$cycle_formerly_opened_info
*copyc rmt$device_class
