Correction

    Nom de la variable:  GUESSV3
    Commentaire:Program file 03/18/15, 21:08
    Stockage: RAM
    ----------
    ClrHome
    Output(3,1,"DEVINE LE NOMBRE"
    Output(4,4,"(VERSION 4)"
    Output(7,4,"PRESS ENTER")
    Pause
    Lbl B
    ClrHome
    Menu("WELCOME:","PLAY",J,"RULES*READ IT*",R,"SCORES LIST",L,"QUIT",T)

    Lbl J

    Menu("DID U READ RULES","YES",O,"NO",P)

    Lbl O
    Goto Q

    Lbl P
    Goto R

    Lbl Q

    Lbl W
    ClrHome
    Input "ENTRE TON PSEUDO",Str1
    ClrHome
    If length(Str1)>8
    Then
    Output(3,1,"PSEUDO TROP LONG")
    Output(6,4,"PRESS ENTER")
    Pause
    Goto W
    End


    If length(Str1)>8
    Goto W

    If length(Str1)=1
    Output(3,8,Str1
    If length(Str1)=2
    Output(3,8,Str1
    If length(Str1)=3
    Output(3,7,Str1
    If length(Str1)=4
    Output(3,7,Str1
    If length(Str1)=5
    Output(3,6,Str1
    If length(Str1)=6
    Output(3,6,Str1)
    If length(Str1)=7
    Output(3,5,Str1
    If length(Str1)=8
    Output(3,5,Str1

    Output(2,6,"PRET(E)"
    Output(4,8,"?")
    Output(6,4,"PRESS ENTER")
    Pause

    Lbl A

    ClrHome
    0üS
    Output(2,12,"BS=")
    Output(2,15,Á)
    randIntú10000,10000)üY
    While XøY
    Prompt X
    If X>Y
    Disp "C'EST -"
    If X<Y
    Disp "C'EST +"
    If X=Y
    Disp "GG U FOUND IT"
    S+1üS
    Output(6,14,"S=")
    Output(6,15,S)
    End
    If S<Á
    SüÁ
    ClrHome
    Output(1,1,"WELL PLAYED YOU"
    Output(2,1,"HAVE FOUND X")
    Output(4,1,"YOUR SCORE=")
    Output(4,12,S)
    Output(6,1,"BEST SCORE=")
    Output(6,12,Á)
    Output(8,4,"PRESS ENTER")
    Pause

    Menu("GAME OVAIRE","PLAY AGAIN",G,"SCORES LIST",U,"GO TO MENU",V,"QUIT",H)

    Lbl G
    Goto A

    Lbl U
    Goto L

    Lbl V
    Goto B

    Lbl H
    ClrHome
    Return
    Stop

    Lbl R
    ClrHome
    ClrHome
    ClrDraw
    CoordOf
    AxesOff
    0üTmin
    94üTmax
    1üXscl
    ú64üÁmin
    0üÁmax
    1üYscl
    Text(1,1,"GUESS X FOR X BEETWEEN"
    Text(7,1,"ú10000 AND 10000"
    Text(14,1,"BS=BEST SCORE")
    Text(21,1,"S=SCORE")
    Text(35,1,"IF THE NUMBER IS NEGATIVE,
    Text(42,1,"PRESS (ú),NOT (-)")
    Text(49,35,"HAVE FUN!"
    Text(56,1,"PRESS ENTER")
    Pause
    Goto B
    Stop

    Lbl L
    CoordOf
    AxesOff
    ClrDraw
    ClrHome
    0üTmin
    94üTmax
    ú64üXscl
    0üÁmax
    1üYscl
    1üXscl
    Vertica47
    Horizonú7
    Horizonú14
    Horizonú21
    Horizonú28
    Horizonú35
    Horizonú42
    Horizonú49
    Horizonú56
    Text(1,2,"PLAYER   NAME")
    Text(1,62,"SCORE")
    Text(57,26,"PRESS    ENTER")
    Pause
    Goto B


    Lbl T
    ClrHome
    Return
    Stop