program fall_polt_again

      if(pgopen('/xwin')<=0)stop
      call pgenv(0.0,10.0,0.0,10.0,1,0)

 105  write(*,*)'initial position ?'
      read(*,*)x
      xini=x
      write(*,*)'initial hight ?'
      read(*,*)y
      write(*,*)'Vx ?'
      read(*,*)vx
      write(*,*)'Vy ?'
      read(*,*)vy

      dt=0.0001
      do while(y>0)
        ax=0.0
        ay=-9.8
        vx=vx+ax*dt
        vy=vy+ay*dt
        x=x+vx*dt
        y=y+vy*dt
        call pgpt(1,x,y,20)
      end do

      write(*,*)'Final hight =',y,'meters.'
      write(*,*)'Final distace =',x-xini,'meters.'

 103  write(*,*)'Again ? (1=yes.0=no)'
      read(*,*)i
      if(i==0)stop
      if(i==1)goto 105
      goto 103

c     call pgclos

      end