

10 SECTION

DECIMAL   16 CONSTANT BIT/CELL
: (TURBOPLOT) ( ADDR Y -- )
	XRES 0 DO
		I OVER LOCATE-DOT  2DROP
		>R >R  0 
		BIT/CELL 0 DO
			2* SWAP 
			COUNT 0<> 1 AND
			ROT + 
		LOOP
		R> SWAP
		GRAFSEG R> !L
	BIT/CELL +LOOP
	2DROP  ;


VARIABLE TURBO-Y
VARIABLE TURBOBUF
: PLOT  ( COLOR X Y -- )
	TURBO-Y !   TURBOBUF @ + C!  ;

: TURBOPLOT  ( -- )
	TURBOBUF @ 
	TURBO-Y @
	(TURBOPLOT)  ;

