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

  1. Program Example5;
  2.  
  3. { Program to demonstrate the Assign function. }
  4.  
  5. Var F : text;
  6.  
  7. begin
  8.   Assign (F,'');
  9.   Rewrite (f);
  10.   { The following can be put in any file by redirecting it
  11.     from the command line.}
  12.   Writeln (f,'This goes to standard output !');
  13.   Close (f);
  14.   Assign (F,'Test.txt');
  15.   rewrite (f);
  16.   writeln (f,'This doesn''t go to standard output !');
  17.   close (f);
  18. end.
  19.