.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
.\"
.\" Standard preamble:
.\" ========================================================================
.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" ''
.    ds C`
.    ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el       .ds Aq '
.\"
.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD.  Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
.\"
.\" Avoid warning from groff about undefined register 'F'.
.de IX
..
.nr rF 0
.if \n(.g .if rF .nr rF 1
.if (\n(rF:(\n(.g==0)) \{\
.    if \nF \{\
.        de IX
.        tm Index:\\$1\t\\n%\t"\\$2"
..
.        if !\nF==2 \{\
.            nr % 0
.            nr F 2
.        \}
.    \}
.\}
.rr rF
.\" ========================================================================
.\"
.IX Title "INTERCAL::Charset::Baudot 3pm"
.TH INTERCAL::Charset::Baudot 3pm "2021-01-07" "perl v5.32.0" "User Contributed Perl Documentation"
.\" For nroff, turn off justification.  Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
.nh
.SH "NAME"
Charset::Baudot \- allows to use Baudot string constants in ASCII programs (and v.v.)
.SH "SYNOPSIS"
.IX Header "SYNOPSIS"
.Vb 1
\&    use Charset::Baudot \*(Aqbaudot2ascii\*(Aq;
\&
\&    my $a = baudot2ascii"(Baudot text)";
.Ve
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
\&\fICharset::Baudot\fR defines functions to convert between a subset of \s-1ASCII\s0 and a
subset of nonstandard Baudot \- the original Baudot allows only letters,
numbers, and some punctuation. We assume that a \*(L"Shift to letters\*(R" code
while already in letters mode means \*(L"Shift to lowercase\*(R" and \*(L"Shift to
figures\*(R" while already in figures mode means \*(L"Shift to symbols\*(R". This allows
to use up to 120 characters. However, for simplicity some characters are
available in multiple sets, so the total is less than that.
.PP
Two functions, \fIbaudot2ascii\fR and \fIascii2baudot\fR, are exportable (but
not exported by default). They do the obvious thing to their first argument
and return the transformed string.
.SH "BAUDOT CHARACTER TABLE"
.IX Header "BAUDOT CHARACTER TABLE"
The following are the characters recognised. As described, the \*(L"shift\*(R"
characters have nonstandard meaning.
.PP
.Vb 10
\&     set   Letters     Lowercase    Figures    Symbols
\&  code
\&    00       N/A          N/A         N/A        N/A
\&    01        E            e           3        Cents
\&    02       L/F          L/F         L/F        L/F    (line feed)
\&    03        A            a           \-          +
\&    04      Space        Space       Space       Tab
\&    05        S            s          BELL        \e
\&    06        I            i           8          #
\&    07        U            u           7          =
\&    08       C/R          C/R         C/R        C/R    (carriage return)
\&    09        D            d           $          *
\&    10        R            r           4          {
\&    11        J            j           \*(Aq          ~
\&    12        N            n           ,         XOR
\&    13        F            f           !          |
\&    14        C            c           :          ^
\&    15        K            k           (          <
\&    16        T            t           5          [
\&    17        Z            z           "          }
\&    18        W            w           )          >
\&    19        L            l           2          ]
\&    20        H            h          N/A     backspace
\&    21        Y            y           6          @
\&    22        P            p           0         N/A
\&    23        Q            q           1        POUND
\&    24        O            o           9         NOT
\&    25        B            b           ?        delete
\&    26        G            g           &         N/A
\&    27     Figures      Figures     Symbols    Symbols
\&    28        M            m           .          %
\&    29        X            x           /          _
\&    30        V            v           ;         N/A
\&    31    Lowercase    Lowercase    Letters    Letters
.Ve
.SH "COPYRIGHT"
.IX Header "COPYRIGHT"
This module is part of CLC-INTERCAL.
.PP
Copyright (C) 1999, 2000, 2002, 2006, 2007 Claudio Calvelli, all rights reserved
.PP
See files \s-1README\s0 and \s-1COPYING\s0 in the distribution for information.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
A qualified psychiatrist.