Some cheeky moves!

[DirtyRoboto]

tip_toes:
SPEED 5
MOVE G6A,101, 138, 31, 144, 97, 100
MOVE G6B,100, 30, 80, 100, 100, 100
MOVE G6C,100, 30, 80, 100, 100, 100
MOVE G6D,102, 140, 31, 144, 99, 100
MOVE G6A, 53, 138, 31, 144, 97, 100
MOVE G6D, 53, 140, 31, 144, 99, 100
MOVE G6D, 53, 75, 112, 135, 99, 100
MOVE G6A, 53, 75, 111, 135, 97, 100
MOVE G6A,101, 75, 111, 135, 97, 100
MOVE G6D,100, 75, 112, 135, 99, 100
WAIT
GOSUB standard_pose
RETURN




led_toggle:

SPEED 15
' pre pose
MOVE G6B,100, 25, 178, 100, 100, 100
MOVE G6C,100, 30, 186, 100, 100, 100

TEMPO 255
FOR ld = 1 TO 20
' jiggle 1
MUSIC "g"
OUT 52,1
MOVE G6D,106, 76, 145, 93, 100, 100
MOVE G6A, 98, 76, 145, 93, 100, 100

DELAY 5
' jiggle 2
OUT 52,0
MUSIC "c"
MOVE G6D,101, 76, 145, 93, 100, 100
MOVE G6A,104, 76, 145, 93, 100, 100
DELAY 2
' jiggle 3
MUSIC "e"
OUT 52,1
MOVE G6D,106, 76, 145, 93, 100, 100
MOVE G6A, 98, 76, 145, 93, 100, 100

DELAY 5
' jiggle 4
OUT 52,0
MUSIC "d"
MOVE G6D,101, 76, 145, 93, 100, 100
MOVE G6A,104, 76, 145, 93, 100, 100
DELAY 2
NEXT ld
WAIT
GOSUB standard_pose
RETURN




led_toggle2:
SPEED 05

' bend down
MOVE G6A,102, 88, 100, 129, 98, 100
MOVE G6D,103, 88, 98, 130, 99, 100
MOVE G6B,178, 13, 54, 100, 100, 100
MOVE G6C,180, 30, 44, 100, 100, 100
' straighten up
MOVE G6A,100, 53, 181, 74, 101, 100
MOVE G6D,103, 57, 177, 77, 97, 100

SPEED 10
TEMPO 255
MOVE G6A,102, 88, 100, 129, 98, 100
MOVE G6D,103, 88, 98, 130, 99, 100

FOR le = 1 TO 2

FOR ld = 1 TO 20
' jiggle 1
MUSIC "g"
OUT 52,1
MOVE G6D,106, 76, 145, 93, 100, 100
MOVE G6A, 98, 76, 145, 93, 100, 100

DELAY 5
' jiggle 2
OUT 52,0
MUSIC "c"
MOVE G6D,101, 76, 145, 93, 100, 100
MOVE G6A,104, 76, 145, 93, 100, 100
DELAY 2
' jiggle 3
MUSIC "e"
OUT 52,1
MOVE G6D,106, 76, 145, 93, 100, 100
MOVE G6A, 98, 76, 145, 93, 100, 100

DELAY 5
' jiggle 4
OUT 52,0
MUSIC "d"
MOVE G6D,101, 76, 145, 93, 100, 100
MOVE G6A,104, 76, 145, 93, 100, 100
DELAY 2
NEXT ld
MOVE G6A,102, 88, 100, 129, 98, 100
MOVE G6D,103, 88, 98, 130, 99, 100

NEXT le
MOVE G6A,100, 53, 181, 74, 101, 100
MOVE G6D,103, 57, 177, 77, 97, 100
WAIT
GOSUB standard_pose
RETURN

[DirtyRoboto]

Just a note. Paste these into a copy of the basic routine over the old moves.
You will need to add the following to get it to work, place this with the other DIM commands

DIM ld AS BYTE
DIM le AS BYTE

[DirtyRoboto]

http://www.youtube.com/watch?v=up4XlwvDzos