The final step to plotting a circle in an array is to close the loops
and display the contents of the array. Add these three lines to your
program:
50
LPRINT A(R,C);: NEXT C: LPRINT
60
PRINT "ROW";R: NEXT R
170 LPRINT CHR$(27)"@": END
and RUN it.
0 0 0 0 0 0 0 1 1 1 1 1 1 1
0000000
0 0 0 0 0 1 1 0 0 0 0 0 0 0 1 1 0
0 0 0 0
0000l00000
00000001 0 0 0
0001000000
0 0 0 0 0 0 0 1
0 0 0
0 0 1 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 1
0 0
0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
0 1 0 0 0
0000000
00 0 000 0 1 0
1 0 0 0 0 0 0
0 0 0 0 0
000000001
1 0 0 0 0 0 0 0 0 0
0 0 0 0
0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 0 0
0 0 0 0 0
00000l
100000
000000000000001
100000000000000000001
1
0 0 0 0 0 0 0 0 0 0 0 0 0 0
000001
1000000000
0 0 0 0 0000001
0 1
0000000
0000000000l0
0 1 0 0 0
1000000000
0000l0
0 0 1 0 0 0 0 0
0 0 0
0000000l00
000100000000
0000010 00
0000100 000000 0
0 0
1
0 0 0 0
0 000011
00000001100000
0 000000111111100
0 0 0 0 0
Figure 13-6. Displaying an array
The printout shows, in terms of ones and zeros, the results of your
planning and your program’s plotting.
Ones become dots
Next you need to translate the contents of the array to dots on the
paper. First, modify line 50 so that it no longer prints out the contents
of the array:
50
NEXT C
Then fill the usual graphics prescription for 7-dot line spacing:
70 LPRINT CHR$(27)"1"CHR$(7);
The CHR$(7) sounds the beeper to tell you when the array is full.
178