	# This scripts reads the description strings of the
	# event profiles in $1 and writes them onto the blackboard
	# Last changes: 20/6/91
{
pro <<.
-1
2
$1
-
f
.
} | {
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
read line
while(true)
do
        read line
        [ X"$line" = X ]  &&  exit
        echo $line | awk '{ print "u_cpt	profile	user_set	"$2 "\t\"" $3 "_" $4 "_" $5 "_" $6 "_" $7"\"" }'
	read line
done
}
