
    #include "regs.h"

    #define SET_CTYPE  1
    #define VIDEO_INT 16

    #define ESC 27

    CLEAR

    * cursor start / end lines depend on display adapter type ...
    IF iscolor()
        start_row = 7
        end_row = 7
    ELSE
        start_row = 12
        end_row = 13
    ENDIF

    @ 10, 10 SAY "Start row" GET start_row
    @ 11, 10 SAY "End row  " GET end_row
    READ

    lkey = lastkey()
    DO WHILE lkey != ESC
        regs = ""
        SET_AH(regs, SET_CTYPE)
        SET_CH(regs, start_row)
        SET_CL(regs, end_row)
        c_int86(VIDEO_INT, regs)

        * Pause so we can see cursor shape
        inkey(0)
        CLEAR

        @ 10, 10 SAY "Start row" GET start_row
        @ 11, 10 SAY "End row  " GET end_row
        READ
        lkey = lastkey()
    ENDDO

