RosettaCodeData/Task/Sleep/Cache-ObjectScript/sleep.cos

8 lines
391 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
SLEEP
2020-02-17 23:21:07 -08:00
; the HANG command can use fractional seconds; the Awake line will be slightly off due to processing time
read "How long to sleep in seconds?: ",sleep
write !,"Sleeping... time is "_$ztime($piece($ztimestamp,",",2,2),1,2)
hang +sleep ; use + to cast numeric, if non-numeric will hang 0
write !,"Awake! Time is "_$ztime($piece($ztimestamp,",",2,2),1,2)
quit