home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / ENVI.ZIP / ENV-DEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-03-28  |  949 b   |  34 lines
  1. {A program to illustrate the use of some DOS Environment functions.}
  2.  
  3. {$I DOS.INC}
  4.  
  5. {$I ENVIRONM.INC}
  6.  
  7. TYPE
  8.   MaxString = STRING[255];
  9.  
  10. VAR
  11.   StrIn,
  12.   StrOut : MaxString;
  13.  
  14. BEGIN
  15.   WriteLn('At the prompt, enter Q to quit, or just hit Enter to display this');
  16.   WriteLn('program''s "home directory".');
  17.   WriteLn;
  18.   REPEAT                      {until StrIn = 'Q'}
  19.     Write('Enter a string to be found in the DOS Environment: ');
  20.     ReadLn(StrIn);
  21.     IF NOT(StrIn = 'Q') THEN BEGIN
  22.       Write('The DOS Environment string for ');
  23.       IF StrIn = '' THEN WriteLn('this program''s home directory')
  24.       ELSE WriteLn(StrIn);
  25.       IF FoundInEnv(StrIn, StrOut) THEN WriteLn('is ', StrOut)
  26.       ELSE WriteLn('could not be found.');
  27.       WriteLn;
  28.     END;
  29.   UNTIL StrIn = 'Q';
  30. END.
  31.  
  32.                   { Karl Brendel, CIS 73307,3101
  33.                     718 East B Avenue
  34.                     Hutchinson, Kansas  67501 }