#
# MSX SC5 exporter
# A Multipaint internal script
#
# NYYRIKKI 2026
#

XREM "SC5 Header"

XBYTE 254,0,0,$9F,$76,0,0

FOR I=0 TO $767F
	P=1024+I
	D=PEEK P
	L=D&$F0
	H=D&$F
	H=H*16
	L=L/16
	D=H+L
	XBYTE D
NEXT I

# Save palette

A=256
FOR I=0 TO 15
	R=PEEK A
	A=A+1
	G=PEEK A
	A=A+1
	B=PEEK A
	A=A+1

	R=R/36
	G=G/36
	B=B/36

	L=R*16+B

	XBYTE L
	XBYTE G
NEXT I

# Write to file

RECENT "msx_in_sc5.txt"

SAVE

