Deux questions d’éthique
Page 1 sur 1
Deux questions d’éthique
- Code:
rem ============================================================================
rem Deux questions d’éthique
rem ============================================================================
label clic
dim t$,l,p
alpha 10 : top 10,50 : left 10,20 : font_bold 10 : font_size 10,16
font_name 10,"arial" : font_color 10,0,0,255
button 20 : top 20,height(0)-100 : left 20,150 : font_bold 20 : font_size 20,16
caption 20,"Suite" : hide 20
button 30 : top 30,top(20) : left 30,300 : font_bold 30 : font_size 30,16
caption 30,"Quitter" : on_click 30,clic : hide 30
p = 100 : ' temps de PAUSE à modifier selon votre convenance
read t$
while t$ <> "FIN"
if t$ = "PAUSE"
show 20 : show 30
repeat : until (clicked(20) > 0) or ( clicked(30) > 0)
caption 10,""
else
hide 20 : hide 30 : Affiche(t$)
end_if
read t$
end_while
message "Morale de l'histoire : Méfiez-vous des apparences !!!"
terminate
rem ============================================================================
Clic:
terminate
rem ============================================================================
SUB Affiche(t$)
dim_local i,l
l = len(t$)
for i = 1 to l
caption 10,caption$(10) + mid$(t$,i,1): pause p
next i
caption 10,caption$(10) + chr$(13)
END_SUB
rem ============================================================================
data "Deux questions d'étique ..."
data "A l'attention des sages et de ceux qui voudraient"
data "bien le devenir ..."
data "PAUSE"
data "Première question :" , ""
data "Supposons que vous connaissez une femme qui soit"
data "enceinte."
data "Elle a déjà huit enfants dont trois sourds,"
data "deux aveugles et un mentalement attardé."
data "De plus, cette femme a la syphilis.",""
data "Lui recommanderiez vous d'avorter ?"
data "PAUSE"
data "Répondez mentalement puis lisez la seconde question."
data "PAUSE"
data "Seconde question :" , ""
data "Il est temps d'élire le Président du Monde"
data "et votre vote sera déterminant."
data "Voici les données concernant les trois principaux"
data "candidats :"
data "PAUSE"
data "1er candidat :" , ""
data "Le premier candidat est associé à des politiciens"
data "véreux et consulte des astrologues."
data "Il a eu deux maîtresses."
data "Il fume comme un pompier et boit huit à dix Martinis"
data "par jour ..."
data "PAUSE"
data "2ème candidat" , ""
data "Le deuxième candidat a déjà été viré deux fois."
data "Il dort jusqu'à midi."
data "Il fumait de l'opium au collège et boit un quart de"
data "litre de whisky chaque soir."
data "PAUSE"
data " 3ème candidat :" , ""
data "Le troisième candidat est un héros de guerre médaillé."
data "Il est végétarien."
data "Il boit une bière occasionnellement et n'a jamais eu"
data "d'histoires extraconjugales."
data "PAUSE"
data "Parmi ces trois candidats, lequel choisiriez-vous"
data "(honnêtement) ?", ""
data "Faites votre choix, puis lisez la réponse ci-après."
data "PAUSE"
data "Le 1er candidat est : Franklin D. Roosvelt"
data "PAUSE"
data "Le 2ème candidat est : Winston Churchill"
data "PAUSE"
data "Le 3ème candidat est : Adolf Hitler"
data "PAUSE"
data "Comme quoi, il faut toujours se méfier des personnes"
data "qui ont une vie trop saine."
data "PAUSE"
data "Au fait, s'agissant de la 1ère question, à propos de"
data "l'avortement ..."
data "Si vous avez répondu ''OUI''."
data "PAUSE"
data "Vous venez de tuer ...",""
data " B E E T H O V E N !!!"
data "PAUSE"
data "FIN"
rem ============================================================================
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Lun 1 Jan - 0:25 par Papydall-Admin
» A ceux qui célèbre Noël, bonnes fêtes
Dim 24 Déc - 10:49 par Papydall-Admin
» Joyeux Noël et Bonne Année
Ven 8 Déc - 1:34 par Papydall-Admin
» Planets of the Solar System : Tilts and Spins
Lun 20 Mar - 15:43 par Papydall-Admin
» Bonne Année 2023
Sam 31 Déc - 1:39 par Papydall-Admin
» Fractals - Mandelbrot
Ven 21 Aoû - 22:51 par Papydall-Admin
» Convertisseur Décimal ---> Binaire, Octal, Hexadécimal, ...
Mer 21 Nov - 1:08 par Papydall-Admin
» Balises {USER...}
Lun 19 Nov - 22:12 par Papydall-Admin
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin