Mais um blog inútil.

Agosto 3, 2018

Arvorezinha em Progress 4GL

Filed under: Arvorezinha,Coding,Drama,Fail,Serious Business,Useless,Work — madinfo @ 17:35

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 ?

Um comentário a “Arvorezinha em Progress 4GL”

  1. phantoxe diz:

    Muito giro, mas se fosses mas era lavrar a terra...

Comentar

widgeon
widgeon
widgeon
widgeon