CONST intstrlength = 7; {length of a display integer field} TYPE intmode = (inone, isuplzer, icomma, ishortsup, ishortcom); intstr = string intstrlength; {a string for maximum INTEGER}