Pequeno ajuste, pros nomes de cima das barras não grudarem, igual embaixo.
Apenas guardo a última linha usada, e comparo com a atual pra ver se são iguais.
Se forem iguais, tira uma linha.
nLinhaTit := nLinha - 1
IF nLinhaTit == nLinhaAnt
nLinhaTit -= 1
ENDIF
nLinhaAnt := nLinhaTit
Também ajuste no texto inferior, se é linha diferente, dá pra dobrar o tamanho
@ if( mod( nDia, 2 ) == 0, 25, 26 ), nColuna-1 SAY Padc( Str( nDia, 2 ), nLargura *2 ) COLOR "W/N"
Esses meus testes, na pasta temporária, se auto-destroem depois de uns dias.
Fiz isso pra não ficar guardando testes.... a não ser que seja algo super, aà copio pra outra pasta.
Mas quando o teste pode ser interessante pra outros, posto aqui.