PASS <shape_name> FIELD SHARE? Y
GOSUB OCD .SHAPE GET NAME
* Check for error
IF OCD .SHAPE GET NAME NE
Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.