Re: Happy birthday Pablo Cesar
Posted: Wed Dec 04, 2013 7:34 am
Dear Pablo,
Many Many Happy returns of the day.
Warm regards,
Jayadev
Many Many Happy returns of the day.
Warm regards,
Jayadev
Exclusive forum for HMG, a Free / Open Source xBase WIN32/64 Bits / GUI Development System
http://mail.hmgforum.com/
Code: Select all
* =========================================================================
*
* BIRTHDAY - Plays "Happy Birthday".
*
* =========================================================================
FUNCTION BirthDay()
LOCAL D1 := 293.7, E := 329.6, F := 370.0, G := 392
LOCAL A := 440.0, B := 493.9, C := 523.3, D2 := 567
LOCAL Minim := 12, Crotchet := 6, 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