'
'
'
'
'
'
'
'
'
'
'
DIM happy%(1 TO 300)
CLS : SCREEN 8
x1% = 30: y1% = 40: x2% = 100: y2% = 75: x3% = 230: y3% = 35
x4% = 30: y4% = 40: x5% = 100: y5% = 75: x6% = 230: y6% = 35
x7% = 30: y7% = 40: x8% = 100: y8% = 75: x9% = 230: y9% = 35
x10% = 30: y10% = 40: x11% = 100: y11% = 75: x12% = 230: y12% = 35
x13% = 30: y13% = 40: x14% = 100: y14% = 75: x15% = 230: y15% = 35
x16% = 30: y16% = 40: x17% = 100: y17% = 75: x18% = 230: y18% = 35
CIRCLE (50, 50), 20, 14
PAINT (50, 50), 14
CIRCLE (44, 47), 4, 0
CIRCLE (56, 47), 4, 0
CIRCLE (50, 50), 15, 0, 3, .2
GET (x1%, y1%)-(70, 60), happy%
PUT (x2%, y2%), happy%
PUT (x3%, y3%), happy%
PUT (x4%, y4%), happy%
PUT (x5%, y5%), happy%
PUT (x6%, y6%), happy%
d! = 1 / 100
CIRCLE (300, 95), 150, 14
PAINT (300, 95), 14
CIRCLE (250, 70), 15, 0
PAINT (250, 70), 0
CIRCLE (350, 70), 15, 0
PAINT (350, 70), 0
CIRCLE (300, 95), 110, 0, 3, .1
DO
 PUT (x1%, y1%), happy%, XOR
 x1% = RND * 580
 y1% = RND * 175
 PUT (x1%, y1%), happy%
 PUT (x2%, y2%), happy%, XOR
 x2% = RND * 580
 y2% = RND * 175
 PUT (x2%, y2%), happy%
 PUT (x3%, y3%), happy%, XOR
 x3% = RND * 580
 y3% = RND * 175
 PUT (x3%, y3%), happy%
 PUT (x4%, y4%), happy%, XOR
 x4% = RND * 580
 y4% = RND * 175
 PUT (x4%, y4%), happy%
 PUT (x5%, y5%), happy%, XOR
 x5% = RND * 580
 y5% = RND * 175
 PUT (x5%, y5%), happy%
 PUT (x6%, y6%), happy%, XOR
 x6% = RND * 580
 y6% = RND * 175
 PUT (x6%, y6%), happy%
 PUT (x7%, y7%), happy%, XOR
 x7% = RND * 580
 y7% = RND * 175
 PUT (x7%, y7%), happy%
 PUT (x8%, y8%), happy%, XOR
 x8% = RND * 580
 y8% = RND * 175
 PUT (x8%, y8%), happy%
 PUT (x9%, y9%), happy%, XOR
 x9% = RND * 580
 y9% = RND * 175
 PUT (x9%, y9%), happy%
 PUT (x10%, y10%), happy%, XOR
 x10% = RND * 580
 y10% = RND * 175
 PUT (x10%, y10%), happy%
 PUT (x11%, y11%), happy%, XOR
 x11% = RND * 580
 y11% = RND * 175
 PUT (x11%, y11%), happy%
 PUT (x12%, y12%), happy%, XOR
 x12% = RND * 580
 y12% = RND * 175
 PUT (x12%, y12%), happy%
 PUT (x13%, y13%), happy%, XOR
 x13% = RND * 580
 y13% = RND * 175
 PUT (x13%, y13%), happy%
 PUT (x14%, y14%), happy%, XOR
 x14% = RND * 580
 y14% = RND * 175
 PUT (x14%, y14%), happy%
 PUT (x15%, y15%), happy%, XOR
 x15% = RND * 580
 y15% = RND * 175
 PUT (x15%, y15%), happy%
 PUT (x16%, y16%), happy%, XOR
 x16% = RND * 580
 y16% = RND * 175
 PUT (x16%, y16%), happy%
 PUT (x17%, y17%), happy%, XOR
 x17% = RND * 580
 y17% = RND * 175
 PUT (x17%, y17%), happy%
 PUT (x18%, y18%), happy%, XOR
 x18% = RND * 580
 y18% = RND * 175
 PUT (x18%, y18%), happy%
 CurrentTimer! = TIMER
 WHILE TIMER < (CurrentTimer! + d!)
 WEND
LOOP WHILE INKEY$ = ""