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 $r(1,15)
      set %rand2 $r(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,12W) 
      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 %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 }      
    }
    if (%decmul == 7) { 
      set %ftalker $1-
      %ftalker = $replace(%ftalker,a,)
      %ftalker = $replace(%ftalker,b,)
      %ftalker = $replace(%ftalker,c,)
      %ftalker = $replace(%ftalker,d,)
      %ftalker = $replace(%ftalker,e,)
      %ftalker = $replace(%ftalker,f,F)
      %ftalker = $replace(%ftalker,g,G)
      %ftalker = $replace(%ftalker,h,H)
      %ftalker = $replace(%ftalker,i,)
      %ftalker = $replace(%ftalker,j,J)
      %ftalker = $replace(%ftalker,k,K)
      %ftalker = $replace(%ftalker,l,)
      %ftalker = $replace(%ftalker,m,M)
      %ftalker = $replace(%ftalker,n,)
      %ftalker = $replace(%ftalker,o,)
      %ftalker = $replace(%ftalker,p,)
      %ftalker = $replace(%ftalker,q,Q)
      %ftalker = $replace(%ftalker,r,)
      %ftalker = $replace(%ftalker,s,)
      %ftalker = $replace(%ftalker,t,T)
      %ftalker = $replace(%ftalker,u,)
      %ftalker = $replace(%ftalker,v,V)
      %ftalker = $replace(%ftalker,w,\\')
      %ftalker = $replace(%ftalker,x,)
      %ftalker = $replace(%ftalker,y,)
      %ftalker = $replace(%ftalker,z,Z)
      %ftalker = $replace(%ftalker,!,!)
      %ftalker = $replace(%ftalker,?,?)
      %ftalker = $replace(%ftalker,*,*)
      %ftalker = $replace(%ftalker,^,^)
      %ftalker = $replace(%ftalker,$,$)
      %ftalker = $replace(%ftalker,@,@)
      %ftalker = $replace(%ftalker,&,&)
      %ftalker = $replace(%ftalker,",")
      %ftalker = $replace(%ftalker,<,<)
      %ftalker = $replace(%ftalker,>,>!)
      SAY %ftalker
      { halt }
    }
    else { goto THEEND }
  }
  :THEEND
}

alias comp79 if $dialog(comp79) == $null { dialog -ma comp79 comp79 }

alias comp79 if $dialog(comp79) == $null { dialog -ma comp79 comp79 }

dialog comp79 {
  title "( BrainBuster Coloured Fonts ) Colour Texter"
  size -1 -1 132 85
  option dbu
  button "Enable",1, 4 7 60 10
  button "Disable",2, 70 7 60 10
  button "Text One",3, 4 20 40 10
  button "Test",12, 48 20 15 10
  button "Text Two",4, 70 20 40 10
  button "Test",13, 114 20 15 10
  button "Text Three",5, 4 33 40 10
  button "Test",14, 48 33 15 10
  button "Text Four",6, 70 33 40 10
  button "Test",15, 114 33 15 10
  button "Text Five",7, 4 46 40 10
  button "Test",16, 48 46 15 10
  button "Text Six",8, 70 46 40 10
  button "Test",17, 114 46 15 10
  button "Text Seven",9, 4 59 40 10
  button "Test",18, 48 59 15 10
  button "Text Eight",10, 70 59 40 10
  button "Test",19, 114 59 15 10
  button "Close",11, 94 72 35 10,ok,
  button "Brain Buster ",111, 4 72 35 10,disable

}
on 1:dialog:comp79:sclick:*: {
  if $did == 1 { .set %decsty on | .echo -a 14 *** ( 10Colour Texter Enabled  }
  if $did == 2 { .set %decsty Off | .echo -a 14 *** ( 10Colour Texter Disabled  }
  if $did == 3 { .echo 14 -a  *** Available colours are 01 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15 | .set %deccol $?="Enter a number <1-15>" | set %decmul 0 }
  if $did == 4 { .set %decmul 1 | echo 14 -a 14 *** ( 10Text Two Enabled  }
  if $did == 5 { .set %decmul 2 | echo 14 -a 14 *** ( 10Text Three Enabled  }
  if $did == 6 { .set %decmul 3 | echo 14 -a 14 *** ( 10Text Four Enabled  }
  if $did == 7 { .set %decmul 4 | echo 14 -a 14 *** ( 10Text Five Enabled  }
  if $did == 8 { .set %decmul 5 | echo 14 -a 14 *** ( 10Text Six Enabled  }
  if $did == 9 { .set %decmul 6 | echo 14 -a 14 *** ( 10Text Seven Enabled  }
  if $did == 10 { .set %decmul 7 | echo 14 -a 14 *** ( 10Text Eight Enabled  }
  if $did == 12 { .echo -a 14 *** ( 10Text One Available colours are 01 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15 12( Test reply for Text One )   }
  if $did == 13 { .echo -a 14 *** ( 10Text Two: 2,0(3,16 14,16T4,16e13,16s5,16t12,16 6,16r2,16e7,16p10,16l2,16y4,16 2,16f3,16o14,16r4,16 13,16T5,16e12,16x6,16t2,16 7,16T10,16w2,16o4,16 2,16) }
  if $did == 14 { .echo -a 14 *** ( 10Text Three: 10,2(12,7 4,5T6,9e5,7s9,7t13,14 5,4r4,15e10,5p1,12l11,4y7,2 14,5f6,2o2,5r8,15 7,5T7,13e14,5x4,11t2,14 3,7T9,4h11,4r4,13e13,6e15,6 11,3) }
  if $did == 15 {  .echo -a 14 *** ( 10Text Four: T4e7ST 13R4e12PLY 12F4o13R T4e7XT 12F4o4u13R ) }
  if $did == 16 { .echo -a 14 *** ( 10Text Reverse Five:1 ) eviF txeT rof ylper tseT ( %oz.lite.slogo }
  if $did == 17 { .echo -a 14 *** ( 10Text Six: ( 7T667T 5631312 7F25 7T6117T 61011 ) }
  if $did == 18 {  .echo -a 14 *** ( 10Text Seven: 4,14(4 7T8e9s11t11 13r4e7p8l9y9 11f13o4r4 7T8e9x11t11 13S4e7v8e9n9 11)    }
  if $did == 19 { .echo -a 14 *** ( 10Text Eight: ( TT 붣 F TT GHT )  }
}
