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
I Define super/subscript download character
LPRINT E$;"Sl";E$;":" ;CHR$(O);CHR$(O);CHR$(Oj;
LPRINT E$;"&";CHR$(O);CHR$(6O);CHR$(6O);
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 M
RETURN
' Define LQ pica download character
LPRINT C$;
LPRINT E$;"&";CHR$(O);CHR$(6O);CHR$(60);
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
* 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,
0, 0, 0, 23, 0, 0
DATA 40, 0, 0,
19, 15,192, 40, 16, 0
DATA 00, 47,192,
32, 80, 0, 80,175,192
DATA 47, 00, 0,
80,175,192, 47, 60, 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, 00, 0,
80, 47,192, 40, 16, 0
DATA 19, 15,192,
40, 0, 0, 23, 0, 0
DATA 8, 0, 0,
7, 0, 0
' 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