*NRUSTL*           V                                                                                                 POUR gain :N
SI :N > 1 [RENDS PH PH [gagne et rcolte] :N [billes.]]
SI :N = 1 [RENDS [gagne et rcolte une bille.]]
SI :N = 0 [RENDS [ne gagne ni ne perd aucune bille.]]
SI :N = -1 [RENDS [perd une bille.]]
RENDS PH PH [perd] 0 - :N [billes.]
FIN

POUR lance 
D [P 19 J 12 BILLES [6 1 0 -1 -5]]
imprime [billes billes billes billes billes]
FIN

DONNE "#TEXTES [billes]

DONNE "billes [[@ D [#RC FAUX] DONNE "G PREM :BILLES DONNE "BILLES SP :BILLES] [DONNE "G :G] [@ sl 2] [Pierre possde :P billes.] [Jean en a :J et joue une partie] [contre Pierre.] [Jean [gain :G]] [@ nl] [A l'issue du jeu, Pierre a [:P - :G]] [billes et Jean [:J + :G] billes.] [@ sl 3]]

perd aucune bille.]]
SI :N = -1 [RENDS [perd une bille.]]
RENDS PH PH [perd] 0 - :N [billes.]
FIN

POUR la