home *** CD-ROM | disk | FTP | other *** search
/ cs.rhul.ac.uk / www.cs.rhul.ac.uk.zip / www.cs.rhul.ac.uk / pub / CS375 / parallel.pfc < prev    next >
Text File  |  1999-01-04  |  318b  |  31 lines
  1. (* A demonstration of parallel processes in Pascal-FC. *)
  2.  
  3. program parallel;
  4.  
  5. process numbers;
  6. var
  7.   i:integer;
  8. begin
  9.   for i := 1 to 10 do
  10.     writeln(i);
  11. end;
  12.  
  13. process letters;
  14. var
  15.   c:char;
  16. begin
  17.   for c := 'a' to 'j' do
  18.     writeln(c);
  19. end;
  20.  
  21. begin (* program *)
  22.  
  23.   cobegin
  24.  
  25.     numbers;
  26.     letters
  27.  
  28.   coend
  29.  
  30. end.
  31.