Star Micronics LC24-10 User Manual page 49

2120 NEXT ROW
2130 LPRINT ES;"@" 'Initialize printer
2140 END
2500 '
2510 ' SUBROUTINES
2520 ' Define super/subscript download character
2530 LPRINT
E$;"Sl";E$;":"; CHR$(O);CHR$(O);CHR$(O);
2540 LPRINT E$;"&";CHR$(O);CHR$(6O):CHR$(60);
2550 RESTORE 3020
2560 READ LS :LPRINT CHR$(LS);
2570 READ CW :LPRINT CHR$(CW);
2580 READ RS :LPRINT C!HR$(RS);
2590 FOR M=l TO CW*2
2600 READ MM
2610 LPRINT CHR$(MM);
2620 NEXT M
2630 RETURN
2640 '
2650 ' Define LQ pica download character
2660 LPRINT C$;
2670 LPRINT E$;"&";CHR$(O);CHR$(6O):CHR$(60);
2680 RESTORE 3100
2690 READ LS :LPRINT CHR$(LS);
2700 READ CW :LPRINT CHRQ(CW);
2710 READ RS :LPRINT CHR$(RS);
2720 FOR M=l TO CW*3
2730 READ MM
2740 LPRINT CHR$(MM);
2750 NEXT M
2760 RETURN
3000 '
3010 ' DATA
3020 ' Super/subscript download character data
3030 DATA 7, 23, 6
3040 DATA 12, 0,
16,
0, 44, 0, 80' 0, 44,120
3050 DATA 64,128, 33,120, 94,128, 33,120, 94,128
3060 DATA 33, 24, 66, 0, 33, 24, 94,128, 33,120
3070 DATA 94,128, 33,120, 64,128, 44,120, 00, 0
3000 DATA 44, 0, l.6, 0, 12, 0
3090 '
3100 ' LQ pica download characer data
3110 DATA 4, 29, 3
3120 DATA 7, 0, 0, 8, 0, 0, 23, 0, 0
3130 DATA 40, 0, 0, 19, 15,192, 40, 16, 0
3140 DATA 80, 47,192, 32, 80, 0, 80,175,192
3150 DATA 47, 80, 0, 80,175,192, 47, 80, 0
3160 DATA 80,163,192, 33, 64, 0, 80,163,192
3170 DATA 33, 64, 0, 80,163,192, 47, 80, 0
3180 DATA 80,175,192, 47, 80, 0, 80,175,192
3190 DATA 32, 80, 0, 80, 47,192, 40, 16, 0
3200 DATA 19, 15,192, 40, 0, 0, 23, 0, 0
3210 DATA 8, 0, 0, 7, 0, 0
3220 '
3230 ' Dot graphics data
3240 DATA 0, 0, 0, 0, 1, 3, 7, 7, 7, 15
.-
3250 DATA 14, 14, 14, 14, 14, 7, 7, 3, 3, 15
L.
41