       01  TITLE-SCREEN.
           05 VALUE '                    Nukem Enterprises'.
           05 LINE + 1.
           05 LINE + 1.
           05 COL 1,
       VALUE '####              *####   #########      ###      ###'.
           05 LINE + 1.
           05 COL 1,
           VALUE '*####            *####   *###*****###    *###   *###'.
           05 LINE + 1.
           05 COL 1,
           VALUE ' *####          *####    *###    *###     *### *###'.
           05 LINE + 1.
           05 COL 1,
           VALUE '  *####        *####     *#########        *#####'.
           05 LINE + 1.
           05 COL 1,
           VALUE '   *####  *#  *####      *###    *###       *###'.
           05 LINE + 1.
           05 COL 1,
           VALUE '    *####*###*####       *###     *###     *###'.
           05 LINE + 1.
           05 COL 1,
           VALUE '     *#####*#####        *###      *###   *###'.
           05 LINE + 1.
           05 COL 1,
           VALUE '      *###  *###         ***       ***    ***'.
           05 LINE + 1.
           05 LINE + 1.
           05 COL 1,
           VALUE '                 C    O    B    O    L'.
           05 LINE + 1.
           05 LINE + 1.
           05 COL 1
           VALUE '                 A TEXTED BASED COMEDY'.
           05 LINE + 1.
           05 COL 1
           VALUE '                       Ver. 1.01'.
           05 LINE + 1.
           05 LINE + 1.
           05 LINE + 1.
           05 LINE + 1.
           05 COL 1
           VALUE '          PRESS ENTER KEY TO GO TO THE MENU'.
           05 LINE + 1.
           05 LINE + 1.
           05 LINE + 1.
           05 LINE + 1.
           05 LINE + 1.
      *> 05 VALUE 'WRY (R) is copyright of Nukem Enterprises
      *> and Sim Creations Inc.'.
           05 LINE + 1.
           05 COL 1
           VALUE '                Nukem Enterprises  2019'.
           05 LINE + 1.
           05 LINE + 1.
           05 LINE + 1.
           05 LINE + 1.
           05 LINE + 1.
           05 COL 1, LINE + 1.
           05 RESPONSE-INPUT PIC X TO WS-TITLE-INPUT.
