***********************************************************************;
*  Version 3.1 July 20, 1994                                          *;
***********************************************************************;
START _PVTYPE_( _VTYPE_, _COLNM_ ) ;  
_NONM_ = { "" };
PRINT , "_VTYPE_ indexes the current status of variables as follows:"
      , "               - 1 = Dependent ( Y ) variable              "
      , "                 1 = Independent ( X ) variable            "
      , "                 0 = Variable not in model ( W )           " 
      , _VTYPE_ (| ROWNAME = _NONM_ COLNAME = _COLNM_ |);
FINISH _PVTYPE_ ;