X% = 50
PRINT "Vous avez 50 francs."
SLEEP .5
PRINT "Vous pouvez les parier contre l'ordinateur"
SLEEP .5
DO UNTIL X% = 0
 INPUT "Combien voulez vous parier?", Y%
 IF Y% > X% OR Y% < 1 THEN
 U% = 1
 END IF
 IF Y% < (X% + 1) AND Y% > 1 THEN
 U% = 2
 END IF

 IF U% = 2 THEN

 PRINT "Donc vous voulez parier "; Y%; " avec l'ordinateur."
 SLEEP .5
 V% = INT(RND * 2) + 1
 IF V% = 1 THEN
 PRINT "d‚sol‚, l'ordinateur n'a pas envie de pari‚ cette fois ci..."
 END IF
 IF V% = 2 THEN
 PRINT "Vous avez de la chance, l'ordinateur accepte de parier."
 C% = INT(RND * 6) + 1
 D% = INT(RND * 6) + 1
 SLEEP .5
 PRINT "Vous jouez un "; C%; "."
 SLEEP .5
 PRINT "L'ordinateur joue un "; D%; "."
 SLEEP .5
 IF D% < C% THEN
  PRINT "Vous avez gagnez "; Y%; " Francs."
  X% = X% + Y%
  PRINT "Vous avez maintenant "; X%; " Francs."
 END IF
 IF C% = D% THEN
  PRINT "mˆme num‚ro"
 END IF
 IF C% < D% THEN
  PRINT "Vous avez perdu "; Y%; " Francs."
  X% = X% - Y%
  PRINT "Vous avez maintenant "; X%; " Francs."
 END IF
 END IF
 END IF

LOOP
PRINT "BOOOUUUHHHH ! Vous n'avez plus un sou !"
PRINT "Barrez vous on accepte pas les pauvres ici !!!"