PROCEDURE FadeIn;
VAR i,r,g,b : byte;
    c       : byte;
BEGIN
 for c:=0 to 64 do begin
   for i:=0 to 255 do begin
        port[$03c7]:=i;
        r:=port[$03c9];
        g:=port[$03c9];
        b:=port[$03c9];
        if r>0 then dec(r);
        if g>0 then dec(g);
        if b>0 then dec(b);
        port[$03c8]:=i;
        port[$03c9]:=r;
        port[$03c9]:=g;
        port[$03c9]:=b;
   end;
   {=-=- you should wait for a vertical retrace here,but this will work
too =-=-=-=}
   delay(50);
 end;
END;

For a fadein, simple increase the colors and check for <63

And the starfield, would that be 2D or one of those rotating 3D
thingies?

Good luck,