tawasuyu/brahman

Rust 570TOML 215Markdown 68JSON 198261 Definiciones

Clonar por HTTPS, con el git de siempre

⎇ f250fd0765d4b7b91b1bf9f58efa17c429924abf crates/modules/charka/corpus/17-rangopar.cob 20 líneas · 433 B Historia crudo

feat(charka): PERFORM ... THRU como rango real de párrafos f250fd076 · sergio · hace 5 meses

1* corpus charka — nivel 5: PERFORM ... THRU (rango de párrafos)
2IDENTIFICATION DIVISION.
3PROGRAM-ID. RANGOPAR.
4DATA DIVISION.
5WORKING-STORAGE SECTION.
601 WS-X PIC 9(3) VALUE 0.
7PROCEDURE DIVISION.
8MAIN.
9    PERFORM PASO-A THRU PASO-C.
10    DISPLAY 'X FINAL = ' WS-X.
11    STOP RUN.
12PASO-A.
13    ADD 1 TO WS-X.
14    DISPLAY 'PASO A'.
15PASO-B.
16    ADD 10 TO WS-X.
17    DISPLAY 'PASO B'.
18PASO-C.
19    ADD 100 TO WS-X.
20    DISPLAY 'PASO C'.