10 REM :::::     SEARCH
14 DIM B$(66)
15 GOSUB 36
20 B$=TIME$(0)
21 PRINT "STRING TO SEARCH FOR ";
22 INPUT S$
24 IF S$= "END" THEN 900
31 IF LEN(S$)<6 THEN F1$=S$+".FIN" 
32 GOTO 34
33 F1$=SEG$(S$,1,6)+".FIN"
34 OPEN F1$ FOR OUTPUT AS FILE #2
35 GOTO 50
36 FOR I= 1 TO 66 
37 READ B$(I) 
38 NEXT I
39 RETURN
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
69 REM ......... 70-99   IS FOR DATA    TO SEARCH  FOR .............
99 DATA END
100 FOR I=1 TO 66
110 F$="BOOK"+SEG$(STR$(100+I),2,3)+".BIB"
112 C=0
114 C$="CHAPTER 1"
120 OPEN F$ FOR INPUT AS FILE #1
122 ON ERROR GOTO 190
130 LINPUT #1,A$
131 C=C+1
132 IF SEG$(A$,1,4)="=" THEN C$=SEG$(A$,6,LEN(A$))
133 P=POS(A$,S$,1)
134 IF P=0 THEN 130
135 PRINT #2, SEG$(F$,1,6),B$(I),C$,C
136 IF LEN(A$)<64 THEN PRINT #2, SEG$(F$,1,6);" ";B$(I);"  ";A$ \ GOTO 150
139 IF LEN(A$)<65 THEN PRINT #2,A$ \ GOTO 150
140 A1$=SEG$(A$,1,64) 
141 A2$=SEG$(A$,65,LEN(A$))
144 PRINT #2,A1$
145 PRINT #2,A2$
150 LINPUT #1,A$ 
151 IF LEN(A$)<64 THEN PRINT #2, A$ \ GOTO 160
152 A1$=SEG$(A$,1,64) 
153 A2$=SEG$(A$,65,LEN(A$))
154 PRINT #2,A1$
156 PRINT #2,A2$
160 PRINT #2
180 GOTO 130
190 CLOSE #1
194 RESUME 200
200 NEXT I
204 CLOSE #2
900 PRINT  "FINISHED"
999 END