home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / qbedemo5.zip / MEM_VARS.CPY < prev    next >
Text File  |  1992-09-24  |  1KB  |  41 lines
  1.  
  2. PaletteArray GROUP
  3.            BYTE( 7)          !  0    Black
  4.            BYTE( 7)          !  1    Blue
  5.            BYTE( 2)          !  2    Green
  6.            BYTE( 0)          !  3    Cyan
  7.            BYTE( 4)          !  4    Red
  8.            BYTE( 5)          !  5    Magenta
  9.            BYTE( 6)          !  6    Brown
  10.            BYTE( 0)          !  7    Light Gray
  11.  
  12.            BYTE( 7)          !  8    Dark  Gray
  13.            BYTE( 9)          !  9    Light Blue
  14.            BYTE(10)          ! 10    Light Green
  15.            BYTE(11)          ! 11    Light Cyan
  16.            BYTE(12)          ! 12    Light Red
  17.            BYTE(13)          ! 13    Light Magenta
  18.            BYTE(14)          ! 14    Yellow
  19.            BYTE(15)          ! 15    White
  20.  
  21.            BYTE(16)          ! 16    Black          (Blink)
  22.            BYTE(17)          ! 17    Blue          (Blink)
  23.            BYTE(18)          ! 18    Green          (Blink)
  24.            BYTE(19)          ! 19    Cyan          (Blink)
  25.            BYTE(20)          ! 20    Red          (Blink)
  26.            BYTE(21)          ! 21    Magenta          (Blink)
  27.            BYTE(22)          ! 22    Brown          (Blink)
  28.            BYTE(23)          ! 23    Light Gray    (Blink)
  29.  
  30.            BYTE(24)          ! 24    Dark  Gray    (Blink)
  31.            BYTE(25)          ! 25    Light Blue    (Blink)
  32.            BYTE(26)          ! 26    Light Green   (Blink)
  33.            BYTE(27)          ! 27    Light Cyan    (Blink)
  34.            BYTE(28)          ! 28    Light Red     (Blink)
  35.            BYTE(29)          ! 29    Light Magenta (Blink)
  36.            BYTE(30)          ! 30    Yellow          (Blink)
  37.            BYTE(31)          ! 31    White          (Blink)
  38.          .
  39. PaletteStrng STRING(SIZE(PaletteArray)),OVER(PaletteArray)
  40.  
  41.