; Inkrementiere eine Binaerzahl
; (C) Stephan Beyer, 20060724
.111111111111111111111111111111111111111111111111111
q0 1 1 R q0 ; gehe an rechten Rand
q0 0 0 R q0
q0 . . L qa
qa 0 1 L qf ; 0 wird zu 1, werde fertig.
qa 1 0 L qu ; 1 wird zu 0 und Uebertrag

; Uebertragbehandlung
qu 0 1 L qf
qu 1 0 L qu
qu . 1 S qh

; fertigwerden = nach links gehen
qf 1 1 L qf
qf 0 0 L qf
qf . . R qh ; halte

; halten
qh 0 0 S qh
qh 1 1 S qh