RANDOMIZE

OPEN #1:screen .2,.8,0.08,.92

OPTION ANGLE degrees

SET WINDOW -1,1,-1,1

DRAW square (1,0,0) with rotate (-30)

DRAW square (1,0,0) with rotate (-30)*shift(1,1)

DRAW square (1,0,0) with rotate (-30)*shift(-1,-1)

SET COLOR "cyan"

DRAW square (.5,0,0) with rotate (30)

DRAW square (.5,0,0) with rotate (30)*shift(-1,1)

DRAW square (.5,0,0) with rotate (30)*shift(1,-1)

SET COLOR "cyan"

BOX CIRCLE -.5,.5,-.5,.5

SET COLOR "white"

FLOOD 0,0

SET COLOR "blue"

FOR i=1 to 10

PLOT TEXT, AT log(2*rnd),log(2*rnd):"AMES 5"

PAUSE .3

SOUND 2000*rnd,1

NEXT i

PAUSE 3

CLEAR

OPEN #2:screen .2*.5,.8*.5,0.08*.5,.92*.5

OPTION ANGLE degrees

SET WINDOW -1,1,-1,1

DRAW square (1,0,0) with rotate (-30)

DRAW square (1,0,0) with rotate (-30)*shift(1,1)

DRAW square (1,0,0) with rotate (-30)*shift(-1,-1)

SET COLOR "cyan"

DRAW square (.5,0,0) with rotate (30)

DRAW square (.5,0,0) with rotate (30)*shift(-1,1)

DRAW square (.5,0,0) with rotate (30)*shift(1,-1)

SET COLOR "cyan"

BOX CIRCLE -.5,.5,-.5,.5

SET COLOR "white"

FLOOD 0,0

SET COLOR "blue"

FOR i=1 to 10

PLOT TEXT, AT log(2*rnd),log(2*rnd):"AMES 5"

PAUSE .3

SOUND 2000*rnd,1

NEXT i

PAUSE 3

OPEN #3:screen .2*.3+.5,.8*.3+.5,.08*.3,.92*.3

OPTION ANGLE degrees

SET WINDOW -1,1,-1,1

DRAW square (1,0,0) with rotate (-30)

DRAW square (1,0,0) with rotate (-30)*shift(1,1)

DRAW square (1,0,0) with rotate (-30)*shift(-1,-1)

SET COLOR "cyan"

DRAW square (.5,0,0) with rotate (30)

DRAW square (.5,0,0) with rotate (30)*shift(-1,1)

DRAW square (.5,0,0) with rotate (30)*shift(1,-1)

SET COLOR "cyan"

BOX CIRCLE -.5,.5,-.5,.5

SET COLOR "white"

FLOOD 0,0

SET COLOR "blue"

FOR i=1 to 10

PLOT TEXT, AT log(2*rnd),log(2*rnd):"AMES 5"

PAUSE .3

SOUND 2000*rnd,1

NEXT i

PAUSE 3

END

PICTURE square (r,x,y)

LET p=r/2

PLOT LINES:-p+x,p+y;p+x,p+y;p+x,-p+y;-p+x,-p+y;-p+x,p+y

SET COLOR "red/yellow"

FLOOD x,y

END PICTURE