:ClrHome :Disp "RETROUVE LE","CODE DE QUATRE","CHIFFRES MAX.","TU AS 20 COUPS" :Pause :0 -> B :int 10000rand -> X :int X -> X :ClrHome :Lbl A :B+1 -> B :Input A :If A > X :Then :Disp "+ PETIT" :End :If A < X :Disp "+ GRAND" :End :If A = X :Goto 0 :If B = 20 :Goto B :Goto A :Lbl B :Disp "TU AS PERDU","C'ETAIT :", X :Stop :Lbl 0 :Disp "BIEN JOUE !!!","NOMBRE DE COUPS :", B :If B = 10 :Then: Disp "T ' ES UN BOSS" :End :If B >10 and B =15 :Then : Disp "PAS MAL!" :End :If B>15 and B<20 :Then: Disp "BOF, BOF!" :End :Stop