Diccionarios. Introducción a la programación con estructuras de datos. Un ejercicio de elaboración de un diccionario català-anglès empleando listas con WinLogo (LOGO)

; ---------------------------------------------------------
; Un exercici de elaboració d'un diccionari  català-anglès
;   Diccionaris
;    © Joan Aranes Clua, 1998
                CC BY 4.0
; ---------------------------------------------------------
; inici del diccionari
posa.a "vocabulari [[poma apple][finestra window]]  

procediment Aprenent.idiomes ;procediment principal
  Informa
  Final
fi

procediment Informa
  anomena.finestra "Text "Paraules
  anomena.finestra "Gràfics "
  fes.mida.finestra "Gràfics [640 480]
  mou.finestra "Text [200 0]
  fes.mida.finestra "Text [300 400]
  esborra.text 
  fes.color.paper 8
  fes.fons 8
  desapareix
  inicia.dibuix
  posa.a "vocabulari2 :vocabulari
  fes.fons.text 8
  fes.color.text 5
  mou.cursor [3 2]
  escriu [Quina paraula vols traduir a l'anglès ?:]
  fes.fons.text 16
  fes.color.text 10
  mou.cursor [4 4]
  posa.a "resposta paraula.llegida
  si és.buida :resposta [acaba]
  Verifica
fi

;procediment cridat pel procediment Informa
procediment Verifica 
  si és.buida :vocabulari2 [Afegir :resposta]
  mou.cursor [3 6] 
  fes.fons.text 52 
  fes.color.text 10
  si pertany :resposta primer primer :vocabulari2«
	[(escriu [La traducció de ] :resposta "és: últim primer«
      :vocabulari2) acaba]
  posa.a "vocabulari2 sense.primer :vocabulari2
  Verifica ;crida recursiva
fi

procediment Afegir :resposta
  fes.fons.text 8
  fes.color.text 13
  ;mou.cursor [3 10]
  (escriu [La paraula ] :resposta [no la conec. Vols afegir-la? s/n])
  posa.a "resp caràcter.llegit 
  si :resp = "s [escriu.seguit [La seva traducció és: ]] 
  ;mou.cursor [3 12]
  fes.fons.text 206
  fes.color.text 10
  posa.a "resposta2 paraula.llegida 
  posa.a "vocabulari posposant llista :resposta :resposta2 «
    :vocabulari
  fes.fons.text 8
  fes.color.text 5
  ;mou.cursor [6 14]
  escriu [Ara ja la sé. Gràcies!!]
  escriu [prem una tecla per continuar]
  posa.a "continua caràcter.llegit
  Aprenent.idiomes
fi


procediment Final
  fes.color.text 5
  fes.fons.text 8
  mou.cursor [2 15]
  escriu [En vols esbrinar una altra ?]
  mou.cursor [2 16]
  escriu [(Prem s/n)]
  posa.a "c caràcter.llegit
  si :c = "n [Sortida acaba]
  esborra.text
  Aprenent.idiomes ;tornada al procediment principal
fi
; ---------------------------------------------------------
% Aprenent.idiomes ;exemple d'ús