Graphics
100
WIDTH
"LPTl:",255
110
LPRINT
CHR$(2T);"A";CHR$(7)
;
120
FOR
R0W=1
TO
2
130
LPRINT
CHR$(2T);"Y";CHR$(Ul);CHR$(0);
lUO
FOR
C0LUMN=1
TO
Ul
150
READ
N
160
LPRINT
CHR$(N);
170
NEXT
COLUMN
180
LPRINT
190
NEXT
ROW
200
END
210
DATA
6U,32,80,8,68,2,6U,0,6U,0
220
DATA
6U,0,6U,0,32,0,16,0,8,0
230
DATA
8,0,8,0,8,0,8,0,8,0,8,0,8,0
2U0
DATA
18U,6U,32,16,8,U,2
250
DATA
8,16,U0,6U,136,0,8,0,8,0
260
DATA
8,0,8,0,16,0,32,0,6U,0,6U,0
270
DATA
6U,0,6U,0,6U,0,6U,0,6U,0,6U,0
280
DATA
116,8,16,32,6U,128,0
When
you
run
this
program,
it
produces
the
following
printout.
If
you
want
to
see
the
figure
in
other
densities,
change
the
Y
in
line
130
to
L
or
Z.
Software
and
Graphics
4-19