Christophe Merlet

N'espérez pas trouver plus d'infos sur moi que vous n'en possédait déja. C'est ma vie privée!

Elève en 2^ème année à l'ENIT.
Membre de la 32° promotion de l'ENIT
Responsable du Club Informatique.
Responsable du serveur WEB des élèves de l'ENIT
Je vous invite quand même à consulter mon CV.

Si vous avez une calculatrice CASIO je vous invite à visiter ces quelques liens :

Voici un programme pour votre CASIO CFX-9960GT et compatible que j'ai confectionné moi-même :
DEMINEUR

"1-INIT":"2-JOUER":"3-REPRENDRE"?->Z
Z=3=>Goto 1
"MINES"?->B
Cls
ViewWindow 1,127,0,1,63,0
Z=2=>Goto 0
For 1->A To 97 Step 6
Plot A,2:Plot X,60:Orange Line:Next
For 1->A To 61 Step 6
Plot 1,A:Plot 97,Y:Orange Line:Next
Text 4,93,"S":Text 3,100,"VER 1.1":Text 9,108,"RedFox"
Text 22,102,"MINES":Text 37,101,"POINTS"
Plot 118,44:Plot X+5,Y:Line
Plot X+1,Y+1:Plot X-1,Y+1:Plot X-5,Y:Line
Plot X-1,Y-1:Plot X,Y+3:Plot X+5,Y:Line
PlotOff X-2,Y:Plot X,Y-1:Plot X+2,Y:Line
StoPict 6
[[0->Mat A:Mat A->Mat B
For 1->A To 15
Augment(Mat A,Mat B)->Mat B:Next
Trn Mat B->Mat B
Mat B->Mat A
For 1->A To 9
Augment(Mat A,Mat B)->Mat A:Next
Lbl 0
RclPict 6:Plot 1.1
Fill(0,Mat A
For 1->A To B
1->Mat A[Int 16Ran#+1,Int 10Ran#+1:Next
0->Mat A[1,1:0->Mat A[16,10:1->A~B:0->C
Lbl 1
While AB/=160
0->D
If A>1
Then B>1=>Mat A[A-1,B-1]=1=>Isz D
Mat A[A-1,B]=1=>Isz D
B<10=>Mat A[A-1,B+1]=1=>Isz D
IfEnd
B>1=>Mat A[A,B-1]=1=>Isz D
B<10=>Mat A[A,B+1]=1=>Isz D
If A<16
B>1=>Mat A[A+1,B-1]=1=>Isz D
Mat A[A-1,B-1]=1=>Isz D
B<10=>Mat A[A+1,B+1]=1=>Isz D
IfEnd
Text 28,108,C
Lbl 2
Do
.1Getkey->M:6-Int M->E:10Frac M-3->F
LpWhile Abs E>1 Or Abs F>1 Or A+E=0 Or A+E=17 Or B+F=0 Or B+F=11
Text 64-6B,6A-4," ":Text 64-6B,6A-3,D
A+E->A:B+F->B
Mat A[A,B]=1=>Goto3
If Mat A[A,B]=0
Then Isz C
2->Mat A[A,B
IfEnd
WhileEnd
Text 52,102,"GAGNE"
Lbl 3
Mat A[A,B]=1=>Text 52,102,"PERDU"
For 1->A To 16
For 1->B To 10
Mat A[A,B]=1=>Green Text 64-6B,6A-4,"M":Next:Next:Stop

Quand j'aurais un peu de temps devant moi, je rajouterais d'autres programmes pour CASIO.

Voici quelques autres liens qui n'intéresseront que deux personnes sur mille mais je les mets quand même !!

CirrusLogic
Vextrec GMB-P54IPS v0 SMC....GT

De la documentation sur tout ce qui touche de pres ou de moins pres a Internet.

Ecrivez-moi:redfox@redfoxcenter.org

17 mars 1997