

Key 6 			Gosub OpenGripper
Key 4 			Gosub CloseGripper
Key 5 			Gosub FarFomZero
Key Right		Gosub MoveRight
Key Left 		Gosub MoveLeft
Key Up 			Gosub MoveUp
Key Down 		Gosub MoveDown
Key Pageup		Gosub MoveUpper
Key Pagedown	Gosub MoveLower


Gosub 	OpenGripper
Stop

'----------------------------------------------------------------------------


'
Label OpenGRIPPER
	Slot 7 = 750
	Wait Seconds 1.1
	Slot 7 = Sleep
Return
'
Label CloseGRIPPER
	Slot 7 = 505
	Wait Seconds 0.5
Return

Label OpenGRIPPER
	Wait Seconds 0.5
	Slot(7) = Slot(7) + 5
Return

Label KeyCloseGRIPPER
	Slot(7) = Slot(7) - 5
Return

Label  MoveRight
	Slot(1) = Slot(1) - 25
Return

Label  MoveLeft
	Slot(1) = Slot(1) + 25
Return

Label  MoveUp
	Slot(3) = Slot(3) + 25
Return

Label  MoveDown
	Slot(3) = Slot(3) - 25
Return

Label  MoveUpper
	Slot(5) = Slot(5) + 1
Return

Label  MoveLower
	Slot(5) = Slot(5) - 1
Return



'EXEC Slot(3) = 0 : Slot(4) = 0
