Push_Up codes for all!!!!!!!!!!!

[xSVxSHaDOwZ]

' Push_up
'== Push_up ==================================

DIM A AS BYTE
DIM I AS BYTE

PTP SETON
PTP ALLON

'== motor diretion setting ======================
DIR G6A,1,0,0,1,0,0
DIR G6B,1,1,1,1,1,1
DIR G6C,0,0,0,0,0,0
DIR G6D,0,1,1,0,1,0

'== motor start position read ===================
GETMOTORSET G6A,1,1,1,1,1,0
GETMOTORSET G6B,1,1,1,0,0,0
GETMOTORSET G6C,1,1,1,0,0,0
GETMOTORSET G6D,1,1,1,1,1,0

SPEED 5

'== motor power on =============================
MOTOR G24

GOSUB standard_pose

'================================================
MAIN:



SPEED 8
GOSUB push_up
DELAY 1000

GOSUB forward_standup

SPEED 6
GOSUB standard_pose
DELAY 1000

GOTO MAIN

'================================================

'================================================

standard_pose:

MOVE G6A,100, 76, 145, 93, 100, 100
MOVE G6D,100, 76, 145, 93, 100, 100
MOVE G6B,100, 30, 80, 100, 100, 100
MOVE G6C,100, 30, 80, 100, 100, 100
WAIT

RETURN
'================================================
sit_position:
SPEED 10
MOVE G6A,100, 151, 27, 140, 100, 100
MOVE G6D,100, 151, 27, 140, 100, 100
MOVE G6B,100, 30, 80, , ,
MOVE G6C,100, 30, 80, , ,
WAIT

MOVE G6A,100, 151, 23, 140, 101, 100
MOVE G6D,100, 151, 23, 140, 101, 100
MOVE G6B,100, 30, 80, , ,
MOVE G6C,100, 30, 80, , ,
WAIT

RETURN



push_up:

MOVE G6A,101, 164, 23, 168, 100, 100
MOVE G6B,159, 30, 81, 100, 100, 100
MOVE G6C,160, 30, 81, 100, 100, 100
MOVE G6D,100, 167, 20, 169, 99, 100



FOR i=0 TO 10


MOVE G6A,100, 75, 145, 100, 100, 100
MOVE G6B,190, 25, 80, 100, 100, 100
MOVE G6C,190, 25, 80, 100, 100, 100
MOVE G6D,100, 75, 145, 100, 100, 100



MOVE G6A,100, 75, 145, 100, 100, 100
MOVE G6B,190, 90, 45, 100, 100, 100
MOVE G6C,190, 90, 45, 100, 100, 100
MOVE G6D,100, 75, 145, 100, 100, 100




MOVE G6A,100, 75, 145, 100, 100, 100
MOVE G6B,190, 25, 80, 70, 100, 100
MOVE G6C,190, 25, 80, 70, 100, 100
MOVE G6D,100, 75, 145, 100, 100, 100



NEXT i

WAIT

RETURN




forwardstandup:

SPEED 10

MOVE G6A,100, 130, 120, 80, 110, 100
MOVE G6D,100, 130, 120, 80, 110, 100
MOVE G6B,150, 160, 10, 100, 100, 100
MOVE G6C,150, 160, 10, 100, 100, 100
WAIT

MOVE G6A, 80, 155, 85, 150, 150, 100
MOVE G6D, 80, 155, 85, 150, 150, 100
MOVE G6B,185, 40, 60, 100, 100, 100
MOVE G6C,185, 40, 60, 100, 100, 100
WAIT

MOVE G6A, 75, 165, 55, 165, 155, 100
MOVE G6D, 75, 165, 55, 165, 155, 100
MOVE G6B,185, 10, 100, 100, 100, 100
MOVE G6C,185, 10, 100, 100, 100, 100
WAIT

MOVE G6A, 60, 165, 30, 165, 155, 100
MOVE G6D, 60, 165, 30, 165, 155, 100
MOVE G6B,170, 10, 100, 100, 100, 100
MOVE G6C,170, 10, 100, 100, 100, 100
WAIT

MOVE G6A, 60, 165, 25, 160, 145, 100
MOVE G6D, 60, 165, 25, 160, 145, 100
MOVE G6B,150, 60, 90, 100, 100, 100
MOVE G6C,150, 60, 90, 100, 100, 100
WAIT

MOVE G6A,100, 155, 25, 140, 100, 100
MOVE G6D,100, 155, 25, 140, 100, 100
MOVE G6B,130, 50, 85, 100, 100, 100
MOVE G6C,130, 50, 85, 100, 100, 100
WAIT

GOSUB standard_pose

RETURN

I modded this just a little by using the forward_stand up codding instead of the one that was givin to me. So he will gett up much better . I also used different codding so he will have better range plus the one givin to me was not quite right.

OK HERE IS HOW YOU DO POST THESE ON THE CODING PROGRAM...........

Pushup:
sit_position:
SPEED 10
MOVE G6A,100, 151, 27, 140, 100, 100
MOVE G6D,100, 151, 27, 140, 100, 100
MOVE G6B,100, 30, 80, , ,
MOVE G6C,100, 30, 80, , ,
WAIT

MOVE G6A,100, 151, 23, 140, 101, 100
MOVE G6D,100, 151, 23, 140, 101, 100
MOVE G6B,100, 30, 80, , ,
MOVE G6C,100, 30, 80, , ,
WAIT



push_up:

MOVE G6A,101, 164, 23, 168, 100, 100
MOVE G6B,159, 30, 81, 100, 100, 100
MOVE G6C,160, 30, 81, 100, 100, 100
MOVE G6D,100, 167, 20, 169, 99, 100

FOR i=0 TO 10

MOVE G6A,100, 75, 145, 100, 100, 100
MOVE G6B,190, 25, 80, 100, 100, 100
MOVE G6C,190, 25, 80, 100, 100, 100
MOVE G6D,100, 75, 145, 100, 100, 100


MOVE G6A,100, 75, 145, 100, 100, 100
MOVE G6B,190, 90, 45, 100, 100, 100
MOVE G6C,190, 90, 45, 100, 100, 100
MOVE G6D,100, 75, 145, 100, 100, 100


MOVE G6A,100, 75, 145, 100, 100, 100
MOVE G6B,190, 25, 80, 70, 100, 100
MOVE G6C,190, 25, 80, 70, 100, 100
MOVE G6D,100, 75, 145, 100, 100, 100

NEXT i
WAIT

forwardstandup:

SPEED 10
MOVE G6A,100, 130, 120, 80, 110, 100
MOVE G6D,100, 130, 120, 80, 110, 100
MOVE G6B,150, 160, 10, 100, 100, 100
MOVE G6C,150, 160, 10, 100, 100, 100
WAIT

MOVE G6A, 80, 155, 85, 150, 150, 100
MOVE G6D, 80, 155, 85, 150, 150, 100
MOVE G6B,185, 40, 60, 100, 100, 100
MOVE G6C,185, 40, 60, 100, 100, 100
WAIT

MOVE G6A, 75, 165, 55, 165, 155, 100
MOVE G6D, 75, 165, 55, 165, 155, 100
MOVE G6B,185, 10, 100, 100, 100, 100
MOVE G6C,185, 10, 100, 100, 100, 100
WAIT

MOVE G6A, 60, 165, 30, 165, 155, 100
MOVE G6D, 60, 165, 30, 165, 155, 100
MOVE G6B,170, 10, 100, 100, 100, 100
MOVE G6C,170, 10, 100, 100, 100, 100
WAIT

MOVE G6A, 60, 165, 25, 160, 145, 100
MOVE G6D, 60, 165, 25, 160, 145, 100
MOVE G6B,150, 60, 90, 100, 100, 100
MOVE G6C,150, 60, 90, 100, 100, 100
WAIT

MOVE G6A,100, 155, 25, 140, 100, 100
MOVE G6D,100, 155, 25, 140, 100, 100
MOVE G6B,130, 50, 85, 100, 100, 100
MOVE G6C,130, 50, 85, 100, 100, 100
WAIT

GOSUB standard_pose
RETURN


with this on all you is copy and past this to the MAIN file in RoboBasic Program. You and add more or less PUSH_UPS: (FOR i=0 TO 10) Just add more or less to the 10.
Then to get to your remote find a letter I USED F: then type
Pushup
GOSUB standard_pose

HAVE FUN With these I worked hard to get these right if there is any problem with them conntact me atxSVxSHaDOwZ@yahoo.com
Well good look, have thanks for looking and everything I hope you like it.
Or post anyother Codes you have to share!!!!!!
CJ aka xSVxSHaDOwZ