INCLUDE	'SYSDI.LDF'
	CALL	THREAD
100	CONTINUE
	CALL 	BOX (3,15,21,40)
	CALL	TRMCON
	GOTO 	100
	END