  &REFER(VTRLOG,DCAGCSTAR).
    
  &CLEX(NUMVAR).
  &VAL.
  
  	0 :.
  
  &FIN.
