Example 100 LPRINT CHR$(27);"x";CHR$(1);
110 LPRINT CHR$(27);"&";CHR$(0);";;";
120 LPRINT CHR$(0);CHR$(12);CHR$(0);
130 FOR I=1 TO 36
140 READ D
150 LPRINT CHR$(0);
160 NEXT I
170 LPRINT "; ; ; ; ; ;"
180 LPRINT CHR$(27);"%";CHR$(1);
190 LPRINT "; ; ; ; ; ;"
200 LPRINT CHR$(27);"%";CHR$(0);
210 LPRINT "; ; ; ; ; ;"
220 END
230 DATA 0,8,0,0,4,0,0,2,0,0,1,0
240 DATA 0,0,128,255,255,192,0,0,128,0,1,0
250 DATA 0,2,0,0,4,0,0,8,0,0,0,0
Download Character Generator
91