Fading VGA (2 of 2)

 BBS: Inland Empire Archive
Date: 10-27-93 (14:52)             Number: 358
From: JOHN WOODGATE                Refer#: NONE
  To: CHRIS MENNIE                  Recvd: NO  
Subj: Fading VGA (2 of 2)            Conf: (2) Quik_Bas

'>>> Page 2 of VGAFADE.BAS begins here.
    clr& = 65536 * 20 + 256 * 20 + a
    PALETTE 6, clr&
   END IF
  END IF
  clr& = 65536 * a + 256 * 0 + a
  PALETTE 13, clr&
  clr& = 65536 * a + 256 * a + 0
  PALETTE 11, clr&
  clr& = 65536 * 0 + 256 * a + a
  PALETTE 14, clr&
  clr& = 65536 * a + 256 * a + a
  PALETTE 15, clr&
  clr& = 65536 * 0 + 256 * 0 + a
  PALETTE 12, clr&
  clr& = 65536 * 0 + 256 * a + 0
  PALETTE 10, clr&
  clr& = 65536 * a + 256 * 0 + 0
  PALETTE 9, clr&
NEXT a


END SUB

SUB VGAFadeOut

FOR a = 63 TO 1 STEP -1
  IF a <= 43 THEN
   clr& = 65536 * 0 + 256 * 0 + a
   PALETTE 4, clr&
   clr& = 65536 * a + 256 * 0 + 0
   PALETTE 1, clr&
   clr& = 65536 * 0 + 256 * a + 0
   PALETTE 2, clr&
   clr& = 65536 * a + 256 * a + a
   PALETTE 7, clr&
   clr& = 65536 * a + 256 * a + 0
   PALETTE 3, clr&
   clr& = 65536 * a + 256 * 0 + a
   PALETTE 5, clr&
  END IF
  IF a <= 21 THEN
   clr& = 65536 * a + 256 * a + a
   PALETTE 8, clr&
  END IF
  IF a <= 41 THEN
   IF a <= 20 THEN
    clr& = 65536 * a + 256 * a + a
    PALETTE 6, clr&
   ELSE
    clr& = 65536 * 20 + 256 * 20 + a
    PALETTE 6, clr&
   END IF
  END IF
  clr& = 65536 * a + 256 * 0 + a
  PALETTE 13, clr&
  clr& = 65536 * a + 256 * a + 0
  PALETTE 11, clr&
  clr& = 65536 * 0 + 256 * a + a
  PALETTE 14, clr&
  clr& = 65536 * a + 256 * a + a
  PALETTE 15, clr&
  clr& = 65536 * 0 + 256 * 0 + a
  PALETTE 12, clr&
  clr& = 65536 * 0 + 256 * a + 0
  PALETTE 10, clr&
  clr& = 65536 * a + 256 * 0 + 0
  PALETTE 9, clr&
NEXT a

END SUB
$$42
'>>> Page 2 of VGAFADE.BAS ends here.. Last page.

 -- John Woodgate

 * JABBER v1.1 * My floppy got excited. Now it's a hard disk.

--- GEcho 1.01+
 * Origin: WALK in the SHADOWs of the NIGHT 612-825-0595 (1:282/105)