это случайное_место
пп нов_х (сл 600) - 300 нов_у (сл 400) - 200
конец

это звездное_небо
сг сч нц 9 по крась
нц 0 повтори 200 [случайное_место по вп 0]
нц 75 повтори 200 [случайное_место по вп 0]
конец

это звездопад
всегда [
ч2, сч
пусть "х (сл 600) - 300
пусть "у (сл 400) - 200
пусть "д сл 200
пп нов_х :х нов_у :у нк 220 по нц 75 вп :д
ч1, штамп]
конец