Star Micronics lC-10 - Page 103

3450 FOR Y-l TO WI :BS=BO+CHR$(P(CC,Y)) :NEXT Y
3460 IF NOT NLQ THEN B5=BE+STRING5(35.0) :GOTO 3480
3470 FOR Y-l TO WI :B$=B$+CHRI(Q(CC,Y)) :NEXT Y
3480 LSET A$=BB :PUT X1.M
3490 NEXT CC :RETURN
3500
I----- Output to printer -----------------------~--------------
3510 LPRINT HD5;
3520 FOR CC-33 TO 126
3530 IF A!CC)<O THEN 3580
3540 LPRINT E5;"&";CHR5~O);STRING5(2,CC);:Z=A(CC) :GOSUB 3600
3550 FOR Y-l TO WI :Z=P(CC,Y) :GOSUB 3600 :NEXT Y
3560 IF NOT NLQ THEN 3580
3570 FOR Y-l TO WI :Z=Q(CC,Y) :GOSUB 3600 :NEXT Y
3580 NEXT CC
3590 LPRINT ES:"%l"::RETURN
3600 '
3610 IF PB THEN 3640
3620 PP-INP(GH3BD) :IF
PP<128 THEN 3620
3630 OUT 6HJBC.Z :OUT hH3BE.5 :OUT hH3BE.4 :GOTO 3660
3640 PP-INP(bH379) :IF
PP<128 THEN 3640
3650 OUT hH37B.Z :OUT hH37A.5 :OUT bH37A.4
3660 RETURN
3670
I_---- p,,,t =haracter ---------------_________________________-----~~~~~~~
3680 LOCATE X*2+1.Y*2+1
:PRINT CS5
3690 LOCATE X'2C2.Y'2+1 :PRINT CS$ :RETURN
3700 LOCATE BX*2+1,BY*2+1 :PRINT CS5
3710 LOCATE BX*2+2.BY*2+1 :PRINT CSS :RETURN
3720 LOCATE X+2.Y+2
:PRIM CS5 :RETURN
3730 LOCATE BX+2,BY+2
:PRIM CS$ :RETURN
96