|00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1

|0000

	@f $2

|0100

	#ff0f .System/r DEO2
	#f0a0 .System/g DEO2
	#f020 .System/b DEO2
	( size )
	#0100 .Screen/width DEO2
	#0080 .Screen/height DEO2
	( animate )
	;on-frame .Screen/vector DEO2

BRK

@on-frame ( -> )

	.Screen/height DEI2 #0000
	&v
		STHk
		DUP2 .Screen/y DEO2
		.Screen/width DEI2 #0000
		&h
			DUP2 .Screen/x DEO2
			DUP STHkr ADD #1f AND .f LDZ ADD #03 SFT
				.Screen/pixel DEO
			INC2 GTH2k ,&h JCN
		POP2 POP2 POPr
		INC2 GTH2k ,&v JCN
	POP2 POP2
	.f LDZk INC SWP STZ

BRK