Utilisation de nom pour identifier les objets

' mettre un nom aux objets au travers de variable.

label go
font_name 0,"Consolas":font_size 0,10:font_bold 0
dim a$,  t$ , data$  ,t% ,objet$
data "teste","essai","saisie","quitter","servir","nom","definir","changer","annuler","$$$"

memo 1 :top 1,40:width 1,width(0)-50:bar_both 1:height 1,200
edit 2
button 3:left 3,width(2)+10:caption 3,"go" :on_click 3,go

if 1=2:' code recopié ensuite
DIM essai  ,saisie  ,quitter  ,servir
essai =100 :saisie =101 :quitter =102 :servir =103

DIM nom  ,definir  ,changer  ,annuler
nom =104 :definir =105 :changer =106 :annuler =107
' le gui:
button essai:left essai, 300
end_if
end

go:
  t$ = text$(2)
  if t$ <> "" and numeric(t$) = 1
      t%=val(t$)
      read a$
      data$ = "DIM "
      while a$ <> "$$$"
        read a$
        if a$ <> "$$$"
            data$ = data$ + a$ + "  ,"
            objet$ = objet$ + a$+ " =" +str$(t%) +" :"
            if len(objet$) > 50 then remplir()
            t%=t%+1
        end_if
      end_while
      remplir()
      message "copier le code du memo, et le reporter dans le programme"
  end_if
return

sub remplir()
      if len(data$) > 4 then data$ = left$(data$,len(data$)-1) :    item_add 1,data$
      if len(objet$) > 0 then objet$ = left$(objet$,len(objet$)-1) : item_add 1,objet$:item_add 1,""
      data$ = "DIM "
      objet$ = ""
end_sub