Star Micronics NX-10 user manual For ANG%=O

80	LX=~O	: LY=20
90	LXFAC=72/LX	: LYFAC=~'~'/LY

1001 Plot curve

110GOSUB 600

120 1

1301 Send bit image map to printer

140LPRINT CHR$(27);"A";CHR$(6);

150FOR ROW%=0 TO MAXROW%

160A$=""

170 LPRINT CHR$(27) ;"*";CHR$(O);CHR$(MAXCOL%);

CHR$(O) ;

180 FOR COL%=l TO MAXCOL%

190A$=A$+CHR$(BIT%(COL%,ROW%))

200NEXT COL%

210LPRINT A$;" It

220NEXT ROW%

230LPRINT CHR$(27>;"A";CHR$(l2);

240END

250 1

260) Subroutine to draw a line from Xl,Yl to X2,Y2

270I

280	XL=X2-Xl	: YL=Y2-Yl
290	NX=ABS(XL*LXFAC)	: NY=ABS(YL*LYFAC)
300	IF NX < NY THEN	NX=NY

310NS$=INT(NX+l)

320	DX=XL/NS%		: DY=YL/NS%
	'FOR I%=1 TO		NS%
it: Xl-Xl+DX			: Yl=Yl+DY
	GOSUB	400
;zi	NEXT	1%
	RETURN

2:I

410 1 Subroutine to plot a point at Xl,Yl

420

430 XX=Xl"LXFAC : YY=Yl"LYFAC

440COL%=INT(XX)+l

450ROW%=INT(YY/6)

460XIT%=INT(YY-ROW%s6)+l

.470 BIT%(COL%,ROW%)=BIT%(COL%,ROW%) OR MASK%(XIT%)

480RETURN

600?

610( Subroutine to plot a circle

620!

630RAD=9

640	x1=19	: Yl=lO
650	FOR ANG%=O	To 360 STEP 10