Hab ich vergessen: testen kann man das Programm, indem man es im Interpreter lädt (consult('TM_Prolog.pl'). ) und dann die TM mit starten(Bandinschrift rechs vom lesekopf als liste). startet, z. B bekommt man dann die Ausgabe:
?- starten([1,1,1,1,1]).
[*,*,1,0,0,0,0,0,*,*,*]
true