t_id
1059
t_adddate
2003/10/14
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949663271 | 1015615 | False | False | Failed to compile |
Record count: 1
tu2002.pp(6,4) Fatal: Can't find unit video used by tu2002 Fatal: Compilation aborted
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.