home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adapm_15.zip / li.adb < prev    next >
Text File  |  1994-02-10  |  658b  |  18 lines
  1. with Text_Io;
  2.  
  3.  procedure LI is
  4.     Num  : Long_Long_Integer := 500_000_000_000_000;
  5.     Num2 : Long_Long_Integer := 500_000_000;
  6.   begin
  7.     Text_Io.Put ("Last => "); 
  8.     Text_Io.Put_Line (Long_Long_Integer'Image (Long_Long_Integer'last));
  9.     Text_Io.Put ("First => "); 
  10.     Text_Io.Put_Line (Long_Long_Integer'Image (Long_Long_Integer'first));
  11.     Text_Io.Put ("First => "); 
  12.     Text_Io.Put_Line (Long_Long_Integer'Image (Long_Long_Integer'first / 1024));
  13.     Text_Io.Put ("Num => "); 
  14.     Text_Io.Put_Line (Long_Long_Integer'Image (Num));
  15.     Text_Io.Put ("Num2 => "); 
  16.     Text_Io.Put_Line (Long_Long_Integer'Image (Num2));
  17.   end LI;
  18.