%DIV Example

      * 
      * Description :·%Div() Example
      *
      * Syntex      :
      *
      * %Div(Dividend : Divisor)
      *
      * Function    :·Return quotient of division
      *
      *=====================================================
      *
     D Quotient        S              5I 0

     C
      /Free

         Quotient = %Div(5 : 2) ;
         Dsply Quotient ;           // 2

         Quotient = %Div(10*10 : 2) ;
         Dsply Quotient ;           // 50

      /End-Free
     C                   SetOn                                        LR