From 061c20a0dc4f89c6f543643a2933e35c073ba6be Mon Sep 17 00:00:00 2001
From: Jim <black.belt.jimmy@gmail.com>
Date: Sun, 21 Jun 2015 20:30:50 -0700
Subject: [PATCH] add subroutine numberofrecords

---
 yab-IDE/Programs/libs/fileblock.yab | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/yab-IDE/Programs/libs/fileblock.yab b/yab-IDE/Programs/libs/fileblock.yab
index e2d7a4a..791a22e 100644
--- a/yab-IDE/Programs/libs/fileblock.yab
+++ b/yab-IDE/Programs/libs/fileblock.yab
@@ -154,8 +154,7 @@ rec=rec+1
 return rec
 end sub
 
-export sub lof(filehandle)
-// returns the number of blocks in the file.
+export sub lof(filehandle)  // alias for numberofrecords()
 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$