home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 101.img / QB45-1.ZIP / COLORS.BAS < prev    next >
BASIC Source File  |  1987-09-23  |  1KB  |  46 lines
  1. SCREEN 1
  2.  
  3. Esc$ = CHR$(27)
  4.  
  5. ' Draw three boxes and paint the interior of each
  6. ' box with a different color:
  7. FOR ColorVal = 1 TO 3
  8.    LINE (X, Y)-STEP(60, 50), ColorVal, BF
  9.    X = X + 61
  10.    Y = Y + 51
  11. NEXT ColorVal
  12.  
  13. LOCATE 21, 1
  14. PRINT "Press ESC to end."
  15. PRINT "Press any other key to continue."
  16.  
  17. ' Restrict additional printed output to the twenty-third line:
  18. VIEW PRINT 23 TO 23
  19.  
  20. DO
  21.    PaletteVal = 1
  22.    DO
  23.  
  24.       ' PaletteVal is either one or zero:
  25.       PaletteVal = 1 - PaletteVal
  26.  
  27.       ' Set the background color and choose the palette:
  28.       COLOR BackGroundVal, PaletteVal
  29.       PRINT "Background ="; BackGroundVal; "Palette ="; PaletteVal;
  30.  
  31.       Pause$ = INPUT$(1)        ' Wait for a keystroke.
  32.       PRINT
  33.  
  34.    ' Exit the loop if both palettes have been shown,
  35.    ' or if the user pressed the ESC key:
  36.    LOOP UNTIL PaletteVal = 1 OR Pause$ = Esc$
  37.  
  38.    BackGroundVal = BackGroundVal + 1
  39.  
  40. ' Exit this loop if all sixteen background colors have been
  41. ' shown, or if the user pressed the ESC key:
  42. LOOP UNTIL BackGroundVal > 15 OR Pause$ = Esc$
  43.  
  44. SCREEN 0                        ' Restore text mode and
  45. WIDTH 80                        ' eighty-column screen width.
  46.