Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement