#include<dos.h>
#include<stdio.h>
#include<conio.h>
char far*Q,far*q=(char far*)0xA0000000-5121;
int I[]={-25,-23,-14,-10,10,14,23,25};int A[144],B[65],D[65],E[65],F[65];
int C[65][9],X[65],Y[65];
int a,b,c,d,h,x,y,N;
void casilla(int f){gotoxy(X[E[d]],Y[E[d]]);
printf("%2i",d);Q=q+2560*Y[E[d]]+8*X[E[d]];
for(y=24;y--;Q+=288)
for(x=32;x--;Q++)
if(!*Q) *Q=f;
}
void plasmar(int f){printf("%c[H\t TOTAL=",27);if(N<y) printf("%i.000",f);else printf("%i.%03i.000",N/y,f);E[63]=b;
for(d=65;--d;)
casilla(d%2?1:9);
while(y=kbhit())
if(getch()==27) a=c=1;
}
int main(){_AX=0x13;
geninterrupt(0x10);
F[3]=F[12]=F[28]=F[33]=F[35]=1;
for(y=12;y--;)
for(x=12;x--;a++)
if(y<10&&y>1&&x<10&&x>1)
X[b+1]=b%8*4+6,
Y[b+1]=24-b/8*3,
A[a]=++b;
while(a--)
if(b=A[a])
for(B[b]=1,x=8;x--;)
if(c=A[a+I[x]])
if(c!=18) C[b][B[b]++]=c;
for(y=65;--y;)
for(x=B[y];--x>1;)
if(B[a=C[y][x]]>B[b=C[y][x-1]])
C[y][x-1]=a,
C[y][x++]=b,
x+=x<B[y];
b=1;
a=y=0;
E[64]=18;
Inicio:
if(F[b])
if(h<4) h++;
else{ if(a>61&&++y>999) plasmar(++N%y);
goto Rutina;
}
D[b]=B[b];
E[++a]=c=b;
Rutina:
while(D[b=C[c][--D[c]]]);
if(b) goto Inicio;
if(F[c]) h--;
if(c=E[--a]) goto Rutina;
if(getch()) return(0);
}
Crear cuenta
Comentarios sobre la versión: 1.4 (0)
No hay comentarios