qbasic - 使用旧 QuickBasic 代码的 QB64 中的无效变量名称错误

Question

我正在尝试运行 QuickBasic其他人在 1992 年编写的文件。我正在使用 QB64在 Windows 10机器。我收到一条错误消息，内容为 Invalid variable name在 line 26以下代码。 Lines 1-31在下面，但这里是 line 26隔离中。

COMMON SHARED /rgraph/ absxmin(), absymin(), absxmax(), absymax()

我尝试更改 absxmin() 的名称, absymin() , absxmax() , absymax()各种事情，但总是出现错误信息。然后我尝试删除 line 26我在下一行收到了相同的错误消息。

COMMON SHARED /rgraph/ uxmin(), uymin(), uxmax(), uymax(), shrinkl(), shrinkr()

这里是 lines 1-31 .当人们使用随书提供的代码时，人们会被要求注明其属性。所以，我相信代码是由 Ray Hilborn 编写的。

DECLARE SUB zGraphInit (ScreenNumber#)
DECLARE SUB zLabelX (ig!, label$)
DECLARE SUB zLabelY (ig!, ylabel$)
DECLARE SUB hess (popt#(), h#(), r#(), sigma#, npar!, npts!, lu!)
DECLARE SUB CallFlet ()
DECLARE SUB UserPlot (itn!, f#, n!, x#())
DECLARE SUB zClearTotalScreen ()
DECLARE SUB waitsub ()
DECLARE SUB InitGraphs ()
DECLARE SUB zGrid (ig!, xtics#, ytics#)
DECLARE SUB zCursor (ig!, x#, y#, irow!, icol!)
DECLARE SUB zScale (ig!, axs#, ays#, axl#, ayl#, uxs#, uys#, uxl#, uyl#, shl#, shr#)
DECLARE SUB mnmx (x#(), n!, xmin#, xmax#)
DECLARE SUB zGraphView (ig!)
DECLARE SUB flet (f#, x#(), n!, g#(), h#(), dfn#, xm#(), hh#, eps#, mode!, maxfn!, iprint!, w#(), iexit!)
DECLARE FUNCTION func# (x#(), n!)
DECLARE SUB printstats (xtime#, itn!, ifn!, f#, n!, x#(), g#())
DECLARE FUNCTION NormDev! ()
DECLARE FUNCTION xmed# (x#(), n!)
DECLARE SUB zLocate (irow!, icol!)
DECLARE SUB InputData ()
DEFDBL A-H, O-Z

DIM absxmin(10), absymin(10), absxmax(10), absymax(10), absperux(10), absperuy(10)
DIM uxmin(10), uymin(10), uxmax(10), uymax(10), shrinkl(10), shrinkr(10)
COMMON SHARED /rgraph/ absxmin(), absymin(), absxmax(), absymax()
COMMON SHARED /rgraph/ uxmin(), uymin(), uxmax(), uymax(), shrinkl(), shrinkr()
COMMON SHARED /rgraph/ screenxdots, screenydots, absperux(), absperuy()

COMMON SHARED IprintResid, iprint, Idebug

感谢您帮助解决此错误消息。

Answer 1

一个 friend 告诉我如何获得QBasic文件运行。这是他的说明略有编辑。基本上你需要安装一个 MS-DOS emulator和一个版本的 QBasic ，这里QB45 .以下一些内容是针对我原帖中的文件的，但这些说明可能适用于许多旧的 QBasic文件。

下载 MS-DOS模拟器 ( DOSBOX , https://sourceforge.net/projects/dosbox/files/latest/download )

下载版本QBASIC ( https://www.qbasic.net/en/qbasic-downloads/DOS/Windows-Solutions.htm )。 (我下载了两个建议的解决方案中的第一个:Basic 2 DOSBox)

安装 dosbox ，但是当它询问在哪里安装它时，把它放在c:\pgms\dosbox (不是 c:\Program Files (x86)\DOSBox-0.74-3 )。老ms-dos操作系统不喜欢长文件名或带有空格的文件名。)

粘贴 QB45 c:\pgms\dosbox\ 中的文件夹(在步骤 2 中解压缩文件时获得)

定位 dosbox.exe (从第 1 步开始)并双击它。这应该会打开一个带有提示的黑色窗口，Z:\> .

在该窗口中，输入 mount c c:\pgms\dosbox .

也输入 mount d c:\users\mark_\disk哪里chap11是 subfolder在那folder .文件夹disk和 subfolder chap11特定于 QBasic文件在我原来的帖子里。

类型 d:

类型 cd chap11

类型 c:\qb45\qb d:\chap11\catch1.mak

那应该加载 qbasic与 CATCH1.BAS以及需要的其他 3 个基本程序。程序 CATCH1.BAS将显示在屏幕上。

点击 Alt-R 运行程序, Enter .