FiveTech Software tech support forums

Code: Select all | Expand

#include "FiveWin.ch"

Function 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 nil