#
# MSX SC2 RAW tile exporter
# A Multipaint internal script
#

XREM "Tiles"

FOR Y=0 TO 23
	FOR X=0 TO 31
		FOR V=0 TO 7
			C=128
			A=0
			FOR B=0 TO 7
				P=V*256
				P=P+B
				M=X*8
				P=P+M
				M=Y*2048
				P=P+M
				P=P+1024
				O=PEEK P
				M=C*O
				A=A+M
				C=C/2
			NEXT B

			P=Y*256
			P=P+X
			P=P+65536
			M=V*32
			P=P+M
			H=PEEK P
			P=P+6144
			L=PEEK P
			IF H<L
				A=255-A
			ENDIF
			XBYTE A
		NEXT V
	NEXT X
NEXT Y

# Write to file (0x1800 bytes)

SAVE

