Q$hVZrai<TeRNMALLOCTextMorseJ BuildArraysA&firI3UCASEZ CodeStreamJPlayDotPlayDashDotDelay DashDelaytsossos5Space LetterSpace WordDelaytiimer WordSpaceStart TrapErrorsErrorserReStart8 Morse Code Translator/Playerr Written by Vince Long May 20055 Set Up The Programos}edaedieg< Initialize the Filemc:\morse\morse.txtdd}m0"dsdsem!Morse Code Sounder Player Program") Set the Values for the Dots and Dashes$ k= d p  dp  Yr Main Program Starts HereFNZ Check Keyboard for input  0 The pause here just reduces the the conflicts4 between clashes between this program and the PERL) program as the vie for use of the filenV Fsd)sdm Currently in Pause Mode dVw&V d cdsd)sdm Reading the file  Read data from the filemc:\morse\morse.txtdd d( If the file is empty, just go back to the beginning of the programo m0"]&[Z' If the file had data, put a zero in o its place mc:\morse\morse.txtdd}m0" d0 Search the incoming data and build the output. by matching each letter in the data to its  Morse Code d -V de,V  d3Y aY] i  f f Output the CodeStream d -VsdsdmSending this to sounder->   d -V  d3m."]lY  d3m-"]Y  d3m "]Y& fV FV cd f Check keyboard for Escape Key! If Escape Key, End the program e qdN exe V F V cd exd V F V cdo" exe V F V cd exd V F V cd*oR& V F V cd\ o</ Jd J sesd m Error Count: " JlrmA"dam.-dimB"d am-...d imC"d am-.-.d imD"dam-.."dimE"dam."dimF"dam..-.dimG"dam--."dimH"d!am....d!imI"d%am..d%imJ"d)am.---d)imK"e am-.-"e imL"e am.-..e imM"e am--e imN"eam-.eimO"eam---"eimP"eam.--.eimQ"eam--.-eimR"eam.-."eimS"eam..."eimT"eam-"eimU"eam..-"eimV"eam...-eimW"eam.--"eimX"eam-..-eimY"eam-.--eimZ"eam--..eim1"eam.----"eim2"eam..---"eim3"eam...--"eim4"eam....-"eim5"eam....."eim6"e am-...."e im7"e!am--..."e!im8"e"am---.."e"im9"e#am----."e#im0"e$am-----"e$im,"e%am--..--e%im."e&am.-.-.-e&io