Support Forum / Форум поддержки

Code: Select all

dim morse$(123)
morse_init
print text2morse$("Now is the time.")
end

' get the morse code for a piece of text
' space between caracters within a word is one space
' space between words consists of 3 spaces
' no check on permissible caracters
'
def text2morse$(t$)
if t$="" then return t$
last=len(t$)-1 ! m$=""
for i=0 to last
	tok$=mid$(t$,i,1)
  if tok$=" " then m$&="  " else m$&=.morse$(asc(tok$)) & " "
  next i
return m$
end def

' get the morse code for one caracter (token$)
' no check on permissible caracter
def get_morse$(token$) = .morse$(asc(token$))

' initialize the morse table
' permissible caracters can be found in the array :
'    morse_init.tok$() after initialization
' for convenience, lower case caracters are also accepted
'    they get the same code as their upper case companions
'
def morse_init
dim tok$(51),m$(51)
if already_read then return
already_read=1
for i=1 to 50
  read tok$(i),m$(i) ! .morse$(asc(tok$(i)))=m$(i)
  if i<=26 then .morse$(asc(lowstr$(tok$(i))))=m$(i)
  next i
data "A",".-","B","-...","C","-.-.","D","-..","E","."
data "F","..-.","G","--.","H","....","I","..","J",".---"
data "K","-.-","L",".-..","M","--","N","-.","O","---"
data "P",".--.","Q","--.-","R",".-.","S","...","T","-"
data "U","..-","V","...-","W",".--","X","-..-","Y","-.--"
data "Z","--..","0","-----","1",".----","2","..---"
data "3","...--","4","....-","5",".....","6","-...."
data "7","--...","8","---..","9","-...."
data ".",".-.-.-",",","--..--","?","..--..","!","-.-.--"
data "-","-....-","/","-..-.",":","---...","'",".----."
data ")","-.--.-",";","-.-.-","(","-.--.","=","-...-"
data "@",".--.-.","&",".-..."
end def