dva=01110 10001 00010 00100 01000 10000 11111
tri=01110 10001 00001 00110 00001 10001 01110
sem= 11111 10001 00001 00010 00010 00100 00100
vosem=01110 10001 10001 01110 10001 10001 01110
nol= 01110 10001 10001 10001 10001 10001 01110
devyat=01110 10001 10001 01111 00001 00010 11100
pyat= 01111 01000 01000 01110 00001 10001 01110
odin= 01100 00100 00100 00100 00100 00100 11111
chetiri=00010 00110 01010 10010 11111 00010 00111
shest= 00111 01000 10000 11110 10001 10001 01110

int skrin[35];
int n,k;

1cifra:

n=1;
k=1;
skr:
if (n>5)
{
if (k>7)
{
goto 2cifra;
//goto next;
}
k++;
n=1;
}
if (getcolor(1024-140+n-1,768-191+k-1,w)=65280)
{
skrin[n*k]=1;
}
skrin[n*k]=0;
n++;
goto skr;

//2Àß ÖÈÔÐÀ==========================================
2cifra:
n=1;
k=1;
skr2:
if (n>5)
{
if (k>7)
{
goto 3cifra;
}
k++;
n=1;
}
if (getcolor(1024-140+n-1+6,768-191+k-1,w)=65280)
{
skrin[n*k]=1;
}
skrin[n*k]=0;
n++;
goto skr2;
//3Àß ÖÈÔÐÀ==========================================
3cifra:
n=1;
k=1;
skr3:
if (n>5)
{
if (k>7)
{
goto 4cifra;
}
k++;
n=1;
}
if (getcolor(1024-140+n-1+11,768-191+k-1,w)=65280)
{
skrin[n*k]=1;
}
skrin[n*k]=0;
n++;
goto skr3;
//4Àß ÖÈÔÐÀ==========================================
4cifra:
n=1;
k=1;
skr4:
if (n>5)
{
if (k>7)
{
goto 5cifra;
}
k++;
n=1;
}
if (getcolor(1024-140+n-1+17,768-191+k-1,w)=65280)
{
skrin[n*k]=1;
}
skrin[n*k]=0;
n++;
goto skr4;
//5Àß ÖÈÔÐÀ==========================================
5cifra:
n=1;
k=1;
skr5:
if (n>5)
{
if (k>7)
{
goto 6cifra;
}
k++;
n=1;
}
if (getcolor(1024-140+n-1+28,768-191+k-1,w)=65280)
{
skrin[n*k]=1;
}
skrin[n*k]=0;
n++;
goto skr5;
//6Àß ÖÈÔÐÀ==========================================
6cifra:
n=1;
k=1;
skr6:
if (n>5)
{
if (k>7)
{
goto 7cifra;
}
k++;
n=1;
}
if (getcolor(1024-140+n-1+33,768-191+k-1,w)=65280)
{
skrin[n*k]=1;
}
skrin[n*k]=0;
n++;
goto skr6;
//7Àß ÖÈÔÐÀ==========================================
7cifra:
n=1;
k=1;
skr7:
if (n>5)
{
if (k>7)
{
goto 8cifra;
}
k++;
n=1;
}
if (getcolor(1024-140+n-1+39,768-191+k-1,w)=65280)
{
skrin[n*k]=1;
}
skrin[n*k]=0;
n++;
goto skr7;
//8Àß ÖÈÔÐÀ==========================================
8cifra:
n=1;
k=1;
skr8:
if (n>5)
{
if (k>7)
{
goto konec_skrin;
}
k++;
n=1;
}
if (getcolor(1024-140+n-1+6,768-191+k-1,w)=65280)
{
skrin[n*k]=1;
}
skrin[n*k]=0;
n++;
goto skr8;
//konec_skrin:
//textout (+format