home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / moreout.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  565 b   |  33 lines
  1. with Text_IO;
  2. use Text_IO;
  3.  
  4. procedure MoreOut is
  5.  
  6. begin
  7.  
  8.    Put("This is a line of text to ");
  9.    Put("output to the monitor.");
  10.    New_Line;
  11.    Put("This is another line.");
  12.    New_Line(2);
  13.    Put("And this is a third.");
  14.    New_Line(1);
  15.  
  16.    Put_Line("This is the next to last line.");
  17.    Put_Line("And this is the last line.");
  18.  
  19. end;
  20.  
  21.  
  22.  
  23.  
  24. -- Result of execution
  25.  
  26. -- This is a line of text to output to the monitor.
  27. -- This is another line.
  28. --
  29. -- And this is a third.
  30. -- This is the next to last line.
  31. -- And this is the last line.
  32.  
  33.