标题用BASIC语言实现分页打印

　　附程序清单：
　　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
　　(广西　梁陟)