*DECK OUTINST                                                            OUTINST
          FUNC  MOD(I,J);                                                OUTINST
          ITEM  I;                                                       OUTINST
          ITEM  J;                                                       OUTINST
          BEGIN                                                          OUTINST
          MOD = I - (I/J) * J;                                           OUTINST
          RETURN;                                                        OUTINST
          END                                                            OUTINST
          TERM                                                           OUTINST
