1  DO i = 1, 1E20 ! "forever"
     a = INT( RAN(10, 10) )
     WRITE(name) a
     IF( a == 10) GOTO 10
     b = INT( RAN(10, 10) )
     WRITE(name) b
   ENDDO
10
 END