1 REM ::::::::::      FILENAME   =  PRINTI   :::::::::::::::
2 REM ::  THIS PROGRAM WILL PRINT THE BIBLE.I VALUES      ::
3 REM ::::::::::::::::::::::::::::::::::::::::::::::::::::::
30 DIM #2,I(66,150)
40 OPEN "BIBLE.I" AS FILE #2
100 FOR I=1 TO 66
110 PRINT 
111 PRINT "BOOK";I;"HAS";I(I,0);"CHAPTERS"
200 FOR J=1 TO I(I,0)
210 PRINT J;"=";I(I,J),
290 NEXT J
300 NEXT I