home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / patpit.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  3.9 KB  |  131 lines
  1. 1   REM  PREFIXES
  2. 2   REM
  3. 3   REM  PRACTICE WITH PAT-,PIT-,PET-
  4. 4   REM
  5. 5   REM  IBM BASICA
  6. 6   REM
  7. 7   REM  ADAPTED FROM APPLE SOFTSWAP
  8. 8   REM
  9. 9   REM        
  10. 10   REM  
  11. 11   REM  ***********************
  12. 13   REM  *                     *
  13. 14   REM  *  SAN MATEO COUNTY   *
  14. 15   REM  * OFFICE OF EDUCATION *
  15. 16   REM  *                     *
  16. 17   REM  *   COMPUTER-USING    *
  17. 18   REM  *      EDUCATORS      *
  18. 19   REM  *                     *
  19. 20   REM  *      SOFTSWAP       *
  20. 21   REM  *                     *
  21. 22   REM  *   333 MAIN STREET   *
  22. 23   REM  *     REDWOOD CITY    *
  23. 24   REM  *       CA 94063      *
  24. 25   REM  *     (415)363-5472   *
  25. 26   REM  *                     *
  26. 28   REM  *                     *
  27. 29   REM  ***********************
  28. 30   REM  *PROGRAM MAY BE COPIED*
  29. 31   REM  *FOR EDUCATIONAL USE &*
  30. 32   REM  *MAY NOT BE SOLD.COPY-*
  31. 33   REM  *RIGHT 1983 CUE,INC   *
  32. 34   REM  ***********************
  33. 100  SCREEN 0,1: WIDTH 40: KEY OFF: COLOR 14,0: CLS
  34. 110   GOSUB 610: REM  INTRODUCTION
  35. 120   REM  READ QUESTIONS AND ANSWERS
  36. 130  Q = 1: DIM Q$(50),QA$(50),R(50)
  37. 140   READ Q$(Q): READ QA$(Q): IF Q$(Q) = "END" THEN 170
  38. 150  Q = Q + 1
  39. 160   GOTO 140
  40. 170  Q = Q - 1
  41. 180   REM  RANDOMIZE QUESTIONS
  42. 190  CLS
  43. 200   FOR X = 1 TO 10
  44. 210  : LET R =  INT ( RND (1) * Q) + 1
  45. 220  : FOR Y = 1 TO X
  46. 230  :: IF R(Y) = R THEN 210
  47. 240  : NEXT Y
  48. 250  : LET R(X) = R
  49. 260   NEXT X
  50. 270   REM  ASK QUESTION
  51. 280   FOR X = 1 TO 10
  52. 290  : LET Q = R(X)
  53. 300  : GOSUB 770
  54. 310   NEXT X
  55. 320  CLS
  56. 330   LOCATE 5,5: PRINT "You got ";CO;" CORRECT out of 10."
  57. 340   IF CO > 7 THEN 370
  58. 350   LOCATE 10,5: PRINT "That was a challenge.": LOCATE 11,5: PRINT "I had to use my dictionary."
  59. 360   LOCATE 12,5: PRINT "Perhaps you had to, also."
  60. 370   LOCATE 15,3: PRINT "Would you like to try again? (Y/N)"
  61. 380   Z$=INKEY$: IF Z$="" THEN GOTO 380
  62. 390   IF Z$="y" OR Z$="Y" THEN RUN
  63. 400   IF Z$="N" OR Z$="n" THEN 420
  64. 410   GOTO 380
  65. 420   CLS : LOCATE 12,3: PRINT "Is anyone else waiting to play? <Y/N>"
  66. 430   Z$=INKEY$: IF Z$ = "" THEN 430
  67. 440   IF Z$ = "Y" OR Z$="y" THEN  RUN
  68. 450   IF Z$="n" OR Z$="N" THEN 470
  69. 460   GOTO 430
  70. 470   CLS : LOCATE 8: LOCATE , 8: PRINT " * * * T H E   E N D * * *"
  71. 480   LOCATE 20,10: COLOR 14,0: PRINT "Loading menu...";: FOR I=1 TO 6: PRINT CHR$(1);: NEXT
  72. 490   CHAIN "menu",170: RUN
  73. 500   PRINT : PRINT TAB(17);"GOOD!"
  74. 510   REM
  75. 520  RETURN
  76. 530    : PRINT : PRINT TAB(13);"Sorry, try again!"
  77. 540   IF AC = 2 THEN  PRINT TAB(10);"The word starts with "; LEFT$ (QA$(Q),3);"."  : GOTO 1040
  78. 550  Z$ =  LEFT$ (A$,3)
  79. 560   IF Z$ = "pet" OR Z$ = "pot" OR Z$ = "pit" OR Z$ = "pat" THEN   : GOTO 1040
  80. 570   LOCATE 12,5: PRINT "REMEMBER - The answer begins with"
  81. 580   PRINT TAB(10);"pet-, pit-, pat-, or pot-. "
  82. 590   REM 
  83. 600   GOTO 1040
  84. 610  CLS
  85. 620   LOCATE 3,8: PRINT "PET-, PIT-, PAT-, and POT-"
  86. 630   PRINT "       --------------------------"
  87. 640  LOCATE 7,5: COLOR 11,0: PRINT "Pet-, pit-, pat-, and pot- are"
  88. 650  LOCATE 8,5: PRINT "prefixes of words to be guessed."
  89. 660  LOCATE 11,5: PRINT "I will give you a prefix, a clue,"
  90. 670  LOCATE 12,5: PRINT "and the number of letters in the"
  91. 680  LOCATE 13,5: PRINT "word."
  92. 690  LOCATE 16,5: PRINT "Your challenge is to guess my word."
  93. 700  LOCATE 17,5: PRINT "You will have ten words to guess."
  94. 710  LOCATE 21,13: COLOR 1,0: PRINT "Press any key"
  95. 720  LOCATE 22,11: COLOR 4,0: PRINT "Press <ESC> to end"
  96. 730  A$=INKEY$: IF A$="" THEN GOTO 730
  97. 740  IF A$=CHR$(27) THEN GOTO 420
  98. 750   CLS 
  99. 760   RETURN 
  100. 770   REM  QUESTION AND ANSWER
  101. 780   CLS : LOCATE 5,3: COLOR 14,0: PRINT X;Q$(Q):GOSUB 1040:LOCATE 7,6: LINE INPUT A$
  102. 790   IF A$ = "" THEN 780
  103. 800  AC = AC + 1
  104. 810   IF A$ <  > QA$(Q) AND AC < 3 THEN  GOSUB 530: GOTO 780
  105. 820   IF A$ <  > QA$(Q) AND AC >  = E THEN  PRINT :  : PRINT TAB(8)"Sorry, the answer is ";QA$(Q);"."  : GOSUB 1040
  106. 830   IF A$ = QA$(Q) THEN  GOSUB 500: FOR Y = 1 TO 2000: NEXT :CO = CO + 1
  107. 840    REM
  108. 850  AC = 0: RETURN
  109. 860   REM DATA   QUESTION,ANSWER
  110. 870  DATA part of a flower (5),petal
  111. 880  DATA an earthy vegetable (6),potato
  112. 890  DATA what a scout is a member of (6),patrol
  113. 900  DATA an auto fuel (6),petrol
  114. 910  DATA a small sea-bird (6),petrel
  115. 920  DATA an underskirt (9),petticoat
  116. 930  DATA worker in clay (6),potter
  117. 940  DATA sound of tiny feet (6),patter
  118. 950  DATA small and dainty (6),petite
  119. 960  DATA farmer's implement (9),pitchfork
  120. 970  DATA a piece to mend a hole (5),patch
  121. 980  DATA throw a ball or put up a tent (5),pitch
  122. 990  DATA a flower; also a girl's name (7),petunia
  123. 1000  DATA a baseball player (7),pitcher
  124. 1010  DATA peevishly impatient (8),petulant
  125. 1020   DATA  END,END
  126. 1030   END 
  127. 1040   LOCATE 21,13: PRINT "Press any key": LOCATE 22,11: PRINT "Press <ESC> to end"
  128. 1050  A$=INKEY$: IF A$="" THEN GOTO 1050
  129. 1060  IF A$=CHR$(27) THEN GOTO 420
  130. 1070  RETURN
  131.