FiveTech Software tech support forums

Code: Select all | Expand

* =========================================================================
* BIRTHDAY - Plays "Happy Birthday".                                       
* Parameters: None.                                                        
* Returns   : NIL                                                          
*
* This is an original work of Peter Townsend and is hereby placed in the   
* public domain.                                                           
*
* cephas@tpgi.com.au
* =========================================================================

*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
*+
*+    Function BirthDay()
*+
*+±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±
*+




#include 'FiveWin.ch'
#include "ADS.Ch"
#include "Ord.Ch"

Function Cumple()

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

MsgInfo()
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

*+ EOF: BIRTHDAY.PRG