TO HEAVEN
  REMARK
  [* * * sОТВОРЕНИЕ mИРА i mУЗЫКА sФЕР * * *]
  TEXTSCREEN
  SETBG 0
  SETSCRUNCH 1
  FULLSCREEN
  HIDETURTLE
  WINDOW
  GENER
END
TO START_UP
  HEAVEN
END
TO RND :D :U
  OUTPUT INT :D + RANDOM :U - :D
END
TO GENER
  PENUP
  SETPOS [RND - 260 260 RND - 90 100]
  PENDOWN
  SETPENCOLOR RND 1 7
  MAKE "N 2 * (RND 2 6) - 1
  POLY_ANGLE RND 2 200 / :N :N
  GENER
END
TO POLY_ANGLE :S :N
  SOUND [:S * 10 :N * 20]
  REPEAT :N [FD :S RT 720 / :N]
END
       