Message

[Zenerdiode]

MSG.zip

[Martin]

Thanks Chris... Merry Christmas...

[MartinP]

Lovely!
Merry Christmas!

[NotFitForPurpose]

My guess is there is better out there:

Code: Select all

bps:
LOCAL nm$(9)
LOCAL fr%(9)
LOCAL nt$(128)
LOCAL bt$(128)
LOCAL b%,i%,l%
LOCAL d%,t%


REM Semicolon is a space
nm$ = "cdefgabC;"
fr%(1) = 262
fr%(2) = 294
fr%(3) = 330
fr%(4) = 349
fr%(5) = 392
fr%(6) = 440
fr%(7) = 494
fr%(8) = 523
fr%(9) = 1

REM a space represents a rest
REM bt$ must have same number of entries as nt$
nt$ = "eee;eee;egcde;fff;ffee;eeggfdc;"
bt$ = "2231223122314422301222011222244"

REM Attribution - As I have not a musical bone in my body
REM https://github.com/ammonshepherd/arduino-tuts/blob/master/03-jingle-bells.md


b% = 56 : REM Beats
i% = 1
l% = LEN(nt$)

While (i% <= l%)
  d%= (ASC(MID$(bt$, i%, 1)) - 48) * b%
  t% = 921600 / (78 + 2 * fr%(LOC(nm$, MID$(nt$, i%, 1))))
  BEEP d%, t%
  i% = i% + 1
ENDWH

Still its of an era...
Compliments of the season

[Martin]

Works on a CM (if you disconnect the Comms Link)... If I had a mobile phone - slow it down a little - and that could be my ringtone.

Happy New Year
Martin