8
Procedure TextOut(X,Y : Word;Const S : String);
12
Procedure TextOut(X,Y : Word;Const S : String);
18
P:=((X-1)+(Y-1)*ScreenWidth);
20
If P+M>ScreenWidth*ScreenHeight then
21
M:=ScreenWidth*ScreenHeight-P;
23
VideoBuf^[P+I-1]:=Ord(S[i])+($07 shl 8);
b'\\ No newline at end of file'