comparing arrays

You can also put every match for the same action on 1 line:

Select Allwheels
       case 0 ; i.e 0000 = 4 lemons
             ... pay out for 4 lemons
       case 1111 ; = 4 cherries
             ... pay out for 4 cherries
       case 1116, 1161, 1611, 6111 ; = 3 cherries and wildcard
             ... pay out for 3 cherries and wildcard

       ... etc ...


       default
             ; no win
End Select