Description: Toggle vector printing ON or OFF
Mapped Command: SET VECTOR PRINT
FUNCTION __SetVectorPrint(command,hoffset,voffset,hlength,units,vscale,orient,postscript,window,color,pattern,noeject)
   local mode
   command := if(command == NIL,2,command)
   if command == 1
      hoffset := if(hoffset == NIL,0,hoffset)    // horizontal offset
      voffset := if(voffset == NIL,0,voffset)    // vertical offset
      hlength := if(hlength == NIL,1350,hlength) // default to 1350 pixels
      units   := if(units == NIL,"MMS",upper(units))  // default to mms
      do case                                    // convert units to integer
      case units == "MMS"
         units := 0
      case units == "POIN" .or. units == "1/72"
         units := 1
      case units == "1/100"
         units := 2
      endcase
      vscale  := if(vscale == NIL,100,vscale)    // default to no change in scale
      mode    := 1                               // pcl5 (default)
      mode    := mode + postscript               // postscript
      mode    := mode + window                   // clipping window
      mode    := mode + color                    // color printing
      mode    := mode + pattern                  // pattern priority
      vpon(hoffset,voffset,hlength,units,vscale,orient,mode)  // issue the print off function
   else
      vpoff(noeject)                             // issue the print off function
   endif
RETURN(Void)