!-----------------------------------------------------------------
Program Project
!
!			
!-----------------------------------------------------------------
  Real*4 :: ww
  Character*120 :: Line

  Open(18,file='ProjectXYbinary.170.030000.dat',form='binary')
  write(18)1,2,3,4

  close(18)

  Open(17,file='oo.dat',form='binary')  
  read(17)i,j,k,m 
    write(*,*) i,j,k
                                        
    STOP
  END Program Project
!---------------------------------------