CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX
	CLL CLA
	CDF 0
	TAD I (7771
	CDF 10
	AND	(4		/IS SYSTEM SET TO VT278
	SNA CLA
	JMP I	CLRSCN		/NO RETURN
	CDF 0			/IS BATCH RUNNING
	TAD I	(7777
	CDF 10
	AND	(2000
	SZA CLA
	JMP I	CLRSCN
	TAD	(CLRMSG
	DCA	CLRXXX
CLR1,	TAD I	CLRXXX
	SNA
	JMP I	CLRSCN
	JMS I	(TTY
	ISZ	CLRXXX
	JMP	CLR1

CLRMSG,	33;"[;"H;33;"[;"2;"J;0	/CLEAR SCREEN AND PLACE CURSOR AT HOME
CLRX