    	if rdonly == 0
	    return ERR_NO_ERR
	endif

	assign %a = /File is read only, check out? /
	input %a
	if lastrc == NO_VALUE_ENTERED
	    return ERR_NO_ERR
	endif
#
# don't allow modification of read only file if "NO" specified
#
	if "%a" == n
	    return ERR_READ_ONLY_FILE
	endif
	if "%a" == f
	    !forceout %F
	    return ERR_NO_ERR
	endif
	assign %c = %C 
	assign %r = %R 
	!pco -l %F
	e! %F
	%r
	execute %c|
	return ERR_NO_ERR
