home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk116 / analog4.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-11-02  |  1.9 KB  |  29 lines
  1. 5  KEY(10) ON:ON KEY(10) GOSUB 600:KEY(9) ON:ON KEY(9) GOSUB 700:DIM A(12):FOR I=1 TO 12:A(I)=I:NEXT I
  2. 10  CLS:R=0:N=0:GOSUB 59980:FOR I=1 TO 100:SWAP A(INT(RND*12+1)),A(INT(RND*12+1)):NEXT I
  3. 30  LOCATE 2,34:PRINT"Analogies 4":COLOR 7,0
  4. 50  RESTORE:IF C>1 THEN FOR L=1 TO C-1:FOR X=1 TO 14:READ A$:NEXT X,L
  5. 90  PRINT:PRINT"Which analogy below is most similar to this one:"
  6. 110  REM
  7. 120  FOR X=1 TO 5:PRINT"(";:COLOR 15:PRINT X;:COLOR 7:PRINT")  ";:READ A$,B$:PRINT A$ " is to " B$:NEXT X
  8. 210  IF XX<13 THEN C=A(XX):GOTO 50
  9. 600  RUN "iqbuild"
  10. 700  CHAIN MERGE "analog5",5
  11. 5500  DATA team, coach, carpenter, tools, club, advisor, army, general, truck, driver, men, man, 3, organized group
  12. 5510  DATA carelessness, accident, fire, burn, care, safety, punch, fight, flee, run, thoughtlessness, oversight, 5, human error
  13. 5520  DATA brake, car, thinker, doer, root, plant, choke, carburetor, nest, bird, block, movement,3, holds back unit
  14. 5530  DATA parsimonious, frugal, generous, spendthrift, joyful, happy, poor, miserly, hate, love, profit, capitalist, 1, 1st word extreme of other
  15. 5540  DATA choir, singer, fort, soldiers, orchestra, musician, college, professors, team, coach, men, man, 2, musical group
  16. 5550  DATA painting, frame, photo, album, frame, house, bristles, brush, water, rain, statue, chisel, 1, holds art
  17. 5560  DATA dentist, drill, pencil, paper, satirist, words, saw, wood, tooth, bite, doctor, disease, 2, tools need not be physical
  18. 5570  DATA heat, coal, fuel, gas, car, move, power, energy, gunpowder, explode, light, kerosene, 5, energy from a thing
  19. 5580  DATA unbrella, rain, hammer, chisel, computer, program, snow, storm, coat, cold, roof, house, 4, shield for the element
  20. 5590  DATA city, town, continent, island, mayor, council, house, barn, lawyers, farmers, smart, dumb, 1, size difference
  21. 5600  DATA disease, fever, allergy, sneeze, flu, spread, run, perspire, knife, whet, sick, cold, 1, problem to symptom
  22. 5610  DATA mozart, rock, inventor, invention, quality, junk, shakespear, soap opera, ballet, hastle, records, tape, 3, classical artist to pop
  23. 5620  REM
  24. 5630  REM
  25. 5640  REM
  26. 5650  REM
  27. 5660  REM
  28. 5670  REM
  29.