langhist-study/cob-src/hoge.cob at master

Fork: 0

yuuji / langhist-study

Find file

Newer

Older

langhist-study / cob-src / hoge.cob

HIROSE Yuuji on 2 Dec 2019 616 bytes Add hoge.cob and fizzbuzz.cob

Raw Blame History

000010  IDENTIFICATION		DIVISION.
000020  PROGRAM-ID.		CBLTEST.
000030*
000040	ENVIRONMENT		DIVISION.

000000  DATA	DIVISION.
000000  WORKING-STORAGE		SECTION.
000000    01 HENSU		PIC 99.
000000    01 SHOU		PIC 99.
000000    01 AMARI		PIC 99.
000000	PROCEDURE		DIVISION.
000000	MAIN			SECTION.
000000	     DISPLAY	"Hello, world!".
000000       MOVE 5 TO HENSU
000000       MOVE HENSU TO SHOU.
000000       DISPLAY "SHOU <-" SHOU
000000       DIVIDE 3 INTO SHOU GIVING SHOU REMAINDER AMARI.
000000       DISPLAY "HENSU=" HENSU ", Amari=" AMARI ", shou=" SHOU.
000000	MAIN-END.
000000	  EXIT
000000	EXIT EXIT PROGRAM.