Robodyssey Code Page "MMouseBasic" Examples for Robot Kits, Wheeled Robots, Talking Robots and Robotics in Education

ROBODYSSEY SYSTEMS LLC
	
Option Explicit
Public Const LowBit as single = 0.000833	'Time it takes for the low bit
Public Const StartBit as single = 0.006664	'Time it takes for the start bit
Public Const HighBit as single = 0.003332	'Time it takes for the highbit
Public Const ClockBit as single = 0.000833	'Clock bit time

Public Const Sapien As Byte = 12	  'Robosapien is connected to pin 12 on the BX-24
					'That is labled pin 7 on the motherboard

'IR Pin

Const CenterIRPin As Byte = 13		'The sharp Sensor is connected to pin 13 on the BX-24
					'That is labled pin 8 on the motherboard
'************************************************************************************************
' These are the subroutines available for call. So if you want to make your Robosapien
' give a high five just Call High5.
' I figured out many of these using my storage scope. However, I got bored with that and
' got the rest from http://www.aibohack.com/robosap/ir_codes.htm

'This code is very primitive but easy to see what is happening
' I will be posting much smoother code shortly

'RArmUp - Right Arm Up		RArmUp - Right Arm Up		RArmOut - Right Arm Out
'TurnRight - Turn Right		TltBodyR - Tilt Body Right		RArmDown - Right Arm Down
'RArmIn - Right Arm In		WalkForward - Walk Forward		WalkBack - Walk Backwards
'TurnLeft - Turn Left			LArmUp - Left Arm Up		LArmOut - Left Arm Out
'TltBodyL - Tilt Body Left		LArmDown - Left Arm Down		LArmIn - Left Arm In
'RTurnStep - R Turn Step		RHandThump - R Hand Thump	RHandThrow - R Hand Throw
'SleepIt - Sleep			RHandPick - R Hand PickUp		LeanBack - Lean Backwards
'ForwardStep			BackStep				LTurnStep - Left Turn Step
'LHandThump - L Hand Thump	LHandThrow - L Hand Throw		Listen - Listen
'LHandPick - LHand PickUp		LeanForward - Lean Forward		ResetIt - Reset
'RHandSk3 - R Hand Strike3		RHandSweep - R Hand Sweep	Burp - Burp
'RHandSK2 - R Hand Strike2		High5 - High Five			RHandSK1 - R Hand Strike1
'BullDozer - BullDozer		Oops - Fart			 LHandSk3 - L Hand Strike3
'LHandSweep - L Hand Sweep	Whistle - Whistle			LHandSk2 - L Hand Strike2
'TalkBack - TalkBack		LHandSk1 - L Hand Strike1		Roar - Roar
Sub Main()

Call Putpin(Sapien,1)
Call Delay(2.0) ' 2 second start delay
Call LArmDown
Call Delay(0.5)
Call LArmIn
Call Delay(0.5)
Call RArmDown
Call Delay(0.5)
Call RArmIn
Call Delay(0.5)
Call WalkForward

Do
	If GetADC(CenterIRPin) > 250 Then	'250 is bout 10 inches
		Call Roar
		Call Delay(2.0)
		Call RArmIn
		Call Delay(1.0)
		Call LArmIn
		Call Delay(1.0)
		Call BackStep
		Call Delay(4.0)
		Call TurnLeft
		Call Delay(5.0)
		Call WalkForward
	End If

Call Delay(0.5)
Loop
End Sub
'*********************
Sub Stopit()'Right Arm Out
'10001110 
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************'*********************
Sub TurnRight()'Turn Right
'10000000
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)

End Sub
'*********************
Sub RArmUp()'Right Arm Up
'10000001
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub RArmOut()'Right Arm Out
'10000010
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub TltBodyR()'Tilt Body Right
'10000011
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub RArmDown()'Right Arm Down
'10000100
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub RArmIn()'Right Arm In
'10000101
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub WalkForward()'Walk Forward
'10000110
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub WalkBack()'Walk Backwards
'10000110
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub TurnLeft()'Turn Left
'10001000
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LArmUp()'Left Arm Up
'10001001
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LArmOut()'Left Arm Out
'10001010
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub TltBodyL()'Tilt Body Left
'10001011
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LArmDown()'Left Arm Down
'10001100
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LArmIn()'Left Arm In
'10001101
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub RTurnStep()'Right Turn Step
'10100000
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub RHandThump()'Right Hand Thump
'10100000
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub RHandThrow()'Right Hand Throw
'10100000
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub SleepIt()'Sleep
'10100011
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub RHandPick()'Right Hand PickUp
'10100100
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LeanBack()'Lean Backwards
'10100101
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub ForwardStep()'Forward Step
'10100110
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub BackStep()'Backward Step
'10100111
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LTurnStep()'Left Turn Step
'10101000
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LHandThump()'Left Hand Thump
'10101001
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LHandThrow()'Left Hand Throw
'10101010
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub Listen()'Listen
'10101011
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LHandPick()'Left Hand PickUp
'10101100
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LeanForward()'Lean Forward
'10101101
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub ResetIt()'Reset
'10101110
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
'*********************
Sub RHandSk3()'Right Hand Strike 3
'11000000
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub RHandSweep()'Right Hand Sweep
'11000001
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub Burp()'Burp
'11000010
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub RHandSK2()'Right Hand Strike 2
'11000011
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub High5()'High Five
'11000100
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub RHandSK1()'Right Hand Strike 1
'11000101
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub BullDozer()'BullDozer
'11000110
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub Oops()'Fart
'11000111
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LHandSk3()'Left Hand Strike 3
'11001000
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LHandSweep()'Left Hand Sweep
'11001001
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub Whistle()'Whistle
'11001010
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LHandSk2()'Left Hand Strike 2
'11001011
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub TalkBack()'TalkBack
'11001100
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub LHandSk1()'Left Hand Strike 1
'11001101
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
Sub Roar()'Roar
'11001110
	Call Pulseout(Sapien,startbit,0)
	Call Pulseout(Sapien,HighBit,1)	'7 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'6 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'5 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'4 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'3 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'2 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,HighBit,1)	'1 bit
	Call Pulseout(Sapien,Clockbit,0)
	Call Pulseout(Sapien,LowBit,1)	'0 bit
	Call Pulseout(Sapien,Clockbit,0)
End Sub
'*********************
'Robosapien is a trademark of WOW WEE
Home
Product Catalog
Robodyssey Systems manufactures Robot Kits including Autonomous Mobile Walking Robots, Wheeled Robots, Talking Robots, Expressive Robots, and Social Robots. We also sell Robotics Accessories including Nexcell NiMH AA Rechargeable Batteries, Nexcell NiMH AAA Rechargeable Batteries, Battery Holders, Velcro Straps for Battery Packs, Battery Chargers, Robot Grippers, Hobby Servos, Servos Modified for Continuous Rotation, Tail Wheels for all Rolling Robotic Platforms, Polyurethane Skate Wheels with Servo Adapter Hubs, Sharp IR Sensors and Adjustable Sensor Brackets, Sensor Cables, and Programming Cables. All of our Robot Kits can be purchased as easy to assemble robot kits or as fully assembled stationary or mobile robots. Robodyssey uses 1/8 inch aluminum and acetyl for most all of our mobile robot components and robotics accessories. We provide classroom training for teachers interested in integrating robotics, computer programming and electronics into the classroom.
We hope you enjoy our web site. Feel free to use any robotic resources. Robodyssey is your complete solution for Educational Robotics as well as Hobby Robotics.