arraybase 1
max = 10
dim res(max)
dim dat(max)
dat[1] = 1: dat[2] = 2: dat[3] = 1: dat[4] = 4: dat[5] = 5
dat[6] = 2: dat[7] = 15: dat[8] = 1: dat[9] = 3: dat[10] = 4
res[1] = dat[1]

cont = 1
posic = 1
while posic < max
	posic += 1
	esnuevo = 1
	indice = 1
	while indice <= cont and esnuevo = 1
		if dat[posic] = res[indice] then esnuevo = 0
		indice += 1
	end while
	if esnuevo = 1 then
		cont += 1
		res[cont] = dat[posic]
	end if
end while

for i = 1 to cont
	print res[i]; "  ";
next i
end