WHEREVT returns information on the terminal plotting parameters. If nv <= 0 then terminal graphics have not been initialized. A routine FIXVT0 (with same arguments) may be used to set these variables to absolute values without error checking.
CALL WHEREVT (x,y,z,a,rx,ry,iv,ns,it,iw,ic)
x,y (R): (returned) current origin
z (R): (returned) current zoom scale factor
a (R): (returned) current plotting angle
rx,ry (R): (returned) current pixel resolution
iv (I): (returned) terminal code
(if nv <= 0 terminal is not initialized)
ms (I): (returned) internal terminal-type code
= 1 VT100 with Selanar GR100
= 2 VT125
= 3 VT240
= 4 VT220 with Selanar GR220
= 5 Tektronix 4010
= 6 Tektronix 4109
= 7 Graphon GO-235
it (I): (returned) current line type
iw (I): (returned) current line width
ic (I): (returned) current line color