home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / MODEMS / MODEM / PC-PSUIT.LBR / VIDEO.PQS / VIDEO.PAS
Pascal/Delphi Source File  |  2000-06-30  |  1KB  |  47 lines
  1.  
  2. { Turns inverse video on or off on Kaypro '84 series.
  3.   example: InVideo(1);  <---- turns inverse video on. }
  4.  
  5. Procedure InVideo (Switch : Byte);
  6.   Begin
  7.     Case (Switch) Of
  8.       1       : Write(ESC,'B0',ESC,'B1');
  9.       0       : Write(ESC,'C0',ESC,'C1');
  10.       Else      Exit
  11.     End
  12.   End;
  13.  
  14. { Turns half intensity video on or off on Kaypro '84 series.  Same as
  15.   LowVideo command but with syntax like the above procedure. }
  16.  
  17. Procedure HalfVideo (Switch : Byte);
  18.   Begin
  19.     Case (Switch) Of
  20.       1       : Write(ESC,'B1');
  21.       0       : Write(ESC,'C1');
  22.       Else      Exit
  23.     End
  24.   End;
  25.  
  26. { Turns flashing video on or off on Kaypro '84 series. }
  27.  
  28. Procedure FlashVideo (Switch : Byte);
  29.   Begin
  30.     Case (Switch) Of
  31.       1       : Write(ESC,'B2');
  32.       0       : Write(ESC,'C2');
  33.       Else      Exit
  34.     End
  35.   End;
  36.  
  37. { Turns underlining on or off on Kaypro '84 series. }
  38.  
  39. Procedure UnderVideo (Switch : Byte);
  40.   Begin
  41.     Case (Switch) Of
  42.       1       : Write(ESC,'B3');
  43.       0       : Write(ESC,'C3');
  44.       Else      Exit
  45.     End
  46.   End;
  47.