	.ENABLE SUBSTITUTION
	.ENABLE QUIET
	.SETS MODEM "TT007:"
	.IF MODEM EQ "'<FILSPC>'" .GOTO 10
	VT100
	SET /LOWER=TI:	
.10:	PSDI
	.IFNINS ...F77 INS $F77
	.IFNINS ...HEY INS $HEY
	.IFNINS ...LBR INS $LBR
	.IFNINS ...CVT INS $CVT
	.IFNINS ...SOS INS $SOS
	ASN TT4:=RM0:/GBL
	ALT ...EDT/PRI=75.
	ALT ...LIS/PRI=75.
	ALT ...SOS/PRI=75.
.;	SET /MAXEXT=177776
.;	.TESTFILE TI:
.;	RED '<FILSPC>'=CO0:
	CHD 100 5
	.DISABLE QUIET
;	Checking mailbox [100,5] now .....
	.ENABLE QUIET
	MAIL ?
	.DISABLE QUIET
;	Checking mailbox [100,1] now .....
	.ENABLE QUIET
	CHD 100 1
	MAIL ?
