If you do not want to test the conversion process using one of your RM/COBOL source files, you can use the source listed in this appendix.
identification division.
program-id. RmProgram1.
environment division.
configuration section.
data division.
Working-Storage section.
01 singleChar PIC X.
PROCEDURE DIVISION.
Main.
DISPLAY "Simple Display Tests in RM" ERASE
DISPLAY "ABC FCOLOR BLUE" AT 0203 CONTROL "FCOLOR=BLUE"
DISPLAY "ABC BCOLOR CYAN" AT 0304
CONTROL "BCOLOR=CYAN"
DISPLAY "ABC FCOLOR MAGENTA" AT 0405
CONTROL "FCOLOR=MAGENTA"
DISPLAY "ABC FCOLOR GREEN" AT 0506
CONTROL "FCOLOR=GREEN"
DISPLAY "ABC BCOLOR BROWN" AT 0607
CONTROL "BCOLOR=BROWN"
DISPLAY "Any Key to Continue..." AT 1002
CONTROL "BCOLOR=BLACK, FCOLOR=WHITE"
ACCEPT singleChar at 1025.
goback.
end program RmProgram1.