60 GRAPHICS = CHR$(27)+CHR$(75)
70 DIM LOG0$(4)
80 WIDTH "LPT1:",255
90' READ DATA
100 FOR ROW = 1 TO 4
110 FOR COLUMN = 1 TO 100
120 READ P
130 LOGO$(ROW) = LOGO$(ROW) + CHR$(P) 140 NEXT COLUMN
150 NEXT ROW
160' PRINT LOGO 1?0 LPRINT LINE.8$;
180FOR ROW = 1 TO 4
190 LPRINT GRAPHIC$;CHR$(100);CHR$(0);
200LPRINT LOGO$(ROW)
210NEXT ROW
220LPRINT LINE.12$
230 'ROW 1
240DATA 0,0,0,0,1,3,7,7,7,15
250DATA 14,14,14,1$,14,7,7,3,3,15
260 DATA 15,15,0,0,0,0,0,0,0,0
270 DATA 0,1,3,3,7,7,15,14,14,14
280DATA 14,15,7,7,7,3,0,0,0,0
290 DATA 8,8,0,8,8,8,8,8,8,8
300DATA 0,8,8,8,0,8,8,8,8,8
310DATA 0,0,0,0,1,3,7,7,7,15
320DATA 14,14,14,14,14,7,7,3,3,15
330DATA 15,15,0,0,0,0,0,0,0,0
340'ROW 2
350DATA 0,0,60,255,255,255,255,255,143,15
360DATA 7,7,7,7,3,3,3,131,193,241
370DATA 240,240,0,0,0,0,0,0,0,~
380DATA 121,253,253,255,255,255,143,7,7,7
390DATA 31,253,252,248,248,240,192,0,7,15
400DATA 31,31,15,7,3,0,0,0,0,0
410DATA 8,8,8,8,0,0,0,8,8,8
420DATA 0,0,60,255,255,255,255,255,143,15
430DATA 7,7,7,7,3,3,3,131,193,241
440DATA 240,240,0,0,0,0,0,0,0,0
450 'ROW 3
460 DATA 0,31,31,3,129,128,192,192,192,192
470 DATA 192,224,224,224,224,240,255,255,255,255
480 DATA 255,127,0,0,0,0,63,127,255,255
490 DATA 255,255,193,128,128,128,128,192,224,240
109
