#
# Commodore 64 KOALA multicolor exporter
# A Multipaint internal script
#

XREM "Koala header"

XBYTE 0,96

XREM "Bitmap"

FOR Y=0 TO 24
	FOR X=0 TO 39
		FOR V=0 TO 7
			L = GRAB X,Y*8+V	
			XBYTE L
		NEXT V
	NEXT X
NEXT Y

XREM "Colors 1 and 2"

FOR P=65536 TO 66535
	L = PEEK P
	H = PEEK P+1000
	XBYTE H*16+L
NEXT P

XREM "Colors 3"

FOR P=67536 TO 68535
	A = PEEK P
	XBYTE A
NEXT P

XREM "Backgnd"

B = PEEK 1

XBYTE B

# Write to file (10003 bytes)

SAVE
