home *** CD-ROM | disk | FTP | other *** search
/ cs.rhul.ac.uk / www.cs.rhul.ac.uk.zip / www.cs.rhul.ac.uk / pub / CS375 / test.pfc < prev    next >
Text File  |  1999-01-04  |  203b  |  16 lines
  1. program test;
  2.  
  3. (* Test program for Pascal-FC *)
  4.  
  5. var 
  6.    i : integer;
  7.  
  8. begin
  9.    writeln('This is a test program for Pascal-FC.');
  10.    for i := 1 to 10 do
  11.       writeln(i);
  12.    writeln('Finished.');
  13. end.
  14.  
  15.  
  16.