home *** CD-ROM | disk | FTP | other *** search
/ Chip 1995 March / CHIP3.mdf / programm / prog2 / uglyform.ada < prev    next >
Encoding:
Text File  |  1991-07-01  |  417 b   |  15 lines
  1.   with Text_IO     ;                 use Text_IO;procedure UglyForm
  2. is begin Put   ("Good form ")                   ;Put("can aid in ")
  3. ;Put  ("understanding a program,");New_Line;Put
  4. ("and bad form ");Put   ("can make a program ");Put("unreadable.");
  5.    New_Line;end UglyForm;
  6.  
  7.  
  8.  
  9.  
  10. -- Result of execution
  11.  
  12. -- Good form can aid in understanding a program,
  13. -- and bad form can make a program unreadable.
  14.  
  15.