{<<<< WriteHi >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 20.4 -- Last mod 2/1/86   }
{ For use on Sol/20, Xerox 820, and others. }
{ NOT for use on the IBM PC! }

PROCEDURE WriteHi(MyText : String255; CRLF : Boolean);

VAR 
  I : Integer;

BEGIN
  FOR I := 1 TO Length(MyText) DO SetBit(MyText[I],7);
  IF CRLF THEN Writeln(MyText) ELSE Write(MyText)
END;
