8 lines
172 B
Text
8 lines
172 B
Text
(prin "Hit a key ... ")
|
|
(key)
|
|
(prinl)
|
|
(let Usec (usec)
|
|
(prin "Hit another key ... ")
|
|
(key)
|
|
(prinl)
|
|
(prinl "This took " (format (- (usec) Usec) 6) " seconds") )
|