.SHAPE SET CURRENT 
Set the "current" Shape Object to be a previously initialized Shape Object.
  Usage: 
      PASS         <shape_name>          FIELD            SHARE? N
      GOSUB    OCD .SHAPE SET CURRENT
      *        Check for error
      IF       OCD .SHAPE SET CURRENT          NE
  Description: 
This sets the "current" Shape Object to be a previously initialized Shape Object.
The <shape_name> is a required parameter, and the subroutine will cancel if it is not received.
<shape_name> must refer to a shape you have previously initialized via 
.SHAPE INITIALIZE.
You can then modify the "current" shape via the .SHAPE SET routines.
Read what other users have said about this page or add your own comments.
-- 
JeanNeron - 2011-10-20