home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / adav313.zip / gnat-3_13p-os2-bin-20010916.zip / emx / gnat / examples / instr-child.ads < prev    next >
Text File  |  2000-07-19  |  315b  |  23 lines
  1. package Instr.Child is 
  2.  
  3.    subtype Thousand is Integer range 0 .. 1000;
  4.    
  5.    type Accurate_Clock is new Clock with record 
  6.       MilliSec : Thousand := 0;
  7.    end record;
  8.  
  9.    procedure Display_Value (C : Accurate_Clock);   
  10.    procedure Increment (C : in out Accurate_Clock; inc : Integer := 1); 
  11.  
  12. end;
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.  
  22.  
  23.