&NAM     PROC  &P,0,&IN=YES,&OUT=YES                                    TRT00010
TRTBSP   NAME                                                           TRT00020
&NAM     DS    0Y                                                       TRT00030
         DO    ('&IN'='NO')                                             TRT00040
         GOTO  .A                                                       TRT00050
         ENDO                                                           TRT00060
TRTIN    DC    X'4050606AF0C0D070F8C8D898E888A8B8'                      TRT00070
         DC    X'F3C3D393E383A3B37B4B5B9B6B8BABBB'                      TRT00080
         DC    X'F4C4D494E484A4B47C4C5C9C6C8CACBC'                      TRT00090
         DC    X'F1C1D1916181A1B1794959906980A0B0'                      TRT00100
         DC    X'F5C5D595E585A5B57D4D5D9D6D8DADBD'                      TRT00110
         DC    X'F2C2D292E282A2B27A4A5A9AE08AAABA'                      TRT00120
         DC    X'F7C7D797E787A7B77F4F5F9F6F8FAFBF'                      TRT00130
         DC    X'F6C6D696E686A6B67E4E5E9E6E8EAEBE'                      TRT00140
         DC    X'F9C9D999E989A9B93808185828486878'                      TRT00150
         DC    X'33031353234363733B0B1BDB2BCBEBFB'                      TRT00160
         DC    X'34041454244464743C0C1CDC2CCCECFC'                      TRT00170
         DC    X'310111512141E1713909191029002030'                      TRT00180
         DC    X'35051555254565753D0D1DDD2DCDEDFD'                      TRT00190
         DC    X'32021252224262723A0A1ADA2ACAEAFA'                      TRT00200
         DC    X'37071757274767773F0F1FDF2FCFEFFF'                      TRT00210
         DC    X'36061656264666763E0E1EDE2ECEEEFE'                      TRT00220
*                                                                       TRT00230
.A       LABEL                                                          TRT00240
&NAM     DS    0Y                                                       TRT00250
         DO    ('&OUT'='NO')                                            TRT00260
         GOTO  .B                                                       TRT00270
         ENDO                                                           TRT00280
TRTOUT   DC    X'BDB1D191A1C1F1E189B9D999A9C9F9E9'                      TRT00290
         DC    X'BBB2D292A2C2F2E28ABADA9AAACAFAEA'                      TRT00300
         DC    X'BEB4D494A4C4F4E48CBCDC9CACCCFCEC'                      TRT00310
         DC    X'BFB0D090A0C0F0E088B8D898A8C8F8E8'                      TRT00320
         DC    X'00B5D595A5C5F5E58D39591929497969'                      TRT00330
         DC    X'01B3D393A3C3F3E38B3A5A1A2A4A7A6A'                      TRT00340
         DC    X'0234D696A6C6F6E68E3C031C2C4C7C6C'                      TRT00350
         DC    X'07B7D797A7C7F7E78F38581828487868'                      TRT00360
         DC    X'3D355515254575650D855D1D2D4D7D6D'                      TRT00370
         DC    X'3B335313234373630B835B1B2B4B7B6B'                      TRT00380
         DC    X'3E365616264676660E865E1E2E4E7E6E'                      TRT00390
         DC    X'3F375717274777670F875F1F2F4F7F6F'                      TRT00400
         DC    X'05315111214171610981DD9DADCDFDED'                      TRT00410
         DC    X'06325212224272620A82DB9BABCBFBEB'                      TRT00420
         DC    X'5CB65414244474640C84DE9EAECEFEEE'                      TRT00430
         DC    X'04305010204070600880DF9FAFCFFFEF'                      TRT00440
.B       LABEL                                                          TRT00450
         END                                                            TRT00460
