(newButton Able Dst Args)
    +CuSu. The new object is initialised with the values used
    in a search for an existing one, if any such terms have been entered.
    
    (newButton T Dst '(+CuSu)
       '(nr genKey 'nr '+CuSu)
       'nm *CuSuNm
       'plz *CuSuPlz
       'ort *CuSuOrt
       'tel *CuSuTel
       'mob *CuSuMob )
    (newUrl @)
    newUrl is used to create a new DB object. In this example,
    it is used as action code for a button. Pressing the button will create a
    new object of the class "+Bkng" and take the user to the page where such an
    object can be edited.
    
    .
    .
    (gui 6 '(+Able +Button) T ,"Book"
       '(newUrl '(+Bkng)
          '(nr genKey 'nr '+Bkng)
          'pos (curr)
          'depd (: home obj depd)
          'dept (: home obj dept)
          'retd (: home obj retd)
          'rett (: home obj rett)
          'trsp (if (: home obj trf) ,"Yes" ,"No")
          'htl (if (: home obj htl) ,"Yes" ,"No") ) )
    .
    .
    (noButton 'Exe) 
    (note Str Lst) 
    +NumField
    
    (gui '(+NumField) 10)