program life

    implicit none
    real people 
    real problems
    complex relationships 
    volatile people
    common problems 
    character friendship
    logical nothing 
    external influences 

    open (1,file=friendship,status='new')
2   format (a,'letter') 
    write (1,2) 'her'
c   what happens 
    if (nothing) write (1,2) 'her again'
    continue 
    if (nothing) then
        close (1,status='delete') 
    else
        open (2,file='reply',status='old',readonly)
        read (2,2) friendship
        close (2,status='keep') 
        close (1,status='save')
    end if

    end