Chris Stasny wrote:

>
> DIM alSmiles
> MENU 1,0,1,"File"
> MENU 1,1,1,"Quit/Q"
>
> EDIT MENU 0
> MENU 2,0,1,"Blue"
> MENU 2,1,1,"Fish"
> MENU 2,2,1,"Moon"
>
> MENU 2,3,1,"Cheese"
>
> WINDOW 1
> PRINT "Choose a menu option"
>
> EDIT FIELD 1,"",(100,100)-(150,120)
>
> LOCAL FN goMenu
>    DIM mID,iID
>    mID = MENU(0)
>    iID = MENU(1)
>
>    LONG IF mID = 1 AND iID = 1
>      END
>    XELSE
>      PRINT mID;iID
>    END IF
>    MENU
> END FN
>
> ON MENU FN goMenu
> DO
>    HANDLEEVENTS
> UNTIL alSmiles
>

Wow!
I like that one.

Alain