###########################################
#
#  Smile
#
#  Draw smiley faces on the screen randomly
#  and periodically clear the display.
#
###########################################

: smile
	0b00100100
	0b00100100
	0b00000000
	0b10000001
	0b01000010
	0b00111100

: main
	i := smile
	loop
		v2 := 0
		loop
			v0 := random 0b00111111
			v1 := random 0b00011111
			sprite v0 v1 6
			v2 += 1
			if v2 != 32 then
		again
		clear
	again