#
# Commodore 64 prg executable multicolor exporter
# A Multipaint internal script
#

# machine code header

BYTE $01,$08,$0B,$08,$20,$03,$9E,$32,$30,$36,$31,$00,$00,$00,$A2,$00
BYTE $BD,$9A,$28,$9D,$00,$40,$BD,$9A,$29,$9D,$00,$41,$BD,$9A,$2A,$9D
BYTE $00,$42,$BD,$82,$2B,$9D,$E8,$42,$CA,$D0,$E5,$A2,$00,$BD,$82,$2C
BYTE $9D,$00,$D8,$BD,$82,$2D,$9D,$00,$D9,$BD,$82,$2E,$9D,$00,$DA,$BD
BYTE $6A,$2F,$9D,$E8,$DA,$CA,$D0,$E5,$A2,$00,$BD,$5A,$09,$9D,$00,$60
BYTE $BD,$5A,$0A,$9D,$00,$61,$BD,$5A,$0B,$9D,$00,$62,$BD,$5A,$0C,$9D
BYTE $00,$63,$BD,$5A,$0D,$9D,$00,$64,$BD,$5A,$0E,$9D,$00,$65,$BD,$5A
BYTE $0F,$9D,$00,$66,$BD,$5A,$10,$9D,$00,$67,$BD,$5A,$11,$9D,$00,$68
BYTE $BD,$5A,$12,$9D,$00,$69,$BD,$5A,$13,$9D,$00,$6A,$BD,$5A,$14,$9D
BYTE $00,$6B,$BD,$5A,$15,$9D,$00,$6C,$BD,$5A,$16,$9D,$00,$6D,$BD,$5A
BYTE $17,$9D,$00,$6E,$BD,$5A,$18,$9D,$00,$6F,$CA,$D0,$9D,$BD,$5A,$19
BYTE $9D,$00,$70,$BD,$5A,$1A,$9D,$00,$71,$BD,$5A,$1B,$9D,$00,$72,$BD
BYTE $5A,$1C,$9D,$00,$73,$BD,$5A,$1D,$9D,$00,$74,$BD,$5A,$1E,$9D,$00
BYTE $75,$BD,$5A,$1F,$9D,$00,$76,$BD,$5A,$20,$9D,$00,$77,$BD,$5A,$21
BYTE $9D,$00,$78,$BD,$5A,$22,$9D,$00,$79,$BD,$5A,$23,$9D,$00,$7A,$BD
BYTE $5A,$24,$9D,$00,$7B,$BD,$5A,$25,$9D,$00,$7C,$BD,$5A,$26,$9D,$00
BYTE $7D,$BD,$5A,$27,$9D,$00,$7E,$BD,$5A,$28,$9D,$00,$7F,$CA,$D0,$9D
BYTE $AD,$12,$D0,$C5,$F8,$90,$F9,$A9,$14,$8D,$18,$D0,$AD,$57,$09,$8D
BYTE $20,$D0,$AD,$58,$09,$8D,$21,$D0,$AD,$11,$D0,$29,$DF,$09,$20,$8D
BYTE $11,$D0,$AD,$16,$D0,$29,$EF,$09,$10,$8D,$16,$D0,$AD,$00,$DD,$29
BYTE $FC,$09,$02,$8D,$00,$DD,$AD,$18,$D0,$29,$F1,$09,$08,$29,$0F,$8D
BYTE $18,$D0,$AD,$00,$DC,$4C,$51,$09

# border & backg & backg2

B = PEEK 0
BYTE B
B = PEEK 1
BYTE B
BYTE $0

# bitmap

FOR Y=0 TO 24
	FOR X=0 TO 39
		FOR V=0 TO 7
			C=128
			L=0
			FOR B=0 TO 7
				P=V*320
				P=P+B
				M=X*8
				P=P+M
				M=Y*2560
				P=P+M
				P=P+1024
				O=PEEK P
				M=C*O
				L=L+M
				C=C/2
			NEXT B
			BYTE L
		NEXT V
	NEXT X
NEXT Y

# color RAM

FOR Y=0 TO 24
	FOR X=0 TO 39
		P = Y*40
		P = P+X
		P = P+65536
		L = PEEK P
		P = P+1000
		H = PEEK P
		M = H*16
		A = M+L
		BYTE A
	NEXT X
NEXT Y

# color RAM2

FOR Y=0 TO 24
	FOR X=0 TO 39
		P = Y*40
		P = P+X
		P = P+65536
        P = P+2000
		L = PEEK P
		A = L
		BYTE A
	NEXT X
NEXT Y

# Write to file

SAVE

