home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / doshelp / fdir / entpack.exe / !FDIR23.EXE / FENV.PAS < prev    next >
Pascal/Delphi Source File  |  1992-10-27  |  476b  |  18 lines
  1. { Diese Programm gibt im ERRORLEVEL zurück
  2.   welche Umgebungsvariablen existieren.
  3.  
  4.   1 = FDIR
  5.   2 = FDIRSIK
  6.   3 = FDIR und FDIRSIK
  7.   4 = Keine von beiden}
  8.  
  9. {$X-,B-,V+,A+,F-,O-,N-,E-,D-,L-,S+,R-,G-}
  10.  
  11. USES DOS;
  12.  
  13. Begin
  14.    if (GetEnv('FDIR') =  '') and (GetEnv('FDIRSIK') =  '') then Halt(4);
  15.    if (GetEnv('FDIR') <> '') and (GetEnv('FDIRSIK') <> '') then Halt(3);
  16.    if (GetEnv('FDIRSIK') <> '') then Halt(2);
  17.    if (GetEnv('FDIR')    <> '') then Halt(1);
  18. End.