home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Dev / fpc / source / docs / refex / ex7.pp < prev    next >
Encoding:
Text File  |  2000-01-01  |  193 b   |  12 lines

  1. Program Example7;
  2.  
  3. { Program to demonstrate the ChDir function. }
  4.  
  5. begin
  6.   {$I-}
  7.   ChDir (ParamStr(1));
  8.   if IOresult<>0 then 
  9.     Writeln ('Cannot change to directory : ',paramstr (1));
  10. end.
  11.  
  12.