#
# MSX SC5 importer
# A Multipaint internal script
#
# NYYRIKKI 2026
#
# fail if less than 14343
#


LOAD

# Error checking

Z = LENGTH
Z=Z-7

IF Z<1
	ALERT 1
	STOP
ENDIF
IF Z>$8000
	ALERT 1
	STOP
ENDIF

# header

READ A
IF A<>$FE
	ALERT 1
	STOP
ENDIF
READ S
READ B
S=256*B+S
READ E
READ B
E=256*B+E
IF S>E
	ALERT 1
	STOP
ENDIF
READ L
READ H
T=E

# Oversize bitmap
IF E>$767F
	E=$767F
ENDIF

FOR I=S TO E
	READ D
	L=D&$F0
	H=D&$F
	H=H*16
	L=L/16
	D=H+L

	P=I+1024
	POKE P,D
NEXT I

IF T<$769F
	STOP
ENDIF

	A=256
	R=0
	G=0
	B=0

	FOR I=0 TO 15
		READ H
		READ L

		R=H&$70
		R=R/16
		G=L&$7
		B=H&$7

		P=R/2
		R=R*36
		R=R+P

		P=G/2
		G=G*36
		G=G+P	

		P=B/2
		B=B*36
		B=B+P	

		POKE A,R
		A=A+1
		POKE A,G
		A=A+1
		POKE A,B
		A=A+1
	NEXT I
REFRESH
