home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adapm_15.zip / err3.adb < prev    next >
Text File  |  1994-02-08  |  389b  |  21 lines
  1. with Text_Io;
  2.  
  3. procedure Err3 is 
  4.  
  5.     type Point is
  6.       record
  7.         X : Integer;
  8.         Y : Integer;
  9.       end record;
  10.  
  11.    S_Point : Point := (10, 20);
  12.  
  13.    begin
  14.  
  15.      Text_Io.Put_Line ( "Hello Bill " 
  16.                          & Integer'Image (S_Point.X)
  17.                             & ", "
  18.                              & Integer'Image (S_Point.Y));
  19.  
  20.  
  21.   end Err3;