home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 1
/
FishNMoreVol1.bin
/
more
/
code_examples
/
librar
/
hslide.c
< prev
next >
Wrap
Text File
|
1989-02-08
|
450b
|
23 lines
void hslide(x,y,a,time)
int x,y;
char *a;
{
int j,k,kk;
if (x<0){
clrscr();
x=abs(x);
}
if (y<0)
y=40-(strlen(a)/2);
cursor(0);
for (j=strlen(a)-1;j>=0;j--){
scr_curs(x,0);
for (k=0;k<y+j+1;k++){
out(32,1);
out(a[j],1);
bspace(1);
for (kk=0;kk<time;kk++);
}
}
cursor(1);
}