Microsoft Small Basic

Program Listing: SVP811

List Program

pF="http://upload.wikimedia.org/wikipedia/commons/transcoded
sf="morse_code.ogg"
f["e"]="/e/e7/E_@/E_@.mp3
f["d"]="/9/92/D_@/D_@.mp3
f["c"]="/2/25/C_@/C_@.mp3
f["b"]="/b/b1/B_@/B_@.mp3
f["a"]="/f/f3/A_@/A_@.mp3
f["f"]="/6/63/F_@/F_@.mp3
f["g"]="/7/72/G_@/G_@.mp3
f["h"]="/9/93/H_@/H_@.mp3
f["i"]="/d/d9/I_@/I_@.mp3
f["j"]="/9/9e/J_@/J_@.mp3
f["k"]="/6/6a/K_@/K_@.mp3
f["l"]="/a/a8/L_@/L_@.mp3
f["m"]="/9/97/M_@/M_@.mp3
f["n"]="/5/5a/N_@/N_@.mp3
f["o"]="/4/41/O_@/O_@.mp3
f["p"]="/c/c6/P_@/P_@.mp3
f["q"]="/f/f0/Q_@/Q_@.mp3
f["r"]="/e/ea/R_@/R_@.mp3
f["s"]="/d/d8/S_@/S_@.mp3
f["t"]="/b/ba/T_@/T_@.mp3
f["u"]="/3/34/U_@/U_@.mp3
f["v"]="/3/37/V_@/V_@.mp3
f["w"]="/6/68/W_@/W_@.mp3
f["x"]="/b/be/X_@/X_@.mp3
f["y"]="/5/5d/Y_@/Y_@.mp3
f["z"]="/7/7a/Z_@/Z_@.mp3

For x=65 To 90
c=Text.GetCharacter(x)
ff=LDText.Replace(f[c] "@" sf)
fs=ldNetwork.DownloadFile("e:/f"+c+".mp3" pf+ff)
TextWindow.Title=ff+fs
EndFor
WORD="mayday can u hear my sos
For x=1 To Text.GetLength(word)
c=text.ConvertToUpperCase( Text.GetSubText(word x 1))
TextWindow.Write(c)
If C=" " Then
Program.Delay(350)
Else
Sound.PlayAndWait("e:/f"+c+".mp3")
Program.Delay(50)
EndIf
EndFor
TextWindow.WriteLine("")