Hi cpedw,
just scale like ur'v done or using a high word
w1 = 2000 'test 163200 / 640 to 2000
SerTxd(cr,lf,#w1," ")
w1=w1 /4 : w1= 40800 / w1
SerTxd(#w1)
w1 = 640 'test 163200 / 640 to 2000
SerTxd(cr,lf,#w1," ")
w1=w1 **26317 : w1= $FFFF / w1
SerTxd(#w1)