/*  this script will return all the addresses in the address book */

address 'ontheball'
options results

done=0
FirstTag

do while done~=1
	GetNextTag
	if rc~=0 then do
		done = 1
	end
	else do
		say stripreturn(result)
	end
end
say '-'

done = 0
FirstAddress

do while done~=1
	GetNextAddress
	if rc~=0 then do
		done = 1
	end
	else do
		say stripreturn(result)
	end
end
say '-'

done=0
FirstApp

do while done~=1
	GetNextApp
	if rc~=0 then do
		done = 1
	end
	else do
		say stripreturn(result)
	end
end
say '-'

done=0
FirstToDo

do while done~=1
	GetNextToDo
	if rc~=0 then do
		done = 1
	end
	else do
		say stripreturn(result)
	end
end
say '--'

exit


stripreturn:
parse arg st
do i=1 to length(st)
	if c2d(substr(st,i,1))=10 then st=left(st,i-1)'\|\\'right(st,length(st)-i)
end

return st
