If OpenConsole()

    ; C'est la même chose qu'un des exemples précédents, sauf que
    ; les comparaisons concernent toujours l'égalité donc nous ne pouvons pas faire le
    ; même test qu'avec la partie ElseIf nom$<>"John" de l'exemple précédent
    nom$ = "John"
    Select nom$
        Case "Andrew"
            PrintN("Vous avez le meme nom que mon frere.")
            
        Case "Robert"
            PrintN("Votre nom vient-il du celebre roi ecossais ?")
            
        Case "John"
            PrintN("Ou pouvons-nous trouver Paul, George et Ringo ?")
            
        Default
            PrintN("Desole, je ne vous reconnais pas.")
    EndSelect


    ; Un ensemble simple d'instructions pour les fermiers, suivant l'âge de leurs poules ;)
    ; (NB : aucun animal n'a été blessé lors du test de cet exemple !)
    age_poule.w = -1
    Select age_poule
        Case 0
            PrintN("C'est plus une poulette qu'une poule")

        Case 1
            PrintN("Utile pour pondre des oeufs")

        Case 2
            PrintN("Age principal pour la viande - tchak ! tchak ! A la hache !")

        Case 3
            PrintN("Elle se fait vieille maintenant, mieux vaut mettre un terme a sa misere - tchak ! tchak ! A la hache !")

        Default
            PrintN("On les compte avant qu'elles soient hachees ?")
    EndSelect

    PrintN("Appuyez sur ENTREE pour quitter.")
    Input()
    CloseConsole()
EndIf
End
; IDE Options = PureBasic v4.00 (Windows - x86)
; Folding = -