home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / misc.swg / 0081_Program Origin.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-27  |  218 b   |  12 lines
  1.  
  2. {$X+}  { Need this for easy handling of Asciiz strings }
  3. var
  4.   parentseg : ^word;
  5.   p : pchar;
  6. begin
  7.   parentseg := ptr(prefixseg,$16);
  8.   p := ptr(parentseg^-1,8);
  9.   writeln('I was launched by ',p);
  10. end.
  11.  
  12.