TO RCIRCLE¢COIN¢IF :C = 0 [MAKE "X RANDOM 80] [MAKE "!¢X RANDOM -80]¢COIN¢IF :C = 0 [MAKE "Y RANDOM 150] [MAKE !¢"Y RANDOM -150]¢MAKE "R RANDOM 150¢MAKE "FC SE :X :Y¢CIRCLE SE :FC :R¢END¢¢TO COIN¢MAKE "C RANDOM 2¢END¢¢TO PLAID¢MAKE "GFILL "FALSE¢CS PU¢REPEAT 13 [RCIRCLE]¢MAKE "GFILL "TRUE¢REPEAT 50 [FILLIT]¢PLAID¢END¢¢TO FILLIT¢COIN¢IF :C = 0 [MAKE "X RANDOM 80] [MAKE "!¢X RANDOM -80]¢COIN¢IF :C = 0 [MAKE "Y RANDOM 150] [MAKE !¢"Y RANDOM -150]¢SETPOS SE :X :Y¢MAKE "X RANDOM 2¢MAKE "X :X + 2¢MAKE "Y RANDOM 13¢MAKE "R RANDOM 16¢MAKE "FC SE :X :Y¢SETFILL SE :FC :R¢FILL¢END¢¢MAKE "GFILL "FALSE¢MAKE "Y 58¢MAKE "X -51¢MAKE "R 125¢MAKE "C 0¢MAKE "FC [-51 58]¢¢
