Star Micronics NX-1000 User Manual page 108

FOR Y-l TO Wl :B$-B$+CHR$(P(CC,Y) ) .-NEXT Y
3450
3460 IF NOT NLQ THEN BS-BS+STRINGS(35,0) :GOTO 3480
FOR Y-l TO Wl :B$-B$+CHR$(Q(CC,Y)) :NEXT Y
3470
LSET A$-B$ :PUT #1.M
3480
3490 NEXT CC :RETURN
' ----- Output to Printer ----------------------
3500
LPRINT HD$;
3510
3520 FOR CC-33 TO 126
3530 IF A ( C C K O THEN 3580
LPRINT E $ ; ; C H R $ ( 0 ) ;STRINGS(2,CC);:Z-A(CC)
3540
3550 FOR Y-l TO Wl :Z-P(C C ,Y) :GOSUB 3600 :NEXT Y
3560 IF NOT NLQ THEN 3580
FOR Y-l TO Wl : Z-Q(C C , Y) .-GOSUB 3600 : NEXT Y
3570
3580 NEXT CC
3590 LPRINT E $ ;"SI";:RETURN
3600
3610 IF PB THEN 3640
3620 PP-INP(&H3BD) :IF PP<128 THEN 3620
OUT &H3BC,Z .-OUT &H3BE.5 .-OUT &H3BE,4
3630
3640
PP-INP(&H379) :IF PP<128 THEN 3640
3650 OUT &H378,Z :OUT &H37A,5 .-OUT &H37A,4
3660 RETURN
3670 •-----Plot character-------------------
3680 LOCATE X*2 + l ,Y*2 + l
3690 LOCATE X*2+2,Y*2+l
3700
LOCATE BX*2 + 1,BY*2+1 .-PRINT CSS
3710 LOCATE BX*2 + 2 , BY*2 + 1 .-PRINT CSS .-RETURN
LOCATE X+2.Y+2
3720
3730 LOCATE BX + 2.BY+2
98
:GOTO 3660
:PRINT CS$
.-PRINT CSS :RETURN
:PRINT CSS :RETURN
.-PRINT CSS .RETURN
.-GOSUB 3600
1
•
1 ■