14 lines
230 B
Plaintext
14 lines
230 B
Plaintext
|
**FREE
|
||
|
|
Ctl-Opt Main(For);
|
||
|
|
|
||
|
|
Dcl-Proc For;
|
||
|
|
dcl-s num int(10);
|
||
|
|
|
||
|
|
for num = 1 to 3;
|
||
|
|
dsply ('i = ' + %char(num));
|
||
|
|
endfor;
|
||
|
|
for num = 5 downto 1 by 1;
|
||
|
|
dsply ('i = ' + %char(num));
|
||
|
|
endfor;
|
||
|
|
End-Proc For;
|