home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l360 / 3.ddi / APPC.@EM / BATTLE.SS < prev    next >
Encoding:
Text File  |  1991-04-08  |  16.8 KB  |  358 lines
  1.       *******************************************************************
  2.       *                                                                 *
  3.       *                                                                 *
  4.       *                  (C) Micro Focus Ltd. 1990                      *
  5.       *                                                                 *
  6.       *                         BATTLE.SS                               *
  7.       *                                                                 *
  8.       *      COBOL Advanced Program to Program (APPC) Demonstration     *
  9.       *                                                                 *
  10.       *      Screen Section copy file                                   *
  11.       *      This code was produced by the Screens Utility and then     *
  12.       *      amended to use dynamic screen attributes                   *
  13.       *                                                                 *
  14.       *******************************************************************
  15.  
  16.        01 Battle-Screen.
  17.          02 LINE 1 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT
  18.        VALUE "                                              ".
  19.          02 COL 47 BACKGROUND-COLOR 1 FOREGROUND-COLOR 3 HIGHLIGHT VALUE
  20.        "Micro Focus".
  21.          02 COL 58 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  22.        "                       ".
  23.          02 LINE 2 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT
  24.        VALUE "                                       ".
  25.          02 COL 40 BACKGROUND-COLOR 1 FOREGROUND-COLOR 3 HIGHLIGHT VALUE
  26.        "B A T T L E    S H I P S".
  27.          02 COL 64 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  28.        "                 ".
  29.          02 LINE 3 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT
  30.        VALUE "
  31.       -"                      ".
  32.          02 LINE 4 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT
  33.        VALUE "                          A   B   C   D   E   F   G   H
  34.       -"I   J   K   L   M     ".
  35.          02 LINE 5 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT
  36.        VALUE "                        ╔═══╤═══╤═══╤═══╤═══╤═══╤═══╤═══╤═
  37.       -"══╤═══╤═══╤═══╤═══╗   ".
  38.          02 LINE 6 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT
  39.        VALUE " ".
  40.          02 COL 22 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  41.        " 1 ║ ".
  42.          02 COL 28 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  43.        " │ ".
  44.          02 COL 32 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  45.        " │ ".
  46.          02 COL 36 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  47.        " │ ".
  48.          02 COL 40 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  49.        " │ ".
  50.          02 COL 44 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  51.        " │ ".
  52.          02 COL 48 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  53.        " │ ".
  54.          02 COL 52 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  55.        " │ ".
  56.          02 COL 56 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  57.        " │ ".
  58.          02 COL 60 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  59.        " │ ".
  60.          02 COL 64 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  61.        " │ ".
  62.          02 COL 68 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  63.        " │ ".
  64.          02 COL 72 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  65.        " │ ".
  66.          02 COL 76 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  67.        " ║ 1 ".
  68.          02 LINE 7 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT
  69.        VALUE "                        ╟───┼───┼───┼───┼───┼───┼───┼───┼─
  70.       -"──┼───┼───┼───┼───╢   ".
  71.          02 LINE 8 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT
  72.        VALUE "                      2 ║ ".
  73.          02 COL 28 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  74.        " │ ".
  75.          02 COL 32 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  76.        " │ ".
  77.          02 COL 36 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  78.        " │ ".
  79.          02 COL 40 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  80.        " │ ".
  81.          02 COL 44 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  82.        " │ ".
  83.          02 COL 48 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  84.        " │ ".
  85.          02 COL 52 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  86.        " │ ".
  87.          02 COL 56 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  88.        " │ ".
  89.          02 COL 60 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  90.        " │ ".
  91.          02 COL 64 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  92.        " │ ".
  93.          02 COL 68 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  94.        " │ ".
  95.          02 COL 72 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  96.        " │ ".
  97.          02 COL 76 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  98.        " ║ 2 ".
  99.          02 LINE 9 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT
  100.        VALUE " Grid Coordinates:      ╟───┼───┼───┼───┼───┼───┼───┼───┼─
  101.       -"──┼───┼───┼───┼───╢   ".
  102.          02 LINE 10 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 3
  103.        HIGHLIGHT VALUE " ".
  104.          02 COL 4 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  105.        "                   3 ║".
  106.          02 COL 26 BACKGROUND-COLOR 1 HIGHLIGHT VALUE " ".
  107.          02 COL 28 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  108.        " │ ".
  109.          02 COL 32 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  110.        " │ ".
  111.          02 COL 36 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  112.        " │ ".
  113.          02 COL 40 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  114.        " │ ".
  115.          02 COL 44 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  116.        " │ ".
  117.          02 COL 48 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  118.        " │ ".
  119.          02 COL 52 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  120.        " │ ".
  121.          02 COL 56 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  122.        " │ ".
  123.          02 COL 60 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  124.        " │ ".
  125.          02 COL 64 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  126.        " │ ".
  127.          02 COL 68 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  128.        " │ ".
  129.          02 COL 72 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  130.        " │ ".
  131.          02 COL 76 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  132.        " ║ 3 ".
  133.          02 LINE 11 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  134.        HIGHLIGHT VALUE "                        ╟───┼───┼───┼───┼───┼───
  135.       -"┼───┼───┼───┼───┼───┼───┼───╢   ".
  136.          02 LINE 12 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  137.        HIGHLIGHT VALUE " Damage Report:       4 ║ ".
  138.          02 COL 28 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  139.        " │ ".
  140.          02 COL 32 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  141.        " │ ".
  142.          02 COL 36 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  143.        " │ ".
  144.          02 COL 40 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  145.        " │ ".
  146.          02 COL 44 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  147.        " │ ".
  148.          02 COL 48 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  149.        " │ ".
  150.          02 COL 52 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  151.        " │ ".
  152.          02 COL 56 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  153.        " │ ".
  154.          02 COL 60 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  155.        " │ ".
  156.          02 COL 64 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  157.        " │ ".
  158.          02 COL 68 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  159.        " │ ".
  160.          02 COL 72 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  161.        " │ ".
  162.          02 COL 76 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  163.        " ║ 4 ".
  164.          02 LINE 13 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  165.        HIGHLIGHT VALUE " ".
  166.          02 COL 22 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  167.        "   ╟───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼───╢   ".
  168.          02 LINE 14 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  169.        HIGHLIGHT VALUE "                      5 ║ ".
  170.          02 COL 28 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  171.        " │ ".
  172.          02 COL 32 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  173.        " │ ".
  174.          02 COL 36 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  175.        " │ ".
  176.          02 COL 40 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  177.        " │ ".
  178.          02 COL 44 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  179.        " │ ".
  180.          02 COL 48 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  181.        " │ ".
  182.          02 COL 52 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  183.        " │ ".
  184.          02 COL 56 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  185.        " │ ".
  186.          02 COL 60 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  187.        " │ ".
  188.          02 COL 64 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  189.        " │ ".
  190.          02 COL 68 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  191.        " │ ".
  192.          02 COL 72 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  193.        " │ ".
  194.          02 COL 76 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  195.        " ║ 5 ".
  196.          02 LINE 15 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  197.        HIGHLIGHT VALUE " key:                   ╟───┼───┼───┼───┼───┼───
  198.       -"┼───┼───┼───┼───┼───┼───┼───╢   ".
  199.          02 LINE 16 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  200.        HIGHLIGHT VALUE "  A Aircraft Carrier  6 ║ ".
  201.          02 COL 28 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  202.        " │ ".
  203.          02 COL 32 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  204.        " │ ".
  205.          02 COL 36 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  206.        " │ ".
  207.          02 COL 40 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  208.        " │ ".
  209.          02 COL 44 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  210.        " │ ".
  211.          02 COL 48 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  212.        " │ ".
  213.          02 COL 52 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  214.        " │ ".
  215.          02 COL 56 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  216.        " │ ".
  217.          02 COL 60 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  218.        " │ ".
  219.          02 COL 64 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  220.        " │ ".
  221.          02 COL 68 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  222.        " │ ".
  223.          02 COL 72 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  224.        " │ ".
  225.          02 COL 76 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  226.        " ║ 6 ".
  227.          02 LINE 17 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  228.        HIGHLIGHT VALUE "  B Battleship          ╟───┼───┼───┼───┼───┼───
  229.       -"┼───┼───┼───┼───┼───┼───┼───╢   ".
  230.          02 LINE 18 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  231.        HIGHLIGHT VALUE "  F Frigate           7 ║ ".
  232.          02 COL 28 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  233.        " │ ".
  234.          02 COL 32 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  235.        " │ ".
  236.          02 COL 36 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  237.        " │ ".
  238.          02 COL 40 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  239.        " │ ".
  240.          02 COL 44 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  241.        " │ ".
  242.          02 COL 48 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  243.        " │ ".
  244.          02 COL 52 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  245.        " │ ".
  246.          02 COL 56 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  247.        " │ ".
  248.          02 COL 60 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  249.        " │ ".
  250.          02 COL 64 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  251.        " │ ".
  252.          02 COL 68 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  253.        " │ ".
  254.          02 COL 72 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  255.        " │ ".
  256.          02 COL 76 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  257.        " ║ 7 ".
  258.          02 LINE 19 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  259.        HIGHLIGHT VALUE "  G Gun Boat            ╟───┼───┼───┼───┼───┼───
  260.       -"┼───┼───┼───┼───┼───┼───┼───╢   ".
  261.          02 LINE 20 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  262.        HIGHLIGHT VALUE "  * Damaged Ship      8 ║ ".
  263.          02 COL 28 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  264.        " │ ".
  265.          02 COL 32 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  266.        " │ ".
  267.          02 COL 36 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  268.        " │ ".
  269.          02 COL 40 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  270.        " │ ".
  271.          02 COL 44 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  272.        " │ ".
  273.          02 COL 48 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  274.        " │ ".
  275.          02 COL 52 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  276.        " │ ".
  277.          02 COL 56 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  278.        " │ ".
  279.          02 COL 60 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  280.        " │ ".
  281.          02 COL 64 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  282.        " │ ".
  283.          02 COL 68 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  284.        " │ ".
  285.          02 COL 72 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  286.        " │ ".
  287.          02 COL 76 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  288.        " ║ 8 ".
  289.          02 LINE 21 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  290.        HIGHLIGHT VALUE " ".
  291.          02 COL 2 BACKGROUND-COLOR 4 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  292.        "  ".
  293.          02 COL 4 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  294.        " hit                 ╟───┼───┼───┼───┼───┼───┼───┼───┼───┼───┼──
  295.       -"─┼───┼───╢   ".
  296.  
  297.          02 LINE 22 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  298.        HIGHLIGHT VALUE " ".
  299.          02 COL 2 BACKGROUND-COLOR 0 FOREGROUND-COLOR 0 HIGHLIGHT VALUE
  300.        "  ".
  301.          02 COL 4 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  302.        " sink              9 ║ ".
  303.          02 COL 28 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  304.        " │ ".
  305.          02 COL 32 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  306.        " │ ".
  307.          02 COL 36 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  308.        " │ ".
  309.          02 COL 40 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  310.        " │ ".
  311.          02 COL 44 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  312.        " │ ".
  313.          02 COL 48 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  314.        " │ ".
  315.          02 COL 52 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  316.        " │ ".
  317.          02 COL 56 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  318.        " │ ".
  319.          02 COL 60 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  320.        " │ ".
  321.          02 COL 64 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  322.        " │ ".
  323.          02 COL 68 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  324.        " │ ".
  325.          02 COL 72 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  326.        " │ ".
  327.          02 COL 76 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  328.        " ║ 9 ".
  329.          02 LINE 23 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6
  330.        HIGHLIGHT VALUE " ".
  331.          02 COL 2 BACKGROUND-COLOR 3 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  332.        "  ".
  333.          02 COL 4 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT VALUE
  334.        " miss                ╚═══╧═══╧═══╧═══╧═══╧═══╧═══╧═══╧═══╧═══╧══
  335.       -"═╧═══╧═══╝   ".
  336.         02 LINE 24 COL 1 BACKGROUND-COLOR 1 FOREGROUND-COLOR 6 HIGHLIGHT
  337.        VALUE "                          A   B   C   D   E   F   G   H
  338.       -"I   J   K   L   M     ".
  339.          02 LINE 6 COL 27.
  340.          02 Battle-Field.
  341.           03 OCCURS 9.
  342.            04 OCCURS 13.
  343.             05 BACKGROUND-COLOR Grid-Att-Array
  344.             FOREGROUND-COLOR 6 HIGHLIGHT PIC X FROM Grid-Array.
  345.             05 COL + 4.
  346.            04 LINE + 2 COL - 52.
  347.          02 Battle-Coords LINE 10 COL 2 BACKGROUND-COLOR 1 HIGHLIGHT
  348.         PIC XX USING Grid-Coordinates.
  349.          02 Battle-Msg LINE 11 COL 2 BACKGROUND-COLOR 1 HIGHLIGHT
  350.         PIC X(20) USING Screen-Msg-4.
  351.          02 Battle-Msg-1-2.
  352.            03 Battle-Turn LINE 6 COL 2 BACKGROUND-COLOR 1 HIGHLIGHT
  353.        PIC X(20) FROM Screen-Msg-1.
  354.            03 Battle-Damage LINE 13 COL 2 BACKGROUND-COLOR 1 HIGHLIGHT
  355.         PIC X(20) FROM Screen-Msg-2.
  356.          02 Battle-Over LINE 25 COL 35 BACKGROUND-COLOR 0 BLINK
  357.         HIGHLIGHT PIC X(33) FROM Screen-Msg-3.
  358.