juanlf/Borland-C
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Backup proyecto Joyfe - Borland

Browse Source
This commit is contained in:
juanlf
2025-06-16 22:54:10 +02:00
commit d61829a1a7
130 changed files with 11881 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
LIB/LIBRE.H Normal file
View File

@ -0,0 +1,45 @@
void introcad(int x, int y, char cad[], int a,
int c, int s, int t, int col) {
int i;
for (i=0;i<=a-1;) {
if (i<a-1){
cad[i]=getche();
if (cad[i]==8){
if (i>0){
setcolor(col);settextstyle(s,0,t);outtextxy(x,y,cad);
cad[i-1]=NULL;i-=2;
}
else{
sound(1000);delay(50);nosound();i--;
}
}
setcolor(c);settextstyle(s,0,t);outtextxy(x,y,cad);
}
else {
if (i==a-1 && cad[i]!=13){
cad[i]=getche();
if (cad[i]!=13 && cad[i]!=8){
sound(1000);delay(50);nosound();
}
else{
if (cad[i]==8 && i>=0){
setcolor(col);settextstyle(s,0,t);outtextxy(x,y,cad);
cad[i-1]=NULL;i--;
setcolor(c);settextstyle(s,0,t);outtextxy(x,y,cad);
}
}
i--;
}
}
if (cad[i]==13 && i>0)
break;
else
if (cad[i]==13 && i==0)
i--;
if (cad[0]!=NULL)
i++;
if (i==-1)
i++;
}
cad[i]=NULL;
}