USER>set addr = "One Memorial Drive", city = "Cambridge"
USER>set st = "MA", zip = "02142"
USER>set Pmail = addr _ "^" _ city _ "^" _ st _ "^" _ zip
USER>set Lmail = $listfromstring(Pmail, "^")
USER>write $listvalid(Lmail)
1
USER>write $listvalid(Pmail)
0
USER>write $list(Lmail, 2)
Cambridge
USER>write $listlength(Lmail)
4
USER>write $listfind(Lmail, "MA")
3
USER>set Pmail = $listtostring(Lmail, "*")
USER>write Pmail
One Memorial Drive*Cambridge*MA*02142
USER>set Lmail2 = $listbuild("One Memorial Drive", "Cambridge", "MA", "02141")
USER>write $listsame(Lmail, Lmail2) // not the same because of different zip
0
USER>set p = 0 while $listnext(Lmail, p, value) {write !, value}
One Memorial Drive
Cambridge
MA
02142
USER>set $listbuild(addr2, city2, st2, zip2) = Lmail2
USER>write addr2, !, city2, !, st2, !, zip2
One Memorial Drive
Cambridge
MA
02141
USER>
