home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / screen / colornum.bas < prev    next >
BASIC Source File  |  1994-03-05  |  750b  |  26 lines
  1. ' -- VGA background color demo program --
  2.  DEFINT A-Z: SCREEN 12: CLS
  3.  PRINT "Press RrGgBb to set colors   ESC to quit"
  4.  DO:
  5.   X$ = INPUT$(1)
  6.   IF X$ = CHR$(27) THEN CLS : END
  7.   IF X$ = "R" THEN RED = RED + 1
  8.   IF X$ = "r" THEN RED = RED - 1
  9.   IF X$ = "G" THEN GREEN = GREEN + 1
  10.   IF X$ = "g" THEN GREEN = GREEN - 1
  11.   IF X$ = "B" THEN BLUE = BLUE + 1
  12.   IF X$ = "b" THEN BLUE = BLUE - 1
  13.   IF RED > 63 THEN RED = 0
  14.   IF RED < 0 THEN RED = 63
  15.   IF GREEN > 63 THEN GREEN = 0
  16.   IF GREEN < 0 THEN GREEN = 63
  17.   IF BLUE > 63 THEN BLUE = 0
  18.   IF BLUE < 0 THEN BLUE = 63
  19.   BACKCOLOR& = 65536 * BLUE + 256 * GREEN + RED
  20.   PALETTE 0, BACKCOLOR&
  21.   LOCATE 30, 1
  22.   PRINT "RED:"; RED; "  BLUE:"; BLUE; "  GREEN:"; GREEN;
  23.   PRINT "  COLOR NUMBER:"; BACKCOLOR&;
  24.  LOOP
  25.  
  26.