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;
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;
Last modified: Tuesday, 24 May 2011, 7:15 PM