$STORAGE:2
      PROGRAM TRANDU
C
      INTEGER*4 ISEED
C
      ISEED=1
      DO 10 I=1,20
      CALL RANDU(X,ISEED)
      WRITE(*,50)X,ISEED
 50   FORMAT(' X=',F10.6,I20)
 10   CONTINUE
      STOP
      END