Commodore 64 BASIC中SLEEP()函数报错问题求助

你的代码报错核心原因是Commodore 64 BASIC V2没有内置SLEEP()函数，你写的SLEEP(1000)会被解释器当成数组引用（C64 BASIC里括号用于数组下标），但你从未定义过名为SLEEP的数组，因此触发"ARRAY"报错。同时代码里还有其他语法问题，以下是完整修正方案：

修正后的可运行代码 #

10 PRINT "WELCOME TO THE SURVEY"
20 FOR I=1 TO 500:NEXT I  ' 用空循环实现延时，替代SLEEP
30 PRINT CHR$(147)        ' C64标准清屏指令，替代错误的PRINT CLS
40 INPUT "START SURVEY? ", ANSWER$
50 IF ANSWER$ = "YES" THEN 60  ' C64 BASIC用=判断相等，且IF必须搭配THEN
60 PRINT CHR$(147)
70 PRINT "YOU BEGIN THE SURVEY"  ' 修正拼写错误：SURVER→SURVEY
80 FOR I=1 TO 500:NEXT I
90 GOTO 160  ' 跳转跳过ELSE分支代码，避免逻辑混乱
100 FOR I=1 TO 500:NEXT I
110 PRINT CHR$(147)
120 PRINT "COME BACK ANOTHER TIME"
130 FOR I=1 TO 500:NEXT I
140 PRINT CHR$(147)
150 GOTO 10
160 END

关键修正细节 #

• 延时替代方案：C64 BASIC没有SLEEP函数，常用FOR...NEXT空循环实现延时（循环次数可调整，数值越大延时越长）；追求精准延时也可以用硬件定时器指令WAIT 6502,1。
• 清屏指令：C64 BASIC V2不支持CLS命令，必须用PRINT CHR$(147)（CHR$(147)是C64的清屏控制字符）。
• IF语句语法：C64 BASIC中字符串相等判断用=而非==，且IF语句必须搭配THEN（指定跳转行或执行语句），原代码缺少THEN属于语法错误。
• 分支逻辑优化：原代码的ELSE分支会和主代码顺序执行冲突，新增GOTO 160跳转避免逻辑混乱。

内容的提问来源于stack exchange，提问作者TurnipYossarian