! c_control.f90
program c_control
  write(unit=6,fmt='("Hi, page 1"/1h2,"half way down"/&
            &1h0,"double spaced"/1h1,"new Page")')
end program c_control