projects
/
pdp10-muddle.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
fce2eb0c8539be9115166d1d938d3920f763c427
[pdp10-muddle.git]
/
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>>