Estaba rumeando en mi disco duro

Cuando q me encuentro con uno de los primeros programas que hice, un juego de “gato”… lo teníamos que entregar en cd con impresión de cajita y todo… miren como ya era bien joco desde chiquito:

Y aquí les dejo mi maravilloso código en real basic: (bueno en realidad mejor no,  solo les pondré un fragmento… el chiste es que son puros if anidados jajaja, 13 hojas si lo pasas a word (estaban todas las combinaciones posibles)… malditos maestros de escuela de tabique mal horneado que ni ciclos sabían enseñar)

dim a, b, c, d, e, f, g, h, i, j, k, l , m, x, y, z as double
if a1.text="" then
if c1.text="x" then
if c5.text="" then
c5.text="o"
a1.text="1"
else
if c9.text="" then
c9.text="o"
a1.text="1"
else
if c2.text="" then
c2.text="o"
a1.text="1"
else
if c4.text="" then
c4.text="o"
a1.text="1"
else
if c3.text="" then
c3.text="o"
a1.text="1"
else
if c7.text="" then
c7.text="o"
a1.text="1"
else
if c8.text="" then
c8.text="o"
a1.text="1"
else
if c6.text="" then
c6.text="o"
a1.text="1"
end if end if  end if end if end if end if end if end if end if end if
if b1.text="" then…