5 REM Pierre Barnouin.
10 CLS:L(0)=1:PRINT TAB(23)"TICTACTOE MAGIQUE":PRINT
20 PRINT"Il s'agit de totaliser 15 avec 3 chiffres ":PRINT
30 PRINT"Qui commence ? 1=VOUS 2=M01"
40 A$=INKEY$:IF A$="2" THEN 70 ELSE IF A$<>"1" THEN 40
50 GOSUB 250:PRINT"Choisissez un chiffre libre":V= V+1
60 A=VAL(INKEY$):IF L(A) THEN 60 ELSE V(V)=A:L(A)= 
70 GOSUB 250:IF M=0 THEN F=5-3*L(5):GOTO 230
80 IF V=1 THEN F=2*(V(1) MOD 2 )+(V(1)-10)*((V(1) MOD 2)=0 ): GOTO 230
90 F=0:FOR I=1 TO M-1:FOR J=I+1 TO M:A=15-M(I)-M(J 
100 IF A<1 OR A>9 THEN 110 ELSE IF L(A)=0 THEN F=A :G=1:GOTO 230
110 NEXT J: NEXT I;FOR I=1 TO V-1:FOR J=I+1 TO V:A =15-V(I)-V(J)
120 IF A<1 OR A>9 THEN 130 ELSE IF L(A)=0 THEN F=A :I=V:J=V
130 NEXT J:NEXT I:IF F THEN 230
140 IF M=1 THEN F=1:D=2*(V(1) MOD 2)+(V(2) MOD 2): ON D GOSUB 290,300,310:GOTO 230
150 FOR A=1 TO 9:IF L(A) THEN 210 
160 FOR I=1 TO M-1:8=15-A-M(I):IF 0<1 OR B>9 THEN 200 ELSE IF L(B) THEN 200
170 FOR J=I+1 TO M:C=15-A-M(J):IF C<1 OR C>9 THEN 190
180 IF L(C)=0 THEN F=A:I=M:J=M:A=9
190 NEXT J
200 NEXT I
210 NEXT A:IF F THEN 230
220 F=F+1:IF L(F) THEN 220
230 M=M+1:M(M)=F:L(F)=1:PRINT"Je joue s ";F:IF 8=0 THEN 50
240 PRINT"J'ai gagna avec .01(I);"+";M(J);"+";F:""15":END
250 PRINT:PRINT"Vous ";:FOR I=1 TO V:PRINT V(I); :NEXT I
260 PRINT TAB(22)"Libres :";:FOR I=1 TO 9:IF LCD= 0 THEN PRINT I;
270 NEXT I:PRINT TAB(60)"Moi :";:FOR I.1 TO M:PRINT M(I);:NEXT I:PRINT
280 IF M+V=9 THEN PRINT TAB(28)"Partie nulle":END ELSE RETURN
290 F=5+V(1)-V(2):RETURN
300 F=5-V(1)+V(2):F=F-2*L(F):RETURN
310 IF V.(1)+V(2)=10 THEN F=2:RETURN ELSE F=10-(V(1 )+V(2))/2:RETURN