Star Micronics NX-1000, User Manual

Page: 108 / 122

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