Option Explicit
'Script written by Russell Loveridge
'Script copyrighted by <RAL: lapa.epfl.ch>


Call Main()
Sub Main()
	'declare the variables for the script.
	Dim strObject, dblSize

	'user input - identify the object to move
	strObject = Rhino.GetObject( "Select a box" )
	If IsNull(strObject) Then Exit Sub

	' user input (a "double" is a real number  ex: 3.1459)
	dblSize = Rhino.GetReal("enter distance to move the box", 10)
	
	' note the change to the second array - the move TO point is now moving to a "Y" coord:
	Rhino.MoveObject strObject, Array(0,0,0), Array(0,dblSize,0)
	' the variable is now in the (x,Y,z) position
End Sub