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