.;DOCLIST.CMD
.;COMMAND FILE FOR LISTING DOCUMENTS BY CATEGORY
	.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:
	;
	; THESE ARE THE POSSIBILITIES
	; 1) 'A1'
	; 2) 'A2'
	; 3) 'A3'
	;
	;
.2:
	.ASKN [::0.] W WHICH LIST
	.IFT <ESCAPE> .GOTO 1
	.IF W > MAX .GOTO 1
	.IF W = 1 .SETS A "DOCS1"
	.IF W = 2 .SETS A "DOCS2"
	.IF W = 3 .SETS A "DOCS4"
	.SETS M "PRINT"
	.ASK N TERMINAL
	.IFT N .SETS M "TYPE"
	'M' [17,377]'A'.TRC