|
|
|
|
|
|
|
|
|
|
* |
|
|
IDENTIFICATION |
|
DIVISION. |
|
|
PROGRAM-ID. |
|
SAMPLE1. |
|
* |
|
|
ENVIRONMENT |
|
DIVISION. |
|
|
CONFIGURATION |
|
SECTION. |
|
|
SOURCE-COMPUTER. |
|
SAMSUNG. |
|
|
OBJECT-COMPUTER. |
|
SAMSUNG. |
|
* |
|
|
DATA |
|
DIVISION. |
|
|
WORKING-STORAGE |
|
SECTION. |
|
* |
|
|
77 |
YN |
PIC |
XXXX |
VALUE SPACE. |
|
|
77 |
KK |
PIC |
9999 |
VALUE ZERO. |
|
* |
|
|
PROCEDURE |
|
DIVISION. |
|
|
SIJAK. |
|
|
|
|
|
|
|
DISPLAY |
' RMCOBOL PICTURE TEST ' |
|
|
|
|
|
|
|
|
LINE 5 POSITION 20 |
|
|
|
|
|
|
|
|
ERASE REVERSE BLINK. |
|
|
|
DISPLAY |
'XXXX MODE COUNT' |
|
|
|
|
|
|
|
|
LINE 9 POSITION 25. |
|
|
|
DISPLAY |
'STATS OK ? ' |
LINE 10 POSITION 25. |
|
|
|
ACCEPT |
YN |
|
|
LINE 10 POSITION 39. |
|
|
|
DISPLAY |
YN |
|
|
LINE 12 POSITION 39. |
|
|
|
DISPLAY |
'9999 MODE COUNT' |
|
|
|
|
|
|
|
|
LINE 14 POSITION 30. |
|
|
|
DISPLAY |
'NUMERIC TEST ? ' |
|
|
|
|
|
|
|
|
LINE 15 POSITION 30. |
|
|
|
ACCEPT |
KK |
|
|
LINE 15 POSITION 47. |
|
|
|
DISPLAY |
KK |
|
|
LINE 17 POSITION 47. |
|
|
|
DISPLAY |
'END JOB (Y/N) ?' |
|
|
|
|
|
|
|
|
LINE 20 POSITION 20. |
|
|
|
ACCEPT |
YN |
|
|
LINE 20 POSITION 50. |
|
|
|
IF YN = 'Y'
OR YN = 'y' STOP RUN. |
|
|
|
GO TO SIJAK. |
|
|
|
|
|