PROGRAM RETVAL2;

Var myval : Integer Absolute $5000;

Procedure getthis;
begin
 inline($11/$FE/$FF/
        $21/$00/$50/
        $72/
        $23/
        $73);
end;

begin
 getthis;
 write(myval);
end.