我正在使用 GnuCobol for Win 10。我需要显示一个黑色背景和绿色前景的控制台屏幕,但不起作用,它不使用前景色,背景色也不使用。这是我的代码:
IDENTIFICATION DIVISION.
PROGRAM-ID. FillerExample.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 record-example.
05 FILLER PIC X(11) VALUE "hello world".
SCREEN SECTION.
01 DISPL-SCREEN AUTO.
05 BACKGROUND-COLOR 0 FOREGROUND-COLOR 2.
05 LINE 02 COLUMN 20 using record-example.
PROCEDURE DIVISION.
Display-Fillers.
DISPLAY DISPL-SCREEN
STOP RUN.
我需要在 Windows 控制台中进行一些额外设置或设置一些用于编译的标志?
这是 Windows 控制台的快照:
这是我交换背景和前景色时的快照:
刚刚做了一点改变:
源码免费 识别部门。 程序 ID。填充示例。 数据部门。 工作存储部分。 01 记录示例。 05 填充图片 X(11) 值“hello world”。 屏幕部分。 01 显示屏幕自动。 05 背景颜色 0 前景色 2。 07 第 02 行第 20 列使用记录示例。 程序部门。 显示填充物。 显示屏幕 停止运行。