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

# is this hires (22) or multicolor (222)
# if mode is 222, set bit 3 in color data

M=PEEK 3

XREM "MC header"

BYTE $01,$12,$0B,$12,$14,$00,$9E,$34,$36,$32,$31,$00,$00,$00,$78,$A0
BYTE $78,$A2,$F1,$B9,$96,$21,$48,$20,$6B,$12,$68,$4A,$4A,$4A,$4A,$20
BYTE $6B,$12,$88,$10,$EE,$AD,$94,$21,$8D,$0E,$90,$AD,$95,$21,$8D,$0F
BYTE $90,$A9,$8C,$8D,$05,$90,$A9,$96,$8D,$02,$90,$A9,$17,$8D,$03,$90
BYTE $A2,$1D,$BD,$4D,$12,$95,$BF,$CA,$D0,$F8,$A0,$10,$4C,$C0,$00,$BD
BYTE $74,$12,$9D,$00,$10,$E8,$D0,$F7,$E6,$C2,$E6,$C5,$88,$D0,$F0,$A9
BYTE $EF,$8D,$20,$91,$4E,$21,$91,$B0,$FB,$4C,$22,$FD,$9D,$00,$96,$8A
BYTE $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	
			BYTE L
		NEXT V
	NEXT X
NEXT Y

XREM "Aux in high nybble"

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

XREM "Back and Border in nybbles"

A = PEEK 0
A = A & 15

A = A | 8

B = PEEK 1
B = B & 15

B = B * 16

C = A + B

BYTE C

XREM "Colors as nybbles"

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

	IF M=222
		A = A | 8
	ENDIF

	S = S + 1

	B = PEEK (S)
	B = B & 15
	
	IF M=222
		B = B | 8
	ENDIF

	S = S + 1

	A = A * 16
	C = B + A
	BYTE C
NEXT P

# Write to file (bytes)

SAVE
