#
# Export pixels
# 

# bitmap loop

XREM "Bitmap"

H=PEEK 5
W=PEEK 7
H=H*8
W=W*4
H=H-1
W=W-1

FOR Y=0 TO H

	X=0

	FOR I=0 TO W
		A=GETPOINT X,Y
        X=X+1
		B=GETPOINT X,Y
        B=B*16
        C=A+B
		XBYTE C
        X=X+1
	NEXT I

NEXT Y

SAVE

