Pseudocódigo de mi vida
disappointment-count pic 9(10) value 999999
booze-count pic 9(10) value 0
hangover-count pic 9(2) value 0
Open filesperform until end-of-file or end-of-booze
move 1 to disappointment- count
move 1 to booze-count
If hangover-count < 100
Cancel drink
end-if
end-perform.
move new-life to headline
Close Files
Stop Run.
Sí, lo reconozco, (pseudo)programo en COBOL.