[color=Green];28x2 a.0 to a.4 [/color]
[color=Blue]setfreq m16
symbol [/color][color=Purple]posrotor[/color][color=DarkCyan]=[/color][color=Purple]b0[/color][color=Black]:[/color][color=Blue]symbol [/color][color=Purple]direc[/color][color=DarkCyan]=[/color][color=Purple]b1[/color][color=Black]:[/color][color=Blue]symbol [/color][color=Purple]counter[/color][color=DarkCyan]=[/color][color=Purple]b2[/color][color=Black]:[/color][color=Blue]symbol [/color][color=Purple]outbyte[/color][color=DarkCyan]=[/color][color=Purple]b3[/color]
[color=Blue]let [/color][color=Purple]dirsa[/color][color=DarkCyan]=[/color][color=Navy]%11111111[/color][color=Black]:[/color][color=Blue]let [/color][color=Purple]posrotor[/color][color=DarkCyan]=[/color][color=Navy]1[/color][color=Black]:[/color][color=Blue]let [/color][color=Purple]direc[/color][color=DarkCyan]=[/color][color=Navy]1[/color]
[color=Blue]do
gosub [/color][color=Black]move[/color]
[color=Blue]loop[/color]
[color=Black]move:[/color]
[color=Blue]if [/color][color=Purple]direc[/color][color=DarkCyan]=[/color][color=Navy]0 [/color][color=Blue]then inc [/color][color=Purple]posrotor[/color][color=Black]:[/color][color=Blue]if [/color][color=Purple]posrotor[/color][color=DarkCyan]>[/color][color=Navy]8 [/color][color=Blue]then let [/color][color=Purple]posrotor[/color][color=DarkCyan]=[/color][color=Navy]1[/color][color=Black]:[/color][color=Blue]endif
else[/color][color=Black]:[/color][color=Blue]dec [/color][color=Purple]posrotor[/color][color=Black]:[/color][color=Blue]if [/color][color=Purple]posrotor[/color][color=DarkCyan]<[/color][color=Navy]1 [/color][color=Blue]then let [/color][color=Purple]posrotor[/color][color=DarkCyan]=[/color][color=Navy]8[/color][color=Black]:[/color][color=Blue]endif
endif
lookup [/color][color=Purple]posrotor[/color][color=Black],[/color][color=Blue]([/color][color=Navy]0[/color][color=Black],[/color][color=Navy]%00000011[/color][color=Black],[/color][color=Navy]%00000010[/color][color=Black],[/color][color=Navy]%00000110[/color][color=Black],[/color][color=Navy]%00000100[/color][color=Black],[/color][color=Navy]%00001100[/color][color=Black],[/color][color=Navy]%00001000[/color][color=Black],[/color][color=Navy]%00001001[/color][color=Blue])[/color][color=Black],[/color][color=Purple]outbyte
pinsa[/color][color=DarkCyan]=[/color][color=Purple]outbyte[/color]
[color=Blue]return[/color]