10 CLEAR 1000:FILL$="     ":LC=66:PP=1
20 CLS
25 INPUT"WHAT LINE LENGTH";LL
30 INPUT"WHAT IS THE PROGRAM NAME";PROGRAM$
35 GOSUB540
40 OPEN"I",1,PROGRAM$
50 REM
60 IF EOF(1) THEN GOTO1000
65 IF P>56 THEN GOSUB500
70 LINEINPUT #1,TEMP$
80 A=LEN(TEMP$)
85 L1$=TEMP$
90 IF A<= LL THEN 200
100 L1$=LEFT$(TEMP$,LL)
110 L2$=RIGHT$(TEMP$,(A-LL))
120 B=LEN(L2$)
130 IF B<=LL-5 THEN 200
140 L2$=MID$(TEMP$,LL+1,LL-5)
142 L3$=RIGHT$(TEMP$,A-(2*LL-5))
143 C=LEN(L3$)
145 IF C<=LL-5 THEN 200
150 L3$=MID$(TEMP$,2*LL-4,LL-5)
155 S=3*LL-10:IF S>=A THEN 200
160 L4$=RIGHT$(TEMP$,A-S)
200 LPRINT L1$:P=P+1: IF A<LL+1 THEN 50
210 LPRINT FILL$;L2$:P=P+1: IF B<LL-4 THEN 50
220 LPRINT FILL$;L3$:P=P+1: IF C<LL-4 THEN 50
230 LPRINT FILL$;L4$:P=P+1: GOTO 50
500 P=P+3: FOR I=1 TO LC-P:LPRINT:NEXT I
530 PP=PP+1
535 LPRINT
540 LPRINT"PAGE #";PP;"OF ";PROGRAM$
545 LPRINT""
550 P=0:RETURN
1000 LPRINT:LPRINT:LPRINT
1010 LPRINT"DONE"
1020 CLOSE
1030 INPUT"DO YOU HAVE ANOTHER PROGRAM  YES  OR NO";N$
1040 IF N$="Y"GOTO 30
1042 IFN$="YES" GOTO30
1050 PRINT"END OF PROGRAM"
1055 END
