$ sudo apt install gnucobol
Reading package lists... Done Building dependency tree... Done Reading state information... Done The following additional packages will be installed: libcob5 libcob5-dev libgmp-dev libgmpxx4ldbl libncurses-dev libncurses5-dev Suggested packages: gmp-doc libgmp10-doc libmpfr-dev ncurses-doc The following NEW packages will be installed: gnucobol libcob5 libcob5-dev libgmp-dev libgmpxx4ldbl libncurses-dev libncurses5-dev 0 upgraded, 7 newly installed, 0 to remove and 0 not upgraded. Need to get 1,597 kB/2,370 kB of archives. After this operation, 7,094 kB of additional disk space will be used. Do you want to continue? [Y/n] y Get:2 http://raspbian.raspberrypi.org/raspbian bullseye/main armhf libgmp-dev armhf 2:6.2.1+dfsg-1+deb11u1 [583 kB] Get:1 http://raspbian.raspberrypi.org/raspbian bullseye/main armhf libcob5-dev armhf 4.0~early~20200606-3+b2 [177 kB] Get:3 http://raspbian.raspberrypi.org/raspbian bullseye/main armhf gnucobol armhf 4.0~early~20200606-3+b2 [837 kB] Fetched 1,158 kB in 8s (145 kB/s) debconf: delaying package configuration, since apt-utils is not installed Selecting previously unselected package libcob5:armhf. (Reading database ... 75057 files and directories currently installed.) Preparing to unpack .../0-libcob5_4.0~early~20200606-3+b2_armhf.deb ... Unpacking libcob5:armhf (4.0~early~20200606-3+b2) ... Selecting previously unselected package libcob5-dev:armhf. Preparing to unpack .../1-libcob5-dev_4.0~early~20200606-3+b2_armhf.deb ... Unpacking libcob5-dev:armhf (4.0~early~20200606-3+b2) ... Selecting previously unselected package libgmpxx4ldbl:armhf. Preparing to unpack .../2-libgmpxx4ldbl_2%3a6.2.1+dfsg-1+deb11u1_armhf.deb ... Unpacking libgmpxx4ldbl:armhf (2:6.2.1+dfsg-1+deb11u1) ... Selecting previously unselected package libgmp-dev:armhf. Preparing to unpack .../3-libgmp-dev_2%3a6.2.1+dfsg-1+deb11u1_armhf.deb ... Unpacking libgmp-dev:armhf (2:6.2.1+dfsg-1+deb11u1) ... Selecting previously unselected package libncurses-dev:armhf. Preparing to unpack .../4-libncurses-dev_6.2+20201114-2_armhf.deb ... Unpacking libncurses-dev:armhf (6.2+20201114-2) ... Selecting previously unselected package libncurses5-dev:armhf. Preparing to unpack .../5-libncurses5-dev_6.2+20201114-2_armhf.deb ... Unpacking libncurses5-dev:armhf (6.2+20201114-2) ... Selecting previously unselected package gnucobol. Preparing to unpack .../6-gnucobol_4.0~early~20200606-3+b2_armhf.deb ... Unpacking gnucobol (4.0~early~20200606-3+b2) ... Setting up libncurses-dev:armhf (6.2+20201114-2) ... Setting up libcob5:armhf (4.0~early~20200606-3+b2) ... Setting up libcob5-dev:armhf (4.0~early~20200606-3+b2) ... Setting up libgmpxx4ldbl:armhf (2:6.2.1+dfsg-1+deb11u1) ... Setting up libncurses5-dev:armhf (6.2+20201114-2) ... Setting up libgmp-dev:armhf (2:6.2.1+dfsg-1+deb11u1) ... Setting up gnucobol (4.0~early~20200606-3+b2) ... Processing triggers for man-db (2.9.4-2) ... Processing triggers for libc-bin (2.31-13+rpt2+rpi1+deb11u3) ...
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.
$ ll
total 4 -rw-r--r-- 1 dietpi dietpi 1887 Sep 2 06:25 main.cbl
$ cobc -x main.cbl
main には実行可能属性が設定されている🤔\\
$ ll
total 20 -rwxr-xr-x 1 dietpi dietpi 13952 Sep 2 14:18 main -rw-r--r-- 1 dietpi dietpi 1887 Sep 2 06:25 main.cbl
main を実行します...🤔\\
ようこそ、はるおの世界へ！😍はるおわ〜るど！意味が分かりません😅💦\\
$ ./main
😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!👅 [02] Welcome to Haruo World!😃 [03] Welcome to Haruo World!👅 [04] Welcome to Haruo World!😍 [05] Welcome to Haruo World!👅 [06] Welcome to Haruo World!😍 [07] Welcome to Haruo World!😊 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!😍 [10] Welcome to Haruo World!😊 [11] Welcome to Haruo World!😊
$ ./main
😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😅 [02] Welcome to Haruo World!🤤 [03] Welcome to Haruo World!😁 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!👅 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😅 [02] Welcome to Haruo World!😍 [03] Welcome to Haruo World!😊 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!😁 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!🤤 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!😊 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!😁 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😃 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!😁 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!🤤 [06] Welcome to Haruo World!🤤 [07] Welcome to Haruo World!🤤 [08] Welcome to Haruo World!🤤 [09] Welcome to Haruo World!🤤 [10] Welcome to Haruo World!🤤 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😃 [02] Welcome to Haruo World!😃 [03] Welcome to Haruo World!😃 [04] Welcome to Haruo World!😃 [05] Welcome to Haruo World!😃 [06] Welcome to Haruo World!😃 [07] Welcome to Haruo World!😁 [08] Welcome to Haruo World!😃 [09] Welcome to Haruo World!😁 [10] Welcome to Haruo World!😃 [11] Welcome to Haruo World!😁 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!👅 [02] Welcome to Haruo World!😊 [03] Welcome to Haruo World!🤔 [04] Welcome to Haruo World!😃 [05] Welcome to Haruo World!😊 [06] Welcome to Haruo World!🤔 [07] Welcome to Haruo World!😁 [08] Welcome to Haruo World!😊 [09] Welcome to Haruo World!😃 [10] Welcome to Haruo World!😃 [11] Welcome to Haruo World!😃 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😍 [02] Welcome to Haruo World!😁 [03] Welcome to Haruo World!😊 [04] Welcome to Haruo World!😅 [05] Welcome to Haruo World!😊 [06] Welcome to Haruo World!😍 [07] Welcome to Haruo World!🤔 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!😃 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!🤔 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!🤤 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!👅 [04] Welcome to Haruo World!🤤 [05] Welcome to Haruo World!👅 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!🤤 [02] Welcome to Haruo World!🤤 [03] Welcome to Haruo World!🤤 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!🤔 [06] Welcome to Haruo World!🤤 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!👅 [02] Welcome to Haruo World!😊 [03] Welcome to Haruo World!😍 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!😍 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😍 [02] Welcome to Haruo World!🤤 [03] Welcome to Haruo World!🤔 [04] Welcome to Haruo World!🤤 [05] Welcome to Haruo World!😃 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!😍 [08] Welcome to Haruo World!🤔 [09] Welcome to Haruo World!🤔 [10] Welcome to Haruo World!😃 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😍 [02] Welcome to Haruo World!😁 [03] Welcome to Haruo World!👅 [04] Welcome to Haruo World!😁 [05] Welcome to Haruo World!😃 [06] Welcome to Haruo World!😁 [07] Welcome to Haruo World!😃 [08] Welcome to Haruo World!😁 [09] Welcome to Haruo World!😁 [10] Welcome to Haruo World!😁 [11] Welcome to Haruo World!😁 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😍 [02] Welcome to Haruo World!😍 [03] Welcome to Haruo World!😍 [04] Welcome to Haruo World!😍 [05] Welcome to Haruo World!🤤 [06] Welcome to Haruo World!🤔 [07] Welcome to Haruo World!🤤 [08] Welcome to Haruo World!🤔 [09] Welcome to Haruo World!🤔 [10] Welcome to Haruo World!🤔 [11] Welcome to Haruo World!🤔 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😍 [02] Welcome to Haruo World!😃 [03] Welcome to Haruo World!😊 [04] Welcome to Haruo World!😊 [05] Welcome to Haruo World!😅 [06] Welcome to Haruo World!😊 [07] Welcome to Haruo World!😅 [08] Welcome to Haruo World!😊 [09] Welcome to Haruo World!😍 [10] Welcome to Haruo World!🤔 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😊 [02] Welcome to Haruo World!🤤 [03] Welcome to Haruo World!😊 [04] Welcome to Haruo World!🤤 [05] Welcome to Haruo World!😊 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!🤤 [08] Welcome to Haruo World!😁 [09] Welcome to Haruo World!🤤 [10] Welcome to Haruo World!😁 [11] Welcome to Haruo World!🤤 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😃 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!😅 [04] Welcome to Haruo World!🤤 [05] Welcome to Haruo World!👅 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!🤤 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!🤤 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!👅 [02] Welcome to Haruo World!😊 [03] Welcome to Haruo World!😍 [04] Welcome to Haruo World!🤤 [05] Welcome to Haruo World!😊 [06] Welcome to Haruo World!😍 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!😊 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!🤤 [11] Welcome to Haruo World!😃 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😍 [02] Welcome to Haruo World!🤤 [03] Welcome to Haruo World!🤔 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!😃 [06] Welcome to Haruo World!😁 [07] Welcome to Haruo World!😁 [08] Welcome to Haruo World!😁 [09] Welcome to Haruo World!😁 [10] Welcome to Haruo World!😁 [11] Welcome to Haruo World!😁 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😊 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!🤔 [04] Welcome to Haruo World!😃 [05] Welcome to Haruo World!😊 [06] Welcome to Haruo World!👅 [07] Welcome to Haruo World!🤤 [08] Welcome to Haruo World!🤔 [09] Welcome to Haruo World!😁 [10] Welcome to Haruo World!😊 [11] Welcome to Haruo World!😃 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😊 [02] Welcome to Haruo World!🤤 [03] Welcome to Haruo World!😍 [04] Welcome to Haruo World!😃 [05] Welcome to Haruo World!👅 [06] Welcome to Haruo World!😍 [07] Welcome to Haruo World!😍 [08] Welcome to Haruo World!😍 [09] Welcome to Haruo World!😍 [10] Welcome to Haruo World!😍 [11] Welcome to Haruo World!😍 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😃 [02] Welcome to Haruo World!😊 [03] Welcome to Haruo World!👅 [04] Welcome to Haruo World!👅 [05] Welcome to Haruo World!😃 [06] Welcome to Haruo World!😅 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!😃 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!😍 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!🤤 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!😁 [04] Welcome to Haruo World!😅 [05] Welcome to Haruo World!😃 [06] Welcome to Haruo World!🤤 [07] Welcome to Haruo World!😅 [08] Welcome to Haruo World!😍 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!👅 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!😊 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!🤤 [04] Welcome to Haruo World!😍 [05] Welcome to Haruo World!😊 [06] Welcome to Haruo World!😃 [07] Welcome to Haruo World!😃 [08] Welcome to Haruo World!😃 [09] Welcome to Haruo World!😃 [10] Welcome to Haruo World!😃 [11] Welcome to Haruo World!🤤 $ ./main 😅😊🤔🤤😁😃👅👅👅😍😱 [01] Welcome to Haruo World!👅 [02] Welcome to Haruo World!👅 [03] Welcome to Haruo World!👅 [04] Welcome to Haruo World!😅 [05] Welcome to Haruo World!🤤 [06] Welcome to Haruo World!😁 [07] Welcome to Haruo World!👅 [08] Welcome to Haruo World!👅 [09] Welcome to Haruo World!👅 [10] Welcome to Haruo World!👅 [11] Welcome to Haruo World!👅