program-id. Program1 as "FARANEIGHT.Program1".

       data division.
       working-storage section.

       01 deg pic zzz.99 value 0.
       01 degF pic zz9.99.
       01 loopf pic 999 value 0.

       Screen section.
       01 Screen1.
           05 Blank Screen
               foreground-color 14
               background-color 4.
           05 line 1 col 1 value "Here is the table".
           05 line 2 col 1 value "Celcius       Faraneight".




       procedure division.

       100Main.
           display Screen1
           display ""
           perform until loopf > 150
             perform 200Clac
              display deg "           " degF
              add 10 to loopf

           end-perform

           display "          Done"

           stop run.


       200Clac.
           compute degF rounded = ((5/9) * loopf ) + 32
           move loopf to deg.

       end program Program1.