.;
.;		THIS COMMAND FILE CREATES A FILE
.;		(UIC.TXT) WHICH DESCRIBES THE UIC
.;		ON WHICH IT RESIDES.
.;
.;		WRITTEN JUNE 1980
.;			BY MARVIN BROWN (N.C.A.R.)
.;
	.ENABLE SUBSTITUTION
	.ENABLE QUIET
	.ENABLE ESCAPE
	.SETS LUIC <UIC>
	.SETS NAME ""
.LOOPG:	.ASKN [::0] GROUP ENTER GROUP NUMBER
	.IF GROUP = 0	.GOTO DONE
.LOOP:	.ASKN [::0] USER ENTER MEMBER NUMBER
	.IF USER = 0	.GOTO LOOPG
	SET /UIC=['GROUP','USER']
	PIP /BR
	PIP TI:=UIC.TXT
	.ASKS ENAM ENTER NAME ('NAME')
	.IFT <ESCAPE>	.GOTO DONEL
	.IF ENAM <> ""	.SETS NAME ENAM
	.ASKS TEXT ENTER TEXT
	.IFT <ESCAPE>	.GOTO DONEL
	.DISABLE QUIET
;	'GROUP','USER'		'NAME'	'TEXT'
	.ENABLE QUIET
	.OPEN UIC.TXT
.ENABLE DATA
	'GROUP','USER'		'NAME'	'TEXT'
.DISABLE DATA
	.CLOSE
	PIP UIC.TXT/PU
	PIP UIC.TXT/TR
.DONEL:	SET /UIC='LUIC'
	.GOTO LOOP
.;
.DONE:
.;
