add subroutine numberofrecords

yab-IDE/Programs/libs/fileblock.yab

@@ -154,8 +154,7 @@ rec=rec+1
 return rec
 end sub
 
-export sub lof(filehandle)
+export sub lof(filehandle)  // alias for numberofrecords()
-// returns the number of blocks in the file.
 local x
 filename$=f$(filehandle,0,0)
 x=open(filename$) 
@@ -168,6 +167,14 @@ ret=int(ret)
 return ret
 end sub
 
+export sub numberofrecords(filehandle) // alias for lof()
+fh=filehandle
+rtn=lof(fh)
+return rtn
+end sub
+
+
+
 
 sub blank$(num)
 local s$