PROCEDURE fred$check_for_special_strings (lookup_string)
   LOCAL local_string;

   local_string := lookup_string;
   if (SUBSTR (local_string,1,1) = "\") then
      CHANGE_CASE (local_string,UPPER);      
      if (SUBSTR (local_string,2,2) = "FF") then
	 RETURN (ASCII (12));
      else 
	 if (SUBSTR (local_string,2,2) = "LF") then
      	    RETURN (ASCII (10));
	 else
            if (SUBSTR (local_string,2,2) = "CR") then
	       RETURN (ASCII (13));
	    else
               if (SUBSTR (local_string,2,2) = "VT") then
	          RETURN (ASCII (11));
	       else
                  if (SUBSTR (local_string,2,2) = "HT") then
	             RETURN (ASCII (9));
	          else
                     if (SUBSTR (local_string,2,3) = "ESC") then
	                RETURN (ASCII (27));
	             else
                        if (SUBSTR (local_string,2,3) = "BEL") then
	                   RETURN (ASCII (7));
	                endif;
	             endif;
	          endif;
               endif;
	    endif;
	 endif;
      endif;
   endif;
   RETURN (local_string);
ENDPROCEDURE;