.;
.; SLUUICCK.CMD
.; CHECKS IF $UIC IS ALLOWED WITH THE $NAME
.; SETS $ANS IF SO AND $SUBPJ TO SUB-PROJECT NAME
.;
.; EDIT NUMBER = 0001
.; EDITED BY: D.B.CURTIS  9 APR 80  10:59
.;
	.SETF $ANS
	.PARSE <UIC> "[,]" A GR ME A
.CURT:	.IF $NAME NE "CURTIS" .GOTO BART
	.IF GR NE "76" .GOTO CURT1
	.IF ME NE "12" .GOTO CURT1
	.SETS $SUBPJ "CBASIC              "
	.GOTO YES
.CURT1:	.IF ME NE "10" .GOTO END
	.SETS SP1 "CBASIC              "
	.SETS SP2 "DATABASE            "
	.SETS SP3 "                    "
	.DISABLE QUIET
	; 1) 'SP1'
	;
	.SETN MAX 1
	.ASKN SEL WHICH SUB-PROJECT
	.IF SEL LE 0 .GOTO CURT1
	.IF SEL GT MAX .GOTO CURT1
	.SETS $SUBPJ SP'SEL'
	.GOTO YES

.BART:	.IF $NAME NE "BARTLETT" .GOTO LAHY
	.IF GR NE "76" .GOTO BART1
	.IF ME NE "11" .GOTO CURT1
	.SETS $SUBPJ "CBASIC              "
	.GOTO YES
.BART1: .GOTO END
.LAHY:	.IF $NAME NE "LAHEY" .GOTO BOBB
.BOBB:	.IF $NAME NE "BOBBITT" .GOTO WES
.WES:	.IF $NAME NE "WEST" .GOTO KRAMP
.KRAMP:	.IF $NAME NE "KRAMPER" .GOTO JOHNS
.JOHNS:	.IF $NAME NE "JOHNSON" .GOTO RANG
.RANG: .IF $NAME NE "RANGOR" .GOTO END
	.ASKS $SUBPJ SP
	.GOTO YES
.YES: .SETT $ANS
.END: