INTEGER eWdth
tIlo=1-eWdth
tJlo=tJlo-eWdth+1
tJhi=tJhi+eWdth-1
tJlo=tJlo+eWdth-1
tJhi=tJhi-eWdth+1
tIhi=tIhi+eWdth-1
tJlo=1-eWdth
I fCode, eWdth,
tIlo=tIlo-eWdth+1
tIlo=tIlo+eWdth-1
tIhi=tIhi-eWdth+1