CASE radio = 2
        GO BOTTOM
CASE radio = 3
        IF recordnum > RECCOUNT()
                WAIT WINDOW 'Record out of range' NOWAIT
        ELSE
                GO recordnum
        ENDIF
CASE radio = 4
        IF skipnum+RECNO() > RECCOUNT() OR skipnum+RECNO() < 0
                WAIT WINDOW 'Record out of range' NOWAIT
        ELSE
                SKIP skipnum
        ENDIF
ENDCASE
ENDIF

-----------------------------------

See Also:  @ ... GET - Check Boxes, @ ... GET - Invisible Buttons, @ ...
GET - Lists, @ ... GET - Popups, @ ... GET - Push Buttons, @ ... GET -
Radio Buttons CLEAR READ, _CUROBJ, RDLEVEL(), READ, SHOW GET, SHOW
OBJECT

-----------------------------------