REM Music.bas
REM Plays an arpeggio

REM Set Motor currents
CURRENTRUN = 2000
CURRENTBOOST = 2500
CURRENTIDLE = 1000
BOOST = AUTO

REM Set the units to 1 per motor step
UNITS = 256

REM Define frequencies
C = 261.63
Csharp = 277.18
D = 293.66
Dsharp = 311.13
E = 329.63
F =  349.23
Fsharp = 369.99
G = 392.00
Gsharp = 415.30
A = 440.00
Asharp = 466.16
B = 493.88
highC = 523.25

REM Play the arpeggio
ENERGISE = ON
JOG = C
WAIT 500
JOG = E
WAIT 500
JOG = G
WAIT 500
JOG = highC
WAIT 500
JOG = G
WAIT 500
JOG = E
WAIT 500
JOG = C
WAIT 1000
STOP
ENERGISE = OFF
END

REM Called if program aborts
DEFHALT
	ENERGISE = OFF
	END
ENDHALT