fading out

 BBS: Inland Empire Archive
Date: 10-26-93 (13:52)             Number: 381
From: BILL WHITE                   Refer#: NONE
  To: CHRIS MENNIE                  Recvd: NO  
Subj: fading out                     Conf: (2) Quik_Bas

CM>         Does anybody have a routine for fading a VGA screen?

     here's another to play with.  I don't know who posted it.


'A Holiday gift from my IDE to yours. Enjoy!

'64 Color text mode sampler. Requires EGA or better.

   CONST up = 72, down = 80, right = 77, left = 75
   OPTION BASE 0
   DIM ECOLS(64) AS STRING * 25
   ECOLS(0) = "Black": ECOLS(1) = "Blue": ECOLS(2) = "Green"
   ECOLS(3) = "Cyan": ECOLS(4) = "Red": ECOLS(5) = "Magenta"
   ECOLS(6) = "Yellow Brown": ECOLS(7) = "Light Gray"
   ECOLS(8) = "Dark Blue": ECOLS(9) = "Bright Blue"
   ECOLS(10) = "Medium Celery": ECOLS(11) = "Sky Blue"
   ECOLS(12) = "Dark Fuchia": ECOLS(13) = "Lilac"
   ECOLS(14) = "Light Yellow": ECOLS(15) = "Light Blue Purple "
   ECOLS(16) = "Kelly Green": ECOLS(17) = "Light Blue"
   ECOLS(18) = "Bright Green": ECOLS(19) = "Mint Green"
   ECOLS(20) = "Brown": ECOLS(21) = "Light Magenta"
   ECOLS(22) = "Bright Light Green": ECOLS(23) = "Light Green Yellow "
   ECOLS(24) = "Blue Gray": ECOLS(25) = "Bright Light Blue "
   ECOLS(26) = "Light Green": ECOLS(27) = "Light Cyan"
   ECOLS(28) = "Light Brick Red": ECOLS(29) = "Light Purple"
   ECOLS(30) = "Yellow Green": ECOLS(31) = "Very Light Cyan"
   ECOLS(32) = "Deep Red": ECOLS(33) = "Purple"
   ECOLS(34) = "Medium Green": ECOLS(35) = "Light Gray Cyan"
   ECOLS(36) = "Bright Red": ECOLS(37) = "Fuchia"
   ECOLS(38) = "Gold": ECOLS(39) = "Light Pink"
   ECOLS(40) = "Deep Purple": ECOLS(41) = "Bright Purple"
   ECOLS(42) = "Celery": ECOLS(43) = "Light Sky Blue"
   ECOLS(44) = "Medium Fuchia": ECOLS(45) = "Medium Magenta"
   ECOLS(46) = "Tan": ECOLS(47) = "Light Lilac"
   ECOLS(48) = "Olive Green": ECOLS(49) = "Medium Purple Blue"
   ECOLS(50) = "Neon Green": ECOLS(51) = "Medium Mint Green"
   ECOLS(52) = "Orange": ECOLS(53) = "Medium Pink"
   ECOLS(54) = "Bright Yellow": ECOLS(55) = "Light Manilla"
   ECOLS(56) = "Gray": ECOLS(57) = "Medium Blue"
   ECOLS(58) = "Green Yellow": ECOLS(59) = "Light Blue Cyan"
   ECOLS(60) = "Dark Peach": ECOLS(61) = "Medium Lilac"
   ECOLS(62) = "Yellow": ECOLS(63) = "White"

   CLS
   COLOR 15, 0
 LOCATE 2, 10
 PRINT "Use "; CHR$(24); CHR$(25); " to adjust Background"
 LOCATE 3, 10
 PRINT "Use "; CHR$(27); CHR$(26); " to adjust Foreground"
 LOCATE 4, 10
 PRINT "Press ESCape to Quit"

   PALETTE 3, 0
   PALETTE 10, 0

   DO

      LOCATE 5, 10: COLOR 15, 0
      PRINT USING "Background = ##  &"; BG%; ECOLS(BG%)
      LOCATE 6, 10
      PRINT USING "Foreground = ##  &"; FG%; ECOLS(FG%)
      COLOR 10, 3
      LOCATE 8, 10: PRINT "  EGA  Color Sampler  "

      PALETTE 3, BG%
      PALETTE 10, FG%

       DO
        scroll$ = INKEY$
       LOOP WHILE scroll$ = ""

       IF LEN(scroll$) = 1 THEN

          SELECT CASE scroll$
              CASE CHR$(27)
                  EXIT DO
              CASE ELSE
                  SOUND 50, .5
          END SELECT

       ELSE

          SELECT CASE RIGHT$(scroll$, 1)
              CASE CHR$(up)
                BG% = BG% + 1
                IF BG% > 63 THEN
                   BG% = 0
                END IF
              CASE CHR$(down)
                BG% = BG% - 1
                IF BG% < 0 THEN
                   BG% = 63
                END IF
              CASE CHR$(right)
                FG% = FG% + 1
                IF FG% > 63 THEN
                   FG% = 0
                END IF
              CASE CHR$(left)
                FG% = FG% - 1
                IF FG% < 0 THEN
                   FG% = 63
                END IF
          END SELECT
       END IF
   LOOP

$$44
 * SLMR 2.1a * Any day above ground is a good day!

--- Maximus 2.01wb
 * Origin: Miami Amateur Computer Club BBS  HST/V32b/V42b (1:135/110)