joystick var word
'position var byte(24)
position var word
 
'position(23)=0

serout 4,16468,["O=0",13]

check:
	high 0
	low 2
	pause 10
	rctime 0,1,joystick
	serout 4,16468,["RSP",13]
	serin 5,16468,[SDEC position]
	debug position
	if joystick=1 then clockwise
	if joystick>1000 then counterclockwise
	goto nothing

goto check

nothing:
	serout 4,16468,["OFF",13]
goto check	

clockwise:
	serout 4,16468,["MV",13,"V=10000",13,"A=40",13,"G",13]
goto check

counterclockwise:
	serout 4,16468,["MV",13,"V=-10000",13,"A=40",13,"G",13]
goto check