home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / learn / whatnow.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  450 b   |  29 lines
  1. #include "stdio.h"
  2. #include "lrnref"
  3.  
  4. whatnow()
  5. {
  6.     if (todo == 0) {
  7.         more=0;
  8.         return;
  9.     }
  10.     if (didok) {
  11.         strcpy(level,todo);
  12.         if (speed<=9) speed++;
  13.     }
  14.     else {
  15.         speed -= 4;
  16.         /* the 4 above means that 4 right, one wrong leave
  17.             you with the same speed. */
  18.         if (speed <0) speed=0;
  19.     }
  20.     if (wrong) {
  21.         speed -= 2;
  22.         if (speed <0 ) speed = 0;
  23.     }
  24.     if (didok && more) {
  25.         printf("\nGood.  Lesson %s (%d)\n\n",level, speed);
  26.         fflush(stdout);
  27.     }
  28. }
  29.