TEKCODE codes a sequence of points in Tektronics coordinates into a minimum length sequence of bytes for terminal control. Does not add required control sequences.
CALL TEKCODE(n,m,b,ib) n (I): number of point pairs m (I): array of point pairs in Tektronics coordinates ordered m(1)=x1, m(2)=y1, m(3)=x2, m(4)=y2,... (range: 0 < m(i) < 4096) b (I): output array for coded ascii values (in/out) ib (I): pointer to next available location in b array (in/out)