¡Hija de COBOL!

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 files

perform 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.