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)