НЛО на звездном небе Опции

[Анастасия]

У меня вопрос по Visualpage. Cейчас рисую НЛО на фоне мерцающего неба. Проблема в том, что
когда с помощью putimage вставляю рандомайзом свой НЛО, затирается мое небо. Не уверена, поэтому хочу спросить,как мне сделать небо основным фоном(чтобы не затиралось). Наверное это связано с Visualpage.

[Анастасия]

1-Попытка сделать звезды мерцающими

Код

j:=1;{[size=1][b]Неправильно[/b][/size]}{Ошибка heap overflow}
while j<=600  do  begin
Randomize;
    For i:=1 to 70 do
     begin
       PutPixel(Random(700),Random (400),White);end;
rectangle(0,0,640,480);
sz:=imagesize(0,0,640,480);
getmem(p,sz);
getimage(0,0,640,480,p^);
putimage(0,0,p^,xorput);
putimage(0,0,p^,xorput);
j:=j+1;  end;

Скорее всего для сдачи мне подойдет и то, что я уже нарисовала. Но мне самой уже интересно как можно сделать по-другому.
2-движение НЛО- Наверное нужно задавать сложные формулы движения типа Лиссажу и т.п. Я такое
сама не придумаю , да и хочется чтобы попроще было.
Вот . 2-й вариант этой же моей задачи только без putimage:

Код

program ddd;
uses crt,graph;
var d,m,x,y:integer;
p:pointer;sz,x1,y1:word;i,j:integer;
begin
d:=detect;
initgraph( d,m,'d:\bp70\bgi' );
setviewport(0,0,640,80,true);
clearviewport;
setbkcolor(0);
Randomize;
    For i:=1 to 70 do
     begin
       PutPixel(Random(700),Random (480),White);end;

x:=0;y:=0;
while x<=640 do
begin
while y<=480 do
begin
setcolor(15);
        setfillstyle(1,1);
       fillellipse(45+x,25+y,70,30);
       fillellipse(45+x,15+y,70,30);
        setfillstyle(1,14);
       fillellipse(40+x,40+y,20,20);
       fillellipse(85+x,40+y,20,20);
       fillellipse(95+x,25+y,20,20);
       fillellipse(25+x,25+y,20,20);

              setfillstyle(1,1);
        floodfill(15+x,2+y,15);
           delay(60000);
         setfillstyle(1,0);
bar(-50+x,-70+y,150+x,100+y);

For i:=1 to 70 do
     begin
       PutPixel(Random(700),Random (400),White);end;
delay(6000);
x:=random(600);
y:=random(300);end;end;
readln;
closegraph;
end.

Звезд стало больше и они меньше просвечиваются через обьект. Но может тогда на этой задаче можете подсказать, как задать движение рандомайзом, а то тут у меня тоже прыганье получается.