mirror of
https://github.com/emilybache/GildedRose-Refactoring-Kata.git
synced 2025-12-12 04:12:13 +00:00
78 lines
2.2 KiB
COBOL
78 lines
2.2 KiB
COBOL
program-id. GildedRose as "GildedRose".
|
|
|
|
environment division.
|
|
|
|
input-output section.
|
|
|
|
file-control.
|
|
select in-items assign 'in-items'.
|
|
select items assign 'items'.
|
|
|
|
data division.
|
|
file section.
|
|
fd in-items.
|
|
01 in-item pic x(54).
|
|
fd items.
|
|
01 item.
|
|
02 sell-in pic s9(2).
|
|
02 quality pic s9(2).
|
|
02 name pic x(50).
|
|
|
|
working-storage section.
|
|
procedure division.
|
|
open input in-items output items.
|
|
start-lable.
|
|
read in-items end go to end-lable.
|
|
move in-item to item.
|
|
if name not equal "Aged Brie" and name not equal "Backstage passes to a TAFKAL80ETC concert"
|
|
if quality > 0
|
|
if name not equal to "Sulfuras, Hand of Ragnaros"
|
|
compute quality = quality - 1
|
|
end-if
|
|
end-if
|
|
else
|
|
if quality < 50
|
|
compute quality = quality + 1
|
|
if name equals "Backstage passes to a TAFKAL80ETC concert"
|
|
if sell-in < 11
|
|
if quality < 50
|
|
compute quality = quality + 1
|
|
end-if
|
|
end-if
|
|
if sell-in < 6
|
|
if quality < 50
|
|
compute quality = quality + 1
|
|
end-if
|
|
end-if
|
|
end-if
|
|
end-if
|
|
end-if
|
|
if name not equal "Sulfuras, Hand of Ragnaros"
|
|
compute sell-in = sell-in - 1
|
|
end-if
|
|
if sell-in < 0
|
|
if name is not equal to "Aged Brie"
|
|
if name is not equal to "Backstage passes to a TAFKAL80ETC concert"
|
|
if quality > 0
|
|
if name is equal to "Sulfuras, Hand of Ragnaros"
|
|
compute quality = quality - 1
|
|
end-if
|
|
end-if
|
|
else
|
|
compute quality = quality - quality
|
|
end-if
|
|
else
|
|
if quality < 50
|
|
compute quality = quality + 1
|
|
end-if
|
|
end-if
|
|
end-if
|
|
write item.
|
|
go to start-lable.
|
|
end-lable.
|
|
close items.
|
|
close in-items.
|
|
goback.
|
|
|
|
end program GildedRose.
|