SUBROUTINE TERSCL

 TERSCL transforms longlib coordinates to terminal pixel coordinates and pixel coordinates back to longlib coordinates. Also returns terminal tektronics compability.

CALL TERSCL(id,t,x,y,ix,iy)

id    (I): direction code (input)
            > 0 : longlib to terminal pixel coordinates
           else : pixel coorindates to longlib coordinates
t     (I): terminal compability (output)
            < 0 : terminal package not enabled
            = 0 : non-Tektronics 42xx series compatiblity
            = 1 : Tektronics 42xx series compability
x,y   (I): longlib coordinates
             (returned if id <= 0, input if id > 0)
ix,iy (I): terminal "pixel" coordinates
             (returned if id > 0, input otherwise)