PUISSANCE  /* pour donner un nom à votre programme ... en fait
	   /* pour la calculette, ça veut dire
	   /* P*U*I*S*S*A*N*C*E
Defm 7     /* Définit 7 nouvelles variables (on y accède par
	   /* Z[0] jusqu'à Z[6]
Range 0,7,1,0,7,1   /* Définit la taille de l'écran
		    /* Ici X va de 0 à 7 en incrémentant de 1
		    /* et  Y va de 0 à 7 en incrémentant de 1
7->I

Lbl 1		    /* Première boucle
Plot I,1	    /* pour les lignes verticales
Plot I,7
Line
Dsz I:Goto 1

6->I		    /* Deuxième boucle
Lbl 2		    /* pour les lignes horizontales
Plot 0, I+1
Plot 7,I+1
Line
Dsz I:Goto 2

0->Z[0]~Z[6]	    /* On remplit le tableau de 0

Lbl 4

/* Premier joueur .....
Plot $		    /* Cette ligne permet à l'utilisateur
		    /* de choisir un point sur l'écran !!

Int X->J	    /* On arrondit X pour le mettre dans J

Plot J,Z[J]+1
Plot J+1,Z[J]+2
Line
Plot J,Z[J]+2
Plot J+1,Z[J]+1
Line
/* tout ça pour tracer une magnifique croix ...
Z[J]+1->Z[J]

/* Deuxième joueur ....
Plot $
Int X->K	    /* On arrondit X pour le mettre dans K
/* On trace un carrée ....
Plot K+0.2,Z[K]+1.2
Plot K+0.2,Z[K]+1.8
Line
Plot K+0.2,Z[K]+1.8
Plot K+0.8,Z[K]+1.8
Line
Plot K+0.2,Z[K]+1.2
Plot K+0.8,Z[K]+1.2
Line
Plot K+0.8,Z[K]+1.2
Plot K+0.8,Z[K]+1.8
Line
Z[K]+1->Z[K]


Goto 4		    /* On recommence ....