Copy And Paste This In Aliases
this is colored boxes
/bx1 {
  set %ttalk *1
  set %lentalk $len(%ttalk)
  set %i $replace(*1,$chr(32),) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  :loop
  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  inc %p
  if ( $mid(%p,1,%i) != ) { inc %c }
  if ( %c > 6 ) { set %c 1 }
  if ( $mid(%p,1,%i) != $null ) { goto loop }
  /inc %lentalk 2
  set %line $str(%lentalk,*)
  say 10,10 %line 
  say 10,10*1,1  %o 10,10*15,15*
  say 10,10 %line 15,15*
  say 0,0*15,15 %line 
}
/bx2 {
  set %ttalk *1
  set %lentalk $len(%ttalk)
  set %i $replace(*1,$chr(32),) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  :loop
  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  inc %p
  if ( $mid(%p,1,%i) != ) { inc %c }
  if ( %c > 6 ) { set %c 1 }
  if ( $mid(%p,1,%i) != $null ) { goto loop }
  /inc %lentalk 2
  set %line $str(%lentalk,*)
  say 14,14 %line 
  say 14,14*1,1  %o 14,14*15,15*
  say 14,14 %line 15,15*
  say 0,0*15,15 %line 
}
/bx3 {
  set %ttalk *1
  set %lentalk $len(%ttalk)
  set %i $replace(*1,$chr(32),) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  :loop
  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  inc %p
  if ( $mid(%p,1,%i) != ) { inc %c }
  if ( %c > 6 ) { set %c 1 }
  if ( $mid(%p,1,%i) != $null ) { goto loop }
  /inc %lentalk 2
  set %line $str(%lentalk,*)
  say 15,15 %line 
  say 15,15*1,1  %o 15,15*14,14*
  say 15,15 %line 14,14*
  say 0,0*14,14 %line 
}