//This sample will activate one I/O channel. While moving your joystick control,
//you will move the active I/O channel up or down. No speed factor is considered
//in this sample! (it doesn't matter how much you move the joystick)
#DIRECTIVE RUN_MAX_SPEED
SETION 1000000000000000
//Program main-loop
LABEL WINPLC
VAR1 = $JOYSTICK_X
IF VAR1 < 0120 Then CALL MOVE_DOWN
IF VAR1 > 0140 Then CALL MOVE_UP
GOTO WINPLC
//Move the active led down
SUB MOVE_DOWN
IF IO01 = 1 Then EXIT SUB
SHIFTALLIO DOWN
WAIT 250
END SUB
//Move the active led up
SUB MOVE_UP
IF IO16 = 1 Then EXIT SUB
SHIFTALLIO UP
WAIT 250
END SUB
