CURLOCATE produces a simulated "x" cursor mark on the screen graphics device ( Ramtek or terminal device) When only the metafile is initialized a call to CURLOCATE is a dummy call. The terminal takes precidence over the Ramtek when both are in use. Erasure of cursor on requires the correct location where it was first plotted. CURLOCATE uses the XOR capbility of graphics terminal to place and remove the cursor. If the terminal has neither erase or XOR capability, the graphics cursor can not be erased without clearing the entire screen. If the (x,y) position is off the screen, the cursor will be located on closest edge of the screen to the desired point.
CALL CURLOCATE (x,y,n,ir)
x,y (R): cursor position
n (I): cursor number/size (0-4)
< 0 erase cursor
> 0 locate cursor
ir (I): Ramtek cursor control (recognized if Ramtek is output)
= 0 Ramtek cursor device used
= 1 plotted Ramtek cursor mark used