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