                    *************************************************** U4R00010
                    *                                                 * U4R00020
                    *   SUBROUTINE NAME-                              * U4R00030
                    *      FULL NAME- 1403 PRINTER CODE TO CONSOLE    * U4R00040
                    *         PRINTER CODE CONVERSION TABLE.          * U4R00050
                    *      CODE NAME- PT3CP                           * U4R00060
                    *   METHOD-                                       * U4R00070
                    *         SEE IBM 1130 SUBROUTINE LIBRARY MANUAL  * U4R00080
                    *   CAPABILITIES AND LIMITATIONS-                 * U4R00090
                    *         SEE IBM 1130 SUBROUTINE LIBRARY MANUAL  * U4R00100
                    *   SPECIAL FEATURES- NON-EXECUTABLE              * U4R00110
                    *   ADDITIONAL INFORMATION-                       * U4R00120
                    *      ESTIMATED EXECUTION TIME- N/A              * U4R00130
                    *                                                 * U4R00140
                    *************************************************** U4R00150
                          HDNG    1403 PRINTER TO CONSOLE PRINTER CODE  U4R00160
                          ENT     PT3CP                                 U4R00170
                    PT3CP DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00180
                          DC      /21D8     NO GRAPHIC   2              U4R00190
                          DC      /21DC     NO GRAPHIC   3              U4R00200
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00210
                          DC      /21F4     NO GRAPHIC   5              U4R00220
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00230
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00240
                          DC      /21E4     NO GRAPHIC   8              U4R00250
                          DC      /21E0     NO GRAPHIC   9              U4R00260
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00270
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00280
                          DC      /21E6     NO GRAPHIC   APOSTROPHE     U4R00290
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00300
                          DC      /2198     NO GRAPHIC   S              U4R00310
                          DC      /219C     NO GRAPHIC   T              U4R00320
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00330
                          DC      /21B4     NO GRAPHIC   V              U4R00340
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00350
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00360
                          DC      /21A4     NO GRAPHIC   U              U4R00370
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00380
                          DC      /2144     NO GRAPHIC   &              U4R00390
                          DC      /2180     NO GRAPHIC   ,(COMMA)       U4R00400
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00410
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00420
                          DC      /2158     NO GRAPHIC   K              U4R00430
                          DC      /215C     NO GRAPHIC   L              U4R00440
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00450
                          DC      /2174     NO GRAPHIC   N              U4R00460
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00470
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00480
                          DC      /2164     NO GRAPHIC   Q              U4R00490
                          DC      /2160     NO GRAPHIC   R              U4R00500
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00510
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00520
                          DC      /21D6     NO GRAPHIC   *              U4R00530
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00540
                          DC      /2118     NO GRAPHIC   B              U4R00550
                          DC      /211C     NO GRAPHIC   C              U4R00560
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00570
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00580
                          DC      /2110     NO GRAPHIC   F              U4R00590
                          DC      /2114     NO GRAPHIC   G              U4R00600
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00610
                          DC      /2120     NO GRAPHIC   I              U4R00620
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00630
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00640
                          DC      /21F6     NO GRAPHIC   )              U4R00650
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00660
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00670
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00680
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00690
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00700
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00710
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00720
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00730
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00740
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00750
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00760
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00770
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00780
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00790
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00800
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00810
                          DC      /21FC     NO GRAPHIC   1              U4R00820
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00830
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00840
                          DC      /21F0     NO GRAPHIC   4              U4R00850
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00860
                          DC      /21D0     NO GRAPHIC   6              U4R00870
                          DC      /21D4     NO GRAPHIC   7              U4R00880
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00890
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00900
                          DC      /21C4     NO GRAPHIC   0(ZERO)        U4R00910
                          DC      /21C2     NO GRAPHIC   =              U4R00920
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00930
                          DC      /21BC     NO GRAPHIC   /              U4R00940
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00950
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00960
                          DC      /21B0     NO GRAPHIC   U              U4R00970
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R00980
                          DC      /2190     NO GRAPHIC   W              U4R00990
                          DC      /2194     NO GRAPHIC   X              U4R01000
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01010
                          DC      /21A0     NO GRAPHIC   Z              U4R01020
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01030
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01040
                          DC      /21FE     NO GRAPHIC   (              U4R01050
                          DC      /217C     NO GRAPHIC   J              U4R01060
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01070
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01080
                          DC      /2170     NO GRAPHIC   M              U4R01090
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01100
                          DC      /2150     NO GRAPHIC   O              U4R01110
                          DC      /2154     NO GRAPHIC   P              U4R01120
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01130
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01140
                          DC      /2184     NO GRAPHIC   -              U4R01150
                          DC      /2140     NO GRAPHIC   $              U4R01160
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01170
                          DC      /213C     NO GRAPHIC   A              U4R01180
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01190
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01200
                          DC      /2130     NO GRAPHIC   D              U4R01210
                          DC      /2134     NO GRAPHIC   E              U4R01220
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01230
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01240
                          DC      /2124     NO GRAPHIC   H              U4R01250
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01260
                          DC      /21DA     NO GRAPHIC   +              U4R01270
                          DC      /2100     NO GRAPHIC   .PERIOD        U4R01280
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01290
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01300
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01310
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01320
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01330
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01340
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01350
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01360
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01370
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01380
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01390
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01400
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01410
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01420
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01430
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01440
                          DC      /2121     NO GRAPHIC   NO GRAPHIC     U4R01450
                          END                                           U4R01460
