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
27  read*,i,j,x,y
    print*,x,y,i,j
28  read'(2i3,2f6.0)',i,j,x,y
    print*,x,y,i,j
29  read'(i3,f7.0,2x,i5,t20,f5.0)',i,x,j,y
    print*,x,y,i,j
30  read form_1,i,j,x,y
    print*,x,y,i,j
31  read form_2,i,x,j,y
    print*,x,y,i,j
32  read 200,i,x,j,y
200 format(i2,f5.2/i3,f2.1)
    print*,x,y,i,j
33  read 210,x,y,i,j
210 format(f5.2,1x,f1.0,t4,i2,t9,i3)
34  read 220,x,i,y,j
220 format(2(f5.2,i3))
35  read 230,x,i,y,j,c
230 format(f6.2/i5//f6.0,i6/a)
    print*,x,y,i,j,'"',c,'"'
36  read*,c,j
    print*,j,'"',c,'"'
    do k = 1,2
37   read'(a,i2,f5.2)',c,i,x
     print*,x,i,'"',c,'"'
    end do
    do k = 1,2
38   read'(a7,i3,f6.2)',c,i,x
     print*,x,i,'"',c,'"'
    end do
   end program