big text

/big {
  if ($1- == $null) { echo 4 Use : /big texto | halt }
  set %len $len($1-)
  set %tmp 1
  :ini
  if (%tmp <= %len) {
    var %char = $asc($upper($mid($1-,%tmp,1)))
    %line1 = %line1 $+ $readini $mircdir\big.ini %char n1
    %line2 = %line2 $+ $readini $mircdir\big.ini %char n2
    %line3 = %line3 $+ $readini $mircdir\big.ini %char n3
    %line4 = %line4 $+ $readini $mircdir\big.ini %char n4
    %line5 = %line5 $+ $readini $mircdir\big.ini %char n5
    inc %tmp
    goto ini
  }
  say %line1
  say %line2
  say %line3
  say %line4
  say %line5
  unset %line* %tmp %len
}