qall.vi

来自「开放源码的编译器open watcom 1.6.0版的源代码」· VI 代码 · 共 18 行

    loop
            
        quit
        if lastrc == ERR_FILE_MODIFIED 
            assign %a = /Save "%F" (y\/n)? /
            input %a
            quif lastrc == NO_VALUE_ENTERED
            if "%a" == y
                write
                quit
            else 
                quit!
            endif
        endif
        quif lastrc != ERR_NO_ERR
        
    endloop