#
# ZX Spectrum SCR (Loading screen) exporter
# A Multipaint internal script
#

XREM "Display file"

XREM "Bitmap"

FOR Y=0 TO 2
	FOR V=0 TO 7
		FOR E=0 TO 7
			FOR X=0 TO 31
				L=GRAB X,Y*64+E*8+V
				XBYTE L
			NEXT X
		NEXT E
	NEXT V
NEXT Y

XREM "Attributes"

FOR Y=0 TO 23
	P=65536+Y*256
	FOR X=0 TO 31
		R=0
		L=PEEK P
		H=PEEK P+6144

		IF L>7
			H=H-8	
			L=L-8
			R=64
		ENDIF

		IF H<0
			H=0
		ENDIF

		A=H*8+L+R

		XBYTE A

		P=P+1

	NEXT X
NEXT Y

# Write to file (6912 bytes)

RECENT "in_scr.txt"

SAVE

