Arvorezinha em Progress 4GL
Boa tarde,
Já não blolava á anos... resolvi blolar sobre uma linguagem que se chama Progress 4GL ou OpenEdge Advanced Business Language (OpenEdge ABL).
É uma linguagem linda que mais se devia chamar REGRESS em vez de Progress.
Aqui fica o código:
DEFINE VARIABLE i AS INTEGER NO-UNDO.
&SCOPED-DEFINE NumLoops 5
DEFINE VARIABLE charz AS CHARACTER NO-UNDO INITIAL "*".
REPEAT i = 1 TO {&NumLoops}:
DISPLAY charz.
charz = charz + "*".
END.
MESSAGE "Fim!!"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
Digam lá que não é a melhor coisa do mundo ?
Muito giro, mas se fosses mas era lavrar a terra...