mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-18 10:58:36 +02:00
26 lines
382 B
ObjectPascal
26 lines
382 B
ObjectPascal
unit vidutil;
|
|
|
|
Interface
|
|
|
|
uses
|
|
video;
|
|
|
|
Procedure TextOut(X,Y : Word;Const S : String);
|
|
|
|
Implementation
|
|
|
|
Procedure TextOut(X,Y : Word;Const S : String);
|
|
|
|
Var
|
|
W,P,I,M : Word;
|
|
|
|
begin
|
|
P:=((X-1)+(Y-1)*ScreenWidth);
|
|
M:=Length(S);
|
|
If P+M>ScreenWidth*ScreenHeight then
|
|
M:=ScreenWidth*ScreenHeight-P;
|
|
For I:=1 to M do
|
|
VideoBuf^[P+I-1]:=Ord(S[i])+($07 shl 8);
|
|
end;
|
|
|
|
end. |