home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug037.ark / DEC3.BAS < prev    next >
Encoding:
BASIC Source File  |  1983-08-29  |  2.2 KB  |  89 lines
  1. %INCLUDE HEADER
  2. REM ***************DEC3
  3.  
  4.     DRILL.NAME$="Subtraction of Decimal Numbers"
  5.          B=19
  6.          P=9
  7.          D=4
  8.          PRINT "OK, ";N$;", Let's practice subtracting decimal numbers.  If"
  9.          PRINT "you have difficulty with a problem, enter"
  10.          PRINT "-1 instead of an answer, and I'll try to give you"
  11.          PRINT "some assistance."
  12.  
  13.          PRINT
  14.          C=0
  15.          I=0
  16.          N=0
  17. 230 GOSUB 640
  18.          GOSUB 740
  19.          IF A$<>"C" THEN GOTO 290
  20. 360 C=C+1
  21.          I=I+1
  22.          GOTO 370
  23.          I=0
  24. 290 PRINT " TRY AGAIN."
  25.          GOSUB 740
  26.          IF A$="C" THEN GOTO 370
  27. 380 PRINT "  TRY ONE MORE TIME"
  28.          GOSUB 740
  29.          IF A$="C" THEN GOTO 370
  30. 410 PRINT "  THE ANSWER IS  ";A
  31. 370 IF I>P*C/N THEN GOTO 1000.2
  32.          IF N<7 THEN GOTO 230
  33.          IF C/N >= .7 THEN GOTO 230
  34.          IF D=1 THEN GOTO 230
  35.          D=D-1
  36.          IF C/N >= .5 THEN GOTO 230
  37.          D=1
  38.          GOTO 230
  39.          IF C<>N THEN GOTO 1000.2
  40.          D=D+1
  41. REM THIS DRILL IS FOR THE SUBTRACTION OF DECIMALS
  42. 640     N=N+1
  43.          PRINT
  44.          X=2*D
  45.          GOSUB 1010
  46.          A1=X
  47.          X=D*2
  48.          GOSUB 1010
  49.          A=X
  50. 720     PRINT " ",A1+A;"-";A1;"= ";
  51. RETURN
  52. 740     INPUT X$
  53. RANDOMIZE
  54. IF X$="QUIT" THEN GOTO 1000.2
  55. X=VAL(X$)
  56.          IF A <> X THEN GOTO 780
  57.          A$="C"
  58. RETURN
  59. 780     IF X = -1 THEN GOTO 830
  60.          PRINT "NOT CORRECT. ";
  61.          I=0
  62.          A$="I"
  63. RETURN
  64. 830     PRINT
  65.          PRINT "CHECK TO MAKE SURE THAT ALL THE DECIMAL POINTS ARE IN LINE."
  66.          PRINT "FOR EXAMPLE, THE PROBLEM"
  67.          PRINT "         2.56 - 1.043"
  68.          PRINT "WOULD LOOK LIKE THIS:"
  69.          PRINT
  70.          PRINT "                  2.560"
  71.          PRINT "                - 1.043"
  72.          PRINT"                 -------- "
  73.          PRINT "                  1.517"
  74.          PRINT
  75.          PRINT
  76.          PRINT "IF YOUR PROBLEM LOOKS LIKE THIS, YOU PROBABLY HAVE BEEN MAKING"
  77.          PRINT "MISTAKES IN SUBTRACTION.  WORK THIS PROBLEM CAREFULL NOW, AND"
  78.          PRINT "I'LL CHECK YOUR ANSWER."
  79.          X=0
  80.          GOSUB 720
  81.          GOTO 740
  82. 1010     X=FNR(X)
  83.          X=INT(RND*10^X)/10^INT(FNR(X))
  84. RETURN
  85. %INCLUDE GRADE
  86.  
  87.          END
  88.  
  89.