10 REM ::::::::        BIBCV
14 DIM B$(66)
15 GOSUB 36
20 PRINT 
21 PRINT
22 PRINT "BOOK , CHAPTER , START VERSE , NUMBER OF VERSES   (I.E. GEN,3,1,4)"
23 INPUT B$,C0,S,N
25 IF SEG$(B$,1,4)<>"BOOK" THEN 30
26 B=VAL(SEG$(B$,5,LEN(B$)))
27  GOTO 50
30 B=0 
32 FOR I=1 TO 66 
33 IF SEG$(B$,1,3)=SEG$(B$(I),1,3) THEN B=I
34 NEXT I
35 GOTO 40
36 FOR I= 1 TO 66 
37 READ B$(I) 
38 NEXT I
39 RETURN
40 IF B<>57 THEN 50
42 IF LEN(B$)>4 THEN 46
44 PRINT "PHILIPPIANS OR PHILEMON  WHICH"; 
45 INPUT B$
46 IF SEG$(B$,1,5)="PHILI" THEN B=50
50 DATA GENESIS,EXODUS,LEVITICUS,NUMBERS,DEUTERONOMY,JOSHUA,JUDGES,RUTH
52 DATA 1SAMUEL,2SAMUEL,1KINGS,2KINGS,1CHRONICLES,2CHRONICLES,EZRA,NEHEMIAH
54 DATA ESTHER,JOB,PSALMS,PROVERBS,ECCLESIASTES,SONG OF SOLOMON,ISAIAH,JEREMIAH
56 DATA LEMENTATIONS,EZEKIEL,DANIEL,HOSEA,JOEL,AMOS,OBADIAH,JONAH
58 DATA MICAH,NAHUM,HABAKKUK,ZEPHANIAH,HAGGAI,ZECHARIAH,MALACHI
60 DATA MATTHEW,MARK,LUKE,JOHN,ACTS,ROMANS,1CORINTHIANS,2CORINTHIANS
62 DATA GALATIANS,EPHESIANS,PHILIPPIANS,COLOSSIANS,1THESSALONIANS,2THESSALONIANS
64 DATA 1TIMOTHY,2TIMOTHY
66 DATA TITUS,PHILEMON,HEBREWS,JAMES,1PETER,2PETER,1JOHN,2JOHN,3JOHN,JUDE
68 DATA REVALTION
110 F$="BOOK"+SEG$(STR$(100+B),2,3)+".BIB"
112 C=1 
113 V=1
120 OPEN F$ FOR INPUT AS FILE #1
122 ON ERROR GOTO 190
130 LINPUT #1,A$
132 IF SEG$(A$,1,4)="=" THEN C=VAL(SEG$(A$,13,LEN(A$)))
133 IF C<C0 THEN 130
134 P=POS(A$,"#",1) 
135 IF P=0 THEN 130
136 V=VAL(SEG$(A$,2,4)) 
137 IF V<S THEN 130
140 PRINT A$
142 IF N<2 THEN 20
144 FOR J=1 TO N-1
146 LINPUT #1,A$
148 PRINT A$
150 NEXT J
180 GOTO 20
190 CLOSE #1
194 RESUME 200
200 GOTO 20