home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 6 / FreshFish_September1994.bin / bbs / gnu / gnat-1.80-src.lha / GNU / src / amiga / gnat-1.80 / examples / instr-child.ads < prev    next >
Encoding:
Text File  |  1994-06-23  |  315 b   |  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.