home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
bp7os2
/
video.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-09-30
|
725b
|
24 lines
Program DirectVideoAccess; {--- 1993 Matthias Withopf / c't ---}
Function VioGetBuf(Var Buf : PChar;Var BufSize : Word;
VioHandle : Word) : Word; Far;
External 'VIOCALLS' Index 31;
Function VioShowBuf(BufOfs : Word;BufSize : Word;
VioHandle : Word) : Word; Far;
External 'VIOCALLS' Index 43;
Var
Screen : PChar;
ScrSize : Word;
i,x,y : Integer;
Begin
VioGetBuf(Screen,ScrSize,0); { Lese Zeiger auf logischen Video-Buffer.}
For i := 0 to 24 do
Begin
x := i; y := i;
Screen[y * 160 + x * 2 ] := Chr(Ord('A') + i);
Screen[y * 160 + x * 2 + 1] := Chr(7 + i And 7);
End;
VioShowBuf(0,ScrSize,0); { Bildschirm aktualisieren. }
End.