附程序清单：
10 INPUT＂printfile=====＂，FILENAME＄
15 INPUT＂lst page num===＂，PAGE
20 LPRINT STRING＄(33，＂-＂)；FILENAME＄ ； S T R I N G ＄ ( 3 3 ， ＂ - ＂ )
30 OPEN FILENAME＄ FOR INPUT AS #1
40 LN=52
50 IF EOF(1)=-1 THEN 110
60 LINE INPUT #1，C＄
70 LPRINT C＄
80 LN=LN-1
90 IF LN=0 THEN 160
100 GOTO 50
110 IF LN=52 THEN CLOSE 1：END
120 FOR L=1 TO LN
130 LPRINT
140 NEXT L
160 LN=52
170 LPRINT
180 LPRINT
190 LPRINT STRING＄(38，＂-＂)；PAGE；STRING＄(38，＂-＂)
195 PAGE=PAGE＋1
200 FOR I=1 TO 10
210 LPRINT
220 NEXT I
225 IF EOF(1)＜＞-1 THEN LPRINTSTRING＄(34，＂-＂)；FILENAME＄；STRING＄(34，＂-＂)
230 GOTO 50
(广西 梁陟)