This wont go looking for ports, but it will up a port to 32K in whatever category you select if its at 100%. Change 32000 in line 13 to 32767 or whatever you want for max. It will do the upgrade for zero change in exp or align.

cat=zocask("Up ore, org, or equip, select 1,2 or 3?")
call zocsend "C"
call zocwait ("Computer command")
call zocsend ("R^MQ")
call zocwait ("(?=Help)? :")
wye= ZocGetInfo("CURSOR-Y")
wye=wye-8
orgwye=wye+1
ewye=wye+2
if cat =1 then tline=ZocGetScreen(21,wye,4)
if cat =2 then tline=ZocGetScreen(21,orgwye,4)
if cat =3 then tline=ZocGetScreen(21,ewye,4)
cycles=(32000-tline)/30
cycles=substr(cycles,1,4)
cycles= ZocString("REMOVECHARS", cycles, "."||".")
if cat=1 then upgrade="o13^M"
if cat=2 then upgrade="o23^M"
if cat=3 then upgrade="o33^M"
call zocsend ("D")
call zocwait ("(?=Help)? :")
do while cycles>0
call zocsend upgrade
cycles=cycles-1
end
Call zocsend ("QCR^MQ")

EDIT: My scripts are NOT user friendly, if you get something wrong like not having enough money or whatever, God knows what will happen. The above script is a bit slow, it upgrades 3 units at a time to avoid exp/align change. You could speed it up a bit, 5 units ok for ore and 4 for org. Dunno why I used 3, mebbe something I drank.

ty