在 Liberty BASIC 中显示完整数组

Question

通过教程，但我不知道如何做到这一点。它希望我让程序显示之前在 quit 子之后输入的所有 10 个名称。我已经尝试了一些东西，但无法弄清楚如何做到这一点。

'ARRAYS.BAS
    'List handling with arrays
    dim names$(10)  'set up our array to contain 10 items

[askForName]  'ask for a name
    input "Please give me your name ?"; yourName$
    if yourName$ = "" then print "No name entered." : goto [quit]

    index = 0
[insertLoop]
    'check to see if index points to an unused item in the array
    if names$(index) = "" then names$(index) = yourName$ : goto [nameAdded]
    index = index + 1 'add 1 to index
    if index < 10 then [insertLoop] 'loop back until we have counted to 10

    'There weren't any available slots, inform user
    print "All ten name slots already used!"
    goto [quit]

[nameAdded]  'Notify the name add was successful
    print yourName$; " has been added to the list."
    goto [askForName]

[quit]
    end

Answer 1

在[quit] 和end 之间插入此代码：

for I = 0 TO 10
print names$(I)
next I

这行得通;)