home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / tryqb / examples / colors.bas (.txt) < prev    next >
Encoding:
QuickBASIC Tokenized Source  |  1989-12-04  |  1.4 KB  |  21 lines
  1. ColorVal
  2. PaletteVal
  3. BackGroundVal
  4. Pause
  5.  Draw three boxes and paint the interior of each
  6.  box with a different color:
  7. Press ESC to end."
  8. Press any other key to continue.
  9.  Restrict additional printed output to the twenty-third line:
  10.  PaletteVal is either one or zero:
  11.  Set the background color and choose the palette:-
  12. Background =
  13. Palette ="
  14.  Wait for a keystroke.
  15.  Exit the loop if both palettes have been shown,
  16.  or if the user pressed the ESC key:
  17.  Exit this loop if all sixteen background colors have been
  18.  shown, or if the user pressed the ESC key:o
  19.  Restore text mode and
  20.  eighty-column screen width.    
  21.