VARIABLE RND
: RANDOM // - X
  RND @ 69069 * 31415 + 278720333 MOD DUP RND !
;

30 CONSTANT КАЖДАЯ

CREATE СНЕЖИНКИ[] КАЖДАЯ 2 * CELLS ALLOT

{   КАЖДАЯ 0 DO
    RANDOM ABS 80 MOD СНЕЖИНКИ[] I 2 * -TH !
    RANDOM ABS 30 MOD СНЕЖИНКИ[] I 2 * -TH 4 + !
  LOOP
}

: СНЕЖИНКИ-ВНИЗ
  КАЖДАЯ 0 DO
    1 СНЕЖИНКИ[] I 2 * -TH 4 + +!
    СНЕЖИНКИ[] I 2 * -TH 4 + @ 30 >
    IF RANDOM ABS 80 MOD СНЕЖИНКИ[] I 2 * -TH !
        0 СНЕЖИНКИ[] I 2 * -TH 4 + !
    THEN
  LOOP
;

: СНЕЖИНКИ-РИСОВАТЬ
  0xFFFFFF SETCOLOR
  КАЖДАЯ 0 DO
    СНЕЖИНКИ[] I 2 * -TH @
    СНЕЖИНКИ[] I 2 * -TH 4 + @ GOTOXY " *" PRINT
  LOOP
  0x00FF00 SETCOLOR 30 10 GOTOXY " С НОВЫМ ГОДОМ!!!" PRINT
;

: С_НОВЫМ_ГОДОМ!
  CLS
  СНЕЖИНКИ-ВНИЗ
  СНЕЖИНКИ-РИСОВАТЬ
;

200 TIMER_INTERVAL !
USE С_НОВЫМ_ГОДОМ! AS <TIMER>