|00 @System/vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
|20 @Screen/vector $2 &width $2 &height $2 &auto $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1

|100
@on-reset ( -> )
	set-theme
	#0020 .Screen/x DEO2
	#0040 .Screen/y DEO2
	( ;sprite-icn .Screen/addr DEO2 )
	( #01 .Screen/sprite DEO )
	#00 .Screen/auto DEO
	;sprite2-icn .Screen/addr DEO2
	#c1 .Screen/sprite DEO
	BRK

@set-theme ( -- )
	#f07f .System/r DEO2
	#f0d6 .System/g DEO2
	#f0b2 .System/b DEO2
	JMP2r
	
@sprite-icn
	00 66 ff ff ff 7e 3c 18
@sprite2-icn
        18 3c 66 e7 ff 7e 5a 00  00 24 42 99 81 e7 db 81
		30 78 48 4c 7c 04 34 04  10 50 c0 f0 f0 fc bc 84


(
. . . . . . . . 00
. # # . . # # . 66
# # # # # # # # ff
# # # # # # # # ff
# # # # # # # # ff
. # # # # # # . 7e
. . # # # # . . 3c
. . . # # . . . 18
)