home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FINDSELF.ZIP / SELF.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1987-06-05  |  470 b   |  30 lines
  1. {$R+}
  2. program Self;
  3.  
  4. type
  5.   String64 = string[64];
  6.  
  7. function Self : String64;
  8. var
  9.   Temp   : String64;
  10.   I      : integer;
  11.   EnvSeg : integer absolute cseg:$002C;
  12. begin
  13.   I   := 0;
  14.   Temp:= '';
  15.   while memw[EnvSeg:I] <> 0 do
  16.     I:= succ(I);
  17.   I:= I + 4;
  18.   while mem[EnvSeg:I] <> 0 do
  19.     begin
  20.       Temp:= Temp + upcase(chr(mem[EnvSeg:I]));
  21.       I:= succ(I);
  22.     end;
  23.   Self:= Temp;
  24. end;
  25.  
  26. BEGIN
  27.   writeln('My Name is: ',Self,'.');
  28. END.
  29.  
  30.