*
      *
      *   RENVOI UN CHIFFRE ALEATOIRE COMPRIS ENTRE "PETIT" ET "GRAND"
      *
      *   ------------------------------------------------------------
      *
     C           *ENTRY    PLIST
     C                     PARM           NOMBRE 100
     C                     PARM           PETIT  155
     C                     PARM           GRAND  155
     C           *LIKE     DEFN NOMBRE    MULTI
     C           GRAND     SUB  PETIT     MULTI
     C                     ADD  1         MULTI
     C                     CALL 'RANDOM'
     C                     PARM           WW      88
     C           WW        MULT MULTI     NOMBRE
     C                     ADD  PETIT     NOMBRE
     C                     RETRN