Windows XP环境下HTBasic/Rocky山区BASIC的彩色打印

Question

有人能帮我理解这个“落基山基础”或"HTBasic“代码吗？

我必须找出为什么打印功能不再工作了。

首先，这条线

PRINTER IS 26

我知道我们将要使用的打印机是" 26“，但26是什么意思呢？

REPEAT
    IF LWC$(Imp$)="o" THEN
        PRINTER IS 26
        FOR I=0 TO VAL(Mesu$(0,5))
            FOR L=0 TO 6
                PRINT Mesu$(I,L)
            NEXT L
        NEXT I
    ELSE
        FOR L=0 TO 6
            PRINT TABXY(2,9+L);Mesu$(0,L)
        NEXT L
        FOR C=1 TO VAL(Mesu$(0,5))
            PRINT TABXY(20-36*(C>3)+(C-1)*12,8+8*(C>3)),"voie "&VAL$(C-1)
            FOR L=1 TO 7
                PRINT TABXY(20-36*(C>3)+(C-1)*12,L+8+8*(C>3)),Mesu$(C,L-1)
            NEXT L
        NEXT C
    END IF

    INPUT "SORTIE sur l'IMPRIMANTE  O/N ?",Imp$
UNTIL LWC$(Imp$)="n"

Answer 1

“26”是为PRINT语句指定输出端口的代码之一。例如,

PRINTER IS CRT
PRINTER IS PRT

字母代码对应于数字代码；例如，PRINTER IS CRT与PRINTER IS 1相同，而PRT与701相同。

可能用这一基本方言印刷的代码，包括26个，是：

26 701 9 15 19 23 24

我从一个古老的文档HP BASIC在仪器控制中的应用:自学课程中提取了这个，您可能会发现它很有用。(我怀疑你指的是主题中的HPBasic，而不是HTBasic？)

TABXY是PRINT语句的一个变体，用于打印到CRT屏幕上的特定位置；我正在看到的文档表明，如果没有打印到CRT，XY就会被忽略，但是如果TABXY也在一些绘图仪上工作，我也不会感到惊讶。前两个数字是开始显示文本的X和Y坐标，TABXY(1, 1)表示左上角，右下角取决于CRT有多少列和行。

您可能会发现HP9000系列基础语言参考资料，第1卷和基础语言参考资料，第2卷很有用。

LWC$只是一个小写函数，以确保用户在输入行中输入“O”、“N”、“o”或“n”，程序将正确响应。

VAL将字符串转换为该字符串表示的数字。例如，字符串“3”将变成数字3。

变量Mesu$可能是一个二维数组，x从0到第4行判断为包含在Mesu$(0，5)中的变量数量，y从0到6，从第5行判断。

Answer 2

我猜绘图仪的线是26，我们说我们想要颜色。

MAT Menu$=("")
DISP "envoi à l' imprimante .."
Menu$(1)="PLOTTER"
Menu$(2)="IMPRIMANTE COULEUR"
!Select(0,1,Tp,26,12,1)
IF Tp=1 THEN
     PLOTTER IS 705,"HPGL"
ELSE
     PLOTTER IS 26,"HPGL;PCL5;COLOR,1600",0,260,0,185
END IF