program xmessage;

procedure x_message(var smess:string); external name 'x_message';

var
  smess : string; 
begin
  writeln('Starting program');
  smess:='Hello World';
  x_message(smess); smess := ' '; 
  writeln('done');
end. {main}