PROGRAM DUMMY
      
      real match,number
      integer i

      number = 0.0        
      do 10,i=0,20
        write(*,*) number,'**2 =',number**2
        call sleep(1)
        number = number+1.0
        
 10   CONTINUE
      end