1 REM  :::::::::::::   FILENAME  =  GENR         ::::::::::::::::
2 REM  ::  THIS PROGRAM GENERATES THE BIBLE.R  INDEX FILE      ::
3 REM  ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
50 OPEN "BIBLE.BIB" FOR INPUT AS FILE #3 DOUBLE BUF
60 DIM #4,R(66,150)
70 OPEN "BIBLE.R" AS FILE #4
80 R(66,0)=22
90 REM    FOR   BIBLE.BIB   DISTRIBUTION      72566   IS ACTUAL .....
100 FOR I=1 TO 100000 \ REM   72566  .......
110 LINPUT #3,A$
111 S$=SEG$(A$,1,1)
120 IF S$="*" THEN  GOSUB 200
130 IF S$="=" THEN  GOSUB 300
190 NEXT I
199 STOP
200 B=B+1
201 PRINT 
202 PRINT "B";B;
210 R(B-1,0)=C
220 C=0
290 RETURN
300 C=C+1
303 PRINT C;I;
310 R(B,C)=I
390 RETURN