----------------------------------- DarkAng Thu May 12, 2005 1:46 am Radio program ----------------------------------- this is my first big turing project feel free to contribute ideas setscreen ("graphics:800;600") setscreen ("offscreenonly") var s,t:int var font1, font2, y, x, c : int x := 0 y := 0 %different fonts font1 := Font.New ("comic sans ms:50:bold") assert font1 > 0 font2 := Font.New ("comic sans ms:50:bold,italic,underline") assert font2 > 0 %processes process rh %RH measures 1 to 8 Music.Play ("8>def+f+edadef+f+edgef+gdc+c+ef+ggf+ef+def+c+def+ag+f+g+ef+g+dc+c+deedc+dc+dc+ddc+c+c+c+ed+c+d+c+d+dc+c+d") %RH measures 9 to 17 Music.Play ("dc+g+e+f+g+c+bag+af+g+ac+ed+c+d+f+gaagf+gef+gdccd+ef+cef+gdc+c+ef+ggf+ef+def+cc+c+edc+") %RH measures 18 to20 Music.Play ("dc+dcddc ccccd ccccdc+ c+c+c