Star Micronics LC-200 - page 112

I
2070
2080
2090
2100
2110
2120
2130
2140
2150
2160
2170
2180
2190
2200
2210
2220
2230
2240
2250
2260
2270
2280
2290
2300
2310
2320
2330
2340
2350
2360
2370
2380
2390
2400
2410
2420
2430
2440
2450
2460
2470
2480
2490
2500
2510
2520
2530
2540
2550
2560
2570
2580
2590
2600
2610
2620
2630
FOR M=O TO 11
READ MM
LPRINT CHR5(MM);
NEXT M
RETURN
‘ Define NLQ download character
LPRINT C$;E$;’’&’’;CHR$(O);CHR$(60);CHR$(60);
LPRINT CHR$(0);CHR$(23);CHR$(IJ);
RESTORE 2270
FOR M=l TO 69
READ MM
LPRINT CHR$(MM);
NEXT M
RETURN
‘ DATA
‘ Draft download character data
DATA 139.124, 0, 66, 4, 64, 36, 16, 2, 16, 12, 0
‘ NLQ download character data
DATA 1,248, 0, 6, 0. 0. 8,124, 0. 16, 2, 0
DATA 32,124, 0, 0. 2. 0, 32,124, 0, 0. 0, 0
DATA 63,248, 0. 0, 0, 0, 32, 0, 0, 0,120, 0
DATA 16, 0, 0, 8,120, 0. 4, 0. 0, 2,124, 0
DATA 1,130, 0. 0,124, 0, 0,130, 0, 0,124, 0
DATA 0,128, 0, 0,120, 0, 0, 0, 0
‘ Dot graphics data
‘ ROW 1
DATA O, 0, 0, 0, 1, 3. 7> 7, 7, 15, 14, 14
DATA 14, 14, 14, 7, 7, 3, 3, 15, 15, 15, 0, 0
DATA O. 0, 6, 7. 7, 7> 7, 7. 7, 7, 7. 6
DATA 6, 0. 0, 7, 7, 7> 7. 7. 79 7, 7, 7
DATA 7. 7, 0, 0, 7. 7, 7. 7, 7. 7, 7. 7
DATA 7. 7, 0, O: O
‘ ROW 2
DATA 0, 0, 60,255,255,255,255>255. 143, 15, 7, 7
DATA 7, 7, 3, 3, 3,131,193,241,240,240, 0. 0
DATA 0. 0, 0, 0,224,255,255,255,255,255> 31, 0
DATA O, 0, 1, 3, 31,255,255>255,255,255. 255. 1
DATA 0, 0, 0. 1, 7, 31,255,252.240,192,128, O
DATA 0. 0. 0, 0. 0
‘ ROW 3
DATA o, 31, 31, 3,129,128,192,192,192,192,192,224
DATA 224,224,224,240,255,255, 255,255>255,127, 0, 0
DATA 0, 0, 0, 0, 0,192,255,255,255,255,255, 15
DATA 15, 63.252,240>192, 0,240,255,255,255,255 ,255
DATA 7, 15,127,252,240,192, 0, 0, 0> 0, 0. 0
DATA 0, 0, 0, 0, 0
‘ ROW 4
DATA 0,248,248,240,224,224.112,112, 56, 56. 56, 56
DATA 56.120>120>240>240,224,224,192>128> 0. 0, 0
DATA 0, 0, 0. 0, 0> 0,128,248,248,248,248,240
DATA 192, 0, 0, 0, 0, 0, 240,248>248,248,248 ,240
DATA 192, 0, 0, 0, 0> 0, 0> Or 0/ 0/ 0, 0
DATA O, 0, 0. 0. 0