|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

|0000
@counter $2

|0100
@on-reset ( -> )
	set-theme
	;on-screen .Screen/vector DEO2
	#0000 .counter STZ2
	( draw-sprite )	
	BRK

@on-screen ( -> )
	clear-screen
	draw-sprite	
	BRK

@draw-sprite ( -> )
	#0020 .counter LDZ2 ADD2 .Screen/x DEO2
	#0040 .Screen/y DEO2
	
	#21 .Screen/auto DEO
	;sprite2-icn .Screen/addr DEO2
	#c1 .Screen/sprite DEO

	.counter LDZ2 INC2 .counter STZ2
	JMP2r

@set-theme ( -- )
	#f07f .System/r DEO2
	#f0d6 .System/g DEO2
	#f0b2 .System/b DEO2
	JMP2r


@clear-screen ( -- )
	#0000 .Screen/x DEO2
	#0000 .Screen/y DEO2
	#00 .Screen/auto DEO
	#80 .Screen/pixel DEO
	#c0 .Screen/pixel DEO
	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
)