Contributor: DJ MURDOCH 
{$X+} { Need this for easy handling of Asciiz strings }
var
 parentseg : ^word;
 p : pchar;
begin
 parentseg := ptr(prefixseg,16ドル);
 p := ptr(parentseg^-1,8);
 writeln('I was launched by ',p);
end.
 




AltStyle によって変換されたページ (->オリジナル)
/