global proc OBJIMPORTVERTS (string $fileName)
{
  int $CONTEXTINDEX=0;
  int $index;
  string $context_in = "v";
  string $outPut[];
  string $buffer[];
  
  float $XPOS;
  float $YPOS;
  float $ZPOS;
  
  //spacePrint ("#BEGINING PSYS IMPORT FROM FILE ON NODE : "+$targetNode +"\n");
  print ("//#READING FILE : "+$fileName +"\n");

  string $arrayout[];
  $outPut = `readArrayFile $fileName`;
  int $sizeLines = `size($outPut)`;
  //ITERATE THROUGH THE FILE PICKING OUT KEYWORDS
/////////////////////////
  for ($a=0;$a<$sizeLines;$a++){

   //SEL UP
   if (`gmatch  $outPut[$a] ("*"+$context_in+"*")`==1)
   {
     clear $buffer;
     $newContext = tokenize($outPut[$a] , $buffer);
     $XPOS= $buffer [1];
     $YPOS= $buffer [2];
     $ZPOS= $buffer [3];

      //joint -p  $XPOS $YPOS $ZPOS;
      //INSERT COMMAND HERE
      
   }//NEW = CONTEXT
  }//SCRIPT-LINE BY LINE
}//PARSE