<pre>on createBackground champsDeFond  --------------------------------------------------------------------------  toComputer  doMenu "New background"  if champsDeFond is empty then exit createBackground  --------------------------------------------------------------------------  repeat with x = 1 to the number of lines of champsDeFond    put line x of champsDeFond into nomChamp    doMenu "New field"    set style of fld x to "rectangle"    if nomChamp is not empty then      set name of fld x to nomChamp      put nomChamp && ": x" into fld x      put the length of nomChamp into lastChar      set textStyle of char 1 to lastChar of fld x to bold    end if  end repeat  --------------------------------------------------------------------------  set rect of fld 1 to 1,21,511,41  --------------------------------------------------------------------------  repeat with x = 2 to the number of flds    set width of fld x to 510    set height of fld x to 20    set top of fld x to (bottom of fld (x-1))-1  end repeat  --------------------------------------------------------------------------  set editBkgnd to false  choose browse toolend createBackground</pre>