ClrText
"CREE ET PROGRAMME    PAR SIMON EYRAUD.    SIMSOFT(A)HOTTMAIL.  COM"Ư
1̃Í:2̃D~O:3̃N:0̃S~U:5̃M:6̃I~Y:2̃A~Q:8̃C:9̃P~R:™10̃E~F
AxesOff
LabelOff
{CREER™ET™PROGRAMMER™™PAR™SIMON™EYRAUD™SUR™UNE™IDEE™ORIGINAL™DE™NICOLAS™SAINTE™ROSE™™SIMSOFT™EST™UNE™™™™™™MARQUE(C}
9̃U
GridOff
CoordOff
Deg
55̃A
Prog "DIVER"
0̃U
[[0,0,0,0,0,0,0,0,0,0][Í,1,Q,1,1,1,1,1,1,1][10,0,0,0,0,0,0,0,0,0][50,50,400,Í,5,2,2,2,2,0]]̃Mat G
1̃N
6̃Î
If S>0:Then S=1ăMat H̃Mat G
S=2ăMat ĨMat G
Mat G[1,10]̃N
0̃S
IfEnd
Lbl 9
Prog "EDITEUR"
Lbl 1
1̃Î
Int (Ran#©Mat G[2,3])̃V
Prog "VERIF 1"
RclPict 1
Text B,A,"Î"
1=UăGoto 9
Lbl 2
GetkeỹZ
0̃Î
Z=0ăGoto 2
0̃U
Z=27ăGoto A
Z=38ăGoto B
Z=28ăGoto C
Z=37ăGoto D
Z=48ăProg "MENU 2"
If Z=31:Then 1̃K
Prog "VERIF 1"
0̃K
IfEnd
Goto 2
Lbl A
If L<11:Then If Mat F[L‰1,C]á1:Then Text B,A," "
A‰10̃A
L‰1̃L
IfEnd
IfEnd
Goto 1
Lbl B
If L>1:Then If Mat F[L™1,C]á1:Then Text B,A," "
A™10̃A
L™1̃L
IfEnd
IfEnd
Goto 1
Lbl C
If C<6:Then If Mat F[L,C]=3 And Mat F[L,C‰1]á1 Or Mat F[L,C]=51:Then Text B,A," "
C‰1̃C
B™10̃B
IfEnd
IfEnd
Goto 1
Lbl D
If C>1:Then If Mat F[L,C]=3 And Mat F[L,C™1]á1 Or Mat F[L,C™1]=3 Or Mat F[L,™1‰C]=51:Then Text B,A," "
C™1̃C
B‰10̃B
IfEnd
IfEnd
Goto 1