Hi,
  I'm wondering if anyone knows a way to fade to a black screen in text
mode (screen mode 0).
  I have seen this done in many games, including Pinball Illusions and
some others whose names escape me.
  Any help you could give me would be great.
  QBasic or QuickBasic code would be best, since I could just put it into
the code for my programs, but I could also use ASIC, MoonRock, or
BasicBasic code and compile it into a separate executable.
  If at all possible, please respond via e-mail.

                        Thanks in advance,
                        Jesse Dorland

The default text color for mode 0 is 7:

DO
        OUT &H3C6,&HFF
        OUT &H3C7,&H07
        RED = INP(&H3C9)
        GREEN = INP(&H3C9)
        BLUE = INP(&H3C9)
        OUT &H3C6,&HFF
        OUT &H3C8,&H07
        IF RED THEN OUT &H3C9,RED-1
        IF GREEN THEN OUT &H3C9,GREEN-1
        IF BLUE THEN OUT &H3C9,BLUE-1
LOOP WHILE RED>0 AND GREEN>0 AND BLUE>0

That will (should) fade normal text -- if you have various colors, you need
to find out the register corrosponding to the color index value you are
using (color index 7 happens to be register 7).

--
______________________________

Steven Sensarn

______________________________