Star Micronics Radix User Manual page 159

Printing
With Dot Graphics
145
S&S
'igure
12-2.
By laying out the logo on graph paper, you can calculate all of the
graphics data.
10 'Prints S&S loges.
20 LINE.8$ = CHR$(27)+CHR$(65)+CHR$(8)
30
'Set line spacing to l/6"
40
LINE.12$ = CHR$(27)+CHR$(50)
50 'Select dot graphics
60 GRAPHIC$ = CHR$(27)+CHR$(75)
70 DIM LOG0$(4)
80 WIDTH "LPT1:",255
90
1 READ DATA
100 FOR ROW = 1 TO 4
110 FOR COLUMN = 1 TO 100
120
READ P
130
LOGO$(ROW) = LOGO$(R~W) + m@(P)
140
NEXT COLUMN
150
NEXT ROW
160 ' PRINT LOGO
170 LPRINT LINE.8$;
180
FOR ROW = 1 TO 4
190 LPRINT GRAPHIC$;CHR$(Q@);CHR$(B);
200 LPRINT LOGO$(ROW)
210 NEXT ROW