mim/development/mim/20/rdtime.mud

   1 <DEFINE T1 (NM "AUX" CH (TM <TIME>))
   2   <COND (<SET CH <OPEN "READ" .NM>>
   3          <REPEAT ()
   4            <READ .CH '<RETURN>>>
   5          <COND (<==? <TYPEPRIM FIX> FIX><CLOSE .CH>)>
   6          <- <TIME> .TM>)>>
   7
   8 <DEFINE T2 (NM "AUX" (TM <TIME>))
   9   <FLOAD .NM>
  10   <- <TIME> .TM>>