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