home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 6.ddi / TASMEXMP.ZIP / ENVSTR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-10  |  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.