#!/usr/bin/tclsh

# Sample "pui" business card

load tclpui.so

set puidb [puiOpen AddressDB.pui w]

set rec(lastname)    "Clinton"
set rec(firstname)   "Bill"
set rec(address)     "1600 Pennsylvania Avenue"
set rec(city)        "Washington"
set rec(state)       "DC"
set rec(phonelabel5) 4
set rec(phone5)      "president@whitehouse.gov"
set rec(category)    0
set rec(attribute)   64

puiWrite $puidb 0 rec

puiClose $puidb

