Para apreciar esta página correctamente, debes instalar Fa-122Doc.ttf en tu computadora

Título: 3-RAYA
Autor: Jorge Cevallos Manzano 
Modelo: CFX9850 (Hecho en CFX9850Ga+)
Descripción: El conocido juego de "Tres en Raya" (TicTacToe) para dos jugadores.

Bajar programa

AxesOff·
ClrGraph·
For 6‡A To 63 Step 5·
Text A-5,55," "·
Text A,55,"TRES"·
Next·
For 6‡A To 63 Step 5·
Text A-5,55," "·
Text A,55,"EN"·
Next·
Seq(0,X,1,9,1)‡List 6·
0‡C·
0‡Z·
For 6‡A To 63 Step 5·
Text A-5,55," "·
Text A,55,"RAYA"·
Next·
Green Text 10,20,"TRES"·
Orange Text 25,14,"EN"·
Text 40,20,"RAYA"·
Orange Vertical -2·
Green Vertical -2.2·
Vertical -2.4·
For 127‡A To 70 Step -3·
Orange Text 20,A,"POR: "·
Next·
For 1‡A To 6·
Text 40,50,"JORGE"·
Text 40,50," "·
Text 43,55,"CEVALLOS"·
Text 43,55," "·
Next·
Green Text 42,50,"JORGE CEVALLOS"·
Orange Vertical 5.8·
Green Vertical 6·
Vertical 6.2·
Orange Horizontal 3.1·
Green Horizontal 2.9·
Horizontal 2.7·
Orange Horizontal -3.1·
Green Horizontal -2.9·
Horizontal -2.7·
For 1‡A To 150·
Next·
Graph Y<4·
Graph Y>4·
For 1‡A To 200·
Next·
Cls·
Vertical -2·
Vertical 2·
Horizontal -1·
Horizontal 1·
Text 52,19,1·
Text 52,62,2·
Text 52,105,3·
Text 30,19,4·
Text 30,62,5·
Text 30,105,6·
Text 12,19,7·
Text 12,62,8·
Text 12,105,9·
For 1‡A To 9·
Isz C·
If Frac (C¤2)¬0·
Then Orange Text 1,47," "·
Green Text 1,47,"JUGADOR 1"·
Else Green Text 1,80," "·
Orange Text 1,47,"JUGADOR 2"·
IfEnd·
Do·
Getkey‡B·
LpWhile B=0·
If Frac (C¤2)=0·
Then B=72îOrange Circle -4.2,-2.1,.5·
B=72î2‡List 6[1]·
B=62îOrange Circle 0,-2.1,.5·
B=62î2‡List 6[2]·
B=52îOrange Circle 4.2,-2.1,.5·
B=52î2‡List 6[3]·
B=73îOrange Circle -4.2,0,.5·
B=73î2‡List 6[4]·
B=63îOrange Circle 0,0,.5·
B=63î2‡List 6[5]·
B=53îOrange Circle 4.2,0,.5·
B=53î2‡List 6[6]·
B=74îOrange Circle -4.2,1.8,.5·
B=74î2‡List 6[7]·
B=64îOrange Circle 0,1.8,.5·
B=64î2‡List 6[8]·
B=54îOrange Circle 4.2,1.8,.5·
B=54î2‡List 6[9]·
Else B=72îGreen Circle -4.2,-2.1,.5·
B=72î1‡List 6[1]·
B=62îGreen Circle 0,-2.1,.5·
B=62î1‡List 6[2]·
B=52îGreen Circle 4.2,-2.1,.5·
B=52î1‡List 6[3]·
B=73îGreen Circle -4.2,0,.5·
B=73î1‡List 6[4]·
B=63îGreen Circle 0,0,.5·
B=63î1‡List 6[5]·
B=53îGreen Circle 4.2,0,.5·
B=53î1‡List 6[6]·
B=74îGreen Circle -4.2,1.8,.5·
B=74î1‡List 6[7]·
B=64îGreen Circle 0,1.8,.5·
B=64î1‡List 6[8]·
B=54îGreen Circle 4.2,1.8,.5·
B=54î1‡List 6[9]·
IfEnd·
For 1‡Q To 8 Step 3·
List 6[Q]¬0îList 6[Q]=List 6[Q+1]îList 6[Q]=List 6[Q+2]îList 6[Q]‡Z·
Next·
For 1‡Q To 3·
List 6[Q]¬0îList 6[Q]=List 6[Q+3]îList 6[Q]=List 6[Q+6]îList 6[Q]‡Z·
Next·
List 6[1]¬0îList 6[1]=List 6[5]îList 6[5]=List 6[9]îList 6[1]‡Z·
List 6[3]¬0îList 6[3]=List 6[5]îList 6[5]=List 6[7]îList 6[3]‡Z·
Z¬0îBreak·
Next·
Cls·
Z=0îText 20,50,"EMPATE"·
Z=1îGreen Text 20,40,"GANA JUGADOR 1"·
Z=2îOrange Text 20,40,"GANA JUGADOR 2"