#
# Commodore 64 prg executable hires 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,$77,$28,$9D,$00,$40,$BD,$77,$29,$9D,$00,$41,$BD,$77,$2A,$9D
BYTE $00,$42,$BD,$5F,$2B,$9D,$E8,$42,$CA,$D0,$E5,$A2,$00,$BD,$37,$09
BYTE $9D,$00,$60,$BD,$37,$0A,$9D,$00,$61,$BD,$37,$0B,$9D,$00,$62,$BD
BYTE $37,$0C,$9D,$00,$63,$BD,$37,$0D,$9D,$00,$64,$BD,$37,$0E,$9D,$00
BYTE $65,$BD,$37,$0F,$9D,$00,$66,$BD,$37,$10,$9D,$00,$67,$BD,$37,$11
BYTE $9D,$00,$68,$BD,$37,$12,$9D,$00,$69,$BD,$37,$13,$9D,$00,$6A,$BD
BYTE $37,$14,$9D,$00,$6B,$BD,$37,$15,$9D,$00,$6C,$BD,$37,$16,$9D,$00
BYTE $6D,$BD,$37,$17,$9D,$00,$6E,$BD,$37,$18,$9D,$00,$6F,$CA,$D0,$9D
BYTE $BD,$37,$19,$9D,$00,$70,$BD,$37,$1A,$9D,$00,$71,$BD,$37,$1B,$9D
BYTE $00,$72,$BD,$37,$1C,$9D,$00,$73,$BD,$37,$1D,$9D,$00,$74,$BD,$37
BYTE $1E,$9D,$00,$75,$BD,$37,$1F,$9D,$00,$76,$BD,$37,$20,$9D,$00,$77
BYTE $BD,$37,$21,$9D,$00,$78,$BD,$37,$22,$9D,$00,$79,$BD,$37,$23,$9D
BYTE $00,$7A,$BD,$37,$24,$9D,$00,$7B,$BD,$37,$25,$9D,$00,$7C,$BD,$37
BYTE $26,$9D,$00,$7D,$BD,$37,$27,$9D,$00,$7E,$BD,$37,$28,$9D,$00,$7F
BYTE $CA,$D0,$9D,$AD,$12,$D0,$C5,$F8,$90,$F9,$A9,$14,$8D,$18,$D0,$AD
BYTE $34,$09,$8D,$20,$D0,$AD,$11,$D0,$29,$DF,$09,$20,$8D,$11,$D0,$AD
BYTE $16,$D0,$29,$EF,$09,$00,$8D,$16,$D0,$AD,$00,$DD,$29,$FC,$09,$02
BYTE $8D,$00,$DD,$AD,$18,$D0,$29,$F1,$09,$08,$29,$0F,$8D,$18,$D0,$AD
BYTE $00,$DC,$4C,$2E,$09

# border & backg & backg2

B = PEEK 0
BYTE B
B = PEEK 1
BYTE $0
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*320
		P = P+X
		P = P+65536
		H = PEEK P
		P = P+8000
		L = PEEK P
		M = H*16
		A = M+L
		BYTE A
	NEXT X
NEXT Y

# Write to file

SAVE
