Code
12->dim([LISTE]P4
Radian:AxesOff
FnOff :LabelOff
Lbl M:1->F
Menu("PUISOC","CONTINUER",L,"NOUV. PARTIE",C,"OPTIONS",P,"QUITTER",Z
Lbl P
If [LISTE]P4(1
Then
Disp "ABANDONNER
1->O:7->N
Input "PARTIE EN COURS?",Str1
If Str1="OUI
Then
DelVar [LISTE]P4
13->dim([LISTE]P4
Else
Disp "MODIFS","IMPOSSIBLES
Pause
Goto M
End
End
ClrHome
Disp "OPTIONS","","*JOUEUR"," NIV. A.I"," MOTIFS
For(I,4,5
Output(I,16,1+[LISTE]P4(I-2
End
[LISTE]P4(1->O
If O=0:" J/J
If O=1:" AI/J
If O=2:"AI/AI
Output(3,12,Ans
1->A
Repeat K=105
getKey->K
If K:Then
Output(A+2,1,"
(K=34)+A-(K=25->A
min(3,max(1,A->A
Output(A+2,1,"*
[LISTE]P4(A)+(K=26)-(K=24->[LISTE]P4(A
min(2,max(0,Ans->[LISTE]P4(A
Ans->O
If A-1:Then
Output(A+2,16,Ans+1
Else
If O=0:" J/J
If O=1:" AI/J
If O=2:"AI/AI
Output(3,12,Ans
End
End
End
Goto M
Lbl C
0->F
DelVar [LISTE]P4
12->dim([LISTE]P4
Lbl L
ClrDraw
-.4->Xmin:0->Ymin
13->Xmax:7.75->Ymax
Ymax/62->W
7ñ->R
Text(1,0,"PUISOC4
For(I,0,15W,W
Line(Xmin,6.8-I,4,6.8
Line(Xmin,1.6+I,4,1.6
End
Text(57,0,"(C)2007
Text(50,0,"PAR COC5
For(J,0,8,7W
For(B,4,Xmax
If F and J<7 and B-13:Then
J8/7->I
int(10fPart(10^(B-4)[LISTE]P4(12-round(I,0->T
If Ans:prgmPS4DES
End
Pt-On(B,J,[LISTE]P4(3
End
End
9->B
Text(25,0,"JOUEUR
Lbl 0
Line(B+R,Ymax,B+R,7
B+1-R
Line(Ans,7,Ans,Ymax
Text(25,25,1+[LISTE]P4(4
Repeat (K=21 or K=23) and not(int(10fPart(10^(B-4)[LISTE]P4(5
getKey->K
B->C
B-(K=24 and B>4)+(K=26 and B<12->B
If B-C:Then
For(J,C,B,B-C
J+1-R
Line(J+R,Ymax,J+R,7,J-C
Line(Ans,Ymax,Ans,7,J-C
Line(J+R,0,Ans,0,J-C
End
End
If K=22:Then
Lbl Z
AxesOn:FnOn
LabelOn:Degree
ClrHome
Stop
End
End
For(I,0,7
If not(int(10fPart([LISTE]P4(12-I)10^(B-4
Goto B
End
Lbl B
not([LISTE]P4(4->[LISTE]P4(4
Ans+1->T
[LISTE]P4(12-I)+10^(3-B)T->[LISTE]P4(12-I
prgmPS4DES
Goto 0
) G
Pas doué moi 
