11 lines
356 B
Text
11 lines
356 B
Text
;
|
|
; Sleep for DBL version 4 by Dario B.
|
|
;
|
|
PROC
|
|
;------------------------------------------------------------------
|
|
XCALL FLAGS (0007000000,1) ;Suppress STOP message
|
|
|
|
OPEN(1,O,'TT:')
|
|
DISPLAY (1,"Sleeping...",10)
|
|
SLEEP 10 ;Sleep for 10 seconds
|
|
DISPLAY (1,"Awake!",10)
|