set quiet

assign %c = %F

loop
    quif %F == ""
    if "%N" == "untitled"
        assign %d = %F
        write ?
        if "%d" == "%c"
            assign %c = %F
        endif
    else
        write
    endif
    next
    quif "%c" == "%F"
endloop

set noquiet