	.ENABLE	SUBSTITUTION
	.;
	.; TEST PROGRAM "TISTAT".
	.;
	.SETN	Z	0
	.IFNINS	...TIS	INS SY:TISTAT/TASK=...TIS
	TISTAT
	.SETN	TISTAT	<EXSTAT>
	.;
	.; CHECK FOR SUCCESSFUL COMPLETION.
	.;
	.IF	Z EQ TISTAT&1		.GOTO	50
	.IF	Z EQ TISTAT&6		.GOTO	100
.50:	;
	; Execution failed -- too bad.
	;
	.STOP	4

.100:	.;
	.; CHECK FOR SPAWNED OPERATION.
	.;
	.IF	Z  NE TISTAT&2000	.GOTO	200
	;
	; The installed version of AT. does not support spawning.
	; It therefore does not receive an exit status from tasks
	; run by it.  TISTAT is useless.  Oh, well.
	;
	.STOP	4

.200:	.;
	.; PRINT OUT THE FEATURES OF THIS TERMINAL.
	.;
	.SETN	TERM	TISTAT/4000
	;
	; You are currently running on TT'TERM':.
	;
	.IF	Z EQ TISTAT&10	; TT'TERM': is not privileged.
	.IF	Z NE TISTAT&10	; TT'TERM': is privileged.
	.IF	Z EQ TISTAT&20	; TT'TERM': is not a CRT terminal.
	.IF	Z NE TISTAT&20	; TT'TERM': is a CRT terminal.
	.IF	Z EQ TISTAT&40	; TT'TERM': does not support lower case.
	.IF	Z NE TISTAT&40	; TT'TERM': supports lower case.
	.IF	Z EQ TISTAT&100	; TT'TERM': is not set SLAVE.
	.IF	Z NE TISTAT&100	; TT'TERM': is set SLAVE.
	.IF	Z EQ TISTAT&200	; TT'TERM': does not have hardware form-feed.
	.IF	Z NE TISTAT&200	; TT'TERM': has hardware form-feed.
	.IF	Z EQ TISTAT&400	; TT'TERM': is less than 81 characters wide.
	.IF	Z NE TISTAT&400	; TT'TERM': is more than 80 characters wide.
	;
