Foro de programacion

Necesito a alguien que me pueda ayudar a poner piezas de ajedrez a este pequeño programa que hice si alguien me lo puede mejorar pos mejor se loa agradeceria muchicimo es una tarea de 50 pts porfa se los pido que me ayuden lo mas pronto posible es para mañana la tarea (si quieren ayudar y si pueden no los obligo) porfaa

Programa:
SET TALK OFF
SET STATUS OFF
CLEAR
vi=0
vf=10
fila=0
FOR vi=0 TO vf
fila=fila+0.5
@fila,1 say REPLICATE("*",20)

@fila,35 say REPLICATE("*",20)
@fila,69 say REPLICATE("*",20)
@fila,103say REPLICATE("*",20)
q=INKEY(0.1)
ENDFOR
vi=0
vf=10
fila=5.3


FOR vi=0 TO vf
fila=fila+0.5
@fila,18 say REPLICATE("*",20)
@fila,52 say REPLICATE("*",20)
@fila,86 say REPLICATE("*",20)
q=INKEY(0.1)
ENDFOR

vi=0
vf=10
fila=10.6


FOR vi=0 TO vf
fila=fila+0.5
@fila,1 say REPLICATE("*",20)
@fila,35 say REPLICATE("*",20)
@fila,69 say REPLICATE("*",20)
@fila,103 say REPLICATE("*",20)
q=INKEY(0.1)
ENDFOR


vi=0
vf=10
fila=15.8


FOR vi=0 TO vf
fila=fila+0.5
@fila,18 say REPLICATE("*",20)
@fila,52 say REPLICATE("*",20)
@fila,86 say REPLICATE("*",20)
q=INKEY(0.1)
ENDFOR


vi=0
vf=10
fila=21


FOR vi=0 TO vf
fila=fila+0.5
@fila,103 say REPLICATE("*",20)
@fila,1 say REPLICATE("*",20)
@fila,35 say REPLICATE("*",20)
@fila,69 say REPLICATE("*",20)
q=INKEY(0.1)
ENDFOR


vi=0
vf=10
fila=26.2


FOR vi=0 TO vf
fila=fila+0.5
@fila,18 say REPLICATE("*",20)
@fila,52 say REPLICATE("*",20)
@fila,86 say REPLICATE("*",20)
q=INKEY(0.1)
ENDFOR


vi=0
vf=10
fila=31.5


FOR vi=0 TO vf
fila=fila+0.5
@fila,1 say REPLICATE("*",20)
@fila,35 say REPLICATE("*",20)
@fila,69 say REPLICATE("*",20)
@fila,103 say REPLICATE("*",20)
q=INKEY(0.1)
ENDFOR