Rem  BinHalve
Rem  Divides the expanded binary number
Rem  on the tape by two

Turing
0,0;0,0,R
0,1;1,1,R
1,0;0,0,R
1,1;2,1,L
2,0;3,0,L
2,1;2,1,L
3,0;4,0,R
3,1;6,1,R
4,0;4,1,R      
4,1;5,1,R
5,0;0,0,S
5,1;5,0,R
6,0;5,1,R

Tape
0001001001100000
Rem  For example, calculate 10/2

End