lOOWIDTH
"LPT1:',255
llOLPRINTCHR$(27);'A";CHR$(7);
120
FOR ROW=lTO 2
130
LPRINT CHR$(27);"Y';CHR$(41);CHR$(O);
140
FORCOLUMN=lTO
41
150
READ
N
160 LPRINTCHR$(N);
170
NEXT COLUMN
180
LPRINT
190 NEXT ROW
200 END
210
~~~~64,32,80,8,68,2,64,0,6'+,0
220
DATA64,0,64,0,32,0,16,0,8,0
230~~~~8,0,8,0,8,0,8,0,8,0,8,0,8,0
240~~~~184,64,32,16,8,4,2
250~~~~8,16,40,64,136,0,8,0,8,0
260~~~~8,0,8,0,16,0,32,0,64,0,64,0
270~~~~64,0,64,0,64,0,64,0,64,0,64,0
280~~~~116,8,16,32,64,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
