/* lee el fichero programa */
/* usado por Rarvalues-open,*/
/*Arg window self*/
/*
filename=directory()||'\'||rarval.txt
valuete = CHARIN(filename,1,CHARS(filename))
rc=STREAM(filename,'c','close')
say valuete
say valuete.1 valuete.2 valuete.0
*/

lc=0
filename=directory()||'\'||rarval.txt
If Length(FileName) > 0 Then
   Do
      Do While Lines(FileName)
      lc=lc+1
      rar.lc=LineIn(FileName)
      End
      rar.0=lc
      rc=Stream(FileName,'c','close')
   End
   

return rar.lc
