jeu du bonneteau (après avoir bien pris connaissance du rappel au paragraphe 298 de cet ouvrage).
(tous les messages texte sont saisis en tapant d'abord shift alpha « fois 10 exposant petit x » (à droite du point), comme à l'annexe 1.)

Mettez-vous dans le mode PRGM de votre calculatrice CASIO (modèle Graph), tapez F3 (NEW), donnez un nom au programme (de huit lettres maximum, par exemple BNNETEAU), puis :

ClrText (effacement écran) s'obtient en tapant shift VARS F6, puis F1, puis encore F1
« JEU DU BONNETEAU. » suivi d'un petit triangle coin inférieur droit (shift VARS F5)
Do (faire) s'obtient en tapant shift VARS F1(COM), puis F6, encore F6, enfin F3
ClrText
« NOMBRE DE GUINEES AU
»
« DEBUT (DE 4 A 230) :
»
« (SACHANT QU IL VOUS »


« EN FAUT AU MOINS QUA
-TRE POUR JOUER) »
?->G (shift VARS F4, puis la flèche est visible sous le L rouge, comme à l'annexe 1)
LpWhile (G différent de Int G) Or
(G<4) Or (G>230) (LpWhile signifie « tant que »)
(Aide syntaxe : -LpWhile (tant que) s'obtient en tapant shift VARS F1(COM), puis F6, encore F6, enfin F4 -Différent de s'obtient par shift VARS F6, puis F3(REL), enfin F2 -Int (partie entière) s'obtient en tapant OPTN, puis F6, puis F4(NUM), enfin F2 -Or s'obtient par OPTN, puis F6, encore F6, puis F4(LOGIC), enfin F2 < (inférieur à) s'obtient par shift VARS F6, puis F3(REL), enfin F4 > (supérieur à) s'obtient par shift VARS F6, puis F3(REL), enfin F3 Le point (.) comme signe de ponctuation s'obtient par la touche juste à droite du zéro Pour écrire « : » (deux points) : shift VARS F6, puis F5.)
Do
Do
ClrText
« CHANCE MINIMALE : » (deux points (:) s'obtient par shift VARS F6, puis F5)
« (0, 7 ou 8) »
?->M (shift VARS F4, puis la flèche est visible sous le L rouge)
LpWhile ((M différent de Int M) Or Attention : le rôle et l'ordre des parenthèses, ici,
((M différent de 0) And (M différent de 7) est primordial
And (M différent de 8))) (And s'obtient par OPTN, F6, encore F6, puis F4(LOGIC),
Do enfin F1)
ClrText
« CHANCE INITIALE : »
« (DE 0 A 15) »
?->C
LpWhile (C différent de Int C) Or
(C<0) Or (C>15)
If C<M (If s'obtient par shift VARS F1(COM), puis encore F1)
Then ClrText (Then s'obtient par shift VARS F1(COM), puis F2)
« ERREUR : VOTRE »
« CHANCE INITIALE EST »


« INFERIEURE A VOTRE »
« CHANCE MINIMALE... » (puis un petit triangle inférieur droit (shift VARS F5)
IfEnd (IfEnd s'obient par shift VARS F1(COM), puis F4)
LpWhile (C<M)
0->J
Do
ClrText
« COMBIEN DE GUINEES »
« PARIEZ-VOUS ? »
« (0->ARRETER) »
?->P
Lpwhile ((P différent de Int P) Or
(P<0) Or (P>G-3))
While ((G>=4) And (J<100) And (P différent de 0))
(Il est possible de jouer zéro fois)
(While s'obtient par shift VARS F1(COM), puis F6, encore F6,
enfin F1)
ClrText
« VOUS TENTEZ VOTRE »
« CHANCE ... » Ran# s'obtient par OPTN, puis F6, puis F2 (PROB), puis

                   F4 (RAND), enfin F1

Int (Ran# fois 6) + Int (Ran# fois 6)+2->H
H suivi d'un petit triangle inférieur droit (shift VARS F5)
If H<=C (inférieur ou égal s'obtient par shift VARS F6, puis F3(REL), enfin F6)
Then « CHANCEUX ! » (le point d'exclamation s'obtient par OPTN, puis F6, puis F2 (PROB),
enfin F1 (!)
If C>M
Then « VOTRE CHANCE PE
RD UN »
« POINT : »
C-1->C
C suivi d'un petit triangle inférieur droit (shift VARS F5)
Else « ET VOTRE CHANCE
NE»
« PERD PAS DE POINT. »
« YOUPI ! » immédiatement suivi d'un petit triangle inférieur droit (shift VARS F5)
(Else s'obtient par shift VARS F1, puis F3)
Pour écrire un point d'exclamation : OPTN, puis F6, puis F2 (PROB), enfin F1.
Pour écrire « : » (deux points) : shift VARS F6, puis F5.)
IfEnd
ClrText
« MISE GAGNEE : »
P (suivi d'un petit triangle inférieur droit)
ClrText
« VOS GUINEES S'ELEVEN
TA »
G+P->G
G (suivi d'un petit triangle inférieur droit)
J+P->J
Else ClrText
« MALCHANCEUX. »
« VOTRE CHANCE GAGNE U
NPOINT: »
C+1->C
C (suivi d'un petit triangle inférieur droit)
« MISE PERDUE : »
P (suivi d'un petit triangle inférieur droit)
ClrText
« VOS GUINEES »
« TOMBENT A »
G-P->G
G (suivi d'un petit triangle inférieur droit)
J-P->J
IfEnd (shift VARS f1, puis F4)
If (G>=4) And (J<100)
(>=(supérieur ou égal) s'obtient par shift VAR F6, puis F3(REL), enfin F5)
(And s'obtient par OPTN, F6, encore F6, puis F4(LOGIC), enfin F1)
Then Do
ClrText
« COMBIEN DE GUINEES »
« PARIEZ-VOUS ? »
« (0->ARRETER) »
?->P
LpWhile ((P différent de Int P) Or
(P<0) Or (P>G-3))
Else 0->P
IfEnd
WhileEnd (WhileEnd s'obtient par shift VARS F1(COM), puis F6, encore F6, enfin F2
If G<4
Then ClrtText
« VOUS ETES RUINE.»
IfEnd
If (G>=4) And (J<100)
Then ClrText
« JEU ARRETE A VOTRE »
« DEMANDE . »
IfEnd
If J>= 100
Then ClrText
«VOUS AVEZ RUINE»
«LE BONNETEUR. »
« FELICITATIONS ! » (puis un petit triangle inférieur droit, en tapant shift VARS F1)
IfEnd
« NOMBRE DE GUINEES »
« A LA FIN : »
G