PRINT NOGEN                                                    00010000
TRMAP74  DFHMSD TYPE=&SYSPARM,CTRL=(FREEKB,FRSET),CURSLOC=NO,          *00020000
               LANG=COBOL,MODE=INOUT,STORAGE=AUTO,TIOAPFX=YES,         *00030000
               MAPATTS=(COLOR,HILIGHT),DSATTS=(COLOR,HILIGHT)           00040000
TRMAP74  DFHMDI SIZE=(24,80),LINE=01,COLUMN=01                          00050000
         DFHMDF POS=(01,01),LENGTH=007,ATTRB=ASKIP,            CONSTANT*00060000
               COLOR=BLUE,                                             *00070000
               INITIAL='TRMAP74'                                        00080000
         DFHMDF POS=(01,27),LENGTH=025,ATTRB=ASKIP,            CONSTANT*00090000
               COLOR=BLUE,                                             *00100000
               INITIAL='Train-Right Advanced CICS'                      00110000
         DFHMDF POS=(01,60),LENGTH=011,ATTRB=ASKIP,            CONSTANT*00120000
               COLOR=BLUE,                                             *00130000
               INITIAL='Task# ....:'                                    00140000
TASKN    DFHMDF POS=(01,72),LENGTH=007,ATTRB=(ASKIP,NUM),        OUTPUT*00150000
               JUSTIFY=(RIGHT,ZERO),PICIN='9(007)',PICOUT='9(007)',    *00160000
               COLOR=RED                                                00170000
         DFHMDF POS=(02,60),LENGTH=011,ATTRB=ASKIP,            CONSTANT*00180000
               COLOR=BLUE,                                             *00190000
               INITIAL='Termid ...:'                                    00200000
TERMID   DFHMDF POS=(02,72),LENGTH=004,ATTRB=ASKIP,COLOR=RED     OUTPUT 00210000
         DFHMDF POS=(04,01),LENGTH=043,ATTRB=ASKIP,            CONSTANT*00220000
               COLOR=GREEN,                                            *00230000
               INITIAL='Type in a response. Then press a valid key.'    00240000
         DFHMDF POS=(06,02),LENGTH=010,ATTRB=ASKIP,            CONSTANT*00250000
               COLOR=GREEN,                                            *00260000
               INITIAL='Choice ...'                                     00270000
CHOICE   DFHMDF POS=(06,13),LENGTH=001,ATTRB=(UNPROT,IC),          CHAR*00280000
               COLOR=TURQUOISE,HILIGHT=UNDERLINE                        00290000
         DFHMDF POS=(06,15),LENGTH=000,ATTRB=ASKIP            STOP BYTE 00300000
         DFHMDF POS=(06,19),LENGTH=024,ATTRB=ASKIP,            CONSTANT*00310000
               COLOR=GREEN,                                            *00320000
               INITIAL='Rock, Scissors or Paper.'                       00330000
         DFHMDF POS=(08,03),LENGTH=010,ATTRB=ASKIP,            CONSTANT*00340000
               COLOR=GREEN,                                            *00350000
               INITIAL='Wins ....:'                                     00360000
WINS     DFHMDF POS=(08,14),LENGTH=006,ATTRB=(ASKIP,NUM),        OUTPUT*00370000
               JUSTIFY=(RIGHT,ZERO),PICOUT='ZZ,ZZ9',                   *00380000
               COLOR=NEUTRAL                                            00390000
         DFHMDF POS=(09,03),LENGTH=010,ATTRB=ASKIP,            CONSTANT*00400000
               COLOR=GREEN,                                            *00410000
               INITIAL='Losses ..:'                                     00420000
LOSSES   DFHMDF POS=(09,14),LENGTH=006,ATTRB=(ASKIP,NUM),        OUTPUT*00430000
               JUSTIFY=(RIGHT,ZERO),PICOUT='ZZ,ZZ9',                   *00440000
               COLOR=NEUTRAL                                            00450000
MSG      DFHMDF POS=(22,01),LENGTH=079,ATTRB=ASKIP,COLOR=RED     OUTPUT 00460000
         DFHMDF POS=(23,02),LENGTH=033,ATTRB=ASKIP,            CONSTANT*00470000
               COLOR=BLUE,                                             *00480000
               INITIAL='Enter=Process  Clear=Reset Scores'              00490000
         DFHMDF POS=(23,37),LENGTH=008,ATTRB=ASKIP,            CONSTANT*00500000
               COLOR=BLUE,                                             *00510000
               INITIAL='PF3=Exit'                                       00520000
         DFHMSD TYPE=FINAL                                              00530000
         END                                                            00540000