home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / proced1.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  404 b   |  26 lines
  1.                                        -- Chapter 8 - Program 1
  2. with Text_IO;
  3. use Text_IO;
  4.  
  5. procedure Proced1 is
  6.  
  7.       procedure Write_A_Line is
  8.       begin
  9.          Put("This is a line of text.");
  10.          New_Line;
  11.       end Write_A_Line;
  12.  
  13. begin
  14.    Write_A_Line;
  15.    Write_A_Line;
  16. end Proced1;
  17.  
  18.  
  19.  
  20.  
  21. -- Result of execution
  22.  
  23. -- This is a line of text.
  24. -- This is a line of text.
  25.  
  26.