ASDF
14341
end of program, please press a key to exit
DRAW-STUFF-ON-SCREEN.
123456*89ABCDEFG********************************************************||||||||
* 2020-01-30
IDENTIFICATION DIVISION.
PROGRAM-ID. DRAW-STUFF-ON-SCREEN.
PROCEDURE DIVISION.
DISPLAY "ASDF" UPON CRT AT LINE 1 POSITION 1
WITH BACKGROUND-COLOUR 1 FOREGROUND-COLOUR 7 HIGHLIGHT
DISPLAY "14341ÅÄÖ" UPON CRT AT LINE 4 POSITION 10
WITH BACKGROUND-COLOUR 1 FOREGROUND-COLOUR 7 HIGHLIGHT
STOP RUN.
XXX XXX XXX XX
X X X
X X X X
X
X X X X X
X
X
X X X X
X X
X X X X
X X X X
X
X X X
X X X
X X
X X X X X
X X
X X X X X
XXX XXX XX XXX
.
end of program, please press a key to exit
DRAW-STUFF-ON-SCREEN.
GnuCOBOL 3.0-rc1.0 drawstuff.cbl Fri Jan 31 00:52:40 2020 Page 0001
LINE PG/LN A...B............................................................
000001 000100******************************************************************
000002 * 2020-01-30
000003 IDENTIFICATION DIVISION.
000004 PROGRAM-ID. DRAW-A-SINE-WAVE-ON-SCREEN.
000005 DATA DIVISION.
000006 WORKING-STORAGE SECTION.
000007 01 FUNC-X PIC 99.
000008 01 FUNC-TMP PIC 99V9.
000009 01 WS-ROW PIC 99.
000010 01 WS-COL PIC 99.
000011 01 FUNCTION-IMAGE.
000012 10 FUNC-Y PIC S9 OCCURS 72 TIMES.
000013 PROCEDURE DIVISION.
000014 MOVE ZERO TO FUNC-X
000015 PERFORM 72 TIMES
000016 MOVE FUNC-X TO FUNC-TMP
000017 DIVIDE FUNC-TMP BY 3 GIVING FUNC-TMP
000018 ADD 1 TO FUNC-X
000019 MULTIPLY FUNCTION SIN(FUNC-TMP) BY 10 GIVING FUNC-Y(FUNC-X)
000020 END-PERFORM
000021 MOVE 1 TO WS-COL
000022 PERFORM 72 TIMES
000023 MOVE 10 TO WS-ROW
000024 ADD FUNC-Y(WS-COL) TO WS-ROW
000025 DISPLAY "X" UPON CRT AT LINE WS-ROW POSITION WS-COL
000026 WITH FOREGROUND-COLOUR 2 HIGHLIGHT
000027 ADD 1 TO WS-COL
000028 END-PERFORM
000029 DISPLAY "." UPON CRT AT LINE 21 WITH FOREGROUND-COLOR 5
000030 STOP RUN.
0 warnings in compilation group
0 errors in compilation group