tr \^\`\!\?\)\:\=\]\[\>\\\\\<\(\+\_\" \
   \:\\\\\}\{\<\'\_\)\(\=\>\+\"\?\^\!

# CHM 1401 BCD encoding:
# 
# Numeric     b 1 2 3 4 5 6 7 8 9 0 3 4 5 6 7
# Rows        b                     8 8 8 8 8
# ===========================================
# No zone       1 2 3 4 5 6 7 8 9 0 # @ : > (  000-017 = 00-0F
# 0  zone A   ^ / S T U V W X Y Z ` , % = \ +  020-037 = 10-1F
# 11 zone B   - J K L M N O P Q R ! $ * ] ; _  040-057 = 20-2F
# 12 zone BA  & A B C D E F G H I ? . ) [ < "  060-077 = 30-3F
# 
# ` is 0-2-8, and ^ has no input punch (it may punch as zero
# on output).  On other systems it may be 2-8.
# 
# Cardmation Encoding:
# Numeric     b 1 2 3 4 5 6 7 8 9 0 3 4 5 6 7
# Rows        b                     8 8 8 8 8
# ===========================================
# No zone       1 2 3 4 5 6 7 8 9 0 # @ ' = "  000-017 = 00-0F 
# 0  zone A   : / S T U V W X Y Z \ , % _ > ?  020-037 = 10-1F
# 11 zone B   - J K L M N O P Q R } $ * ) ; ^  040-057 = 20-2F
# 12 zone BA  & A B C D E F G H I { . < ( + |  060-077 = 30-3F
# 
# \ is 0-2-8, and : has no input punch (it may punch as zero
# on output).  On other systems it may be 2-8.