if KEY_FUNCTION_CHECK("MOVE UP") = 1
		IF MOVETYPE = 0
			SET_MOVESPEED_DYNAMIC_OBJECT(MAIN_OBJ,Moveamount)
			MOVE_LOOP_DYNAMIC_OBJECT(MAIN_OBJ)
			MOVETYPE = 1
			`MOVE_DYNAMIC_OBJECT(MAIN_OBJ,CALCULATE_FRAME_DELAY(Moveamount),1)
			`Moveobject(CALCULATE_FRAME_DELAY(Moveamount))
			`MOVEMENT = 1
			`GOSUB TS_UPDATE_POS
		ENDIF
	else
		if MOVETYPE = 1
			MOVETYPE = 0
			STOP_MOVING_DYNAMIC_OBJECT(MAIN_OBJ)
		endif
	endif
	
	if KEY_FUNCTION_CHECK("MOVE DOWN") = 1
		IF MOVETYPE = 0
			SET_MOVESPEED_DYNAMIC_OBJECT(MAIN_OBJ,-Moveamount)
			MOVE_LOOP_DYNAMIC_OBJECT(MAIN_OBJ)
			MOVETYPE = 2
			`MOVE_DYNAMIC_OBJECT(MAIN_OBJ,CALCULATE_FRAME_DELAY(-Moveamount),1)
			`Moveobject(CALCULATE_FRAME_DELAY(-Moveamount))
			`MOVEMENT = 1
			`GOSUB TS_UPDATE_POS
		ENDIF
	else
		if MOVETYPE = 2
			MOVETYPE = 0
			STOP_MOVING_DYNAMIC_OBJECT(MAIN_OBJ)
		endif
	endif