000001*  プログラム名  はるおわ〜るど🤤
000002*  プログラムID  HARUO-WORLD01
000003*  バージョン    0.0.1
000004*  作成日        作成者
000005*  2022/09/01    Tomoyan
000006*  更新日        更新者    更新概要
000007*  YYYY/MM/DD    XXXXXXXX  XXXXXXXXXX
000008
000009 IDENTIFICATION                   DIVISION.
000010   PROGRAM-ID.                    HARUO-WORLD01.
000011 ENVIRONMENT                      DIVISION.
000012   CONFIGURATION                  SECTION.
000013   INPUT-OUTPUT                   SECTION.
000014 DATA                             DIVISION.
000015   FILE                           SECTION.
000016   WORKING-STORAGE                SECTION.
000017     01 OUTPUT-MESSAGE            PIC X(30).
000018     01 RND                       PIC 99V9(3).
000019*    Unicode 内部表現 UTF-16 1文字 4Byte🤔
000020     01 EMOJI                     PIC X(44)
000021       VALUE "✔😅😊🤔🤤😁😃👅👅👅😍😱".
000022     01 WK-INDEX                  PIC 9(2).
000023     01 CUR-DATE                  PIC X(21).
000024 PROCEDURE                        DIVISION.
000025   MAIN.
000026     MOVE "Welcome to Haruo World!" TO OUTPUT-MESSAGE.
000027     
000028     DISPLAY EMOJI UPON CONSOLE
000029     PERFORM VARYING WK-INDEX FROM 1 BY 1 UNTIL WK-INDEX > 11
000030       PERFORM SHOW-RND-MESSAGE
000031     END-PERFORM.
000032
000033     STOP RUN.
000034
000035   SHOW-RND-MESSAGE               SECTION.
000036     MOVE FUNCTION CURRENT-DATE TO CUR-DATE
000037     COMPUTE RND = FUNCTION RANDOM(
000038                     RND + FUNCTION NUMVAL(
000039                             CUR-DATE(15:2))) * 10 + 1
000040     DISPLAY
000041*       CUR-DATE(15:2)" ["RND"] "
000042       "["WK-INDEX"] " FUNCTION TRIM(OUTPUT-MESSAGE)
000043         EMOJI(4 * (RND - 1) + 1:4) UPON CONSOLE
000044     END-DISPLAY
000045     EXIT.