Печать доски в Commodore Basic 4.0?

Question

У меня проблемы с печатью платы точек в Commodore Basic 6502.

Это то, что я должен далеко: (это подпрограмма)

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
80 PRINT A$
END

Может ли кто-нибудь помочь мне с этим, потому что, когда я вставляю его в эмулятор, набираю END и буквально нажимаю enter, ничего не происходит?

Буду признателен за любую оказанную помощь. Я пытаюсь создать игру для поиска слов.

Answer 1

Просто для смеха, вот код, который делает то, что я думаю, вы хотите сделать:

Просто введите RUN и нажмите ввод!

Answer 2

Snip, чтобы заполнить массив точками и распечатать его:

10 INPUT "Please enter a number:", X
20 DIM A$(X, X)
21 REM make the array
30 FOR I = 0 TO X
    40 FOR J = 0 TO X
        50 A$(I, J) = "."
    60 NEXT
70 NEXT
80 REM print the array
90 FOR I = 0 TO X
    91 FOR J = 0 TO X
        92 PRINT A$(I, J);
    93 NEXT
    94 PRINT
95 NEXT
99 END

Answer 3

вам не нужно создавать экземпляр массива A$:

      10 rows=12
20 cols=10
30 gosub 1000
40 end
50 :
1000 for i=1 to rows
1010   for j=1 to cols
1020     print ".";
1030   next
1040   print
1060 next

run