Star Micronics Multi-Font LC-IOII User Manual page 106

3450 FOR Y-l TO WI :BS=B$+CHRS(P(CC.Y)) :NEXT Y
3460 IF NOT NLQ THEN BJ=B$+STRING$(35.0) :GOTO 3480
3470 FOR Y-l TO WI :BE=BB+CHR5(Q(CC.Y)) :NEXT Y
3480 LSET AS-B5 :PUT C1.M
3490 NEXT CC :RETURN
3500 I_-_-_ Output to printer ---____________________________________
3510 LPRINT HDO;
3520 FOR CC-33 TO 126
3530 IF A(CC)<O THEN 3580
3540 LPRINT E5:"6":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 LFRINT E5;"%1"::RETURN
3600 '
3610 IF PB THEN 3640
3620 PP=INP(GHJBD)
:IF PP<128 THEN 3620
3630 OUT 6H3BC.Z :OUT 6H3BE.5 :OUT &H3BE,4 :GOTO 3660
3640 PP-INP(6H379)
:IF PP<12S THEN 3640
3650 OUT 6H370.Z :OUT 6H37A.5 :OUI hH37A.4
3660 REIURN
3670 I----- Plot character -______________-_--_____________________-----------
3680 LOCATE X*2+1.Y*2+1
:PRINT CS5
3690 LOCATE X'2+2.Y'2+1
:PRINT CSS :RETURN
3700 LOCATE BX"2+1,BY*2+1 :PRINT CSS
3710 LOCATE BX*2+2,BY*2+1 :PRINT CS5 :RETURN
3720 LOCATE X+2.Y+2
:PRINT CS5 :RETURN
3730 LOCATE BX+2,BY+2 :PRINT CS$ :RENRN
-
98