.;DOCLIST.CMD
.;COMMAND FILE FOR LISTING DOCUMENTS BY CATEGORY
.;MODIFIED BY T LAHEY 3-24-80
.;
	.ENABLE SUBSTITUTION
	.ENABLE ESCAPE
	.SETS A1 "MAC REPLACEMENT PROJECT"
	.SETS A2 "PARATRONICS UPGRADE PROJECT"
	.SETS A3 "SWIC SCANNER PROJECT"
	.SETN MAX 3.
	.GOTO 2
.1:
	.DISABLE QUIET
	;
	; THESE ARE THE POSSIBILITIES
	; 1) 'A1'
	; 2) 'A2'
	; 3) 'A3'
	;
	;
	.ENABLE QUIET
.2:
	.ASKN [::0.] W WHICH LIST
	.IFT <ESCAPE> .GOTO 1
	.IF W > MAX .GOTO 1
	.IF W = 1 .CHAIN [17,377]DTRDLIST
	.IF W = 2 .SETS A "DOCS2"
	.IF W = 3 .SETS A "DOCS4"
	.ASK N TERMINAL
	.IFT N PIP TI:='A'.TRC
	.IFF N  PRINT [17,377]'A'.TRC