|
|
|
|
|
|
|
|
|
|
* |
|
|
IDENTIFICATION |
|
DIVISION. |
|
|
PROGRAM-ID. |
|
T5. |
|
* |
|
|
ENVIRONMENT |
|
DIVISION. |
|
|
CONFIGURATION |
|
SECTION. |
|
|
SOURCE-COMPUTER. |
|
SAMSUNG. |
|
|
OBJECT-COMPUTER. |
|
SAMSUNG. |
|
* |
|
|
DATA |
|
DIVISION. |
|
|
WORKING-STORAGE |
|
SECTION. |
|
* |
|
|
77 |
C |
PIC |
99. |
|
|
|
|
|
77 |
F |
PIC |
ZZ9.9. |
|
|
|
* |
|
|
PROCEDURE |
|
DIVISION. |
|
|
START-RTN. |
|
|
|
|
|
|
|
DISPLAY " " ERASE. |
|
|
|
DISPLAY "C F" LINE 6
POSITION 0. |
|
|
|
PERFORM CONVERT-RTN |
|
|
|
|
|
VARYING C FROM 10
BY 1 UNTIL C > 21. |
|
|
END-RTN. |
|
|
|
|
|
|
|
STOP RUN. |
|
|
|
|
|
CONVERT-RTN. |
|
|
|
|
|
COMPUTE F = C * 1.8 + 32. |
|
|
|
DISPLAY C " ==> " F. |
|
|
|
|
|
|
|
|
|
|