Richard Suchenwirth 2004-10-25 - Convert Canadian postcodes (only the first three characters) to USPS ZIP+4 codes:
proc ca2us {postcode} {
set map {0 1 2 3 4 5 6 7 8 9 -
A B C D E F G H I - J K L M N O P Q R - S T U V W X Y Z}
set res 00101-
foreach {a b c} [split [string toup $postcode] ""] break
foreach i {a b c} {
append res [format %02d [lsearch $map [set $i]]]
}
set res
}
% ca2us M3H
00101-240318