在 DOSBOX 中检测 QB45 中的 ANSI

如何解决在 DOSBOX 中检测 QB45 中的 ANSI

我一直在使用 DOSBox 和 ANSI 并取得了一些成功，但我想检测是否安装了 ANSI。

Ralf brown 检测 ANSI 的描述是：

const AccordionExmple = () => {
  const onChange = (key) => {
    console.log(key);
  }
 
    return (
      <div style={{ marginTop: 10,marginBottom: 10 }}>
        <Accordion defaultActiveKey="0" className="my-accordion" onChange={onChange}>
          <Accordion.Panel header="Title 1">
            <List className="my-list">
              <List.Item>content 1</List.Item>
              <List.Item>content 2</List.Item>
              <List.Item>content 3</List.Item>
            </List>
          </Accordion.Panel>
          <Accordion.Panel header="Title 2" className="pad">this is panel content2 or other</Accordion.Panel>
          <Accordion.Panel header="Title 3" className="pad">
            text text text text text text text text text text text text text text text
          </Accordion.Panel>
        </Accordion>
      </div>
    );
}

我检测 ANSI 的代码是：

--------V-2F1A00-----------------------------
INT 2F - DOS 4.0+ ANSI.SYS - INSTALLATION CHECK
    AX = 1A00h
Return: AL = FFh if installed
Notes:  AVATAR.SYS also responds to this call
   documented for DOS 5+,but undocumented for DOS 4.x

总是显示“未安装 Ansi”。还有其他检测ANSI的方法吗？？

解决方法

我认为您可能会决定尝试使用 ANSI 代码。

下面的代码实现了函数ansiOn%，如果ansi字符串按预期写在屏幕上（用作控制台：见代码）则返回1，否则返回0。

该函数实现的方法是清屏并写入一个字符串，该字符串包含：第一个与A$不同的字符，1个字符的反向ANSI序列-CSI 1 D-以及A$。写入字符串后，如果屏幕左上角的字符为A$，则启用ANSI。

DECLARE FUNCTION ansiOn% ()

ansi% = ansiOn%
CLS

PRINT "ANSI is";
IF ansi% = 0 THEN
  PRINT "n't";
END IF

PRINT " enabled."

FUNCTION ansiOn%

  CLS : A$ = "C"
  OPEN "CON" FOR OUTPUT AS #1
  PRINT #1,CHR$(ASC(A$) - 1); CHR$(27); "[1D"; A$;
  CLOSE #1

  IF CHR$(SCREEN(1,1)) = A$ THEN
    ansiOn% = 1
  ELSE
    ansiOn% = 0
  END IF

END FUNCTION

我在 DOS 6.22 虚拟机中使用 QB45 尝试了此代码，并且可以正常工作。

我写了这段代码来检测ANSI：

Cls
Const A$ = "alpha"
Const B$ = "beta"
Open "CONS:" For Output As #1
Print #1,A$
Z$ = Chr$(27) + "[2J" ' ansi cls
Print #1,Z$; B$;
Close #1
For T = 1 To Len(B$)
   T$ = T$ + Chr$(Screen(1,T))
Next
If T$ = B$ Then Print "ANSI detected."