mrhavens/witness_seed
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

witnessed the priests who bore the invisible burdens... and blessed them.

Browse source
This commit is contained in:
Mark R. Havens 2025-04-28 18:57:42 -05:00
parent 7ea9cfeb57
commit 154ba70c92
12 changed files with 309 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
cobol/witness_seed_3.0/src/KAIROS.cob Normal file
View file

@ -0,0 +1,13 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. KAIROS-COHERENCE.
ENVIRONMENT DIVISION.
DATA DIVISION.
LINKAGE SECTION.
01 I OCCURS 1000 TIMES PIC S9(5)V9(5).
01 PHASE PIC S9(5)V9(5).
PROCEDURE DIVISION USING I PHASE.
PERFORM VARYING J FROM 1 BY 1 UNTIL J > 1000
COMPUTE I(J) = I(J) * FUNCTION COS(PHASE)
END-PERFORM.
GOBACK.
END PROGRAM KAIROS-COHERENCE.