Star Micronics SG-10 - Page 117

60 GRAPHICS = CHR$(27)+CHR$(75)
70 DIM LOG0$(4)
80 WIDTH "LPTl:",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
170 LPRINT LINE.8$;
180 FOR ROW = 1 TO 4
190 LPRINT GRAPHIC$;CHR$(l00);CHR$(0);
200 LPRINT LOGO$(ROW)
210 NEXT ROW
220 LPRINT LINE.l2$
230 'ROW 1
240 DATA 0,0,0,0,1,3,7,7,7,15
250 DATA 14,14,14,14,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
280 DATA 14,15,7,7,7,3,0,0,0,0
290 DATA 0,0,0,0,0,0,0,0,0,0
L 300 DATA 0,0,0,0,0,0,0,0,0,0
310 DATA 0,0,0,0,1,3,7,7,7,15
320 DATA 14,14,14,14,14,7,7,3,3,15
330 DATA 15,15,0,0,0,0,0,0,0,0
340 'ROW 2
350 DATA 0,0,60,255,255,255,255,255,143,15
360 DATA 7,7,7,7,3,3,3,131,193,241
I
370 DATA 240,240,0,0,0,0,0,0,0,~
380 DATA 121,253,253,255,255,255,143,7,7,7
. 390 DATA 31,253,252,248,248,240,192,0,7,15
400 DATA 31,31,15,7,3,0,0,0,0,0
* 410 DATA 0,0,0,0,0,0,0,0,0,0
420 DATA 0,0,60,255,255,255,255,255,143,15
L DATA 430 7,7,7,7,3,3,3,131,193,241
440 DATA 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