new directive $EVAL
functions supported: PI, RND, SQRT(x), SQR(x), ARCTAN2(x,y), COS(x), SIN(x), TAN(x), EXP(x), LN(x), ABS(x), INT(x), POWER(x,y), ARCTAN(x)
{$eval par1[,par2],"expression"}
uses crt;
const
width = 40;
height = 30;
scr = $bc40;
var
tab: array of word = [ {$eval HEIGHT, "scr + :1 * WIDTH" } ];
v: word;
begin
for v in tab do writeln(v);
end.