Table of Contents
Advertisement
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
Advertisement
Table of Contents
Troubleshooting
