BASIC程序清单的分页打印

Author: 江西国雄 Date: 1992-01-24

        运行以下程序，可以实现EPSON型打印机上，BASIC程序清单的自动分页打印:
        10 INPUT “NAME OF FILE:”;A$
        20 D$=CHR $(4):K$=CHR$(27)
        30 PRINT D$;“PR#1”:PRINT
        40 PRINT K$;“C”;CHR $(66)
        50 PRINT K$;“N”;CHR $(8)
        60 PRINT TAB(5);“---”;A$;“---”
        70 PRINT D$;“PR#0”
        80 PRINT D$;“OPEN LIST”:PRINT D$;“WRITE LIST”
        110 PRINT “LOAD”;A$
        120 PRINT “PR#1”:PRINT“LIST”:PRINT“PR#0”
        130 PRINT D$;“Close List”:Poke 1657,80
        150 PRINT D$;“EXEC LIST”:END