REM Music2.bas
REM Plays close encounters of a third kind thing

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
lowDsharp = 155.56
lowE = 164.81
lowF = 174.61
lowFsharp = 185.00
lowG = 196.0
lowGsharp = 207.65
lowA = 220.00
lowAsharp = 233.08
lowB = 246.94
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 tune
ENERGISE = ON
JOG = G
WAIT 500
JOG = A
WAIT 500
JOG = F
WAIT 500
JOG = lowF
WAIT 500
JOG = C
WAIT 1000
STOP

ENERGISE = OFF
END

REM Called if program aborts
DEFHALT
	ENERGISE = OFF
	END
ENDHALT