:DefineVars
>.v_exist[LoCo#] .then[return]
>.define[LoCo#] .define[HiCo#] .define[Color#]
>randombase#=127 Color#=11
>.cls Return

:Return
>.window[text center center  3 44 white white single]
>.window[menu bottom center  2 12 white white single]

  How would you like to view the colors ??
?Randomly Key=Again ?Sequentially Key=Background

:Randomly
!
!-> Set color to random number
!
>Color#=^random#
!
!-> Adjust hi and lo colors
!
>LoCo#=^Color#-16    HiCo#=^Color#+96
!
!-> Make sure colors are in range 0..127 { non blinking }
!
>LoCo#<0 .then[LoCo#+127]  HiCo#>127 .then[HiCo#-127]
>.window[text top left 7 34 ^Color#] .window[menu center left 2 12 white]

|
 
  this is color# ^LoCo#.  
 


 > >  This is color# ^Color#.  < <

|
 
  THIS IS COLOR# ^HiCo#.  
 

>.hilite[2 1 34 ^LoCo#] .hilite[6 1 34 ^HiCo#]
?Again Randomly ?Return Key=Sequentially

:Sequentially
!
!-> make sure colors are still in range 1..255
!
>Color#>255 .then[Color#-255]   Color#<0 .then[Color#+255]
>.window[text top right 7 34 ^Color#] .window[menu center right 5 11 white]

|                            

|This is color# ^Color#.

|                            
?BackGround Color#<8 .then[Color#*16] .else[Color#+16]
?ForeGround Color#+1
?LastBackGr Color#-16
?PrevForeGr Color#-1
?Return Key=Randomly key=r
>Page<>Return .then[key=^page page=sequentially]
*