{<<<< CapsLock >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 9.1 -- Last mod 2/1/86    }

FUNCTION CapsLock(Ch : Char) : Char;

CONST
  Lowercase : SET OF Char = ['a'..'z'];

BEGIN
  IF Ch IN Lowercase THEN CapsLock := Chr(Ord(Ch)-32)
    ELSE CapsLock := Ch
END;


{<<<< DownCase >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 9.1 -- Last mod 2/1/86    }

FUNCTION DownCase(Ch : Char) : Char;

CONST
  Uppercase : SET OF Char = ['A'..'Z'];

BEGIN
  IF Ch IN Uppercase THEN DownCase := Chr(Ord(Ch)+32)
    ELSE DownCase := Ch
END;


{<<<< IsWhite >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 9.1 -- Last mod 2/1/86    }

FUNCTION IsWhite(Ch : Char) : Boolean;

CONST
  Whitespace : SET OF Char = [#8,#10,#12,#13,' '];

BEGIN
  IsWhite := Ch IN WhiteSpace
END;
