Star Micronics NX-1000 User Manual page 106

3450 FOR Y-l TO WI :BS-BS+CHRS(P(C!C.Y)) :NEXT Y
3460 IF NOT NLQ THEN BS-BS+STRINGS(35.0) :GOTO 3480
3470 FOR Y-l TO WI :BS-BS+CHRS(Q(CC.Y)) :LEXT Y
3480 LSET AS-B5 :PUT #l,M
3490 NEXT CC :RETURN
3500 ~_---- Output to printer -----------------___-----------------------------
3510 LPRINT HDS;
3520 FOR CC-33 TO 126
3530 IF A(CC)<O TEEN 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 NLP THEN 3580
3570 FOR Y-l TO WI :Z-Q(CC,Y) :GOSUB 3600 :NEXT Y
3580 NEXT CC
3590 LPRINT E5:"%1"::RETURN
3600 '
3610 IF PB THEN 3640
3620 PP-INP(SHBBD)
:IF
PP<128 THEN 3620
3630 OUT 6H3BC.Z
:OUT 6HHJBE.5 :OUT
6H3BE.4 :GOTO 3660
3640 PP-INP(Mi379) :IF PP<128 THEN 3640
3650 OUT 6H378.Z
:OUT SH37A.5 :OUl- hH37A.4
3660
RETURN
-
3670 I----- plot charact,,= --------------------------------------------------
3680
LOCATE X*2+1.Y*2+1 :PRINT CSt
3690 LOCATE X'2+2.Y*2+1
:PRINT css :RETURN
3700 LOCATE BX"2+1.BY"2+1 :PRIM CSS
3710 LOCATE BX'2+2,BY*2+1 :PRINT CS5 :RETURB
3720
LOCATE X+2.Y+2 :PRINT css :REluRN
3730
LOCATE BX+2,BY+Z
:PRINT CS5 :RETURN
98