this is just a snippet to type in colors ..

on 1:INPUT:*: {
  set %decfcol /
  if (%decsty == ON) { 
    if (%decfcol isin $left($1,1)) { goto THEEND } 
    if (%decmul == 0) { 
      say  $+ %deccol  $+ $1-
      { halt }
    }
    if (%decmul == 1) { 
      %clrlist = 2*3*14*4*13*5*12*6*2*7*10*2*4
      %altclrlist = 16*16*16*16*16*16*16*16*16*16*16*16*16
      %fnl = ""
      %txt = $replace($1-,$chr(32),$chr(1))
      %clr = 1
      %i = 1
      :start
      if ($mid(%txt,%i,1) != $null) {
        if ($gettok(%clrlist,%clr,42) == $null) { %clr = 1 }
        %fnl = %fnl $+ $chr(3) $+ $gettok(%clrlist,%clr,42) $+ , $+ $gettok(%altclrlist,%clr,42) $+ $mid(%txt,%i,1)
        inc %clr 1
        inc %i 1
        goto start
      }
      say $replace(%fnl,$chr(1),$chr(32))  
      { halt }
    }
    if (%decmul == 2) { 
      unset %textfinal
      set %rainbow $1-
      set %text.change 0
      :beginning
      inc %text.change
      if %text.change > $len(%rainbow) goto end
      :randomize
      set %rand1 $rand(1,15)
      set %rand2 $rand(1,15)
      if %rand1 == %rand2 goto randomize
      set %text2add  $+ %rand1 $+ , $+ %rand2 $+ $mid(%rainbow,%text.change,1) $+ 
      if (%text.change == 1) { set %textfinal %text2add }
      else set %textfinal %textfinal $+ %text2add
      goto beginning
      :end
      say %textfinal
      { halt }
    }
    if (%decmul == 3) { 
      %c = $1-
      set %c $replace(%c,a,4a)
      set %c $replace(%c,b,3B)
      set %c $replace(%c,c,6C) 
      set %c $replace(%c,d,7D) 
      set %c $replace(%c,e,4e) 
      set %c $replace(%c,f,12F) 
      set %c $replace(%c,g,13G) 
      set %c $replace(%c,h,6H) 
      set %c $replace(%c,i,4i) 
      set %c $replace(%c,j,J) 
      set %c $replace(%c,k,3K) 
      set %c $replace(%c,l,L) 
      set %c $replace(%c,m,4M) 
      set %c $replace(%c,n,6N)
      set %c $replace(%c,o,4o) 
      set %c $replace(%c,p,12P) 
      set %c $replace(%c,q,Q) 
      set %c $replace(%c,r,13R) 
      set %c $replace(%c,s,7S) 
      set %c $replace(%c,t,T) 
      set %c $replace(%c,u,4u) 
      set %c $replace(%c,v,V) 
      set %c $replace(%c,w,12W) 
      set %c $replace(%c,x,7X) 
      set %c $replace(%c,y,Y) 
      set %c $replace(%c,z,6z) 
      set %c $replace(%c,?,12¿15?) 
      say %c
      unset %c  
      { halt }
    }
    if (%decmul == 4) { 
      unset %final
      unset %endreverse
      set %sections $gettok($1-,0,32)
      :revstart
      if (%sections == 0) goto revend  
      set %reverseme $gettok($1-,%sections,32)
      set %length $len(%reverseme)
      set %backtext $mid(%reverseme,%length,1)  
      dec %length 1  
      :backstart
      if (%length == 0) goto backend
      set %tempback $mid(%reverseme,%length,1)
      set %backtext %backtext $+ %tempback 
      dec %length 1
      goto backstart
      :backend
      set %reversed_text %backtext
      set %temp %reversed_text
      set %final %final %temp
      dec %sections 1
      goto revstart  
      :revend
      set %endreverse %final
      say %final
      { halt }
    }
    if (%decmul == 5) { 
      set %ftalk $1-
      %ftalk = $replace(%ftalk,a,2å)
      %ftalk = $replace(%ftalk,b,3þ)
      %ftalk = $replace(%ftalk,c,4Ç)
      %ftalk = $replace(%ftalk,d,5Ð)
      %ftalk = $replace(%ftalk,e,6ë)
      %ftalk = $replace(%ftalk,f,7F)
      %ftalk = $replace(%ftalk,g,8G)
      %ftalk = $replace(%ftalk,h,9H)
      %ftalk = $replace(%ftalk,i,10î)
      %ftalk = $replace(%ftalk,j,11J)
      %ftalk = $replace(%ftalk,k,12K)
      %ftalk = $replace(%ftalk,l,13£)
      %ftalk = $replace(%ftalk,m,14M)
      %ftalk = $replace(%ftalk,n,15ñ)
      %ftalk = $replace(%ftalk,o,2ø)
      %ftalk = $replace(%ftalk,p,3¶)
      %ftalk = $replace(%ftalk,q,4Q)
      %ftalk = $replace(%ftalk,r,5®)
      %ftalk = $replace(%ftalk,s,6§)
      %ftalk = $replace(%ftalk,t,7T)
      %ftalk = $replace(%ftalk,u,8µ)
      %ftalk = $replace(%ftalk,v,9V)
      %ftalk = $replace(%ftalk,w,10\\')
      %ftalk = $replace(%ftalk,x,11×)
      %ftalk = $replace(%ftalk,y,12¥)
      %ftalk = $replace(%ftalk,z,12Z)
      %ftalk = $replace(%ftalk,!,4!)
      %ftalk = $replace(%ftalk,?,4?)
      %ftalk = $replace(%ftalk,*,5*)
      %ftalk = $replace(%ftalk,^,6^)
      %ftalk = $replace(%ftalk,$,7$)
      %ftalk = $replace(%ftalk,@,9@)
      %ftalk = $replace(%ftalk,&,10&)
      %ftalk = $replace(%ftalk,",11")
      %ftalk = $replace(%ftalk,<,12<)
      %ftalk = $replace(%ftalk,>,13>!)
      SAY %ftalk
      { halt }
    }
    if (%decmul == 6) { 
      set %temp1 $1 | set %temp2 $2 | set %temp3 $3 | set %temp4 $4 | set %temp5 $5 | set %temp6 $6 | set %temp7 $7
      set %bc1 $rand(2,14) | /set %bc2 $rand(2,14)  | /set %bc3 $rand(2,14) | /set %bc4 $rand(2,14) | /set %bc4 $rand(2,14) | /set %bc5 $rand(2,14) | /set %bc6 $rand(2,14) | /set %bc7 $rand(2,14)
      if (%bc1 > 7) { /set %w1 $rand(1,2) } | else { /set %w1 $rand(8,9) } | if (%bc2 > 7) { /set %w2 $rand(1,2) } | else { /set %w2 $rand(8,9) } |  if (%bc3 > 7) { /set %w3 $rand(1,2) } | else { /set %w3 $rand(8,9) } |  if (%bc4 > 7) { /set %w4 $rand(1,2) } | else { /set %w4 $rand(8,9) } | if (%bc5 > 7) { /set %w5 $rand(1,2) } | else { /set %w5 $rand(8,9) } | if (%bc6 > 7) { /set %w6 $rand(1,2) } | else { /set %w6 $rand(8,9) } | if (%bc7 > 7) { /set %w7 $rand(1,2) } | else { /set %w7 $rand(8,9) }  
      set %b1 [ $len(%temp1) + 2 ] | /set %b2 [ $len(%temp2) + 2 ] | /set %b3 [ $len(%temp3) + 2 ] | /set %b4 [ $len(%temp4) + 2 ] | /set %b5 [ $len(%temp5) + 2 ] | /set %b6 [ $len(%temp6) + 2 ] | /set %b7 [ $len(%temp7) + 2 ]
      set %cp1 $len(%temp1) | /set %cp2 $len(%temp2) | /set %cp3 $len(%temp3) | /set %cp4 $len(%temp4) | /set %cp5 $len(%temp5) | /set %cp6 $len(%temp6) | /set %cp7 $len(%temp7) | set %l21 $str(õ,%b1) | /set %l22 $str(©,%b2) | /set %l23 $str(§,%b3) | /set %l24 $str(Þ,%b4) | /set %l25 $str(¥,%b5) | /set %l26 $str(æ,%b6) | /set %l27 $str(±,%b7)
      set %l1 %cp1 / 2  | /set %l2 %cp2 / 2  | /set %l3 %cp3 / 2  | /set %l4 %cp4 / 2  | /set %l5 %cp5 / 2  | /set %l6 %cp6 / 2  | /set %l7 %cp7 / 2 | if ( 2 // %cp1 ) { set %cr1 1,1 $+  $+ $left(%temp1,2) } | else { set %cr1 1,1 $+  $+ $left(%temp1,1) } | if ( 2 // %cp2 ) { set %cr2 1,1 $+  $+ $left(%temp2,2) } | else { set %cr2 1,1 $+  $+ $left(%temp2,1) } | if ( 2 // %cp3 ) { set %cr3 1,1 $+  $+ $left(%temp3,2) } | else { set %cr3 1,1 $+  $+ $left(%temp3,1) } | if ( 2 // %cp4 ) { set %cr4 1,1 $+  $+ $left(%temp4,2) } | else { set %cr4 1,1 $+  $+ $left(%temp4,1) }
      if ( 2 // %cp5 ) { set %cr5 1,1 $+  $+ $left(%temp5,2) } | else { set %cr5 1,1 $+  $+ $left(%temp5,1) } | if ( 2 // %cp6 ) { set %cr6 1,1 $+  $+ $left(%temp6,2) } | else { set %cr6 1,1 $+  $+ $left(%temp6,1) } | if ( 2 // %cp7 ) { set %cr7 1,1 $+  $+ $left(%temp7,2) } | else { set %cr7 1,1 $+  $+ $left(%temp7,1) } | if ( 2 \\ %cp1 ) { set %l1 %l1 + 1 } | if ( 2 \\ %cp2 ) { set %l2 %l2 + 1 } | if ( 2 \\ %cp3 ) { set %l3 %l3 + 1 } | if ( 2 \\ %cp4 ) { set %l4 %l4 + 1 } | if ( 2 \\ %cp5 ) { set %l5 %l5 + 1 } | if ( 2 \\ %cp6 ) { set %l6 %l6 + 1 } | if ( 2 \\ %cp7 ) { set %l7 %l7 + 1 }
      set %l1 $int(%l1) | set %l2 $int(%l2) | set %l3 $int(%l3) | set %l4 $int(%l4) | set %l5 $int(%l5) | set %l6 $int(%l6) | set %l7 $int(%l7)
      set %p1 $str(æ,%l1) | /set %p2 $str(Þ,%l2) | /set %p3 $str(¿,%l3) | /set %p4 $str(£,%l4) | /set %p5 $str(ð,%l5) | /set %p6 $str(¢,%l6) | /set %p7 $str(©,%l7)
      set %tw2 $left($str(y,%cp2),1) | /set %tw3 $left($str(-,%cp3),1) | /set %tw4 $left($str(-,%cp4),1) | /set %tw5 $left($str(-,%cp5),1) | /set %tw6 $left($str(-,%cp6),1) | /set %tw7 $left($str($chr(160),%cp7),1) | /set %tw8 1,1 $+ $left($str(e,%cp7),1) | /set %tw9 $left($str(y,%cp7),1) | /set %twx $left($str(x,%cp7),1)
      set %z2 $left($str(¡,%cp2),1) | /set %z3 $left($str(¡,%cp3),1) | /set %z4 $left($str(¡,%cp4),1) | /set %z5 $left($str(¡,%cp5),1) | /set %z6 $left($str(¡,%cp6),1) | /set %z7 $left($str(¡,%cp7),1) 
      say 4,1_8¡ $+ $str(4_,%cp1) $+ 8¡4_ $+ 12 $+ %z2 $+ $str(4_,%cp2) $+ 12 $+ %z2 $+ 4 $+ $left($str(_,%cp2),1) $+ 11 $+ %z3 $+ $str(4_,%cp3) $+ 11 $+ %z3 $+ 4 $+ $left($str(_,%cp3),1) $+ 3 $+ %z4 $+ $str(4_,%cp4) $+ 3 $+ %z4 $+ 4 $+ $left($str(_,%cp4),1)  $+ 13 $+ %z5 $+ $str(4_,%cp5) $+ 13 $+ %z5 $+ 4 $+ $left($str(_,%cp5),1)  $+ 6 $+ %z6 $+ $str(4_,%cp6) $+ 6 $+ %z6 $+ 4 $+ $left($str(_,%cp6),1) $+ 9 $+ %z7 $+ $str(4_,%cp7) $+ 9 $+ %z7 $+ 4 $+ $left($str(_,%cp7),1)   
      say 1,1t $+ %w1 $+ , $+ %bc1 $+ %l21 $+ 1,1t $+ %w2 $+ , $+ %bc2 $+ %l22 $+ 1,1 $+ $left($str(-,%cp2),1) $+  $+ %w3 $+ , $+ %bc3 $+ %l23 $+ 1,1 $+ $left($str(-,%cp3),1) $+  $+ %w4 $+ , $+ %bc4 $+ %l24 $+ 1,1 $+ $left($str(-,%cp4),1) $+  $+ %w5 $+ , $+ %bc5 $+ %l25 $+ 1,1 $+ $left($str(-,%cp5),1) $+  $+ %w6 $+ , $+ %bc6 $+ %l26 $+ 1,1 $+ $left($str(-,%cp6),1) $+  $+ %w7 $+ , $+ %bc7 $+ %l27 $+ 1,1 $+ $left($str(t,%cp7),1) 
      say 1,1e $+ %w1 $+ , $+ %bc1 %temp1 1,1e $+  $+ %bc2 $+ , $+ %bc2 $+ %tw2 $+  $+ %w2 $+  $+ %temp2 $+  $+ %bc2 $+ , $+ %bc2 $+ %tw2 $+ 1,1 $+ %tw2 $+  $+ %bc3 $+ , $+ %bc3 $+ %tw3 $+  $+ %w3 $+  $+ %temp3 $+  $+ %bc3 $+ , $+ %bc3 $+ %tw3 $+ 1,1 $+ %tw3 $+  $+ %bc4 $+ , $+ %bc4 $+ %tw4 $+  $+ %w4 $+  $+ %temp4 $+  $+ %bc4 $+ , $+ %bc4 $+ %tw4 $+ 1,1 $+ %tw4 $+  $+ %bc5 $+ , $+ %bc5 $+ %tw5 $+  $+ %w5 $+  $+ %temp5 $+  $+ %bc5 $+ , $+ %bc5 $+ %tw5 $+ 1,1 $+ %tw5 $+  $+ %bc6 $+ , $+ %bc6 $+ %tw6 $+  $+ %w6 $+  $+ %temp6 $+  $+ %bc6 $+ , $+ %bc6 $+ %tw6 $+ 1,1 $+ %tw6 $+  $+ %bc7 $+ , $+ %bc7 $+ %tw7 $+  $+ %w7 $+  $+ %temp7 $+ %tw7 $+ %tw8
      say 1,1x $+ %w1 $+ , $+ %bc1 $+ %p1 $+ %cr1 $+  $+ %w1 $+ , $+ %bc1 $+ %p1 $+ 1,1x $+  $+ %w2 $+ , $+ %bc2 $+ %p2 $+ %cr2 $+  $+ %w2 $+ , $+ %bc2 $+ %p2 $+ 1,1 $+ %tw2 $+  $+ %w3 $+ , $+ %bc3 $+ %p3 $+ %cr3 $+  $+ %w3 $+ , $+ %bc3 $+ %p3 $+ 1,1 $+ %tw3 $+  $+ %w4 $+ , $+ %bc4 $+ %p4 $+ %cr4 $+  $+ %w4 $+ , $+ %bc4 $+ %p4 $+ 1,1 $+ %tw4 $+  $+ %w5 $+ , $+ %bc5 $+ %p5 $+ %cr5 $+  $+ %w5 $+ , $+ %bc5 $+ %p5 $+ 1,1 $+ %tw5 $+  $+ %w6 $+ , $+ %bc6 $+ %p6 $+ %cr6 $+  $+ %w6 $+ , $+ %bc6 $+ %p6 $+ 1,1 $+ %tw6 $+  $+ %w7 $+ , $+ %bc7 $+ %p7 $+ %cr7 $+  $+ %w7 $+ , $+ %bc7 $+ %p7 $+ 1,1 $+ %twx
      say 1,1xy $+ %temp1 x $+ %tw2 $+ %temp2 $+ %tw2 $+ %tw2 $+ %tw3 $+ %temp3 $+ %tw3 $+ %tw3 $+ %tw4 $+ %temp4 $+ %tw4 $+ %tw4 $+ %tw5 $+ %temp5 $+ %tw5 $+ %tw5 $+ %tw6 $+ %temp6 $+ %tw6 $+ %tw6 $+ %tw7 $+ %temp7 $+ %tw9 $+ %twx
      { halt }      
    }
    if (%decmul == 7) { 
      set %i $replace($1-,$chr(32), ) | set %i $left(%i,200) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
      :loop
      set %o %o $+ $chr(3) $+ $gettok(4&7&8&9&11&13,%c,38) $+ $mid(%i,%p,1) 
      inc %p
      if ( $mid(%i,%p,1) !=  ) { inc %c }
      if ( %c > 6 ) { set %c 1 }
      if ( $mid(%i,%p,1) != $null ) { goto loop }
      say %o
      unset %o %i %p %c
      { halt }      
    }
    else { goto THEEND }
  }
  :THEEND
}
menu query,channel {
  ¶ Color Style ¶
  .On:/set %decsty on | echo 4 -a ***  Color Script is now [4On1]
  .Off:/set %decsty Off | echo 12 -a *** Color Script is now 1[4Off1] 
  .ColourType
  ..Single Style:/echo 14 -a Avealable colours are 01 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15 | set %deccol $?="Enter a number <1-15>" | set %decmul 0
  ..Multy Style1[Mul Col]:/set %decmul 1 | echo 14 -a *** Multy Colour Style is now active. 
  ..Multy Style2[Mul Bak Col]:/set %decmul 2 | echo 14 -a *** Multy Colour text and background Style is now active. 
  ..Multy Style3[Mul Sty Col]:/set %decmul 3 | echo 14 -a *** Multy Colour Style is now active.
  ..Multy Style4[Reverse]:/set %decmul 4 | echo 14 -a *** Reverse text Style is now active. 
  ..Multy Style5[Mul Styl]:/set %decmul 5 | echo 14 -a *** Multy Colour and Style is now active.
  ..Multy Style6[Pants]:/set %decmul 6 | echo 14 -a *** Multy Colour pants script is now active, this style may flood the channel!!! 
  ..Multy Style7[Rainbow]:/set %decmul 7 | echo 14 -a *** Multy Colour rainbow with black background style is now active. 
}