Aber das Free-Format kennt noch ein paar RPG-Gemeinheiten weniger:

E MYARR 100 7p 0

Z-ADD 1 MYARR <= füllt alles mit 1
ADD MYVAR MYARR <= Addiert 1 Variable auf jedes Element
ADD ARR1 ARR2 <= Addiert Element(ARR1) auf Element(ARR2)

usw.
Hier ist dann tatsächlich Schleifenprogrammierung angesagt. Ich gebe allerdings Dieter recht, dass die Schleife eben aussagt was getan wird, der ADD aber leider nicht, da der Variablenname selten als Array erkennbar ist.