#TITLE	"Screen routine tester"
	#SUBTTL	"Copyright (C) John E. Lauber"
	#PAGE	132,66
;
	MODULE	"SCRTST"
;
	TLINK	"X"
;
	#INCLUDE "EQUATE"
;
	LOC	Code#
;
START:
	MOV	CL,=0
	CALL	SCREEN#			; initialize the screen
;
__LOOP:	MOV	CL,=DCFCN
	MOV	DL,=0XFF
	INT	OPSYSC
	OR	AL,AL
	JZ	__LOOP
	MOV	CL,AL
	CMP	AL,='~'
	JZ	__EXIT
	CALL	SCREEN#
	JMPS	__LOOP
;
__EXIT:	RETF
;
KBDLOK::
KBDULK::
WAIT::
SIGNAL::
	RET
;
	END	START