Test suite results for test file tbs/tb0473.pp

Test run data :

t_id 1278
t_adddate 2004/03/24
t_result 0
t_knownrunerror 0

tr_id	run	tr_ok	tr_skip	tr_result
-81790963	848896	True	False	Successfully run

Record count: 1

const
  w = $5000;
begin
  writeln(hi(w));
  if hi(w)<>$50 then
    begin
      writeln('Error!');
      halt(1);
    end;  
end.