ça fait longtemps que j'ai pas fait de basic, mais le "local fx" n'est pas de trop, si "fx" est déjà un paramètre de ton programme ?

sinon rien à voir, mais tu peux ajouter un 1 comme paramètre supplémentaire à "retr" pour que "k" soit enregistré directement sous forme d'entier au lieu d'une liste qui contient un entier (cf. notice pour plus d'infos) :

vertel("stxt","Confirm ? [Y]/[N]","","paus","","retr","k",1)
If k/=121:Goto end 

[edit] cross avec ./3