RPG 4中的模组？

Question

谁知道我怎么能做模组，请在RPG IV？

我试过%2 = 0，但不太准确！

如果你有办法的话，我很感兴趣。

dcl-s slash        varchar(20);
dcl-s antiSlash    varchar(20);
dcl-s i            packed(3:0);
dcl-s j            packed(3:0);
dcl-s k            packed(3:0);
dcl-s message      varchar(20);
dcl-s waitInput    char(1);

FOR i = 1 by 1 to 10;
  slash += '/';
ENDFOR;

FOR j = 1 by 1 to 10;
  antiSlash += '\';
ENDFOR;


FOR k = 1 by 1 to 6;

  IF k % 2 = 0;
      message = %char(slash);
      dsply message ' ' waitInput;
  ENDIF;

ENDFOR;

*INLR = *on;  

Answer 1

看一看文档

                    Tradition Fix-format    Free Format Syntax
Division Remainder  MVR (Move Remainder)    %REM (Return Integer Remainder)

所以你的密码..。

if %rem(k:2) = 0;