User-defined Characters
lOOLPRINTCHR$(27);"x";CHR$(l);
110 LPRINT CHR$(27);"&";CHR$(O);";;";
120LPRINTCHR$(O);CHR$(12);CHR$(O);
13OFORI=lTO36
140 READ D
l5O LPRINTCHR$(D);
160 NEXT I
170 LPRINT w;;;;;"
180 LPRINTCHR$(27);"%";CHR$(l);
190 LPRINT "j;;;;"
200LPRINTCHR$(27);"%";CHR$(O);
210 LPRINT "j;;;;"
220 END
230DATA4,0,0,8,0,0,16,0,0,32,0,0
240DATA64,0,0,255,255,192,64,0,0,32,0,0
250DATA16,0,0,8,0,0,4,0,0,0,0,0
Run the program to see the printout below:
4-30
Software and Graphics
