Star Micronics NX-1000 manual OUT 6HHJBE.5 OUT 6H3BE.4 GOTO

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) :IFPP<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