lcAddress = "NEW MAITLAND FL 32751-4831" DIMENSION laAddrParts[1] lnCount = ALINES(laAddrParts, lcAddress,1,SPACE(1)) lcZip = laAddrParts[lnCount] lcState = laAddrParts[lnCount-1] lcCity = "" FOR i=1 TO lnCount-2 lcCity = lcCity + SPACE(1) + laAddrParts[i] ENDFOR lcCity = ALLTRIM(lcCity) LIST MEMORY LIKE lc*