Converts a word or phrase to morse code. My thanks to Dylan Cable for the insipation to create this. Full stops now fixed.
{note}MORSE TRANSLATOR
Enter a word or phrase that you want to translate to Morse
{formtext: name=Conversion; default=test 123; cols=60} {converted=replace(conversion," ","/")} {endnote}{digit=upper(split({=converted}, ""))}
{repeat: for trip in (seq(1, {=count(digit)}))}{=word[location(name, digit[trip])]}{endrepeat}{name=["A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","1","2","3","4","5","6","7","8","9","0","/","@","&","$","£","-","=","+","."]; trim=no} {word=[".- ","-... ","-.-. ", "-.. ", ". ", "..-. ", "--. ", ".... ", ".. ", ".--- ", "-.- ", ".-.. ", "-- ", "-. ", "--- ", ".--. ", "--.- ", ".-. ", "... ", "- ", "..- ", "...- ", ".-- ", "-..- ", "-.-- ", "--.. ",".---- ","..--- ","...-- ","....- ","..... ","-... ","--... ","---.. ","----. ", "----- ","/ ",".--.-. ",".-.. ","...-..- ","..-.. ","-...- ","-..- ",".-.-. ",".-.-.- "]; trim=no}