home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / advfra.bas (.txt) next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.6 KB  |  114 lines
  1. 1   REM  FRACTIONS          8/83
  2. 2   REM
  3. 3   REM  QUESS FRACTIONS
  4. 4   REM 
  5. 5   REM  IBM    BASICA   64K
  6. 6   REM    
  7. 7   REM    
  8. 8   REM  ADAPTED FROM APPLE SOFTSWAP
  9. 9   REM 
  10. 10   REM 
  11. 11   REM         
  12. 12   REM  ***********************
  13. 13   REM  *                     *
  14. 14   REM  *  SAN MATEO COUNTY   *
  15. 15   REM  * OFFICE OF EDUCATION *
  16. 16   REM  *                     *
  17. 17   REM  *   COMPUTER-USING    *
  18. 18   REM  *      EDUCATORS      *
  19. 19   REM  *                     *
  20. 20   REM  *      SOFTSWAP       *
  21. 21   REM  *                     *
  22. 22   REM  *   333 MAIN STREET   *
  23. 23   REM  *     REDWOOD CITY    *
  24. 24   REM  *       CA 94063      *
  25. 25   REM  *     (415)363-5472   *
  26. 26   REM  *                     *
  27. 27   REM  ***********************
  28. 28   REM  *
  29. 29   REM  ***********************
  30. 30   REM  *PROGRAM MAY BE COPIED*
  31. 31   REM  *FOR EDUCATIONAL USE &*
  32. 32   REM  *MAY NOT BE SOLD.COPY-*
  33. 33   REM  *RIGHT 1983 CUE,INC   *
  34. 34   REM  ***********************
  35. 100   REM  ****GUESS MY FRACTION****
  36. 110   REM  CALCULATORS AND COMPUTERS MAGAZINE
  37. 120   REM  ** LINDA M. SCHREIBER ** 8-4-77**
  38. 130  SCREEN 0,1: WIDTH 40: COLOR 11,0,11: KEY OFF: CLS
  39. 140   LOCATE 10,8: PRINT "*** GUESS MY FRACTION ***"
  40. 150   LOCATE 15,7:PRINT "Do you want the rule? (Y/N)? ";
  41. 160   R$=INKEY$: IF R$ = "" THEN 160
  42. 170   IF R$="Y" OR R$="y" THEN  GOTO 190
  43. 180  IF R$="N" OR R$="n" THEN GOTO 280
  44. 182   GOTO 150
  45. 190   CLS
  46. 200   LOCATE 7,3: PRINT "I'm thinking of a fraction in the"
  47. 210   LOCATE 8,3: PRINT "form of A/B where B is an integer"
  48. 220   LOCATE 9,3: PRINT "from 1-9, and A is less than B."
  49. 230   LOCATE 13,3: PRINT "For example, my fraction could"
  50. 240   LOCATE 14,3: PRINT "be 1/8 or 2/3 but not 5/12 or 5/2."
  51. 250   LOCATE 17,3: PRINT "Your guess should be between 0 and 1."
  52. 260  LOCATE 21,15: PRINT "Press any key."
  53. 270  A$=INKEY$: IF A$="" THEN GOTO 270
  54. 280   CLS 
  55. 290   REM  1<B<10   0<A<B
  56. 300  B =  INT ( RND (1) * 10) + 2:A =  INT ( RND (1) * (B - 1)) + 1
  57. 310   LOCATE 7,6: PRINT "I'm thinking of a fraction..."
  58. 320  G = 0
  59. 330   LOCATE 10, 10: INPUT "What is your guess";G$
  60. 340   L=LEN(G$): IF L>5 THEN 630
  61. 350  G = G + 1
  62. 360   IF L = 0 THEN 850
  63. 370   IF G>3 THEN GOTO 850
  64. 380   IF L > 5 THEN 630
  65. 390   IF L = 3 THEN 440
  66. 400   IF L = 4 THEN 430
  67. 410  D$ =  MID$ (G$,1,2):S$ =  MID$ (G$,3,1):E$ =  MID$ (G$,4,2): GOTO 450
  68. 420   REM   B MUST BE LESS THAN 12
  69. 430  D$ =  MID$ (G$,1,1):S$ =  MID$ (G$,2,1):E$ =  MID$ (G$,3,2): GOTO 450
  70. 440  D$ =  MID$ (G$,1,1):S$ =  MID$ (G$,2,1):E$ =  MID$ (G$,3,1)
  71. 450  D =  VAL (D$):E =  VAL (E$)
  72. 460   REM  CHANGE STRINGS TO VARIABLES
  73. 470   IF D = 0 OR E = 0 THEN 620
  74. 480   IF  ASC (S$) <  > 47 THEN 650
  75. 490   IF D > E THEN 660
  76. 500   IF E < 2 OR E > 11 THEN 630
  77. 510   IF D < 1 OR D > 10 THEN  GOTO 630
  78. 520   REM  CHECK FOR IMPROPER FRACTIONS
  79. 530   REM  FIND DECIMAL EQUIVALENTS FOR BOTH FRACTIONS
  80. 540  C = A / B:F = D / E
  81. 550   IF C = F THEN 670
  82. 560   IF C > F THEN 600
  83. 570   LOCATE 13,10: PRINT "Try a smaller fraction.": GOSUB 820
  84. 580   CLS : GOTO 330
  85. 590   PRINT : PRINT 
  86. 600   LOCATE 13,10: PRINT "Try a larger fraction.": GOSUB 820
  87. 610   CLS : GOTO 330
  88. 620   LOCATE 13,10: PRINT "Those aren't good values.": GOSUB 820: CLS : GOTO 330
  89. 630   LOCATE 13,3: PRINT "The denominator must be between 2-11.": LOCATE 14,3: PRINT "The NUMERATOR is LESS than the":LOCATE 15,3: PRINT "DENOMINATOR.": GOSUB 820
  90. 640   CLS : GOTO 330
  91. 650   LOCATE 13,6: PRINT "Please type in a NUMERATOR/DENOMINATOR.": GOSUB 820: CLS : GOTO 330
  92. 660   LOCATE 13,6: PRINT "My fraction is LESS than 1.": GOSUB 820: CLS : GOTO 330
  93. 670   LOCATE 13,6: PRINT "You got it!!!!! in ";G;" guesses.": GOTO 700
  94. 680   IF B = E THEN 700
  95. 690   LOCATE 15,6: PRINT "My fraction was ";A;" / ";B: LOCATE 16,6: PRINT "which is equal to";G$
  96. 700  LOCATE 18,13: PRINT "Play again? <Y/N>";
  97. 710   A$=INKEY$: IF A$="" THEN GOTO 710
  98. 720   IF A$="y" OR A$="Y" THEN GOTO 280
  99. 730   IF A$="n" OR A$="N" THEN GOTO 750
  100. 740   GOTO 710
  101. 750   CLS : LOCATE 15,3: PRINT "Is anyone else waiting to play?<Y/N>";
  102. 760   R$=INKEY$: IF R$ = "" THEN 760
  103. 770   IF R$ = "Y" OR R$="y" THEN  RUN
  104. 780   IF R$="N" OR R$="n" THEN 800
  105. 790   GOTO 760
  106. 800   LOCATE 23,10: PRINT "Bye for now!..Loading menu.."
  107. 810  CHAIN "MENU",170: RUN
  108. 820  LOCATE 21,13: PRINT "Press any key."
  109. 830  A$=INKEY$: IF A$="" THEN GOTO 830
  110. 840   RETURN 
  111. 850   REM  USERS GIVES UP
  112. 860   LOCATE 13,6: PRINT "AHH....and I was having fun, too!": LOCATE 14,6: PRINT "My fraction was";A;"/";B;"."
  113. 870   GOTO 700
  114.