Ce programme sert à jouer à tic tac toe à deux joueurs. Il est cependant long à charger.
PROGRAM: TICTAC
: PLOTSOFF
: FNOFF
: CLRDRAW
: CLRLIST L4
: 0®XMIN
: 0®YMIN
: 1®XSCL
: 1®YSCL
: 3®XMAX
: 3®YMAX
: FOR(T,1,3)
: HORIZONTAL
T
: VERTICAL T
: END
: SEQ(Ö(.8-T²),T,-.7,.7,2DX)®L6
: SEQ(T/2+.5,T,-.7,.7,2DX)®L5
: FOR(T,1,DIM L5)
: PT-OFF(TDX,YMIN)
: -L6(T)+1®L6(DIM
L6+1)
: L5(T)®L5(DIM
L5+1)
: END
: HORIZONTAL 0
: 9®DIM
L4
: FOR(T,1,9)
: LBL 0
: INPUT
: IPART X®X
: IPART Y®Y
: IF L4(3Y+X+1)#0
: GOTO 0
: IF FPART (T/2)=.5
: THEN
: 1®L4(3Y+X+1)
: LINE(X,Y,X+1,Y+1)
: LINE(X+1,Y,X,Y+1)
: ELSE
: 2®L4(3Y+X+1)
: FOR(Z,1,DIM L5)
: PT-ON(L5(Z)+X,L6(Z)+Y)
: END
: END
: END