
  TYPE
    rat$scratch_segment = record
      sequence_p: ^SEQ ( * ),
      reset_p: ^cell,
    recend;

