free rpg et cycle GAP

[_Jnie_]

Bonjour à tous,

Je voudrais savoir s'il est possible de convertir en free ces quelques lignes de programme de lecture d'un fichier en IP:

Clr do
Clr eval fois= 2
Clr enddo

Je vais certainement avoir des reproches lié au choc de ces deux époques mais une lecture IP c'est bien pratique.

D'avance merci,

[Mercure]

Le cycle RPG ne peut être fait qu'en RPG colonné, donc pas de "free" possible.

Mais, on écrit de préférence de la façon suivante pour éviter la répétition du lourd "CLx"

Code :

1
2
3
4
5
6
7
8
CLR                EXSR CALCUL


C    CALCUL     BEGSR
C                       .
C                       .
C                       .
C                    ENDSR