Table of Contents
Advertisement
3120
3130
3140
3150
3160
3170
3180
3190
3200
3210
3220
3230
3240
3250
3260
4000
4010
4020
4030
4040
4050
4060
4070
4080
4090
4100
4110
4120
4130
4140
4150
4160
4170
4180
4190
4200
4210
4220
4230
4240
4250
4260
4270
4280
4290
4300
4310
4320
4330
4340
4350
4360
4370
NEXT M
RETURN
' Define LQ pica download character
LPRINT C$;
LPRINT E$;"&";CHR$(O);CHR$(6O):CHR$(60);
RESTORE 4100
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.
64;128,
16.
0. 44,
0, 80,
0, 44,120
DATA
33,120; 94,128, 33,120, 94,128
DATA
33, 24, 66,
0, 33, 24, 94,128, 33,120
;A";; ;;,128,
,
0, 33,120,
16,
0, 64,128,
12,
0
44,120, 80,
0
' LO pica download characer data
DATA -
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
4. 29,
3
7.
0.
0.
8.
0,
0, 23,
0,
0
40;
0;
o; 19; 15,192, 40, 16,
0
80, 47,192, 32, 80,
0, 80,175,192
47, 80,
0, 80,175,192, 47, 80,
0
80,163,192, 33, 64,
0, 80,163,192
33, 64,
0, 80,163,192, 47, 80,
0
80,175,192, 47, 80,
0, 80,175,192
32, 80,
0, 80, 47,192, 40, 16,
0
19, 15,192, 40,
0,
0, 23,
0,
0
8,
0,
0,
7,
0,
0
' Dot araphics data
' ROW i
-
DATA
0,
0,
0,
0,
1,
3,
7,
7,
7, 15
DATA
14, 14, 14, 14, 14,
7,
7,
3,
3, 15
DATA
15, 15,
0,
0,
0,
0,
6,
7,
7,
7
DATA
7,
7,
7,
7,
7,
6,
6,
0,
0,
7
DATA
7,
7,
7,
7,
7,
7,
7,
7,
7,
7
DATA
0,
0,
7,
7,. 7,
7,
7,
7,
7,
7
DATA
7.
7.
0.
0.
0
'ROW2'
DATA
0,
0, 60,255,255,255,255,255,143, 15
DATA
7,
7,
7,
7,
3,
3,
3,131,193,241
DATA 240,240,
0,
0,
0,
0,
0,
0,224,255
DATA 255,255,255,255, 31,
0,
0,
0,
1,
3
DATA
31,255,255,255,255,255,255,
1,
0,
0
4380 DATA
0,
1,
7, 31,255,252.240,192,128.
0
4390 DATA
0,
0,
0,
0,
0
4400 ' ROW 3
4410 DATA
0, 31, 31,
3,129,128,192,192,192,192
99
Advertisement
Table of Contents
