.; QUICKERR.CMD		AS OF 15-JUL-82
.;
.;	GET A QUICK ERROR SUMMARY BY DEVICE ON TI:   14-MAY-81 K.BETHE
.;
.;	MODIFIED FOR Mplus V.2	15-jul-82 k.bethe
.;
.ENABLE GLOBAL
.ENABLE SUBSTITUTION
	.SETS $DRV ""
	.SETS $QUAL "/DA:T"
	.SETS INUIC <UIC>
	SET /UIC=[1,6]
.SETF INSRPT
.IFNINS ...RPT .SETT INSRPT
.IFT INSRPT INS $RPT
;
;	SUMMARY OF ALL ERRORS ON FILE
;
RPT TI:=/W:N/T:E/DA:T
@[1,7]ERRLST
.IFT INSRPT REM RPT
	SET /UIC='INUIC'