home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG037.ARK / AREA.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  2KB  |  88 lines
  1. %INCLUDE HEADER
  2. REM **************************AREA*************************
  3.          REM METERIC CONVERSIONS OF AREA
  4. DRILL.NAME$="Metric Conversions of Area"
  5.          PRINT
  6.          B=10
  7.          DATA 6.4516, "SQUARE INCHES", "SQUARE CENTIMETERS"
  8.          DATA .09290304, "SQUARE FEET", "SQUARE METERS"
  9.          DATA .40468564, "ACRES", "HECTACRES"
  10.          P=9
  11.          D=4
  12.          PRINT
  13.          PRINT "OK, ";N$;".  Let's practice coverting some english units of"
  14.          PRINT "area to their metric equivalents.  I will give you a problem"
  15.          PRINT "and you give me your answer, which I will check.  If you need"
  16.          PRINT "some help, enter -1 instead of an answer."
  17.          PRINT
  18.          PRINT "Your answer should be correct to the nearest hundredth."
  19.          PRINT
  20.          C=0
  21.          N=0
  22.          I=0
  23. 290 GOSUB 670
  24.          GOSUB 890
  25.          IF A$ <> "C" THEN 350
  26.          C=C + 1
  27.          I = I + 1
  28.          GOTO 430
  29. 350  I = 0
  30.          PRINT "  TRY AGAIN."
  31.          GOSUB 890
  32.          IF A$ = "C" THEN GOTO 430
  33.          PRINT "  TRY ONE MORE TIME."
  34.          GOSUB 890
  35.          IF A$="C" THEN GOTO 430
  36.          PRINT "  THE ANSWER IS ";A
  37. 430  IF I > P * C/N THEN 1000.2
  38.          IF N < 7 THEN GOTO 290
  39.          IF C/N >= .7 THEN GOTO 290
  40.          IF D = 1 THEN GOTO 290
  41.          D = D - 1
  42.          IF C/N >= .5 THEN GOTO 290
  43.          D = 1
  44.          GOTO 290
  45. 670      PRINT
  46.          N = N + 1
  47.          R = FNR(3)
  48.          R3 = FNR(D^2) + 1
  49.          GOSUB 740
  50.          A = R3 * C
  51. RETURN
  52. 740  RESTORE
  53.      FOR Q=1 TO R
  54.     READ C, E$,M$
  55.      NEXT Q
  56.          PRINT "HOW MANY ";M$;" ARE IN";R3;E$;
  57. RETURN
  58. 800  PRINT
  59.          RESTORE
  60.      FOR J=1 TO 3
  61.     READ C, E$, M$
  62.     PRINT "TO COVERT FROM ";E$; " TO ";M$
  63.     PRINT "      MULTIPLY BY";C;"."
  64.        PRINT
  65.      NEXT J
  66. RETURN
  67. 890  INPUT X$
  68. RANDOMIZE
  69. IF X$="QUIT" THEN GOTO 1000.2
  70. X=VAL(X$)
  71.          IF X < 0 THEN GOTO 940
  72.          IF ABS(X-A) > .005 THEN GOTO 990
  73.          A$ = "C"
  74. RETURN
  75. 940  GOSUB 800
  76.          PRINT
  77.          PRINT "HERE IS YOUR PROBLEM AGAIN:"
  78.          GOSUB 740
  79.          GOTO 890
  80. 990  PRINT "NOT CORRECT. ";
  81.          I = 0
  82.          A$ = "I"
  83. RETURN
  84. %INCLUDE GRADE
  85.  
  86.          END
  87.  
  88.