'===================================================================
' - UNUSED VARS TESTER -
'===================================================================

Variable Numeric MoveRightM0
Variable Numeric MoveRightM0
Variable Numeric NumTest
Variable Numeric NumCycles

Variable Numeric Coord_Z    ' Coord_XR
Variable Numeric Coord_A
Variable Numeric Coord_XP
Variable Numeric Coord_XR

Key Right		Gosub MoveRightM0
Key Left 		Gosub MoveLeftM0
Key Up 			Gosub MoveRightM1

Stop     ' Coord_XR

'v1 = Coord_z + Coord_a - Coord_xp - Coord_XR

' ===============  P I N    T E S T  ====== Coord_A ============================
Label "START_TEST"
	Save StringToFile "-=-=-=-START-=-=-=-" s2
	NumTest = Input "Tell me how many cycle:"
	NumCycles = 0
	Label LoopTest
		NumCycles = NumCycles + 1
		If NumCycles > NumTest
			Return
		EndIf
		s1 = Now
		s1 = s1 + " " + Format(NumCycles, "000") + " " + Result
		Print s1
	Goto LoopTest
Return

Label MoveRightM0
	Label "MoveLeftM0"
		Label "MoveRightM1"
			

'WATCH SlotMotor
'WATCH Abs(Slot(SlotMotor))
'WATCH n12345
'WATCH s12345
'WATCH v1
'WATCH 323
'WATCH v1
'WATCH s1
'WATCH str
'WATCH Sin2
'EXEC Sin2 = Sin(33)
