SUBROUTINE CURBAND

CURBAND is similar to the  CURMOTION subroutine except that two lines are "rubber banded" with the simulated cursor motion. This routine is supported only on terminals which can emulate the VT100 numeric keypad. The line segment rubberbanding can be disabled if desired.

CALL CURBAND (x,y,is,rx,ry,x1,y2,x2,y2)

x,y   (R): (returned) selected cursor position
is    (I): (returned) status flag
           < 0  error
           = 0  return key pressed
           = 1  space key pressed
           = 2,3,4 PF2,PF3,PF4 keys on VT100 pressed
           = 10...19 VT100 numeric key pad keys 0...9 pressed
           = 20 numeric key pad period key pressed
           = 21 numeric key pad enter key pressed
           = 22 numeric key pad comma key pressed
           = 23 numeric key pad dash key pressed
rx    (R): resolution of screen in x direction (returned)
ry    (R): resolution of screen in y direction (returned)
x1,y1 (R): starting point of rubber banded line 1
            if x1=999, this line segment is not used
x2,y2 (R): starting point of rubber banded line 2
            if x2=999, this line segment is not used