home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug037.ark / WHOLE.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.3 KB  |  91 lines
  1. %INCLUDE HEADER
  2. REM *******************WHOLE*************************
  3. REM SIMPLE EQUATIONS WITH WHOLE NUMBERS
  4. DRILL.NAME$="Simple Equations with While Numbers"
  5.          PRINT
  6.          B=3
  7.          DEF FNT(X) = X - INT(X/100)*100 + INT(X/100) * 60
  8. P=9
  9. D=4
  10.          PRINT
  11. PRINT "OK, ";N$;". Let's practice finding some missing numbers"
  12. PRINT "in some simple equations white are composed of whole numbers."
  13. PRINT "I'll give you a problem, you give me the answer, and I'll"
  14. PRINT "check to see if your answer is correct."
  15.          PRINT
  16.          C=0
  17.          N=0
  18.          I=0
  19. 240 GOSUB 650
  20.          GOSUB 960
  21.          IF A$ <> "C" THEN 300
  22.          C=C + 1
  23.          I = I + 1
  24.          GOTO 380
  25. 300  I = 0
  26.          PRINT "  TRY AGAIN."
  27.          GOSUB 960
  28.          IF A$ = "C" THEN GOTO 380
  29.          PRINT "  TRY ONE MORE TIME."
  30.          GOSUB 960
  31.          IF A$="C" THEN GOTO 380
  32.          PRINT "  THE ANSWER IS ";A
  33. 380  IF I > P * C/N THEN 1000.2
  34.          IF N < 7 THEN GOTO 240
  35.          IF C/N >= .7 THEN GOTO 240
  36.          IF D = 1 THEN GOTO 240
  37.          D = D - 1
  38.          IF C/N >= .5 THEN GOTO 240
  39.          D = 1
  40.          GOTO 240
  41.          PRINT
  42.          IF C <> N THEN GOTO 1000.2
  43.          D = D + 1
  44. 650      PRINT
  45.          N = N + 1
  46. 670      R = FNR(4)
  47.          R3 = FNR(2)
  48. R1 = FNR(10^((D + 2)/3))
  49. A = FNR(10^((D + 2)/3))
  50. IF R < 3 THEN GOTO 840
  51. IF R = 4 THEN GOTO 780
  52. IF R3 = 2 THEN GOTO 760
  53. PRINT " ",R1;"* ? =";R1 * A;
  54. GOTO 950
  55. 760      PRINT " ","? *";R1;"=";R1 * A;
  56.          GOTO 950
  57. 780      IF R3=2 THEN 810
  58.          PRINT " ",R1*A;"/ ? =";R1;
  59.          GOTO 950
  60. 810      PRINT " ","? /";R1;"=";A;
  61.          A=R1 * A
  62.          GOTO 950
  63. 840      IF R = 2 THEN GOTO 900
  64.          IF R3 = 2 THEN GOTO 880
  65.          PRINT " ",R1;"+ ? =";R1 + A;
  66.          GOTO 950
  67. 880      PRINT " ","? +";R1;"=";R1 + A;
  68.          GOTO 950
  69. 900      IF R3 = 2 THEN 930
  70.          PRINT " ",R1+A;"- ? =";R1;
  71.          GOTO 950
  72. 930      PRINT " ","? -";R1;"=";A;
  73.          A = R1 + A
  74. 950      RETURN
  75. 960      PRINT "          WHAT IS";
  76.          INPUT X$
  77. RANDOMIZE
  78. IF X$="QUIT" THEN GOTO 1000.2
  79. X=VAL(X$)
  80.          IF X <> A THEN GOTO 1010
  81.          A$ = "C"
  82. RETURN
  83. 1010     PRINT "NOT CORRECT. ";
  84.          I=0
  85.          A$ = "I"
  86. RETURN
  87. %INCLUDE GRADE
  88.  
  89.          END
  90.  
  91.