Ti80.Online
Pour plus de programmes...
http://ti80.ctw.net
ti80@citeweb.net
-----------------------------------
Tout comme MORPION, Puissance 4 nécessite le programme MATRICE
disponible sur la page des jeux. Tapez d'abord MATRICE puis
attaquez
PUISSANCE 4.
:CLRHOME
:7=>H
:7=>L
:PRGM_MATRICE
:7=>DIM L1
:FOR (A,1,7
:0=>L1(A)
:END
:1=>P
:LBL 0
:CLRHOME
:DISP "JOUEUR",P
:INPUT "COLONNE :",C
:IPART C=>C
:IF C>7
:THEN
:GOTO 0
:END
:IF C<1
:THEN
:GOTO 0
:END
:IF L1(C)>6
:THEN
:GOTO 0
:END
:L1(C)+1=>L1(C)
:IF P=1
:THEN
:PT-ON(C+.5,L1(C)+.5)
:ELSE
:LINE(C+.9,L1(C)+.9,C+.1,L1(C)+.1)
:END
:P+1=>P
:IF P=3
:THEN
:1=>P
:END
:PAUSE
:GOTO 0
