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