home *** CD-ROM | disk | FTP | other *** search
/ Zodiac Super OZ / MEDIADEPOT.ISO / FILES / 16 / FREEDOS.ZIP / FD_A4PRE.ZIP / SOURCE / MICROC.ZIP / PAGEL.C < prev    next >
Text File  |  1995-05-21  |  511b  |  35 lines
  1. int LINECOUNT, ROWS;
  2.  
  3. int bioskey ()
  4.  
  5. {
  6.     _AX_ = 0x0000;
  7.     int86 (0x16);
  8.     return (_AX_ & 0x00FF);
  9. }
  10.  
  11. int pagel (char *string)
  12.  
  13. {
  14.     ROWS = (peek(0x40, 0x84) ? peek (0x40, 0x84) + 1 : 25);
  15.  
  16.     if (++LINECOUNT >= ROWS)
  17.         {
  18.         printf ("%s\r", PAGEF_PR);
  19.         switch (bioskey ())
  20.             {
  21.             case 3: case 27: case 'q':
  22.                 abort (1);
  23.             case 'n':
  24.                 return (0);
  25.             case 13:
  26.                 LINECOUNT = ROWS - 2;
  27.             default:
  28.                 break;
  29.             }
  30.         LINECOUNT = 0;
  31.         }
  32.         printf ("%s\n", string);
  33. }
  34.  
  35.