home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tasm / chapxmpl.arc / ENVTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-10-09  |  443 b   |  20 lines
  1. program EnvTest ;
  2. { Programm zum Suchen eines Environment-Strings }
  3.  
  4. var
  5.   EnvVariable : STRING ;
  6.   EnvWert : STRING ;
  7.  
  8. {$F+}
  9.  
  10. function EnvString ( s : STRING ) : STRING ; EXTERNAL ;
  11. {$L ENVSTR.OBJ}
  12. {$F-}
  13. begin
  14.   EnvVariable := 'PROMPT' ;
  15.   EnvWert := EnvString ( EnvVariable ) ;
  16.   if EnvWert = '' then
  17.     EnvWert := '*** Nicht Gefunden ***' ;
  18.   WriteLn ( 'Environment Variable: ', EnvVariable, ' Wert: ', EnvWert ) ;
  19. end.
  20.