summaryrefslogtreecommitdiff
path: root/olb/Getstrng.c
diff options
context:
space:
mode:
Diffstat (limited to 'olb/Getstrng.c')
-rw-r--r--olb/Getstrng.c26
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();
-}