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