home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk116 / num2.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-11-02  |  3.5 KB  |  79 lines
  1. 5  KEY(10) ON:ON KEY(10) GOSUB 500:KEY(9) ON:ON KEY(9) GOSUB 600:DIM S(25):FOR I=1 TO 25:S(I)=I:NEXT I
  2. 10  CLS:LOCATE 1,34:COLOR 0,15:PRINT" IQ Builder ":COLOR 15,0
  3. 20  LOCATE 2,32:PRINT"Number Series 2":COLOR 7,0:GOSUB 59980
  4. 30  LOCATE 4,5:PRINT"There are 25 series to solve in this lesson.  You'll get three chances to"
  5. 40  PRINT"solve each one.  If you're having trouble, the computer will give you a hint."
  6. 50  FOR I=1 TO 100:SWAP S(INT(RND*25+1)),S(INT(RND*25+1)):NEXT I:XX=1:N=S(XX)
  7. 70  RESTORE
  8. 80  IF N>1 THEN FOR O=1 TO N-1:READ A,B,C,D,E,F,G,H,I,J,K,A$:NEXT O:Q=N-1
  9. 90  PRINT"Ok, here's your first series :
  10. 100  READ A,B,C,D,E,F,G,H,I,J,K,A$
  11. 110  T=T+1:Q=Q+1
  12. 120  PRINT:PRINT"Series" Q ":":PRINT"Type in the next two numbers in this series.  Put a comma between them."
  13. 130  GOSUB 3100
  14. 140  BEEP:INPUT "The next two numbers are: ",X,Y
  15. 145  Y1=CSRLIN:X1=POS(0)
  16. 150  IF (X=I)*(Y=J) THEN 300
  17. 160  Z=Z+1:IF Z=3 THEN 200
  18. 170  IF Z=2 THEN GOSUB 1000:GOTO 140
  19. 180  LOCATE 25,1:PRINT SPC(79);:PLAY "mbn50n25":LOCATE 25,1:PRINT"No!  Try again.";:TIMEOUT=3:GOSUB 59950:LOCATE 25,1:PRINT SPC(79);:LOCATE Y1-1,X1:GOTO 140
  20. 200  PLAY "n50n25":PRINT:PRINT"No!  The answer is:  " I "," J;:GOTO 350
  21. 300  IF Z=0 THEN R=R+1
  22. 310  LOCATE 25,1:PRINT SPC(79);:PLAY "mbc16c16c16ge8g":LOCATE 25,1:PRINT"Right!";:TIMEOUT=3:GOSUB 59950:LOCATE 25,1:PRINT SPC(79);:LOCATE Y1,X1
  23. 350  Z=0
  24. 360  XX=XX+1:IF XX<26 THEN 410
  25. 370  GOSUB 7000:PRINT"You did" T "number series and answered " R "right on your first try."
  26. 380  PRINT:IF R/T>=0.9 THEN PRINT"That's terrific!"
  27. 390  IF (R/T>0.75)*(R/T<0.9) THEN PRINT"Very Good!"
  28. 400  IF R/T<0.75 THEN PRINT"Maybe you should try this lesson again!"
  29. 405  PRINT:PRINT"Press ENTER to proceed to the next lesson or R to repeat this lesson."
  30. 407  GOSUB 59990:IF IKEY$="r" OR IKEY$="R" THEN RUN ELSE IF IKEY$=CHR$(13) THEN 600 ELSE 407
  31. 410  GOSUB 7000:N=S(XX)
  32. 430  RESTORE
  33. 440  IF N>1 THEN FOR O=1 TO N-1:READ A,B,C,D,E,F,G,H,I,J,K,A$:NEXT O:Q=N-1
  34. 450  GOTO 100
  35. 500  RUN "iqbuild"
  36. 600  CHAIN MERGE "num3",5
  37. 1000  PLAY "mbn50n25":LOCATE 25,1:PRINT"No!  Hint:";:TIMEOUT=3:GOSUB 59950
  38. 1010  LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:BEEP
  39. 1020  IF K=1 THEN PRINT"The numbers change by thr rule " A$;
  40. 1030  IF K=2 THEN PRINT"Look for more than one rule.  One rule is " A$;
  41. 1040  IF K=3 THEN PRINT"The amount of change gets " A$ " each time.";
  42. 1050  IF K=4 THEN PRINT"Alternating series.  One rule is " A$;
  43. 1060  IF K=5 THEN PRINT"Look for groups of " A$ " numbers.";
  44. 1070  TIMEOUT=3:GOSUB 59950:LOCATE 25,1:PRINTSPC(79);:LOCATE Y1-1,X1:RETURN
  45. 3100  PRINT:PRINT TAB(10) "KEY" STRING$(35,"THEN") "CLOSE"
  46. 3110  PRINT TAB(10) "OPEN";:COLOR 15:PRINT A B C D E F G H;:COLOR 7:PRINT TAB(46) "OPEN"
  47. 3120  PRINT TAB(10) "SCREEN" STRING$(35,"THEN") "LOAD":PRINT:RETURN
  48. 5500  DATA 5,10,15,20,25,30,35,40,45,50,1,+5
  49. 5510  DATA 3,5,7,9,11,13,15,17,19,21,1,+2
  50. 5520  DATA 6,11,10,15,14,19,18,23,22,27,2,-1
  51. 5530  DATA 10,13,16,19,22,25,28,31,34,37,1,+3
  52. 5540  DATA 4,5,5,6,7,7,8,9,9,10,2,+0
  53. 5550  DATA 29,6,27,7,25,8,23,9,21,10,4,-2
  54. 5560  DATA 36,32,28,24,20,16,12,8,4,0,1,-4
  55. 5570  DATA 5,6,8,9,11,12,14,15,17,18,12,+2
  56. 5580  DATA 16,8,15,9,14,10,13,11,12,12,4,-1
  57. 5590  DATA 6,10,9,11,12,12,15,13,18,14,4,+3
  58. 5600  DATA 15,18,14,17,13,16,12,15,11,14,4,-1
  59. 5610  DATA 9,9,11,15,15,12,21,21,13,27,4,+6
  60. 5620  DATA 3,5,9,11,15,17,21,23,27,29,2,+2
  61. 5630  DATA 11,16,21,26,31,36,41,46,51,56,1,+5
  62. 5640  DATA 30,28,26,24,22,20,18,16,14,12,1,-2
  63. 5650  DATA 9,14,18,23,27,32,36,41,45,50,2,+4
  64. 5660  DATA 3,4,10,5,6,10,7,8,10,9,4,+0
  65. 5670  DATA 5,9,10,14,15,19,20,24,25,29,2,+4
  66. 5680  DATA 2,8,9,2,10,11,2,12,13,2,4,+1
  67. 5690  DATA 12,17,22,22,32,27,42,32,52,37,4,+5
  68. 5700  DATA 1,4,7,10,13,16,19,22,25,28,1,+3
  69. 5710  DATA 35,12,35,13,34,14,34,15,33,16,4,+1
  70. 5720  DATA 8,14,10,13,12,12,14,11,16,10,4,+2
  71. 5730  DATA 4,8,10,14,16,20,22,26,28,32,2,+4
  72. 5740  DATA 11,5,9,7,7,9,5,11,3,13,4,-2
  73. 7000  FOR Y=4 TO 24:LOCATE Y,1:PRINTSPC(79);:NEXT Y:LOCATE 4,1:RETURN
  74. 59950  TIMEOUT$=TIME$:TIME2=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  75. 59960  TIMEOUT$=TIME$:TIME3=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  76. 59970  IF TIMEOUT > TIME3 - TIME2 THEN 59960 ELSE RETURN
  77. 59980  RNDTIME$=TIME$:RNDVAL=VAL(LEFT$(RNDTIME$,2))*120+VAL(MID$(RNDTIME$,4,2))*60+VAL(RIGHT$(RNDTIME$,2)):RANDOMIZE RNDVAL:RETURN
  78. 59990  IKEY$=INKEY$:IF IKEY$="" THEN 59990 ELSE RETURN
  79.