#
# MSX SC2 RAW importer
# A Multipaint internal script
#
# NYYRIKKI 2026
#

LOAD
Z = LENGTH

# Tiles

FOR Y=0 TO 23
	FOR X=0 TO 31
		FOR V=0 TO 7
			P=1024+X*8+Y*2048+V*256
			C=128
			READ L
			FOR B=0 TO 7
				A=L&C				
				IF A=0
					POKE P,0
				ENDIF
				IF A<>0
					POKE P,1
				ENDIF
				P=P+1
				C=C/2
			NEXT B
		NEXT V
	NEXT X
NEXT Y

# Colors, if available

IF Z>$1800
	FOR Y=0 TO 23
		FOR X=0 TO 31
			D=65536+X+Y*256
			J=65536+X+Y*256+6144
			FOR V=0 TO 7
				READ A
				H=A&$F0
				L=A&$0F
				H=H/16
				POKE D,H
				POKE J,L
				LET D=D+32
				LET J=J+32
			NEXT V
		NEXT X
	NEXT Y
ENDIF

# Default colors

IF Z<$1801
	FOR I=0 TO 6143
		P=I+65536
		POKE P,15
		P=P+6144
		POKE P,0
	NEXT I
ENDIF

REFRESH

