Translating The Ones To Dots; Program And Run For Displaying An Array - Epson FX-80 User Manual

5~
LPRINT A(R,C);: NEXT C: LPRINT
6~
PRINT f1ROW f1;R: NEXT R
and RUN it.
Vi
EI
0
D
l'l
l'l
0
1
II!
0
12)
II!
0
\2l
0
5
I
FIGURE 15-6
10 DEFINT A: N=21: DIM A(N,N)
20 FOR R=l TO N: FOR C=l TO N
30 D=SQR((R-ll)A 2 + (C-ll)A2)
40 IF INT(D+.5)=10 THEN A(R,C)=l
50 LPRINT A(R,C);: NEXT C: LPRINT
60 PRINT "ROW ";R: NEXT R
170 LPRINT CHR$(27)"@": STOP
Q) IIJ iiJ
iiJ
Qj
~.:)
l
\l!
Ii.J
~7_J
V.l
1
(1 D ~1
0 0
D
0
(,1 IL}
0 li1 0 0 ill l~ 0 ill
0 Itl 0 ill 0 0 0 (I)
(1
0 0
0 J
Ii)
iD ItJ Ii! iil
l~
(1
iil (~
l'l
1 0 iil 1/1
1<1
,,1
«J
!t~
0 0 ill
1/1
1
0
0
1/1
0
1/1 0
0
0
0
0 0
0 0 12) 12) 12) 12) 0 0
12)
12) 0 0
0 0 0 0 0 0 0 li'l li'l li'l li'l li'l
0
0 12)
0 0
0 0 0 0 12) 0 0
0 0 0 0 0 0 0 0
12)
0
12) 12)
0 12) 12) 12) 12) 0 12) 12) 0 0 12) 12)
0 0 0 ill 0 0 0 0 0 0 0 0
II! II! II!
ill
II! II! 11) II! 11)
11)
11)
11)
1
12) 0 0 0 0 0 0 0 12) 0 12)
0
li'l li'l li'l
II! 0 12) 0
li'l
12) 0
0 1
0
0
0
li'l
0 0 0 0 0 0
0 li'l 0 0 0 11) 0 0 0 11) 12)
0 0 0
1
0 0 \2l \2l 0 0 \2l 0
0 12) 0 0 12) 12)
\2l
\2l \2l 12)
0
0
0 11)
0
0
0
0
(I)
l'l
(1
0
12)
li'l
0
0
12)
0
0
12)
0
(1
12)
\2l
\2l
iil
iiJ 0 0 iiJ 0
vl
I J D ill 0 0 0
0 0 lil 0 0 0
~~ (I)
0 0
0
1/1
(1
ill ill
0 0 0
L~I
iil
ill ill
1/1 (I)
0 0
0 0 0 1 0
0 12) 0 0 12) 0
li'l li'l
0
li'l 0
12)
12) 12)
12)
0
0
0
0
12)
0
12)
0 0
12) 12) 0 0 0 12)
0 0 0 0 0 0
11) 11) 0 0 12)
12)
1
12)
li'l li'l li'l li'l
1
li'l
li'l
12) 12) 12) 12) 1
0
0 0 0 II!
1
0
0
\2l \2l \2l 1 12) 12) \2l
0 \2l 0 0 0 0
1 1 \2l \2l 0
0 \2l
0 \2l 0 \2l 0 0 0
Figure 15·6. Program and RUN for displaying an array.
Figure 15-6 shows the results of our scheming in terms of ones and
zeros.
Translating the ones to dots
The next step is to translate the contents of the array to dots on the
paper. First, modify line 50 so that it doesn't print the array:
5~
NEXT C
Then fill the usual graphics prescription for 7-dot line spacing:
172