program ATTRTEXT { www.merlyn.demon.co.uk  >= 2001-09-15 } ;

{ With no parameter, returns screen attribute byte; with parameter 0..255,
  sets it.  Half the byte is FG, half BG }

uses Crt ;

var J : integer ; N : byte ;
begin if ParamCount=0 then Writeln(TextAttr)
  else begin Val(ParamStr(1), N, J) ; TextAttr := N ; Writeln(' ') end ;
end.