RosettaCodeData/Task/Sleep/DCL/sleep.dcl
2015-11-18 06:14:39 +00:00

4 lines
150 B
Text

$ amount_of_time = p1 ! hour[:[minute][:[second][.[hundredth]]]]
$ write sys$output "Sleeping..."
$ wait 'amount_of_time
$ write sys$output "Awake!"