############################################################################ # # File: xtable.icn # # Subject: Program to show character code translations # # Author: Robert J. Alexander, modified by Alan Beale # # Date: July 20, 1991 # ############################################################################ # # This file is in the public domain. # ############################################################################ # # Program to print various character translation tables. See # procedure help() for the capabilities. # ############################################################################ # # Links: options, colmize, hexcvt, ebcdic # ############################################################################ link options, colmize, hexcvt, ebcdic global Graphic, Conv procedure main(arg) local opt opt := options(arg,"acedo") Conv := if \opt["d"] then "d" else if \opt["o"] then "o" init() every write(colmize( if \opt["a"] then ASCII() else if \opt["e"] then EBCDIC() else if \opt["c"] then ASCIICtrl() else help() )) end procedure help() write("Usage: xtable -