home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Directorytools / RushDemo 2 / Rexx / CycleColors.rush < prev    next >
Encoding:
Text File  |  1996-09-27  |  457 b   |  33 lines
  1. /*
  2. ** $VER: CycleColors.rush 37.1 (2.12.93)
  3. **
  4. **
  5. **
  6. ** Written by Douglas Keller
  7. */
  8.  
  9. if( address() == "REXX" ) then address "RUSH.1"
  10.  
  11. options results
  12.  
  13. x = "0123456789abcdef"
  14.  
  15. do j = 0 to 10
  16.  
  17.     do i = 0 to 15
  18.         r = "0x" || insert("","",0,8,substr(x, i+1, 1))
  19.  
  20.         'setpalette pen=0 red' r 'green' 0 'blue' 0
  21.         say r
  22.  
  23.     end
  24.  
  25.     do i = 14 to 0 by -1
  26.         r = "0x" || insert("","",0,8,substr(x, i+1, 1))
  27.  
  28.         'setpalette pen=0 red' r 'green' 0 'blue' 0
  29.         say r
  30.  
  31.     end
  32. end
  33.