1 REM ::::::::::::::::      FILENAME = GENL   :::::::::::::::::::::::::::::::::
2 REM ::  THIS PROGRAM GENERATES ANY LENGTH OF LINE BIBLE.OUT FROM BIBLE.BIB ::
3 REM :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
4 OPEN "BIBLE.OUT" FOR OUTPUT AS FILE #2 DOUBLE BUF
5 C1$=CHR$(10)
6 C2$=CHR$(13)
7 C3$=CHR$(32)
8 REM ............    LINE 9    L=78   IS LENGTH OF LINE  -2  < CR & LF > ....
9 L=78
10 DIM #1,4.42880E+06)=1
20 OPEN "BIBLE.BIB" AS FILE #1
90 PRINT #2,O$
91 O$=""
92 P=1
94 O$=O$+C$
96 IF C$="*" THEN O$=O$+C3$
100 C$=A$(C)
110 C=C+1
112 IF C$=C1$ THEN 100
114 IF C$=C2$ THEN 100
115 P=P+1
116 IF C$="*" THEN 90
117 IF C$="=" THEN 90
118 IF C$="#" THEN 90
119 IF P<=L THEN 190
120 REM ....    FIX LINE TO END WITH SPACE .....
130 IF C$=C3$ THEN 90
132 I=0
133 I=I+1
134 IF C3$<>A$(C-I) THEN 133
140 O$=SEG$(O$,1,L-I+1)
142 C=C-I+1
144 C$=C3$
180 GO TO 90
190 O$=O$+C$
195 GO TO 100