Function to Play 'Happy Birthday'

Call Procedure Birthday to play sound


proc BirthDay()

local D1    := 293.7
local E := 329.6
local F := 370.0
local G := 392
local A     := 440.0
local B := 493.9
local C := 523.3
local D2 := 567
local Minim := 12
local Crotchet := 6
local Quaver := 3



tone( D1, Quaver )
tone( D1, Quaver )
tone( E, Crotchet )
tone( D1, Crotchet )
tone( G, Crotchet )
tone( F, Minim )
tone( D1, Quaver )
tone( D1, Quaver )
tone( E, Crotchet )
tone( D1, Crotchet )
tone( A, Crotchet )
tone( G, Minim )
tone( D1, Quaver )
tone( D1, Quaver )
tone( D2, Crotchet )
tone( B, Crotchet )
tone( G, Crotchet )
tone( F, Crotchet )
tone( E, Crotchet )
tone( C, Quaver )
tone( C, Quaver )
tone( B, Crotchet )
tone( G, Crotchet )
tone( A, Crotchet )
tone( G, Minim + Crotchet )

return