home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / RGB / RGB.PRG < prev   
Encoding:
Text File  |  1993-02-01  |  909 b   |  30 lines
  1. *****************************************************************
  2. *     * 09/92               RGB.PRG                             *
  3. *****************************************************************
  4. *     * Author's Name: Jeb Long                                 *
  5. *     *                                                         *
  6. *     * Description:                                            *
  7. *     * This program illustrates the possible color             *
  8. *     * combinations that can be established using the          *
  9. *     * COLOR RGB() clause                                      *
  10. *****************************************************************
  11. clear
  12. r=0
  13. c=0
  14. for i = 1 to 255 step 10
  15. for j = 1 to 255 step 10
  16. for k = 1 to 255 step 10
  17. if col() > 90
  18.     r=row()+1
  19.     c=0
  20. endif
  21. if r=40
  22.    r=0
  23. endif
  24. @ r,c SAY "X" color rgb(i,j,k, 255,255,255)
  25. c=c+1
  26. endfor
  27. endfor
  28. endfor
  29.     
  30.