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
|