000010 IDENTIFICATION                   DIVISION.
000020 PROGRAM-ID.                      S9S9S9.
000030 ENVIRONMENT                      DIVISION.
000040 CONFIGURATION                    SECTION.
000050 SOURCE-COMPUTER.                 EXPRESS5800.
000060 OBJECT-COMPUTER.                 EXPRESS5800.
000070 INPUT-OUTPUT                     SECTION.
000080 FILE-CONTROL.
000090 DATA                             DIVISION.
000100 FILE                             SECTION.
000110 WORKING-STORAGE                  SECTION.
000120 01  INDATA.
000130     02 WRK-SURYO         PIC S9(03).
000140     02 KAK               PIC  X(01).
000150******************************************************************
000160 SCREEN SECTION.
000170 SD  GAMEN                END STATUS  IS  ENDS.
000180 01  D-KAK  CLEAR SCREEN.
000190     02 SKAK      LINE 12 COLUMN 10 PIC X(01)
000200                                  USING KAK
000210                                  NO IFC CHECK OVERFLOW.
000220 01  D-KAK2.
000230     02 ACP-SURYO LINE 10 COLUMN 10 PIC S9(03)
000240                          USING WRK-SURYO
000250                          NO IFC CHECK OVERFLOW.
000260     02 DSP-SURYO  LINE 10 COLUMN 09 PIC ---9B FROM WRK-SURYO.
000270     02 DSP-SURYO2 LINE 10 COLUMN 10 PIC  ZZ9- FROM WRK-SURYO.
000280******************************************************************
000290 PROCEDURE                        DIVISION.
000300 HAJIME.
000310     DISPLAY D-KAK.
000320 ACTSU.
000330     DISPLAY DSP-SURYO2.
000340     ACCEPT ACP-SURYO.
000350     IF ENDS = ”P9” STOP RUN.
000360     DISPLAY DSP-SURYO.
000370 ACTKAK.
000380     ACCEPT SKAK.
000390     IF ENDS = ”P9” STOP RUN.
000400     GO TO ACTSU.