home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l180 / 1.ddi / ATTRIB.BAS next >
Encoding:
BASIC Source File  |  1989-02-07  |  1.9 KB  |  61 lines
  1.   ' ************************************************
  2.   ' **  Name:          ATTRIB                     **
  3.   ' **  Type:          Program                    **
  4.   ' **  Module:        ATTRIB.BAS                 **
  5.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  6.   ' ************************************************
  7.   '
  8.   ' Displays all combinations of text mode character
  9.   ' attributes on the screen for review.
  10.   '
  11.   ' USAGE:           No command line parameters
  12.   ' REQUIREMENTS:    CGA
  13.   ' .MAK FILE:       (none)
  14.   ' FUNCTIONS:       (none)
  15.   ' PARAMETERS:      (none)
  16.   ' VARIABLES:       (none)
  17.   
  18.     DECLARE SUB Attrib ()
  19.   
  20.   ' Call the subprogram
  21.     Attrib
  22.   
  23.   ' All done
  24.     END
  25.   
  26.   ' ************************************************
  27.   ' **  Name:          Attrib                     **
  28.   ' **  Type:          Subprogram                 **
  29.   ' **  Module:        ATTRIB.BAS                 **
  30.   ' **  Language:      Microsoft QuickBASIC 4.00  **
  31.   ' ************************************************
  32.   '
  33.   ' Displays table of color attributes for text mode.
  34.   '
  35.   ' EXAMPLE OF USE:  Attrib
  36.   ' PARAMETERS:      (none)
  37.   ' VARIABLES:       bgd%        Background number for COLOR statement
  38.   '                  fgd%        Foreground number for COLOR statement
  39.   ' MODULE LEVEL
  40.   '   DECLARATIONS:              DECLARE SUB Attrib ()
  41.   '
  42.     SUB Attrib STATIC
  43.         SCREEN 0
  44.         CLS
  45.         PRINT "Attributes for the COLOR statement in text mode (SCREEN 0)."
  46.         PRINT "Add 16 to the foreground to cause the character to blink."
  47.         FOR bgd% = 0 TO 7
  48.             COLOR bgd% XOR 7, bgd%
  49.             PRINT
  50.             PRINT "Background%"; STR$(bgd%),
  51.             PRINT "Foreground% ..."; SPACE$(41)
  52.             FOR fgd% = 0 TO 15
  53.                 COLOR fgd%, bgd%
  54.                 PRINT STR$(fgd%); "  ";
  55.             NEXT fgd%
  56.         NEXT bgd%
  57.         COLOR 7, 0
  58.         PRINT
  59.     END SUB
  60.   
  61.