>Procedure GetNewPrimary
>local newTnumber,nowdbf
>nowdbf=alias()
>newTnumber=0
>use misc in 0 again alias ms
>use theTable again in 0 alias NewKeyTable order primarykey
>sele ms
>set reprocess to -1
>set deleted off
>local ix
>newTnumber=ms.mytrans
>sele NewKeyTable
>for ix=1 to 100000
>	seek newTnumber
>	if found()
>		newTNumber=newTnumber+1
>	else
>		exit
>	endif
>next
>sele ms
>if flock()
>	repl ms.mytrans with newTnumber+1
>	unlock in ms	
>endif
>set deleted on
>use in ms
>use in NewKeyTable
>if !empty(nowdbf)
>	sele (nowdbf)
>endif
>return newTnumber

>Incidently, how does one format text in this editor?

Try doing a reply to this message and note the <pre> and tags I added to your code.