To Nest or Not to Nest Else

[Pete]

Well jus ah dadburn minute there ya galoots...

How's about SELECT CASEY?

Code: (Select All)

Screen _NewImage(640, 480, 32)

$Color:32

Do

    Cls

    Line (100, 100)-(200, 200), Red, BF

    Line (300, 100)-(400, 200), Blue, BF

    While _MouseInput: Wend

    x = _MouseX: y = _MouseY



    Select Case x

        Case 100 To 200

            Select Case y

                Case 100 To 200

                    _PrintString (130, 140), "Pete!"

            End Select

    End Select



    If x < 300 Then

    ElseIf x > 400 Then

    ElseIf y < 100 Then

    ElseIf y > 200 Then

    Else

        _PrintString (330, 140), "Steve"

    End If



    _Limit 30

    _Display

Loop Until _MouseButton(1)

- Sam