home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / reduce.bas < prev    next >
Encoding:
BASIC Source File  |  1983-08-30  |  3.4 KB  |  92 lines
  1. 1 REM   REDUCE  7/83
  2. 2 REM
  3. 3 REM   DRILL ON REDUCING FRACTIONS
  4. 4 REM
  5. 5 REM   IBM MICROSOFT BASICA    64K
  6. 6 REM
  7. 7 REM   DONATED TO IBM CUE SOFTSWAP
  8. 8 REM
  9. 9 REM   By Lucy Jackson
  10. 10 REM
  11. 11 REM  ***********************
  12. 12 REM  *                     *
  13. 13 REM  *  SAN MATEO COUNTY   *
  14. 14 REM  * OFFICE OF EDUCATION *
  15. 15 REM  *        AND          *
  16. 16 REM  *   COMPUTER-USING    *
  17. 17 REM  *      EDUCATORS      *
  18. 18 REM  *                     *
  19. 19 REM  *      SOFTSWAP       *
  20. 20 REM  *                     *
  21. 21 REM  *   333 MAIN STREET   *
  22. 22 REM  *     REDWOOD CITY    *
  23. 23 REM  *       CA 94063      *
  24. 24 REM  *   (415) 363-5472    *
  25. 25 REM  *                     *
  26. 26 REM  *                     *
  27. 27 REM  ***********************
  28. 28 REM  *PROGRAM MAY BE COPIED*
  29. 29 REM  *FOR EDUCATIONAL USE &*
  30. 30 REM  *MAY NOT BE SOLD.COPY-*
  31. 31 REM  *RIGHT 1983 CUE,INC   *
  32. 32 REM  ***********************
  33. 100 SCREEN 0,1: WIDTH 40: KEY OFF: COLOR 13,0,13: CLS
  34. 110 R=0 : W=0
  35. 120 DIM K$(20), C$(20), A$(20)
  36. 130 READ N
  37. 140 LOCATE 3,10: PRINT CHR$(218);STRING$(19,196);CHR$(191)
  38. 150 LOCATE 4,10: PRINT CHR$(179);TAB(30);CHR$(179)
  39. 160 LOCATE 5,10: PRINT CHR$(179);" REDUCING FRACTIONS";TAB(30);CHR$(179)
  40. 170 LOCATE 6,10: PRINT CHR$(179);TAB(30);CHR$(179)
  41. 180 LOCATE 7,10: PRINT CHR$(192);STRING$(19,196);CHR$(217)
  42. 190 LOCATE 10,5: LINE INPUT "Enter your name: ",N$
  43. 200 LOCATE 12,5: COLOR 9,0: PRINT N$;",": COLOR 13,0
  44. 210 LOCATE 14,5: PRINT "Enter your answer to the problem"
  45. 220 LOCATE 15,5: PRINT "as a fraction in lowest terms. Be"
  46. 230 LOCATE 16,5: PRINT "sure to type a slash </> between"
  47. 240 LOCATE 17,5: PRINT "the numbers. Then press <ENTER>."
  48. 250 LOCATE 19,13: PRINT "EXAMPLE: 1/2"
  49. 260 LOCATE 21,13: COLOR 1,0: PRINT "Press any key"
  50. 270 LOCATE 22,11: COLOR 4,0: PRINT "Press <ESC> to end"
  51. 280 A$=INKEY$
  52. 290 IF A$="" THEN GOTO 280
  53. 300 IF A$=CHR$(27) THEN GOTO 550
  54. 310 FOR I=1 TO N
  55. 320     READ K$(I),C$(I)
  56. 330 NEXT I
  57. 340 FOR I=1 TO N : CLS : LOCATE 4,10: COLOR 14,0: PRINT N$;", enter your answer:"
  58. 350 LOCATE 8,14: PRINT K$(I);" = "
  59. 360 LOCATE 8,24: LINE INPUT A$(I)
  60. 370     IF A$(I)=C$(I) THEN LOCATE 14,14: PRINT "RIGHT, ";N$;" !": R=R+1: GOTO 430
  61. 380     LOCATE 14,14: PRINT "SORRY, ";N$;" !"
  62. 390     LOCATE 16,14: PRINT K$(I);" = ";C$(I)
  63. 400     W=W+1
  64. 410     PRINT : PRINT : PRINT : PRINT
  65. 420     FOR M=1 TO 1000: NEXT M
  66. 430     LOCATE 21,13: COLOR 1,0: PRINT "Press any key"
  67. 440     LOCATE 22,11: COLOR 4,0: PRINT "Press <ESC> to end"
  68. 450     A$=INKEY$: IF A$="" THEN GOTO 450
  69. 460     IF A$=CHR$(27) THEN GOTO 550
  70. 470  NEXT I
  71. 480  CLS
  72. 490 T=R+W
  73. 500 G=INT(R/T*100)
  74. 510 LOCATE 8,10: COLOR 1,0: PRINT N$;"'s SCORE: ";G;" %": LOCATE 21,13: PRINT "Press any key"
  75. 520 A$=INKEY$: IF A$="" THEN GOTO 520
  76. 530 DATA 16
  77. 540 DATA 5/10,1/2,3/9,1/3,25/100,1/4,5/25,1/5,3/18,1/6,3/21,1/7,4/32,1/8,9/81,1/9,10/100,1/10,10/15,2/3,12/16,3/4,20/25,4/5,4/10,2/5,6/10,3/5,10/16,5/8,6/16,3/8
  78. 550 CLS: LOCATE 10,3: PRINT "Do you want to stop? <Y/N>"
  79. 560 A$=INKEY$: IF A$="" THEN GOTO 560
  80. 570 IF A$="y" OR A$="Y" THEN GOTO 600
  81. 580 IF A$="n" OR A$="N" THEN RUN
  82. 590 GOTO 560
  83. 600 LOCATE 15,3: PRINT "Is anyone else waiting to play? <Y/N>"
  84. 610 A$=INKEY$: IF A$="" THEN GOTO 610
  85. 620 IF A$="y" OR A$="Y" THEN RUN
  86. 630 IF A$="n" OR A$="N" THEN GOTO 650
  87. 640 GOTO 610
  88. 650 LOCATE 21,13: PRINT "Loading menu...";: FOR I=1 TO 3: PRINT CHR$(1);: NEXT
  89. 660 CHAIN "menu",170: RUN
  90.  650
  91. 640 GOTO 610
  92. 650 LOCATE 21,13: