program Aug06_2002
    implicit none
    integer::i,j,k
    real::x,y
    character(20)::form_1 = '(2i3,f5.2,f1.0)',&
                   form_2 = '(i5,f6.0)',&
                   c*8
    open(unit=1,file='in01',status='old')
27  read(1,*)i,j,x,y
    print*,x,y,i,j
28  read(1,'(2i3,2f6.0)')i,j,x,y
    print*,x,y,i,j
29  read(1,'(i3,f7.0,2x,i5,t20,f5.0)')i,x,j,y
    print*,x,y,i,j
30  read(1,form_1)i,j,x,y
    print*,x,y,i,j
31  read(1,form_2)i,x,j,y
    print*,x,y,i,j
32  read(1,200)i,x,j,y
200 format(i2,f5.2/i3,f2.1)
    print*,x,y,i,j
33  read(1,210)x,y,i,j
210 format(f5.2,1x,f1.0,t4,i2,t9,i3)
34  read(1,220)x,i,y,j
220 format(2(f5.2,i3))
35  read(1,230)x,i,y,j,c
230 format(f6.2/i5//f6.0,i6/a)
    print*,x,y,i,j,'"',c,'"'
36  read(1,*)c,j
    print*,j,'"',c,'"'
    do k = 1,2
37   read(1,'(a,i2,f5.2)')c,i,x
     print*,x,i,'"',c,'"'
    end do
    do k = 1,2
38   read(1,'(a7,i3,f6.2)')c,i,x
     print*,x,i,'"',c,'"'
    end do
   end program