home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug037.ark / WEIGHT.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  2.4 KB  |  91 lines
  1. %INCLUDE HEADER
  2. REM **********************WEIGHT***************************
  3.          REM METRIC CONVERSIONS OF WEIGHT
  4.     DRILL.NAME$="Metric Conversions of Weight"
  5.          PRINT
  6.          B=12
  7.          DEF FNT(X) = X - INT(X/100) * 100 + INT(X/100) * 60
  8.          DATA 28.349523,"OUNCES","GRAMS"
  9.          DATA .45359237,"POUNDS","KILOGRAMS"
  10.          DATA .90718474,"TONS","METRIC TONS"
  11.          P=9
  12.          D=4
  13.          PRINT
  14.          PRINT "OK, ";N$;".  Let's practice converting some inglish units of"
  15.          PRINT "weight to their metric equivalents.  I will give you a problem"
  16.          PRINT "and you give me your answer, which I will check.  If you need"
  17.          PRINT "some help, enter -1 instead of an answer."
  18.          PRINT
  19.          C=0
  20.          N=0
  21.          I=0
  22. 290 GOSUB 690
  23.          GOSUB 920
  24.          IF A$ <> "C" THEN 350
  25.          C=C + 1
  26.          I = I + 1
  27.          GOTO 430
  28. 350  I = 0
  29.          PRINT "  TRY AGAIN."
  30.          GOSUB 920
  31.          IF A$ = "C" THEN 430
  32.          PRINT "  TRY ONE MORE TIME."
  33.          GOSUB 920
  34.          IF A$="C" THEN 430
  35.          PRINT "  THE ANSWER IS ";A
  36. 430  IF I > P * C/N THEN 1000.2
  37.          IF N < 7 THEN 290
  38.          IF C/N >= .7 THEN 290
  39.          IF D = 1 THEN 290
  40.          D = D - 1
  41.          IF C/N >= .5 THEN 290
  42.          D = 1
  43.          GOTO 290
  44. 510      PRINT
  45.          IF C <> N THEN 1000.2
  46.          D = D + 1
  47. 690      PRINT
  48.          N = N + 1
  49.          R = FNR(3)
  50.          R3 = FNR(D^2) + 1
  51.          GOSUB 760
  52.          A = R3 * C
  53.          RETURN
  54. 760      RESTORE
  55.          FOR Q = 1 TO R
  56.                    READ C, E$, M$
  57.          NEXT Q
  58.          PRINT "HOW MANY ";M$;" ARE IN";R3;E$;
  59.          RETURN
  60. 820      PRINT 
  61.          RESTORE
  62.          FOR J = 1 TO 3
  63.                    READ C, E$,M$
  64.                    PRINT "TO CONVERT FROM ";E$;" TO ";M$
  65.                    PRINT "      MULTIPLY BY";C;"."
  66.                    PRINT
  67.          NEXT J
  68.          PRINT "     THERE ARE 1000 KILOGRAMS IN ONE METRIC TON. "
  69.          RETURN
  70. 920 INPUT LINE X$
  71. RANDOMIZE
  72. IF X$="QUIT" THEN GOTO 1000.2
  73. X=VAL(X$)
  74.          IF X < 0 THEN 970
  75.          IF ABS(X - A) > .005 THEN 1020
  76.          A$ = "C"
  77.          RETURN
  78. 970      GOSUB 820
  79.          PRINT
  80.          PRINT "HERE IS YOUR PROBLEM AGAIN:"
  81.          GOSUB 760
  82.          GOTO 920
  83. 1020 PRINT "NOT CORRECT. ";
  84.          I = 0
  85.          A$ = "I"
  86.          RETURN
  87. %INCLUDE GRADE
  88.  
  89.          END
  90.  
  91.