beginning_of_program
define_new_instrucion turnright as
{ITERATE} 3 TIMES
turnleft}
define_new_instruction busca_puerta as
WHILE rght_is blocked do
IF front_is_clear THEN
move;
ELSE
turleft;
define_new_instruction salte as
{turnright;
move;}
define_new_instruction busca_pared do
{WHILE front_is_clear do
move;
turnleft;}