morse_table.lua

local M
do
  local t = {}
  t[48]='-----' --0
  t[49]='.----'
  t[50]='..---'
  t[51]='...--'
  t[52]='....-'
  t[53]='.....'
  t[54]='-....'
  t[55]='--...'
  t[56]='---..'
  t[57]='----.' --9
  t[65]='.-' -- A
  t[66]='-...'
  t[67]='-.-.'
  t[68]='-..'
  t[69]='.'
  t[70]='..-.'
  t[71]='--.'
  t[72]='....'
  t[73]='..'
  t[74]='.---'
  t[75]='-.-'
  t[76]='.-..'
  t[77]='--'
  t[78]='-.'
  t[79]='---'
  t[80]='.--.'
  t[81]='--.-'
  t[82]='.-.'
  t[83]='...'
  t[84]='-'
  t[85]='..-'
  t[86]='...-'
  t[87]='.--'
  t[88]='-..-'
  t[89]='-.--'
  t[90]='--..' -- Z
  function getMCode(str, idx)
    return t[str:byte(idx)]
  end
  -- expose
  M={
    getMCode = getMCode
  }
end
return M