PROCEDURE fred$delete_controls (this_buffer)

   POSITION (BEGINNING_OF (this_buffer));

   fred$delete_control_string (ASCII(0),"<NUL>");
   fred$delete_control_string (ASCII(1),"<SOH>");
   fred$delete_control_string (ASCII(2),"<STX>");
   fred$delete_control_string (ASCII(3),"<ETX>");
   fred$delete_control_string (ASCII(4),"<EOT>");
   fred$delete_control_string (ASCII(5),"<ENQ>");
   fred$delete_control_string (ASCII(6),"<ACK>");
   fred$delete_control_string (ASCII(7),"<BEL>");
   fred$delete_control_string (ASCII(8),"<BS>");
   fred$delete_control_string (ASCII(14),"<SO>");
   fred$delete_control_string (ASCII(15),"<SI>");
   fred$delete_control_string (ASCII(16),"<DLE>");
   fred$delete_control_string (ASCII(17),"<DC1>");
   fred$delete_control_string (ASCII(18),"<DC2>");
   fred$delete_control_string (ASCII(19),"<DC3>");
   fred$delete_control_string (ASCII(20),"<DC4>");
   fred$delete_control_string (ASCII(21),"<NAK>");
   fred$delete_control_string (ASCII(22),"<SYN>");
   fred$delete_control_string (ASCII(23),"<ETB>");
   fred$delete_control_string (ASCII(24),"<CAN>");
   fred$delete_control_string (ASCII(25),"<EM>");
   fred$delete_control_string (ASCII(26),"<SUB>");
   fred$delete_control_string (ASCII(27),"<ESC>");
   fred$delete_control_string (ASCII(28),"<FS>");
   fred$delete_control_string (ASCII(29),"<GS>");
   fred$delete_control_string (ASCII(30),"<RS>");
   fred$delete_control_string (ASCII(31),"<US>");

ENDPROCEDURE;


PROCEDURE fred$delete_control_string(control_char,control_string)
   LOCAL found_range;

   on_error
      found_range := 0;
      RETURN;
   endon_error;

   loop
      found_range := SEARCH (control_string, forward, exact);
      exitif found_range = 0;
      POSITION (found_range);
      ERASE (found_range);
      COPY_TEXT (control_char);
   endloop;

ENDPROCEDURE;