La bonne aventure en BASIC

Nous allons essayer de créer un programme qui répond à toutes vos questions ... au hasard.

     RANDOMIZE TIMER
     PRINT "Je suis le diseur de Bonne Aventure."
     INPUT "Pose moi une question et appuie sur entrée pour avoir la réponse ...", A$
     PRINT
     Reponse = INT(RND * 5 + 1)
     SELECT CASE Reponse
       CASE 1
         PRINT "Oui, absolument."
       CASE 2
         PRINT "Demande-moi plus tard."
       CASE 3
         PRINT "Oh non !!"
       CASE 4
         PRINT "Cela est une certitude."
       CASE 5
         PRINT "Oui."
     END SELECT

A toi d'essayer