tawasuyu/brahman

Rust 476TOML 190Markdown 50JSON 176602 Definiciones

Clonar por HTTPS, con el git de siempre

⎇ 4d9ce11b1e444430e6e2bcc0a72baa1d40a4527c crates/modules/charka/corpus/04-bucle.cob 15 líneas · 366 B Historia crudo

feat(charka): charka-shadow — validador en sombra + corpus COBOL 4d9ce11b1 · sergio · hace 5 meses

1* corpus charka — nivel 4: PERFORM n TIMES y un párrafo aparte
2IDENTIFICATION DIVISION.
3PROGRAM-ID. BUCLE.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-CONT  PIC 9(3) VALUE 0.
701 WS-TOTAL PIC 9(5) VALUE 0.
8PROCEDURE DIVISION.
9MAIN.
10    PERFORM SUMAR 5 TIMES.
11    DISPLAY 'TOTAL=' WS-TOTAL.
12    STOP RUN.
13SUMAR.
14    ADD 1 TO WS-CONT.
15    ADD WS-CONT TO WS-TOTAL.