{--------------------------------------------------}
{                   FORCE_CASE                     }
{     Forces a string to upper or lower case.      }
{               By Jeff Duntemann                  }
{                                                  }
{ ASSUMES:                                         }
{   TYPE STRING255 = STRING[255];                  }
{                                                  }
{                         Turbo Pascal V2.0        }
{                         Last update: 12/11/84    }
{--------------------------------------------------}

FUNCTION FORCE_CASE(UP : BOOLEAN; TARGET : STRING255) : STRING255;

CONST UPPERCASE : SET OF CHAR = ['A'..'Z'];
      LOWERCASE : SET OF CHAR = ['a'..'z'];

VAR I : INTEGER;

BEGIN
  IF UP THEN FOR I := 1 TO LENGTH(TARGET) DO
    IF TARGET[I] IN LOWERCASE THEN
      TARGET[I] := UPCASE(TARGET[I])
    ELSE { NULL }
  ELSE FOR I := 1 TO LENGTH(TARGET) DO
    IF TARGET[I] IN UPPERCASE THEN
      TARGET[I] := CHR(ORD(TARGET[I])+32);
  FORCE_CASE := TARGET
END;