program FirstEffort;

var i : integer;

 begin

 MyOwnFunction('Embedded Pascal Test');

 for i := 0 to 19 do
 begin
 TC_Wrapp_line(i*10,0,0,400,400,0);
 end;

 TC_Wrapp_Text('Hello World',20,20,0,50);

end.