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