var letters : array 1..36 of string
const freq := 500 %frequency of blips
const speed := 75 %blip length modifier
%Boring manual assignment of blip sequences
letters (1) := "13"
letters (2) := "3111"
letters (3) := "3131"
letters (4) := "311"
letters (5) := "1"
letters (6) := "1131"
letters (7) := "331"
letters (8) := "1111"
letters (9) := "11"
letters (10) := "1333"
letters (11) := "313"
letters (12) := "1311"
letters (13) := "33"
letters (14) := "31"
letters (15) := "333"
letters (16) := "1331"
letters (17) := "3313"
letters (18) := "131"
letters (19) := "111"
letters (20) := "3"
letters (21) := "113"
letters (22) := "1113"
letters (23) := "133"
letters (24) := "3113"
letters (25) := "3133"
letters (26) := "3311"
%add 1-9+0 to the list, too lazy to make the computer figure it out.
letters (27) := "33333"
letters (28) := "13333"
letters (29) := "11333"
letters (30) := "11133"
letters (31) := "11113"
letters (32) := "11111"
letters (33) := "31111"
letters (34) := "33111"
letters (35) := "33311"
letters (36) := "33331"


proc tone (seq:string)
    for x: 1..length (seq)
        Music.Sound (freq, speed*strint(seq(x)))
        Music.SoundOff
        delay (round (1.5*speed))
    end for
end tone
loop
put "Enter a sentence to convert: "..
var text : string
get text : *
put "Morse code of \"" + text + "\":"
for x: 1..length (text)
    put text (x)+" "..
    if ord (text(x)) >= 97 and ord(text(x)) <= 122 then
        put letters (ord(text(x))-96)
        tone (letters  (ord(text(x))-96))
    elsif ord (text(x)) >= 65 and ord(text(x)) <= 90 then
        put letters (ord(text(x))-64)
        tone (letters  (ord(text(x))-64))
    elsif strintok (text(x)) then
        put letters (strint (text(x))+26)
        tone (letters (strint (text(x))+ 26))
    elsif text (x) = " " then
        put "<Space>"
        delay (7*speed)
    else
        put "<invalid character>"
    end if
    delay (3*speed)
end for
end loop