REM Music4.bas
REM Plays Dambusters theme (!)

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
highCsharp = 554.37
highD = 587.33
highDsharp = 622.25
highE = 659.26
highF = 698.46
highFsharp = 739.99
highG = 783.99

REM Set basic bar length
bar =  4000       

REM Play the tune...
REM 4f2 8#a2 8f2 8f2 16#d2 16d2 8#d2 8f2 4d2 8f2 8d2 8d2 16c2 16#a1
ENERGISE = ON               
JOG = F
WAIT (bar/4)
JOG = Asharp
WAIT (bar/8)
JOG = F
WAIT (bar/8)
STOPRAPID
JOG = F
WAIT (bar/8)
JOG = Dsharp
WAIT (bar/16)
JOG = D
WAIT (bar/16)
JOG = Dsharp
WAIT (bar/8)
JOG = F
WAIT (bar/8)
JOG = D
WAIT (bar/4)
JOG = F
WAIT (bar/8)
JOG = D
WAIT (bar/8)
STOPRAPID
JOG = D
WAIT (bar/8)
JOG = C
WAIT (bar/16)
JOG = lowAsharp
WAIT (bar/16)
REM 8a1 8c2 8.#a1 16c2 8d2 8g2 8.f2 16d2 4f2 8c2 8f2 16g2 16a2 8#a2 4a2 4-
JOG = lowA
WAIT (bar/8)
JOG = C
WAIT (bar/8)
JOG = lowAsharp
WAIT (3*bar/16)
JOG = C
WAIT (bar/16)
JOG = D
WAIT (bar/8)
JOG = G
WAIT (bar/8)
JOG = F
WAIT (3*bar/16)
JOG = D
WAIT (bar/16)
JOG = F
WAIT (bar/4)
JOG = C
WAIT (bar/8)
JOG = F
WAIT (bar/8)
JOG = G
WAIT (bar/16)
JOG = A
WAIT (bar/16)
JOG = Asharp
WAIT (bar/8)
JOG = A
WAIT (bar/4)

STOP
ENERGISE = OFF
END

DEFHALT
	STOP
	ENERGISE = OFF
	END
ENDHALT