用BASIC语言实现分页打印

广 西   梁陟
1993-05-14

        附程序清单：
        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
        (广西  梁陟)
 
 