ANWEISUNG marke_ändern
  wenn istmarke dann
    markelöschen
  sonst
    markesetzen
  *wenn
*ANWEISUNG


ANWEISUNG richtung_ändern
  wenn istmarke dann
    linksdrehen
  sonst
    rechtsdrehen
  *wenn
*ANWEISUNG



PROGRAMM
  wiederhole
    richtung_ändern
  
    marke_ändern

    wenn nichtistwand dann
      schritt
    *wenn
  *wiederhole bis istwand
*PROGRAMM