1 REM  :::       FILENAME  =  GENI      ::::::::::::::::::::
2 REM  ::  THIS PROGRAM GENERATES THE BIBLE.I  INDEX FILE ::
3 REM  :::::::::::::::::::::::::::::::::::::::::::::::::::::
10 DIM #1,A$(4.42880E+06)=1
20 OPEN "BIBLE.BIB" AS FILE #1
30 DIM #2,I(66,150)
40 OPEN "BIBLE.I" AS FILE #2
50 I(66,0)=22
100 FOR I=0 TO 4.42870E+06
101 A$=A$(I)
110 IF A$="*" THEN  GOSUB 200
120 IF A$="=" THEN  GOSUB 300
150 NEXT I
160 PRINT CLK$
190 CHAIN "GENR"
200 B=B+1
201 PRINT 
202 PRINT "B";B;
210 I(B-1,0)=C
220 C=0
290 RETURN
300 C=C+1
303 PRINT C;I;
310 I(B,C)=I
390 RETURN