home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG138.ARC / TPSORC12.LBR / OUTPUT.PYS / OUTPUT.PYS
Text File  |  1979-12-31  |  640b  |  43 lines
  1. program output;
  2.  
  3. procedure example1;
  4. begin 
  5.   writeln(1,2.0,' 3');
  6.   writeln(1);
  7.   writeln(2.0);
  8.   writeln(' 3');
  9. end;
  10.  
  11. procedure example2;
  12. begin 
  13.   write(1,2.0,' 3');
  14.   write(1);
  15.   write(2.0);
  16.   write(' 3');
  17. end;
  18.  
  19. procedure example3;
  20. begin 
  21.   write(1,2.0,' 3');
  22.   writeln;
  23.   write(1);
  24.   writeln;
  25.   write(2.0);
  26.   writeln;
  27.   write(' 3');
  28.   writeln;
  29. end;
  30.  
  31. begin
  32.   writeln('Example 1 - Writeln procedure:');
  33.   writeln;
  34.   example1;
  35.   writeln;
  36.   writeln('Example 2 - Write procedure:');
  37.   writeln;
  38.   example2;
  39.   writeln;
  40.   writeln('Example 3 - Write and writeln procedures:');
  41.   writeln;
  42.   example3;
  43.   w