#
# Vic-20 hires exporter, expanded VIC
# A Multipaint internal script
#
# Uses Aleksi Eeben's source & format
#

XREM "MC header"

XBYTE $01,$12,$0B,$12,$14,$00,$9E,$34,$36,$32,$31,$00,$00,$00,$78,$A0
XBYTE $78,$A2,$F1,$B9,$96,$21,$48,$20,$6B,$12,$68,$4A,$4A,$4A,$4A,$20
XBYTE $6B,$12,$88,$10,$EE,$AD,$94,$21,$8D,$0E,$90,$AD,$95,$21,$8D,$0F
XBYTE $90,$A9,$8C,$8D,$05,$90,$A9,$96,$8D,$02,$90,$A9,$17,$8D,$03,$90
XBYTE $A2,$1D,$BD,$4D,$12,$95,$BF,$CA,$D0,$F8,$A0,$10,$4C,$C0,$00,$BD
XBYTE $74,$12,$9D,$00,$10,$E8,$D0,$F7,$E6,$C2,$E6,$C5,$88,$D0,$F0,$A9
XBYTE $EF,$8D,$20,$91,$4E,$21,$91,$B0,$FB,$4C,$22,$FD,$9D,$00,$96,$8A
XBYTE $9D,$00,$02,$CA,$60

XREM ".VIC format"

XREM "Bitmap"

FOR Y=0 TO 10
	FOR X=0 TO 21
		FOR V=0 TO 15
			L = GRAB X,Y*16+V	
			XBYTE L
		NEXT V
	NEXT X
NEXT Y

XREM "Aux in high nybble"

A = PEEK 2
A = A & 15
A = A * 16
XBYTE A

XREM "Back and Border in nybbles"

A = PEEK 0
A = A & 15

B = PEEK 1
B = B & 15

B = B * 16

C = A + B

XBYTE C

XREM "Colors as nybbles"
XREM "bit 3 high to multicolor"

S = 65536
FOR P=0 TO 120
	A = PEEK S
	A = A & 15

	A = A | 8

	S = S + 1

	B = PEEK (S)
	B = B & 15
	
	B = B | 8
	
	S = S + 1

	A = A * 16
	C = B + A

	XBYTE C
NEXT P

# Write to file (bytes)

SAVE
