anarchy golf - the source code

uniq words by pooq

dim w$(1)
do
line input""s$
if""=s$end
for i=1to token(s$,w$())a$=" "+w$(i)+" "
if!instr(t$,a$)?w$(i):t$=t$+a$
next
loop

Note that non-ascii characters in the above source code will be escaped (such as \x9f).