/und {
  set %topD ²
  set %botD ¥
  set %bg 1
  set %line 0
  set %txtc 1
  set %zar $parm1
  set %zar2 $parm2
  set %zar3 $parm3
  set %zar4 $parm4
  set %zar5 $parm5
  set %zar6 $parm6
  set %col $rand(3,16)
  set %colz $rand(3,16)
  set %colza $rand(3,16)
  set %colzab $rand(3,16)
  set %colzabc $rand(3,16)
  set %colzabcd $rand(3,16)
  set %desc $rand(3,16)
  set %descz $rand(3,16)
  set %descza $rand(3,16)
  set %desczab $rand(3,16)
  set %desczabc $rand(3,16)
  set %desczabcd $rand(3,16)
  /set %b1zabcd [ $len(%zar6) + 2 ] | /set %cp1zabcd $len(%zar6) | /set %l21zabcd $str(%b1zabcd,%topD) | /set %l1zabcd %cp1zabcd / 2  
  if ( 2 // %cp1zabcd ) { set %cr1zabcd  $+ %bg $+ , $+ %bg $+ Er }
  else { set %cr1zabcd  $+ %bg $+ , $+ %bg $+ ® }
  if ( 2 \\ %cp1zabcd ) { set %l1zabcd %l1zabcd + 1 }
  /set %b1zabc [ $len(%zar5) + 2 ] | /set %cp1zabc $len(%zar5) | /set %l21zabc $str(%b1zabc,%topD) | /set %l1zabc %cp1zabc / 2  
  if ( 2 // %cp1zabc ) { set %cr1zabc  $+ %bg $+ , $+ %bg $+ Er }
  else { set %cr1zabc  $+ %bg $+ , $+ %bg $+ ® }
  if ( 2 \\ %cp1zabc ) { set %l1zabc %l1zabc + 1 }
  /set %b1zab [ $len(%zar4) + 2 ] | /set %cp1zab $len(%zar4) | /set %l21zab $str(%b1zab,%topD) | /set %l1zab %cp1zab / 2  
  if ( 2 // %cp1zab ) { set %cr1zab  $+ %bg $+ , $+ %bg $+ Er }
  else { set %cr1zab  $+ %bg $+ , $+ %bg $+ ® }
  if ( 2 \\ %cp1zab ) { set %l1zab %l1zab + 1 }
  /set %b1za [ $len(%zar3) + 2 ] | /set %cp1za $len(%zar3) | /set %l21za $str(%b1za,%topD) | /set %l1za %cp1za / 2  
  if ( 2 // %cp1za ) { set %cr1za  $+ %bg $+ , $+ %bg $+ Er }
  else { set %cr1za  $+ %bg $+ , $+ %bg $+ i }
  if ( 2 \\ %cp1za ) { set %l1za %l1za + 1 }
  /set %b1z [ $len(%zar2) + 2 ] | /set %cp1z $len(%zar2) | /set %l21z $str(%b1z,%topD) | /set %l1z %cp1z / 2  
  if ( 2 // %cp1z ) { set %cr1z  $+ %bg $+ , $+ %bg $+ Er }
  else { set %cr1z  $+ %bg $+ , $+ %bg $+ R }
  if ( 2 \\ %cp1z ) { set %l1z %l1z + 1 }
  /set %b1 [ $len(%zar) + 2 ] | /set %cp1 $len(%zar) | /set %l21 $str(%b1,%topD) | /set %l1 %cp1 / 2  
  if ( 2 // %cp1 ) { set %cr1  $+ %bg $+ , $+ %bg $+ Za }
  else { set %cr1  $+ %bg $+ , $+ %bg $+ R }
  if ( 2 \\ %cp1 ) { set %l1 %l1 + 1 }
  if (%zar2 < 1) { set %noc 0,0 | set %noco 0,0 | set %nocolo 0,0 | set %cr1z 0,0 Z | set %cr1za 0,0 a | set %cr1zab 0,0 r  | set %cr1zabc 0,0 Ñ }
  if (%zar3 < 1) { set %noco 0,0 | set %cr1za 0,0 Þ | set %cr1zab 0,0 Ð | set %cr1zabc 0,0 Ñ }
  if (%zar4 < 1) { set %nocol 0,0 | set %cr1zab 0,0 ï | set %cr1zabc 0,0 Ñ }
  if (%zar5 < 1) { set %nocolo 0,0 | set %cr1zabc 0,0 ° }
  if (%zar6 < 1) { set %nocolor 0,0 | set %cr1zabcd 0,0 ¬ }
  /say  $+ %line $+ , $+ %bg $+ _¡ $+ $str(%cp1,_) $+ ¡ $+ _ $+ %line $+ , $+ %bg $+ %noc $+ _¡ $+ $str(%cp1z,_) $+ ¡ $+ _ $+ %line $+ , $+ %bg $+ %noco $+ $+ _¡ $+ $str(%cp1za,_) $+ ¡ $+ _ $+ %line $+ , $+ %bg $+ %nocol $+ $+ _¡ $+ $str(%cp1zab,_) $+ ¡ $+ _ $+ %line $+ , $+ %bg $+ %nocolo $+ $+ _¡ $+ $str(%cp1zabc,_) $+ ¡ $+ _ $+ %line $+ , $+ %bg $+ %nocolor $+ $+ _¡ $+ $str(%cp1zabcd,_) $+ ¡ $+ _0,0Z
  set %overa  $+ %bg $+ , $+ %bg $+ %nocol $+ E $+ %desczab $+ , $+ %colzab $+ $+ %nocol $+ %l21zab $+  $+ %bg $+ , $+ %bg $+ $+ %nocol $+ Z $+ %bg $+ , $+ %bg $+ %nocolo $+ E $+ %desczabc $+ , $+ %colzabc $+ $+ %nocolo $+ %l21zabc $+a  $+ %bg $+ , $+ %bg $+ $+ %nocolo $+ Z $+ %bg $+ , $+ %bg $+ %nocolor $+ E $+ %desczabcd $+ , $+ %colzabcd $+ $+ %nocolor $+ %l21zabcd $+a  $+ %bg $+ , $+ %bg $+ $+ %nocolor $+ Z0,0a
  /say  $+ %bg $+ , $+ %bg $+ t $+ %desc $+ , $+ %col $+ %l21 $+  $+ %bg $+ , $+ %bg $+ Z $+ %noc $+  $+ %bg $+ , $+ %bg $+ %noc $+ $+ E $+ %descz $+ , $+ %colz $+ $+ %noc $+ %l21z $+  $+ %bg $+ , $+ %bg $+ $+ %noc $+ Z $+ %bg $+ , $+ %bg $+ %noco $+ E $+ %descza $+ , $+ %colza $+ $+ %noc $+ %l21za $+  $+ %bg $+ , $+ %bg $+ $+ %noco $+ Z $+ %overa
  set %iowa  $+ %bg $+ , $+ %bg $+ %nocolor $+ r $+ %txtc $+ , $+ %colzabcd $+ %nocolor %zar6  $+ %bg $+ , $+ %bg $+ %nocolor $+ a0,0r
  /say  $+ %bg $+ , $+ %bg $+ e $+ %txtc $+ , $+ %col $1  $+ %bg $+ , $+ %bg $+ a  $+ %noc $+  $+ %bg $+ , $+ %bg $+ %noc $+ r $+ %txtc $+ , $+ %colz $+ %noc %zar2 %abc $+  $+ %bg $+ , $+ %bg $+ %noc $+ a $+ %bg $+ , $+ %bg $+ %noco $+ r $+ %txtc $+ , $+ %colza $+ %noco %zar3  $+ %bg $+ , $+ %bg $+ %noco $+ a $+ %bg $+ , $+ %bg $+ %nocol $+ r $+ %txtc $+ , $+ %colzab $+ %nocol %zar4  $+ %bg $+ , $+ %bg $+ %nocol $+ a $+ %bg $+ , $+ %bg $+ %nocolo $+ r $+ %txtc $+ , $+ %colzabc $+ %nocolo %zar5  $+ %bg $+ , $+ %bg $+ %nocolo $+ a $+ %iowa
  set %iowa2  $+ %desczabcd $+ , $+ %colzabcd $+ %nocolor $+ $str(%l1zabcd,%botD) $+ %nocolor $+ %cr1zabcd $+  $+ %desczabcd $+ , $+ %colzabcd $+ %nocolor $+ $str(%l1zabcd,%botD) $+  $+ %bg $+ , $+ %bg $+ $+ %nocolor $+ i0,0o
  set %over  $+ %bg $+ , $+ %bg $+ %nocol $+ i $+ %desczab $+ , $+ %colzab $+ %nocol $+ $str(%l1zab,%botD) $+ %nocol $+ %cr1zab $+  $+ %desczab $+ , $+ %colzab $+ %nocol $+ $str(%l1zab,%botD) $+  $+ %bg $+ , $+ %bg $+ $+ %nocol $+ r $+ %bg $+ , $+ %bg $+ %nocolo $+ i $+ %desczabc $+ , $+ %colzabc $+ %nocolo $+ $str(%l1zabc,%botD) $+ %nocolo $+ %cr1zabc $+  $+ %desczabc $+ , $+ %colzabc $+ %nocolo $+ $str(%l1zabc,%botD) $+  $+ %bg $+ , $+ %bg $+ $+ %nocolo $+ r $+ %bg $+ , $+ %bg $+ %nocolor $+ i $+ %iowa2
  /say  $+ %bg $+ , $+ %bg $+ x $+ %desc $+ , $+ %col $+ $str(%l1,%botD) $+ %cr1 $+ $+ %noc $+  $+ %desc $+ , $+ %col $+ $str(%l1,%botD) $+  $+ %bg $+ , $+ %bg $+ r $+ %bg $+ , $+ %bg $+ %noc $+ i $+ %descz $+ , $+ %colz $+ %noc $+ $str(%l1z,%botD) $+ %cr1z $+  $+ %descz $+ , $+ %colz $+ %noc $+ $str(%l1z,%botD) $+  $+ %bg $+ , $+ %bg $+ %noc $+ r $+ %bg $+ , $+ %bg $+ %noco $+ i $+ %descza $+ , $+ %colza $+ %noco $+ $str(%l1za,%botD) $+ %noco $+ %cr1za $+  $+ %descza $+ , $+ %colza $+ %noco $+ $str(%l1za,%botD) $+  $+ %bg $+ , $+ %bg $+ $+ %noco $+ r $+ %over
  /say  $+ %bg $+ , $+ %bg $+ y¼ $+ $1 $+ ¾ $+  $+ %bg $+ , $+ %bg $+ ¾ $+ %noc $+  $+ %bg $+ , $+ %bg $+ %noc $+ c¾ $+ %zar2 $+ %linen $+ ¾ $+  $+ %bg $+ , $+ %bg $+ %noc $+ ¾ $+ %bg $+ , $+ %bg $+ %noco $+ c¾ $+ %zar3 $+ %linen $+ ¾ $+  $+ %bg $+ , $+ %bg $+ %noco $+ ¾ $+ %bg $+ , $+ %bg $+ %nocol $+ c¾ $+ %zar4 $+ %linen $+ ¾ $+  $+ %bg $+ , $+ %bg $+ %nocol $+ ¾ $+ %bg $+ , $+ %bg $+ %nocolo $+ ¾c $+ %zar5 $+ %linen $+ x $+  $+ %bg $+ , $+ %bg $+ %nocolo $+ ¾ $+ %bg $+ , $+ %bg $+ %nocolor $+ ¾c $+ %zar6 $+ %linen $+ ¾ $+  $+ %bg $+ , $+ %bg $+ %nocolor $+ s0,0f
  /unset %linen %abc %nocq %noc %noco %cr1za %cr1z %nocol %cr1zab %nocolo %cr1zabc %nocolr %cr1zabcd %cr1zabcd %nocolor
}

    Source: geocities.com/southbeach/breakers/8178/mirc

               ( geocities.com/southbeach/breakers/8178)                   ( geocities.com/southbeach/breakers)                   ( geocities.com/southbeach)