PROCEDURE Gehe_bis_Wand;
BEGIN
   WHILE not vorne_frei DO vor
END;

PROCEDURE Umgehe_die_Wand;
BEGIN
   drehe_links;
   WHILE not rechts_frei DO vor;
   drehe_rechts;vor;drehe_rechts;
   WHILE not vorne_frei DO vor;
   drehe_links
END;
Zuletzt geändert: Dienstag, 24. Mai 2011, 19:15