{ Turns inverse video on or off on Kaypro '84 series.
  example: InVideo(1);  <---- turns inverse video on. }

Procedure InVideo (Switch : Byte);
  Begin
    Case (Switch) Of
      1       : Write(ESC,'B0',ESC,'B1');
      0       : Write(ESC,'C0',ESC,'C1');
      Else      Exit
    End
  End;

{ Turns half intensity video on or off on Kaypro '84 series.  Same as
  LowVideo command but with syntax like the above procedure. }

Procedure HalfVideo (Switch : Byte);
  Begin
    Case (Switch) Of
      1       : Write(ESC,'B1');
      0       : Write(ESC,'C1');
      Else      Exit
    End
  End;

{ Turns flashing video on or off on Kaypro '84 series. }

Procedure FlashVideo (Switch : Byte);
  Begin
    Case (Switch) Of
      1       : Write(ESC,'B2');
      0       : Write(ESC,'C2');
      Else      Exit
    End
  End;

{ Turns underlining on or off on Kaypro '84 series. }

Procedure UnderVideo (Switch : Byte);
  Begin
    Case (Switch) Of
      1       : Write(ESC,'B3');
      0       : Write(ESC,'C3');
      Else      Exit
    End
  End;