Replace -> with the STO> key
L1 and L2 are list variable, key correctly

Program start

(90/65)(90/65)->F
1->C
{0}->L�
{0}->L�

Lbl 0
Menu("MOTION CONTROL","FORWARD",1,"BACK",2,"LEFT",3,"RIGHT",4,"START MOTION",99

Lbl 1
122->L�(C)
ClrHome
Disp "ENTER NUMBER OF"
Disp "MILLISECONDS TO"
Disp "GO FORWARD:"
Input B
B->L�(C)

Goto 9

Lbl 2
100->L�(C)

ClrHome
Disp "ENTER NUMBER OF"
Disp "MILLISECONDS TO"
Disp "GO BACK:"
Input B
B->L�(C)

Goto 9


Lbl 3
112->L�(C)
ClrHome
Disp "ENTER NUMBER OF"
Disp "DEGREES TO"
Disp "TURN LEFT:"
Input B
B*F->L�(C)

Goto 9


Lbl 4
121->L�(C)


ClrHome
Disp "ENTER NUMBER OF"
Disp "MILLISECONDS TO"
Disp "GO RIGHT:"
Input B
B*F->L�(C)

Goto 9





Lbl 9
C+1->C
Goto 0


Lbl 99

For(I,1,dim(L�):Send({L�(I),L�(I)}
Get(R)

End




F
1->C
{0}->L�
{0}->L�

Lbl 0
Menu("MOTION CONTROL","FORWARD",1,"BACK",2,"LEFT",3,"RIGHT",4,"START MOTION",99

Lbl 1
122->L�(C)
ClrHome
Disp "ENTER NUMBER OF"
Disp "MILLISECONDS TO"
Disp "GO FORWARD:"
Input B
B->L�(C)

Goto 9

Lbl 2
100->L�(C)

ClrHome
Disp "ENTER NUMBER OF"
Disp "MILLISECONDS TO"
Disp "GO BACK:"
Input B
B�L�(C)

Goto 9


Lbl 3
112->L�(C)
ClrHome
Disp "ENTER NUMBER OF"
Disp "DEGREES TO"
Disp "TURN LEFT:"
Input B
B*F->L�(C)

Goto 9


Lbl 4
121->L�(C)


ClrHome
Disp "ENTER NUMBER OF"
Disp "MILLISECONDS TO"
Disp "GO RIGHT:"
Input B
B*F->L�(C)

Goto 9





Lbl 9
C+1->C
Goto 0


Lbl 99

For(I,1,dim(L�):Send({L�(I),L�(I)}
Get(R)

End