**TI92P*main".Y,@&-X=O"X=X^'-.YRstrcomprZ6(,) Func Compare strings , ; return differences as character codes 1jan2002/dburkett@infinet.com Local k,res,c if dim()dim():return "dim error" {}res For k,1,dim() if mid(,k,1)=mid(,k,1) then {0}c else {ord(mid(,k,1))}c endif augment(res,c)res EndFor return res EndFuncd