paramI9I1006P  A
C               LINE GENERATOR
      DIMENSION IVAL(20)
      IR1 = 1234567
      IR2 = 8901234
      PRINT 701
  701 FORMAT(2H  )
      DO 20 I=1,20
C     ISOLATE R1 MSDS
      IMSDS = IR1/1000
C     ISOLATE R1 LSDS
      ILSDS = IR1-(IMSDS*1000)
C     COMBINE TO COMPLETE ROTATE 3 PLACES RIGHT
      IR1 = (ILSDS*10000)+IMSDS
C     DITTO FOR R2, 5 PLACES
      IMSDS = IR2/100000
      ILSDS = IR2-(IMSDS*100000)
      IR2 = (ILSDS*100)+IMSDS
      ISUM = IR2 + IR1
C     TRIM ANY OVERFLOW (CAN BE AT MOST 10000000)
      IF (ISUM-10000000) 15, 10, 10
   10 ISUM = ISUM - 10000000
   15 CONTINUE
C     ROTATE SEEDS AND NEW VALUE
      IR1 = IR2
      IR2 = ISUM
C     STASH SAMPLE, 2 MSDS OF SUM
      IVAL(I) = ISUM/100000
   20 CONTINUE      
      PRINT 75, (IVAL(I), I=1,20)
   75 FORMAT(1X, 20I3)
      END