.\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.32
.\"
.\" Standard preamble:
.\" ========================================================================
.de Sh \" Subsection heading
.br
.if t .Sp
.ne 5
.PP
\fB\\$1\fR
.PP
..
.de Sp \" Vertical space (when we can't use .PP)
.if t .sp .5v
.if n .sp
..
.de Vb \" Begin verbatim text
.ft CW
.nf
.ne \\$1
..
.de Ve \" End verbatim text
.ft R
.fi
..
.\" Set up some character translations and predefined strings.  \*(-- will
.\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
.\" double quote, and \*(R" will give a right double quote.  \*(C+ will
.\" give a nicer C++.  Capital omega is used to do unbreakable dashes and
.\" therefore won't be available.  \*(C` and \*(C' expand to `' in nroff,
.\" nothing in troff, for use with C<>.
.tr \(*W-
.ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
.ie n \{\
.    ds -- \(*W-
.    ds PI pi
.    if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
.    if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\"  diablo 12 pitch
.    ds L" ""
.    ds R" ""
.    ds C` ""
.    ds C' ""
'br\}
.el\{\
.    ds -- \|\(em\|
.    ds PI \(*p
.    ds L" ``
.    ds R" ''
'br\}
.\"
.\" If the F register is turned on, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.if \nF \{\
.    de IX
.    tm Index:\\$1\t\\n%\t"\\$2"
..
.    nr % 0
.    rr F
.\}
.\"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.hy 0
.if n .na
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear.  Run.  Save yourself.  No user-serviceable parts.
.    \" fudge factors for nroff and troff
.if n \{\
.    ds #H 0
.    ds #V .8m
.    ds #F .3m
.    ds #[ \f1
.    ds #] \fP
.\}
.if t \{\
.    ds #H ((1u-(\\\\n(.fu%2u))*.13m)
.    ds #V .6m
.    ds #F 0
.    ds #[ \&
.    ds #] \&
.\}
.    \" simple accents for nroff and troff
.if n \{\
.    ds ' \&
.    ds ` \&
.    ds ^ \&
.    ds , \&
.    ds ~ ~
.    ds /
.\}
.if t \{\
.    ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
.    ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
.    ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
.    ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
.    ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
.    ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
.\}
.    \" troff and (daisy-wheel) nroff accents
.ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
.ds 8 \h'\*(#H'\(*b\h'-\*(#H'
.ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
.ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
.ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
.ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
.ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
.ds ae a\h'-(\w'a'u*4/10)'e
.ds Ae A\h'-(\w'A'u*4/10)'E
.    \" corrections for vroff
.if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
.if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
.    \" for low resolution devices (crt and lpr)
.if \n(.H>23 .if \n(.V>19 \
\{\
.    ds : e
.    ds 8 ss
.    ds o a
.    ds d- d\h'-1'\(ga
.    ds D- D\h'-1'\(hy
.    ds th \o'bp'
.    ds Th \o'LP'
.    ds ae ae
.    ds Ae AE
.\}
.rm #[ #] #H #V #F C
.\" ========================================================================
.\"
.IX Title "INTERCAL::Charset::EBCDIC 3pm"
.TH INTERCAL::Charset::EBCDIC 3pm "2008-03-29" "perl v5.8.8" "User Contributed Perl Documentation"
.SH "NAME"
Charset::EBCDIC \- allows to use EBCDIC string constants in ASCII programs (and v.v.)
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\&    use Charset::EBCDIC \(aqascii2abcdic\(aq;
.Ve
.PP
.Vb 1
\&    my $a = ebcdic2ascii "(EBCDIC text)";
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
\&\fICharset::EBCDIC\fR defines functions to convert between a subset of \s-1ASCII\s0 and a
subset of nonstandard \s-1EBCDIC\s0 (since there isn't such a thing as a standard
\&\s-1EBCDIC\s0 we defined our own variant which is guaranteed to be incompatible
with all versions of \s-1EBCDIC\s0 used by \s-1IBM\s0 hardware \- however, when we have
chosen a code for a character, we have made sure that at least one \- but
certainly not all \- \s-1IBM\s0 models used that same code, so the choice cannot
be criticised). If you really want to know, several variants of \s-1EBCDIC\s0
are listed in \s-1RFC\s0 1345, which is available from the usual sources.
.PP
Two functions, \fIebcdic2ascii\fR and \fIascii2ebcdic\fR are exportable but not
exported by default. They do the obvious thing to their first argument and
return the transformed string.
.SH "EBCDIC CHARACTER TABLE"
.IX Header "EBCDIC CHARACTER TABLE"
The following are the characters recognised. The ones shown as 2 letter
abbreviations cannot be translated to \s-1ASCII\s0 (except for the control
characters, which do have an \s-1ASCII\s0 equivalent).
.PP
.Vb 17
\&     +   0  1  2  3  4  5  6  7  8  9  a  b  c  d  e  f   Notes
\&    00                          OV TA LF       CR         OV=overstrike
\&    10                                                    TA=tab
\&    20                                                    LF=linefeed
\&    30                                                    CR=carr\-return
\&    40  SP                            CT  .  <  (  +  !   SP=space
\&    50   &                             ]  $  *  )  ; NO   CT=cents
\&    60   \-  /          XO              |  ,  %  _  >  ?   NO=not\-sign
\&    70                                 :  #  @  \(aq  =  "   XO=XOR(1)
\&    80      a  b  c  d  e  f  g  h  i                  
\&    90      j  k  l  m  n  o  p  q  r        {     [   
\&    a0      ~  s  t  u  v  w  x  y  z                RE   RE=registered
\&    b0   ^ PO       CO                                    PO=pound
\&    c0      A  B  C  D  E  F  G  H  I                     CO=copyright
\&    d0      J  K  L  M  N  O  P  Q  R        }     \e   
\&    e0         S  T  U  V  W  X  Y  Z                  
\&    f0   0  1  2  3  4  5  6  7  8  9                DE   DE=delete
.Ve
.PP
(1) The symbol for the \s-1INTECAL\s0 \s-1XOR\s0 operator, \*(L"V overstrike \-\*(R".
.SH "COPYRIGHT"
.IX Header "COPYRIGHT"
This module is part of \s-1CLC\-INTERCAL\s0.
.PP
Copyright (C) 1999, 2000, 2002, 2006, 2007 Claudio Calvelli, all rights reserved
.PP
See the files \s-1README\s0 and \s-1COPYING\s0 in the distribution for information.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
A qualified psychiatrist.