Mais um blog inútil.

IDENTIFICATION DIVISION.
PROGRAM-ID.  Arvorezinha.
AUTHOR.  João Saramago.

DATA DIVISION.

WORKING-STORAGE SECTION.
01  Linhas                                PIC 99  VALUE 5.
01  AUX                                   PIC 99 VALUE ZEROS.
01  AUX2                                  PIC 99 VALUE ZEROS.

PROCEDURE DIVISION.
Main.
    DISPLAY "Número de Linhas: " WITH NO ADVANCING
    ACCEPT Linhas.
    PERFORM VARYING AUX FROM 1 BY 1 UNTIL AUX GREATER THAN Linhas
       PERFORM VARYING AUX2  FROM 0 BY 1 UNTIL AUX2 EQUAL TO AUX 
          DISPLAY "*" WITH NO ADVANCING
       END-PERFORM
       DISPLAY ""
    END-PERFORM
    STOP RUN.

cobc -free -x arvorezinha.cbl 

\ | / ; ; ; | \ | / ; ; ; ; ___ ,--........,, | /; ; ; ;//(=o\ .' -='__________________ | /; ; ; //=o=_/ .\ : | | | | | / ; <)))/` \__/ .\ _,==" \ <3 .' |_____| |_____| | \; ; ; .'<))) ,_'\.\~" //`. \ .' |_____ _____| | | <))).______\ \- |_| /,\ ` \ _.' | | | | | ~ ; ; ;/ _,.-~'||| || _,-''\..--' | | | | | ~ /; ;/="" |_| || _="` \ | | | | | ~..==` \\ || / /_="` (o) | | | | | | ~` ~ /,\ / /_,)") | | | | | | ~ ~~ _,.-)") \ _ /_ |_____|_|_____| | ~ ~ _<)))| \ ( )( ) | ~ =~"\____/ \ /\ \ DiKKybird | ~ ~ (o)| \____________/ _| |_ ========= | ~ ~ (o) \_|_/ | |(o) ]]>