home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource3 / 153_01 / eline.c < prev    next >
Text File  |  1985-03-11  |  2KB  |  56 lines
  1. /*                        *** eline.c ***                            */
  2. /*                                                                   */
  3. /* IBM - PC microsoft "C"                                            */
  4. /*                                                                   */
  5. /* Function to erase a line of the screen.                           */
  6. /*                                                                   */
  7. /*  0 = Erase from cursor to end of line.                            */
  8. /*  1 = Erase from start of screen to cursor.                        */
  9. /*  2 = Erase entire line containing cursor.                         */
  10. /*                                                                   */
  11. /* Written by L. Cuthbertson, March 1984.                            */
  12. /*                                                                   */
  13. /*********************************************************************/
  14. /*                                                                   */
  15.  
  16. #define NULL    '\000'
  17. #define POUND    '#'
  18.  
  19. eline(y)
  20. int y;
  21. {
  22.     extern char EL[];
  23.     char yrel[2],command[20];
  24.     int i,inpos,outpos;
  25.  
  26.     /* initialize screen controls */
  27.     scrinit();
  28.  
  29.     /* error check */
  30.     if (y < 0 || y > 3)
  31.         y = 0;
  32.  
  33.     /* convert integer relative motion into string */
  34.     sprintf(yrel,"%d",y);
  35.  
  36.     /* build command line */
  37.     inpos = 0;    /* position within control string */
  38.     outpos = 0;    /* position within command string */
  39.  
  40.     while (EL[inpos] != POUND)
  41.         command[outpos++] = EL[inpos++];
  42.  
  43.     for (i=0;yrel[i] != NULL;i++)
  44.         command[outpos++] = yrel[i];
  45.  
  46.     inpos++;
  47.     while (EL[inpos] != NULL)
  48.         command[outpos++] = EL[inpos++];
  49.  
  50.     command[outpos] = NULL;
  51.  
  52.     /* write command to screen */
  53.     writes(command);
  54. }
  55. j=1;j<lenans;j++)
  56.             write