home *** CD-ROM | disk | FTP | other *** search
/ The CIA World Factbook 1992 / k3bimage.iso / sel / 01 / 0091 / synonym1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-12-02  |  4.4 KB  |  100 lines
  1. 10  KEY OFF:KEY(10) ON:ON KEY(10) GOSUB 570:KEY(9) ON:ON KEY(9) GOSUB 370:DIM P(35):FOR I=1 TO 35:P(I)=I:NEXT I:COLOR 3,0,8
  2. 20  CLS:T=0:N=0:GOSUB 980:FOR I=1 TO 100:SWAP P(INT(RND*35+1)),P(INT(RND*35+1)):NEXT I
  3. 30  CLS:LOCATE 1,34:COLOR 0,7:PRINT"IQ Builder ":COLOR 11,0
  4. 40  LOCATE 2,34:PRINT"Synonyms 1":COLOR 0,11
  5. 50  LOCATE 4,21:PRINT CHR$(201);
  6. 60  FOR J=1 TO 35
  7. 70    PRINT CHR$(205);
  8. 80    IF J > 35 GOTO 100
  9. 90    NEXT J
  10. 100  PRINT CHR$(187)
  11. 110  LOCATE 5,21:PRINT CHR$(186);:PRINT"Press <F9> to skip to next section.";
  12. 120  PRINT CHR$(186)
  13. 130  LOCATE 6,21:PRINT CHR$(186);:PRINT"Press <F10> to return to main menu.";
  14. 140  PRINT CHR$(186)
  15. 150  LOCATE 7,21:PRINT CHR$(200);
  16. 160  FOR J=1 TO 35
  17. 170    PRINT CHR$(205);
  18. 180    IF J > 35 GOTO 200
  19. 190    NEXT J
  20. 200  PRINT CHR$(188):COLOR 3,0
  21. 210  LOCATE 9,1:PRINT"Synonyms are words of similar meaning. ";
  22. 220  PRINT"Pick the word whose meaning is most"
  23. 230  PRINT"like the one in the box."
  24. 240  XX=1:P=P(XX)
  25. 250  IF P>1 THEN FOR J=1 TO P-1:FOR X=1 TO 7:READ A$:NEXT X,J
  26. 260  PRINT:COLOR 0,3:PRINT"Problem" P
  27. 270  READ A$:PRINT:COLOR 11,0
  28. 280  PRINT TAB(1-INT(LEN(A$)/2)) "VARPTR" STRING$(LEN(A$),"SOUND") "COLOR"
  29. 290  PRINT TAB(1-INT(LEN(A$)/2)); "CALL"; A$; "CALL"
  30. 300  PRINT TAB(1-INT(LEN(A$)/2)) "CLS" STRING$(LEN(A$),"SOUND") "'"
  31. 310  PRINT:FOR X=1 TO 5:COLOR 3,8:READ A$:PRINT"(";:COLOR 11,0:PRINT X;:COLOR 3,8:PRINT")  " A$:NEXT X:READ R
  32. 320  LOCATE 25,1:PRINT "Your choice is - ";
  33. 330  GOSUB 990:IF INSTR("12345",IKEY$)=0 THEN 330 ELSE C=VAL(IKEY$)
  34. 340  N=N+1:IF C=R THEN LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:PRINT"Correct!";:T=T+1:TIMEOUT=3:GOSUB 950:LOCATE 25,1:PRINT SPC(79);
  35. 350  IF C<>R THEN PLAY "mfn27n20t32":LOCATE 25,1:PRINT SPC(79);:LOCATE 25,1:COLOR 11,12:PRINT"No!  Try again.";:COLOR 7,0:TIMEOUT=3:GOSUB 950:LOCATE 25,1:PRINT SPC(79);:GOTO 320
  36. 360  XX=XX+1:IF XX<36 THEN P=P(XX):GOSUB 940:RESTORE:GOTO 250
  37. 370  COLOR 11,4:LOCATE 1,1:PRINT SPC(33):LOCATE 1,45:PRINT SPC(35)
  38. 380  LOCATE 2,1:PRINT SPC(33):LOCATE 2,45:PRINT SPC(35)
  39. 390  LOCATE 3,1:PRINT SPC(79)
  40. 400  LOCATE 4,1:PRINT SPC(20):LOCATE 4,58:PRINT SPC(22)
  41. 410  LOCATE 5,1:PRINT SPC(20):LOCATE 5,58:PRINT SPC(22)
  42. 420  LOCATE 6,1:PRINT SPC(20):LOCATE 6,58:PRINT SPC(22)
  43. 430  LOCATE 7,1:PRINT SPC(20):LOCATE 7,58:PRINT SPC(22)
  44. 440  LOCATE 8,1:PRINT SPC(79)
  45. 450  LOCATE 9,1:PRINT SPC(79)
  46. 460  LOCATE 10,1:PRINT SPC(79)
  47. 470  COLOR 11,4:GOSUB 940:COLOR 3,0:LOCATE 15,17
  48. 480  IF N<3 THEN COLOR 11,0:PRINT"You didn't give me much of a chance, did you?":GOTO 550
  49. 490  PRINT"You scored" T "right out of" N "or" INT(100*T/N) "percent."
  50. 500  IF T/N<0.6 THEN LOCATE 18,21:PRINT"I'll bet you do better next time.":TIMEOUT=7:GOSUB 950:RUN
  51. 510  LOCATE 18,34:IF T/N<=0.8 THEN PRINT"Good score!":GOTO 550
  52. 520  IF T/N<=0.9 THEN PRINT"Very good!":GOTO 550
  53. 530  IF T/N<=0.99 THEN PRINT"Excellent!":GOTO 550
  54. 540  COLOR 19,0:PRINT"Brilliant!"
  55. 550  COLOR 3,0:LOCATE 25,1:PRINT "Press space bar to continue.";
  56. 560  IN$=INKEY$:IF IN$="" THEN 560 ELSE 580
  57. 570  SYSTEM
  58. 580  RUN "synonym2
  59. 590  DATA abbreviate, indicate, relate, hasten, shorten, describe, 4
  60. 600  DATA abet, settle, rival, assist, upgrade, reveal, 3
  61. 610  DATA abhor, hate, gather, reveal, leave, kill, 1
  62. 620  DATA banish, disappear, repeat, tell, exile, attack, 4
  63. 630  DATA bright, sharp, radiant, ambrosial, persistent, ideal, 2
  64. 640  DATA burning, boiling, heated, breathing, ablaze, blushing, 4
  65. 650  DATA competently, successfully, artfully, ably, humanely, cautiously, 3
  66. 660  DATA conform, evolve, improve, mention, adapt, shape, 4
  67. 670  DATA deputy, honorary, representative, hoodlum, sheriff, manager, 2
  68. 680  DATA elastic, moving, pleasing, flexible, swollen, intensive, 3
  69. 690  DATA employ, manage, gain, meet, use, please, 4
  70. 700  DATA empty, pale, stale, rare, vacant, thin, 4
  71. 710  DATA ignite, destroy, hat, kindle, shine, shower, 3
  72. 720  DATA immense, often, distant, huge, compact, endless, 3
  73. 730  DATA influence, affect, gather, cure, glimpse, please, 1
  74. 740  DATA inhabitant, traveler, realtor, resident, creature, worker, 3
  75. 750  DATA kin, enemy, rinse, friend, union, relative, 5
  76. 760  DATA live, allow, reflect, establish, offer, abide, 5
  77. 770  DATA movement, action, purpose, leisure, pretense, company, 1
  78. 780  DATA nativity, homeland, birth, citizenship, frontier, movement, 2
  79. 790  DATA nomad, citizen, wanderer, hermit, alien, visitor, 2
  80. 800  DATA nucleus, neutron, atom, energy, center, union, 4
  81. 810  DATA quadruple, increase, count, divide, identical, fourfold, 5
  82. 820  DATA quake, destroy, fix, tremble, weaken, cover, 3
  83. 830  DATA quarrel, mistake, harm, puzzle, desire, argument, 5
  84. 840  DATA quickly, simply, often, secretly, gaily, rapidly, 5
  85. 850  DATA quiet, calm, sorry, common, simple, sad, 1
  86. 860  DATA quiver, desert, shake, harden, whirl, sink, 2
  87. 870  DATA scheme, worry, plan, please, mix, fight, 2
  88. 880  DATA slender, narrow, sleek, starve, shapely, fashionable, 1
  89. 890  DATA snare, enlarge, change, trap, anger, help, 3
  90. 900  DATA spherical, circular, empty, rounded, full, inflated, 3
  91. 910  DATA strange, odd, uneasy, sad, ugly, scare, 1
  92. 920  DATA wander, consider, vary, pave, chat, roam, 5
  93. 930  DATA wary, guarded, fierce, insistent, tired, huge, 1
  94. 940  FOR Y=11 TO 24:LOCATE Y,1:PRINT SPC(79);:NEXT Y:LOCATE 11,1:RETURN
  95. 950  TIMEOUT$=TIME$:TIME2=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  96. 960  TIMEOUT$=TIME$:TIME3=VAL(LEFT$(TIMEOUT$,2))*120+VAL(MID$(TIMEOUT$,4,2))*60+VAL(RIGHT$(TIMEOUT$,2))
  97. 970  IF TIMEOUT > TIME3 - TIME2 THEN 960 ELSE RETURN
  98. 980  RNDTIME$=TIME$:RNDVAL=VAL(LEFT$(RNDTIME$,2))*120+VAL(MID$(RNDTIME$,4,2))*60+VAL(RIGHT$(RNDTIME$,2)):RANDOMIZE RNDVAL:RETURN
  99. 990  IKEY$=INKEY$:IF IKEY$="" THEN 990 ELSE RETURN
  100.