$col() identifier

alias col {
  ; $col(N1-N2,TEXT)

  if ($1 == $null) { return }

  var %n0 = $gettok($1,1-2,45)
  var %n1 = $gettok(%n0,1,45)
  var %n2 = $gettok(%n0,2,45)

  if (%n1 !== $null) && (%n1 isnum 0-9) { var %n1 = 0 $+ %n1 }
  if (%n2 !== $null) && (%n2 isnum 0-9) { var %n2 = 0 $+ %n2 }

  if (%n1 !== $null) && (%n1 !isnum 0-98) { return }
  if (%n2 !== $null) && (%n2 !isnum 0-98) { return }

  if (%n1 !== $null) && (%n2 == $null) { var %t = %n1 }
  if (%n1 !== $null) && (%n2 !== $null) { var %t = $+(%n1,$chr(44),%n2)) }

  return $+($chr(3),%t,$2-,$chr(3))
}