Перед уходом! или В лесу родилась йолочка, на Turbo Pascal 7.0!

[comrade_voland]

program Йолочка;
uses
       музыко, сказко, новыйгоднах, йуныйпрограммист;
begin
       лес.init;
       лес.йолочка.init;
       лес.йолочка.grow(зима);
       лес.йолочка.форма := стройная;
       лес.йолочка.color := green;
       лес.йолочка.grow(лето);
       лес.йолочка.форма := стройная;
       лес.йолочка.color := green;

лес.метель.спеть(лес.йолочка, "//Music/угар/СекторГаза/Песенка.mp3");
       лес.метель.спеть(лес.йолочка, "//Music/деццкойэ/СпокойнойНочиМалышы/СпятУсталыйэИгрушке.mp3");

лес.мороз.укутать(лес.йолочка);
       лес.йолочка.setEventNotificator(OnThermometerLow, "Товарищ бди!");

for t:= 1 to 10240 begin
               лес.зайетс.x := t / 10 ;
               лес.зайетс.y := 256*(1+tan(t/768) );
               лес.зайетс.redraw;
       end;

лес.воффк.run;
       for t:= 1 to 10240 begin
               лес.воффк.x := t / 2;
               лес.воффк.y := 512*(1+0.5*sin(t/768) );
               лес.воффк.redraw;
       end;

Чу = listen( лес.subnode(частый).get_ip, снег() );    
       Чу.signal(полоз, SIG_SCREEP);

лошадка.ноги.skin.texture = "мохнатыйэ";
       лошадка.set_priority_level ( PL_REALTIME );
       лошадка.run();

лошадка.дровенки.bringtofront();
       лошадка.дровенки.мужычогъ_inside := true;

мужычог.срубить (лес.йолочка, access_level_root );

йолочка.skin := наряднайа ;
       йолочка.goto ( мы.празднег.get_addr() );

while ( true ) do
               йолочка.sendmail ( радости ++, детишки ++ );

end;