{$code appl,LDIH,code,100}
program iBHelloPP;
type iBasFunType=function(S:string):string;
var iBasCallPP:iBasFunType;

type
 Int16=-32768..32767;
 UInt16=0..65535;

procedure WinDrawChars(const chars:string;len:Int16;x,y:UInt16); inline($4E4F,$A220);

function CallPP(S:string):string;
begin
 WinDrawChars(S,Length(S),2,30);
 CallPP:='Hello dear iziBasic';
end;

begin
 iBasCallPP:=CallPP;
end.
 