RosettaCodeData/Task/Sleep/DCL/sleep.dcl

5 lines
150 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
$ amount_of_time = p1 ! hour[:[minute][:[second][.[hundredth]]]]
$ write sys$output "Sleeping..."
$ wait 'amount_of_time
$ write sys$output "Awake!"