iniciar-programa

define-nueva-instruccion gd como repetir 3 veces gira-izquierda;

define-nueva-instruccion md como repetir 2 veces gira-izquierda;

define-nueva-instruccion iz como  gira-izquierda;

define-nueva-instruccion pared como mientras frente-libre hacer avanza;

define-nueva-instruccion norte como inicio
    si orientado-al-este entonces iz;
    si orientado-al-sur entonces md;
    si orientado-al-oeste entonces gd;
fin;

define-nueva-instruccion lar como inicio
si junto-a-zumbador entonces inicio
    coge-zumbador;
    avanza;
    lar;
    deja-zumbador;
    deja-zumbador;
fin
sino inicio
    iz;
    avanza;
fin;
fin;

define-nueva-instruccion anch como inicio
   si junto-a-zumbador entonces inicio
    coge-zumbador;
    avanza;
    anch;
    deja-zumbador;
    deja-zumbador;
fin
sino inicio
    pared;
fin;
fin;

define-nueva-instruccion largo como inicio
    mientras izquierda-bloqueada hacer inicio
    deja-zumbador;
    avanza;
    fin;
    md;
    avanza;
    lar;
fin;


define-nueva-instruccion ancho como inicio
    mientras derecha-bloqueada hacer inicio
    deja-zumbador;
    avanza;
    fin;
    md;
    avanza;
    anch;
fin;
    inicia-ejecucion
    norte;
    avanza;
    gd;
    avanza;
    largo;
    md;
    repetir 2 veces avanza;
    ancho;
        apagate;
    termina-ejecucion
finalizar-programa
