home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c081_11 / 9.ddi / CHAPXMPL.ZIP / ENVTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-02-13  |  707 b   |  27 lines
  1. { Turbo Assembler    Copyright (c) 1988, 1991 By Borland International, Inc.
  2.  
  3.   ENVTEST.PAS - Example of calling assembler to look for environment strings.
  4.  
  5.   From the Turbo Assembler Users Guide - Interfacing Turbo Assembler with
  6.                                             Turbo Pascal
  7.  }
  8.  
  9. program EnvTest;
  10. { program looks for environment strings }
  11.  
  12. var
  13.   EnvVariable : string;
  14.   EnvValue : string;
  15.  
  16. {$F+}
  17.  
  18. function EnvString(s:string) : string; external;
  19. {$L ENVSTR.OBJ}
  20. {$F-}
  21. begin
  22.   EnvVariable := 'PROMPT';
  23.   EnvValue := EnvString(EnvVariable);
  24.   if EnvValue='' then EnvValue := '*** not found ***';
  25.   Writeln('Environment Variable: ',EnvVariable,'  Value: ',EnvValue);
  26. end.
  27.