home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 181.img / TASM-101.ZIP / ENVTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1988-10-31  |  408b  |  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.