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


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


ANWEISUNG gehe_ein_feld_weiter
  wenn nichtistwand dann
    schritt
  *wenn
*ANWEISUNG


ANWEISUNG gehe_weiter(X)
  wiederhole X mal
    gehe_ein_feld_weiter
  *wiederhole
*ANWEISUNG



PROGRAMM
  wiederhole
    richtung_ändern
  
    marke_ändern

    wenn istmarke dann
      gehe_weiter(1)
    sonst
      gehe_weiter(1)
    *wenn
  *wiederhole bis istwand
*PROGRAMM