autodefine "off"

WINDOW win
INT loop

OPENWINDOW win,0,0,300,220,0,0,"Tab and Enter",&handler
	CONTROL win,@EDIT,"Edit 1",50,40,200,26,0x50810000|@CTEDITAUTOH,5
	CONTROL win,@EDIT,"Edit 2",50,80,200,26,0x50810000|@CTEDITAUTOH,6
	CONTROL win,@EDIT,"Edit 3",50,120,200,26,0x50810000|@CTEDITAUTOH,7
	SETCONTROLCOLOR win,5,RGB(0,0,0),RGB(244,194,194)

FOR loop=5 TO 7
	SETFONT win,"Arial",9,400,0,loop
	SETCONTROLNOTIFY(win,loop,1,1)
NEXT loop

SETWINDOWCOLOR win,RGB(194,194,194)
	SETFOCUS win,5


WAITUNTIL IsWindowClosed(win)
	END

SUB handler(),INT
    SELECT @MESSAGE

        CASE @IDCREATE
            CENTERWINDOW win

        CASE @IDCONTROL
            IF @CONTROLID=5
                SELECT @NOTIFYCODE
                    CASE @ENENTERKEY
                        SetFocus win,6
				SETCONTROLCOLOR win,5,RGB(0,0,0),RGB(255,255,255)
				SETCONTROLCOLOR win,6,RGB(0,0,0),RGB(244,194,194)
                    CASE @ENTABKEY
                        SetFocus win,6
				SETCONTROLCOLOR win,5,RGB(0,0,0),RGB(255,255,255)
				SETCONTROLCOLOR win,6,RGB(0,0,0),RGB(244,194,194)
                ENDSELECT
            ENDIF

            IF @CONTROLID=6
                SELECT @NOTIFYCODE
                    CASE @ENENTERKEY
                        SetFocus win,7
				SETCONTROLCOLOR win,6,RGB(0,0,0),RGB(255,255,255)
				SETCONTROLCOLOR win,7,RGB(0,0,0),RGB(244,194,194)
                    CASE @ENTABKEY
                        SetFocus win,7
				SETCONTROLCOLOR win,6,RGB(0,0,0),RGB(255,255,255)
				SETCONTROLCOLOR win,7,RGB(0,0,0),RGB(244,194,194)
                ENDSELECT
            ENDIF

            IF @CONTROLID=7
                SELECT @NOTIFYCODE
                    CASE @ENENTERKEY
                        SetFocus win,5
				SETCONTROLCOLOR win,7,RGB(0,0,0),RGB(255,255,255)
				SETCONTROLCOLOR win,5,RGB(0,0,0),RGB(244,194,194)
                    CASE @ENTABKEY
                        SetFocus win,5
				SETCONTROLCOLOR win,7,RGB(0,0,0),RGB(255,255,255)
				SETCONTROLCOLOR win,5,RGB(0,0,0),RGB(244,194,194)
                ENDSELECT
            ENDIF

        CASE @IDCLOSEWINDOW
            CLOSEWINDOW win

ENDSELECT
RETURN 0
ENDSUB