Test PtiRageur

1->J
prgmthetaLP
~62->Ymin:0->Ymax
Text(20,25,"PLUS OU MOINS ?
Text(55,9,"VER : 4.0
Pause
ClrHome
Goto T
Lbl C
prgmthetaCREDITS
Lbl T
Menu("      MENU      ","1 JOUEUR",J1,"2 JOUEURS",J2,"RECORDS",R,"CREDITS",C,"QUITER",Q
Lbl R
ClrHome
SortA(|LSC
ClrDraw
For(theta,0,94
Line(1+theta,~3,1+theta,~8
End
15->L
For(V,1,6
Text(3,35," RECORDS
Text(L,15,|LSC(V
L+8->L
End
Pause
Goto T
Lbl J2
2->H
ClrHome
DelVar DDelVar XDisp "CHOISISSEZ UN
Input "NOMBRE : ",Y
ClrHome
Goto K
Lbl J1
100->D
Menu("   DIFFICULTE   ","FACILE",G,"MOYEN",M,"DIFFICILE",D,"MASTER",theta,"PERSONNALISER",F,"RETOUR",T
Lbl F
ClrHome
Input "COMBIEN ? ",D
If D<5
Goto F
Goto G
Lbl theta
1000D->D
Goto G
Lbl D
100D->D
Goto G
Lbl M
10D->D
Lbl G
1->H
ClrHome
DelVar XiPart(randD->Y
Lbl K
Disp "QUEL EST LE","NOMBRE MYSTERE ?
Repeat N=Y
Repeat not(Z
DelVar ZInput "",Str1
For(theta,1,length(Str1
sub(Str1,theta,1)="Y->Z
End
End
expr(Str1->N
If N>Y
Disp "C'EST MOINS !
If N<Y
Disp "C'EST PLUS !
X+1->X
End
If D=1000 and X>1 and H=1
Then
SortA(|LSC
X->|LSC(7
End
prgmthetaVC
Disp "BRAVO, TU AS","DECOUVERT LE","NOMBRE MYSTERE","EN "+Str9+" COUPS !
Pause
Menu("    REJOUER ?   ","OUI",JW,"NON",T
Lbl JW
If H=2
Goto J2
If H=1
Goto G
Lbl Q
DelVar GClrHome
0->|LJOY(4
Output(1,1,"