17 lines
352 B
Text
17 lines
352 B
Text
START ;Demonstrate the SLEEP function
|
|
|
|
RECORD SLEEPING
|
|
, A8, "Sleeping"
|
|
|
|
RECORD WAKING
|
|
, A6,"Awake"
|
|
|
|
PROC
|
|
XCALL FLAGS (0007000000,1) ;Suppress STOP message
|
|
|
|
OPEN(8,O,'TT:')
|
|
WRITES(8,SLEEPING)
|
|
SLEEP 30 ; Sleep for 30 seconds
|
|
WRITES(8,WAKING)
|
|
|
|
END
|