-----------------------------------

rangers53

Sun Dec 08, 2013 11:40 pm


Morse code decoder(translate morse code in to English)

-----------------------------------

import GUI
var English : array 1 .. 44 of char := init ("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", "7", "8", "9", "0", ",",
    ".", "!", "?", ":", "/", "(", chr (34), ")")


var morse : array 1 .. 44 of string := init (".-", "-...", "-.-.", "-..", ".",
    "..-.", "--.", "....", "..", ".---", "-.-", ".-..", "--", "-.", "---", ".--.",
    "--.-", ".-.", "...", "-", "..-", "...-", ".--", "-..-", "-.--", "--..", ".----", "..---",
    "....-", ".....", "-....", "--...", "---..", "----.", "-----", ".-.-.-", "--..--",
    "-.-.--", "..--..", "---...", "-..-.", "-.--.", ".-..-.", "-.--.-")



var input : string
var word : string := ""
var answer : string
var space : boolean := false
var filea, fileb : int
var key : string (1)
var renew : boolean := false


proc screentofileb
open : fileb,"", put
word := ""
    for k : 1 .. length (input)
        if input (k) not= " " and k not= length (input) then
            word := word + input (k)
        end if
        if input (k) = " " then
            for l : 1 .. 44
                if word = morse (l) then
                    put English (l) ..
                    delay (50)
                end if
            end for
        end if
        if k