|10 @Console &vector $2 &read $1 &pad $5 &write $1
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &chord $1

|0100

	;on-mouse .Mouse/vector DEO2

BRK

@on-mouse ( -> )

	.Mouse/state DEI DUP ?&on-press POP

BRK

&on-press ( state -> )

	LIT "0 ADD #18 DEO #0a18 DEO

BRK