diff options
Diffstat (limited to 'olb/Getstrng.c')
-rw-r--r-- | olb/Getstrng.c | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/olb/Getstrng.c b/olb/Getstrng.c deleted file mode 100644 index b5e6938..0000000 --- a/olb/Getstrng.c +++ /dev/null @@ -1,26 +0,0 @@ -#include <online.dcl> - -void GETSTRNG(strongs_no, verse_list, otflg) - - /* get verses for a given strongs no */ - -int strongs_no; /* strongs number to fetch verse list for */ -INT verse_list[MAX_LIST]; /* resultant verse list */ -CHAR otflg; /* Old Testament Number flag */ -{ - extern struct zversion version; - int entry_size; - long int seek_posn; - - X("Getstrng"); - if (strongs_no > 8849 || strongs_no < 0) then - ERROR("Getstrng - Invalid Strong's Number"); - - entry_size = READNDX(strongs_no, fp_xrefndxs, &seek_posn); - call LISTLOAD(fp_xref, entry_size, verse_list, seek_posn); - if (otflg == 0) then - call LISTRANG(verse_list, version.nt_ver, version.total_ver); - else - call LISTRANG(verse_list, 1, version.nt_ver - 1); - Y(); -} |