Anonymous

menu channel,status,query {
  LF 2D Text
  .Black!:set %2df 2dcolor.ini | set %fc1 1,1 | set %fc2 14,14
  .Red!:set %2df 2dcolor.ini | set %fc1 5,5 | set %fc2 4,4
  .Yellow!:set %2df 2dcolor.ini | set %fc1 7,7 | set %fc2 8,8
  .Green!:set %2df 2dcolor.ini | set %fc1 3,3 | set %fc2 9,9
  .Blue!:set %2df 2dcolor.ini | set %fc1 2,2 | set %fc2 12,12
  .Purple!:set %2df 2dcolor.ini | set %fc1 6,6 | set %fc2 13,13
  .Random!:set %2df 2drand.ini | set %fc1 rand | unset %fc2
  .RainBow!:set %2df 2drain.ini | unset %fc1 | unset %fc2
}
;
alias 2DT {
  if (%fc1 == $null || %fc2 == $null) { set %fc1 1,1 | set %fc2 14,14 }
  set %len $len($1-)
  set %counter 1
  :begin
  if (%counter <= %len) {
    set %char $upper($mid($1-,%counter,1))
    %line1 = %line1 $readini(%2DF,%char,1) $+ 
    %line2 = %line2 $readini(%2DF,%char,2) $+ 
    %line3 = %line3 $readini(%2DF,%char,3) $+ 
    %line4 = %line4 $readini(%2DF,%char,4) $+ 
    %line5 = %line5 $readini(%2DF,%char,5) $+ 
    inc %counter
    goto begin
  }
  msg $active %line1
  msg $active %line2
  msg $active %line3
  msg $active %line4
  msg $active %line5
  unset %line? %counter %len %char
}