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