home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 1 / FishNMoreVol1.bin / more / code_examples / librar / hslide.c < prev    next >
Text File  |  1989-02-08  |  450b  |  23 lines
  1. void hslide(x,y,a,time)
  2. int x,y;
  3. char *a;
  4. {
  5.     int j,k,kk;
  6.     if (x<0){
  7.             clrscr();
  8.             x=abs(x);
  9.     }
  10.     if (y<0)
  11.             y=40-(strlen(a)/2);
  12.     cursor(0);
  13.     for (j=strlen(a)-1;j>=0;j--){
  14.              scr_curs(x,0);
  15.              for (k=0;k<y+j+1;k++){
  16.                   out(32,1);
  17.                   out(a[j],1);
  18.                   bspace(1);
  19.                   for (kk=0;kk<time;kk++);
  20.              }
  21.     }
  22.     cursor(1);
  23. }