home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / wunderki.zip / VIDEO.PAS < prev    next >
Pascal/Delphi Source File  |  1993-09-30  |  725b  |  24 lines
  1. Program DirectVideoAccess;  {--- 1993 Matthias Withopf / c't ---}
  2.  
  3.   Function VioGetBuf(Var Buf : PChar;Var BufSize : Word;
  4.              VioHandle : Word) : Word; Far;
  5.     External 'VIOCALLS' Index 31;
  6.   Function VioShowBuf(BufOfs : Word;BufSize : Word;
  7.               VioHandle : Word) : Word; Far;
  8.     External 'VIOCALLS' Index 43;
  9.  
  10. Var
  11.   Screen  : PChar;
  12.   ScrSize : Word;
  13.   i,x,y   : Integer;
  14. Begin
  15.   VioGetBuf(Screen,ScrSize,0); { Lese Zeiger auf logischen Video-Buffer.}
  16.   For i := 0 to 24 do
  17.     Begin
  18.       x := i; y := i;
  19.       Screen[y * 160 + x * 2    ] := Chr(Ord('A') + i);
  20.       Screen[y * 160 + x * 2 + 1] := Chr(7 + i And 7);
  21.     End;
  22.   VioShowBuf(0,ScrSize,0);     { Bildschirm aktualisieren. }
  23. End.
  24.