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