.TITLE	SLEEP -- Put your terminal to sleep
	.Ident	"V2.0"
	.ENabl	LC
	.NLIST	BEX,ME,CND
 
	.MCALL	PRINT,TIOINI,EXIT$S
 
	TIOINI	1,READ,,PROMPT			; Set up terminal for IO.RPR
 
SLEEP:	MOV	SP,R0				; Get pointer
	T.IN	R0,#1,#PR1,#PR1s		; Show ZZZ message and wait
	EXIT$S					; And exit with success
	.END	SLEEP