home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / C-ASM_VI.ARJ / PROGC.ZIP / PROGC043.C < prev    next >
Text File  |  1988-05-25  |  835b  |  20 lines
  1.  
  2. /************************************************************************/
  3. /* Scroll upper left quarter of the 80x25 screen up by  6 lines         */
  4. /************************************************************************/
  5.  
  6. sample_scroll_text()
  7.         {
  8.         int     i,j;
  9.         for (i = 0; i < 25; i++)        /* Fill screen with data        */
  10.                 {
  11.                 printf("\n");
  12.                 for (j = 0; j < 40; j++)
  13.                         printf("%1d",i%10);
  14.                 }
  15.         getchar();                      /* Wait for <Enter>             */
  16.         scroll_text(1,3,12,19, 6);      /* Scroll text window           */
  17.         getchar();                      /* Wait for <Enter>             */
  18.         scroll_text(1,3,12,19,-6);      /* Scroll text window           */
  19.         }
  20.