set pg [getSelectedPGroup]
if {$pg==0}\
	{
	bell
	post3DEInfoRequester " \n    Error, there is no Pointgroup selected.    \n"
	return
	}

set prefix [post3DEPromptRequester "Enter Prefix:"]

if {$prefix!=""}\
	{
	for {set p [getFirstPoint $pg]} {$p!=0} {set p [getNextPoint $pg $p]}\
		{
		set name [getPointName $pg $p]
		if {[getPointSelectionFlag $pg $p]}\
			{
			setPointName $pg $p $prefix$name
			}
		}
	}