18 lines
380 B
Plaintext
18 lines
380 B
Plaintext
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
|