Star Micronics NX-I 00011 manual Rft’Urn

3450 FOR Y-1 TO WI :B$-B$+CHR$(P(CC,YJ) :NEXT Y

3460 IF NOT NLQ THEN BS-B$+STRING$(35,0) :GOTO 348o

3470 FOR Y-1 TO WI :B$-B$+CHR$(Q(CC,Y)) :NEXT Y

-,-----

JqO” LSI?TA$-B$ :PuT #l,M 3490 NEXTCC :RI?IIJRN

3500 ‘----- Output to Printer ------------------------------------------------

3510 LPRINT HD$; 3!320FOR CC-33 TO 126 3530 IF A(CC)<O THEN 3580

3540 LPRINT E$;-&’’;CHR$(0);STRING$(2,CC);:Z-A(CC) :GOSUB 36OO 3550 FOR Y-1 TO WI :Z-P(CC,Y) :GOSUB 3600 :NEXT Y

3560 IF NOT NLQ THEN 3580

3570 FOR Y-1 TO WI :Z-Q(CC,Y) :GOSUB 3600 :NEXT Y 3580 NEXT CC

3590 LFRINT E$;’’%l’’;:RETURN 36oO

3610 IF PB THEN 3640

3620 PP-INP(6H3BD) :IF PP<12S THEN 3620

3630 OUT &H3BC,Z :OUT $4H3BE,5 :OliT6H3BE.4 :GOTO 3660

3640 PP-INP(&H379) :IF PP<128 THEN 3640

3650 OUT &H378,z :OLiT&li37A.5 :OUT &H37A.4

3660	RFT’URN
3670	‘-----	Plot character	----------------------------------------------------
3680	LOCATE	X*2+1,Y*2+1	:PRINT CS$	:
3690	LOCATE	X*2+2,Y*2+1	:PRINT CS$
37OO LOCATE		BX*2+1,BY*2+1 :PRIWT CSS
3710	LOCATE	BX*2+2.BY*2+1	,PRINT CS$	:R3TURN
3720	LOCATE X+2,Y+2		:PRIWT CS$	:REllJRN
373o LOCATE BX+2.BY+2			:PRINT CS$	:RETURN

—.

—

.

—

—

—

—

-.

—

—

—

—

—

.