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

PROCEDURE Capslock(VAR MyString : String255);

VAR
  I : Integer;

BEGIN
  FOR I := 1 TO Length(MyString) DO
    MyString[I] := UpCase(MyString[I]
END