21 lines
265 B
Plaintext
21 lines
265 B
Plaintext
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
|