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

procedure SysSleep(untilReset,emergency:Boolean); inline($4E4F,$­­A0B2);

function CallPP(S:string):string;
begin
 SysSleep(false,false);
end;

begin
 iBasCallPP:=CallPP;
end.

' iBSleep.ibas
{CREATORID "LDxx"}
{VERSION "1.0"}

BEGIN
 A$=CALLPP$(100,"")
 A=WAITEVENT
END