Comment trouver si une variable est définie ?

label deja_existant
...

' ici, on teste:
on_error_goto deja_existant
dim i%
off_error_goto
' ici, la variable n'existait pas et a été définie
...
deja_existant:
'ici, la variable existait déjà et ne doit plus être recréée
off_error_goto
..

' essayer de retrouver toutes les variables
dim f$,instruction$ ,a% ,v% ,a$,b$ ,c$ ,b% ,separe$ ,guil%
separe$=" <>=,:/*-+()"+chr$(34)

' ligne teste
a$= "  for a%=1 to 10: print a%,"+chr$(34)+"je ne sais pas"+chr$(34)

' si tu as le fichier des instructions, c'est ici, xinon mettre la liste que je t'ai donné
dlist 1:file_load 1,"C:\TESTE\AIDE_PANORAMIQUE\liste_des_fiches.txt"
memo 2:left 2,200:bar_both 2

' là mettre à la place la chaine d'instruction par le moyen qui te convient dans instruction$.
instruction$=" "
for a%=1 to count(1)
instruction$=instruction$+ item_read$(1,a%)+" "
next a% 
' message instruction$
' ICI c'est pour décoder une seule ligne,il faudrait le faire pour un fichier

  a$=trim$(a$) :guil%=0
  repeat
      for a%=1 to len(a$)
        b$=mid$(a$,a%,1) : if b$=chr$(34) then guil%=-1-guil%
        v%=  instr(separe$ , b$)
        if v%>0
            b$=mid$(separe$,v%,1)
            v%=instr(a$,b$)
            c$=left$(a$,v%-1)  :  message c$
            if numeric(c$)=0
              b%=instr(instruction$," "+upper$(c$)+" ")
              if b%>0 then message "instruction:"+c$ :' les chaines si guil%à -1 seront à exclure
            end_if
            exit_for
        end_if
      next a%
      a$=trim$(mid$(a$,v%+1,500))
      item_add 2,"---------"
  until v%=0

label declarations
gosub declarations
coucou$ = "coucou"
print coucou$
end

declarations:
dim coucou$
return