Infinite loop in program loop.cbl. Maybe missing database file.
Cobol/OpenCobol/Loops/loop.cbl

this part of code

CALL STATIC "DrawText" USING
* FIXME: This a part is ungly (RAN-NUM)
BY VALUE RAN-NUM
BY VALUE 360 180
BY VALUE 80
BY CONTENT W-COLOR-LIGHTGRAY
RETURNING OMITTED
END-CALL

cause error:

core_basic_window.cbl: 116: attempt to reference unallocated memory (signal SIGSEGV)
abnormal termination - file contents may be incorrect

because RAN-NUM is binnary type.

my solution is attached :)
core_basic_window.txt

As some says, it can't be used directly. That's true as the source codes were copied from RAD for i.