Program Unform
  Implicit None
  Character(10) :: Name
  Real :: a
  Integer ID

  Name = '½ΕΊ΄Γα'
  Id = 630413
  Open(10,File='unform.dat',Access='Sequential', Form='Unformatted')

  Write(10) Name
  Write(10) Id
  Write(10) 105.34*sin(3.)
  Close(10)
  
  Open(10,File='unform.dat',Access='Sequential', Form='Unformatted')
  Read(10) Name
  Read(10) ID
  Read(10) a
  Close(10)

  Print *, Name, ID
  Print *, a
 
End Program