Printing a board in Commodore Basic 4.0?

Question

I'm having trouble with printing a board of dots in Commodore Basic 6502.

This is what I have to far: (it's a subroutine)

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

Can anyone help me out with it because when I paste it into the emulator, type END, and press enter literally nothing happens?

Any help is much appreciated. I'm trying to build a word search game.

I'm upvoting this question *simply* because it's so old school. — Mike Christensen, Mar 19 '14 at 22:43
Also, gonna take a wild guess that you can't *print* an array. You probably have to print each element within the array. — Mike Christensen, Mar 19 '14 at 22:43
You need to type `RUN` and hit enter to get it to go. There are also some other problems as folks have noted, and, from deepest darkest corners of my memory, I think arrays are 1-based, not 0-based. — clstrfsck, Mar 19 '14 at 23:03
why on earth was this downvoted? Just getting this far is plus worthy enough. Curious as to why you would be programming it at all — Kai Qing, Mar 19 '14 at 23:24
@Suraya if you are talking about Basic 4.0 this machine must be one of the PET/CMB models. C64 was shipped with Basic 2.0 — wizofwor, Nov 17 '15 at 11:38

score 9 · Accepted Answer · answered Mar 19 '14 at 23:30

9

Just for laughs, here is some code that does what I think you want to do:

C64 screen shot

Just type RUN and hit enter!

answered Mar 19 '14 at 23:30

clstrfsck

14,715
4
44
59

1

Sorry to ask, but did you type in the code as well? – clstrfsck Mar 20 '14 at 22:13
Got it; for some reason I had to put everything in lowercase...odd. Appreciate your help! – Surz Mar 21 '14 at 08:41

score 0 · Answer 2 · answered Aug 23 '16 at 03:49

Snip to fill an array with dots and print it:

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

Printing a board in Commodore Basic 4.0?

2 Answers2