用repl.it在QuickBasic中编程？

Question

我正在尝试开设“复古计算机”课程，并希望给人们机会在家里完成项目（1980年没有携带3kb怪兽），我听说repl.it具有所有编程功能语言，它具有QuickBasic，如何在线使用它？ 我在这里先向您的帮助表示感谢！

Answer 1

您可以执行此操作（提示：搜索QBasic；它与QuickBASIC共享语法），但是您应该意识到，由于它在不完整的JavaScript实现上运行，因此存在一些限制。 为了完整起见，我将复制原始博客文章中的信息：

什么有效

仅支持文本模式。 实现了最常见的命令（足以运行半字节）。 这些包括：

• 子功能
• 数组
• 用户类型
• 共享变量
• 循环
• 屏幕输入

什么不起作用

• 不支持图形模式
• 不允许在与IF / THEN相同的行上使用任何语句
• 不支持行号
• 仅实现NIBBLES.BAS使用的内置函数
• 必须使用DECLARE声明所有子例程和函数

这远没有完成。 在注释中， AC0KG指出P=1-1不起作用。

简而言之，这将需要另外50或100个小时的工作，因此没有理由这样做。

我无法确定的一个警告是像INPUT或LINE INPUT类的语句...它们似乎对repl.it并不起作用，而且我不知道在哪里可以找到qb。 js托管。

---

我的建议：FreeBASIC

如果可能的话，我建议使用FreeBASIC 。 本质上，这是用C ++（最后我知道）编码的现代实现，具有附加功能。

像DEF SEG语句和VARSEG函数之类的DOS不再可用，因为它是在32位平面地址空间而不是16位分段存储器上运行的现代BASIC实现。 我不确定旧的SADD函数和新的StrPtr函数之间是否有区别，但是思路是相同的：返回组成字符串的字节的地址。

您还可以使用#lang "qb"作为程序的第一行来禁用某些内容并维护QB兼容性，因为使用默认的“ fb”方言时会有明显的不同，或者可以包含新功能并避免使用“ qb “方言，主要侧重于编程概念； 这是你的选择。 无论您选择哪种方言，基本内容都可以正常工作：

DECLARE SUB collatz ()
DIM SHARED n AS INTEGER

INPUT "Enter a value for n: ", n
PRINT n
DO WHILE n <> 4
    collatz
    PRINT n
LOOP
PRINT 2
PRINT 1

SUB collatz
    IF n MOD 2 = 1 THEN
        n = 3 * n + 1
    ELSE
        n = n \ 2
    END IF
END SUB

---

关于QB64

可能有人争辩说有一个更兼容的编译器，称为QB64（除DEF FN ...之类的东西以外），但是如果您要让学生使用的工具，我不推荐使用。 对于Windows用户来说，这是一个很大的下载，并且它的语法检查有时可能会有点差，以至于您可能只看到QB代码编译而看到诸如“ C ++编译失败！请参阅internals \\ temp \\ compile之类的神秘消息。 txt以获取详细信息” 。 简而言之，它是可用的并且高度兼容，但是它需要一些工作，例如repl.it使用的qb.js脚本。

---

替代方法：DOSBox和自动运行

您还可以找到一种在DOSBox之类的程序中运行QB 4.5实际副本的方法，只需在默认的DOSBox.conf（或任何它称为的名称）中修改自动运行信息即可自动启动QB。 然后，只需将它与修改后的DOSBox.conf重新打包在一个不错的安装程序中即可轻松分发（NSIS，Inno安装程序等）。这将为您提供除FreeDOS虚拟机之外的最复古的体验，因为您将要处理16-位分段存储器，VGA等—当然都是模拟的。