t_id
1059
t_adddate
2003/10/14
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
unit {vidutil}tu2002; 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.