home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l225 / 2.img / T-MASM / EXAMPLES / ENVSTR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-11-11  |  396 b   |  17 lines
  1. program EnvTest;
  2. { program looks for environment strings }
  3.  
  4. var
  5.   EnvVariable : string;
  6.   EnvValue : string;
  7.  
  8. function EnvString(s:string) : string; far; external;
  9. {$L ENVSTR.OBJ}
  10. begin
  11.   EnvVariable := 'PROMPT';
  12.   EnvValue := EnvString(EnvVariable);
  13.   if EnvValue='' then EnvValue := '*** not found ***';
  14.   Writeln('Environment Variable:',EnvVariable,'Value:',EnvValue);
  15. end.
  16.  
  17.