WHERERM returns information on the Ramtek plotting parameters. If c <= 0 then ramtek has not been initialized. A routine FIXRM0 (with same parameters) may be used to set these variables to absolute values without error checking.
CALL WHERERM (x,y,z,a,rx,ry,nt,ns,i,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
nt (I): (returned) current line bit pixel pattern
ns (I): (returned) current line bit scale factor
i (I): (returned) Ramtek color
ic (I): (returned) Ramtek channel
(if ic <= 0 ramtek is not initialized)