如何在 IBM PCjr 上等待？

Question

我在尝试为我的 PC 编写的程序中遇到问题jr，我需要在运行下一条指令之前暂停程序一段时间。这是：

10 CLS
20 PRINT "|"
30 WAIT 1
40 CURSOR 1,1
50 PRINT "/"
60 WAIT 1
70 CURSOR 1,1
80 PRINT "-"
90 WAIT 1
100 CURSOR 1,1
110 PRINT "\"
120 WAIT 1
130 CURSOR 1,1
140 GOTO 20

当我运行这个程序时，我得到：

|
Syntax error in 30
Ok
30 WAIT 1

是否有一个命令等待由数字或变量定义的秒数，我可以使用它来代替“WAIT n”？

我尝试用“SLEEP n”替换“WAIT n”，但这并没有帮助，因为它最终给了我

|
Syntax error in 30
Ok
30 SLEEP 1

此后我最终恢复了更改。

Answer 1

GW-BASIC 及其衍生产品（包括您正在使用的 BASIC）没有

WAIT

或

SLEEP

声明来实现您正在寻找的功能。一般来说，使用

FOR...NEXT

循环就可以达到预期的效果：

10 FOR I=1 TO 1000: NEXT I

将所需延迟乘以固定量（通常，估计计数 1000 约为一秒）作为

FOR

的上限。