arrays - 在 Commodore BASIC 中填充数组 A$(X,X)？

Question

我正在尝试在 Commodore BASIC 中用“.”填充 A$(X,X)。

这就是我到目前为止所拥有的......但我不太确定如何处理 ASCII 值等。有评论吗？

INPUT A$
FOR I = 0 TO X = DIM A$(X,X)
A$(".",x)

我仍然对 PET BASIC 的 API 感到非常困惑...任何建议将不胜感激。

Answer 1

我的回答是基于一位年轻人在 Commodore 64 前的回答，对于 PET 系列来说可能并不完全正确。但鉴于您还没有任何其他答案，我会全力以赴。

在代码的第一行中，您向用户请求一个字符串并将其存储在 A$ 中。美元符号表示变量是字符串。在第二行中，您将 A$ 重新定义为二维数组。尺寸均为尚未定义的X。我不记得 DIM 有返回值，但我可能是错的。

从 char 获取 ASCII 值的函数是 ASC()，并使用 CHR$() 转换回来，如下所示:

10 NUMA = ASC("A"): REM NUMA now contains 65
20 CHARA$ = CHR$(NUMA): REM CHARA$ now contains "A"

您应该知道的是，这些函数使用与 ASCII 略有不同的“PET ASCII”。它从未给我带来任何问题，但它是值得记住的。

FOR 循环始终有一个 NEXT 来结束 block ，例如:

10 FOR A = 1 TO 10
20 PRINT A: REM Displays series of numbers.
30 NEXT

我不完全清楚你想要实现什么，但希望我至少给了你足够的部分来解决这个问题。据我了解，你需要这样的东西:

10 INPUT "Please enter a number:", X
20 DIM A$(X, X)
30 FOR I = 0 TO X
40 FOR J = 0 TO X
50 A$(I, J) = "."
60 NEXT
70 NEXT