home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / MATCH-EM-UP (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.9 KB  |  193 lines
  1. 0 REM"[141][145] OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
  2. 1 [143]"GOSUBON O                                    O
  3. 2 REM"[141][145] O   [150][212]HIS IS AN OLD [195][207][205][205][207][196][207][210][197] [197][196][213].    O
  4. 3 [143]"GOSUBON O   DEFPROGRAM MADE TO RUN ON SEVERAL   O
  5. 4 REM"[141][145] O   [150][195][207][205][205][207][196][207][210][197][160]COMPUTERS. [193]LL THE     O
  6. 5 [143]"GOSUBON O   DEFUNNESSARY CODE WAS REMOVED AND   O
  7. 6 REM"[141][145] O   [150]UPDATED. [197]XTRA COLOR, SOUND ETC  O
  8. 7 [143]"GOSUBON O      DEFSUPPLIED BY MID$IM CHR$REEN WHO     O
  9. 8 REM"[141][145] O [150]APPARENTLY HAD NOTHING ELSE TO DO! O
  10. 9 [143]"GOSUBON O                                    O
  11. 10 REM"[141][145] OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO[154]
  12. 11 [143]"GOSUBON DEF   (null)HIS IS A LEN(null)(null)(null)(null)STR$(null)(null)VAL VALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)            (null)(null)PEEK(null)RIGHT$LENCLOSESTR$(null)(null)ATNRIGHT$(null) (null)(null)(null)CHR$(null)ATN(null)CONT
  13. 12 DIMQ$(20),A$(20),B$(20),L$(20):A=RND(-TI/101):BO=53280:SC=53281:S=54272
  14. 15 UD$=""
  15. 20 PRINT"[147][142][151]";:POKEBO,7:POKESC,7
  16. 25 PRINTTAB(25)"[151][169]            [206]":PRINTTAB(25)"             [151] "
  17. 30 PRINTTAB(25)" [146]            [151] "
  18. 35 PRINTTAB(25)" [146] MATCHING-  [151] "
  19. 40 PRINTTAB(25)" [146]            [151] "
  20. 45 PRINTTAB(25)" [146] QUESTIONS  [151] "
  21. 50 PRINTTAB(25)" [146]            [151] "
  22. 55 PRINTTAB(25)"             [151][146][169]":GOSUB550:FORD=1TO2E3:NEXT
  23. 60 POKEBO,7:POKESC,7:PRINT"[147][150]  [200]EAD'EM UP, [210]OLL'EM OUT, [205]ATCH'EM UP"
  24. 65 PRINT"[151]                [205] [197] [206] [213]"
  25. 70 PRINT"    [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  26. 75 PRINT"[151]       1.   [205]ATCHING [209]UESTIONS"
  27. 80 PRINT"       2.   [201]NSTRUCTIONS"
  28. 85 PRINT"       3.   [209]UIT"
  29. 90 PRINT"    [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  30. 95 PRINT"[150]       [208]RESS A NUMBER KEY (1-3)":FORT1=1TO4:GOSUB555:NEXT
  31. 100 GETG$:IFG$<"1"ORG$>"3"THEN100
  32. 105 ONVAL(G$)GOTO255,115,110
  33. 110 GOSUB550:PRINT"[154][147]":POKESC,6:POKEBO,14:END
  34. 115 POKE53265,11:PRINT"[147]":POKEBO,15:POKESC,15:GOSUB550
  35. 120 PRINT"[151] [205]ATCHING [209]UESTIONS       [201]NSTRUCTIONS"
  36. 125 PRINT" --------------------------------------"
  37. 130 PRINT"    [201]N THIS PROGRAM YOU WILL BE ASKED "
  38. 135 PRINT" TO MATCH THE QUESTION WITH THE CORRECT"
  39. 140 PRINT" ANSWER.  [208]RESS THE LETTER KEY OF THE"
  40. 145 PRINT" RIGHT ANSWER, THE TIMER STARTS WHEN"
  41. 150 PRINT" THE FIRST KEY IS PRESSED, SO BE QUICK."
  42. 155 PRINT"    [217]OU MAY CONTINUE WITH MORE"
  43. 160 PRINT" QUESTIONS AFTER EACH SET HAS BEEN"
  44. 165 PRINT" COMPLETED. [205]OST MATCHES ARE STRAIGHT"
  45. 170 PRINT" FORWARD, SOME ARE ODDBALL AND OTHERS"
  46. 175 PRINT" ARE JUST DOWNRIGHT UNBELIEVABLE....":GOSUB230
  47. 180 POKE53265,11:PRINT"[147][212]HE WORDS AND ANSWERS ARE LISTED THUSLY:"
  48. 185 PRINT"   EQUINE     (A) [151]TRICKLE DOWN             PERCOLATE  (B) [151]A LOTTA BULL"
  49. 190 PRINT"   TAURUS     (C) [151]HORSE"
  50. 195 PRINT"[193]N 'EQUINE' IS A HORSE SO (C) WOULD BE A"
  51. 200 PRINT"CORRECT ANSWER. [215]HEN (C) IS PRESSED IT"
  52. 205 PRINT"WILL SWAP PLACES WITH (A) AND BE LISTED"
  53. 210 PRINT"IN REVERSE RED. [196]URING THE GAME IF THE"
  54. 215 PRINT"THE SWAPPED ANSWER LANDS OPPOSITE THE"
  55. 220 PRINT"CORRECT QUESTION, THEN YOU GET CREDIT"
  56. 225 PRINT"FOR IT ALSO.":GOSUB230:GOTO60
  57. 230 POKE198,0:PRINTLEFT$(UD$,24);" [208]RESS SPACE BAR TO CONTINUE "
  58. 235 POKE53265,27
  59. 240 GETG$:IFG$<>" "THEN240
  60. 245 RETURN
  61. 250 PRINTLEFT$(UD$,24);"           [207]NE MOMENT PLEASE...     ":RETURN
  62. 255 POKEBO,15:POKESC,15:POKE53265,27:PRINT"[147][151]";:TX=10000
  63. 260 UP=UP+1:PRINT"[147] [205]ATCHING [209]UESTIONS        [211]OLUTIONS"UP
  64. 265 PRINT" ---------------------------------------"
  65. 270 PRINT"":GOSUB250:GOTO390
  66. 275 PRINT" [212]YPE IN THE LETTER OF THE ANSWER:[151]":I=1
  67. 280 FORM=1TONQ:IFM=1THENGOSUB555
  68. 285 IFA$(I)=B$(I)ANDI<NQTHENI=I+1:GOTO285
  69. 290 IFI=NQANDA$(I)=B$(I)THENI=1
  70. 295 CL=0:LN=6+M*2:GOSUB475:IFI=MANDCF=0THENPRINT" ";:GOTO305
  71. 300 PRINT" ";
  72. 305 PRINTQ$(M)"[146] ("L$(M)") [151]";:IFA$(M)=B$(M)THENPRINT"";
  73. 310 PRINTB$(M)"[146][151]                  ":NEXTM:IFCF=1THEN330
  74. 315 LN=6+I*2:CL=13:GOSUB480:IFI=NQ+1THENI=1
  75. 320 GOTO280
  76. 325 REM      *  *  END QUIZ
  77. 330 IFTM<TXTHENTX=TM
  78. 335 LN=4:CL=20:GOSUB475:PRINT" [194]EST TIME:"STR$(TX)" SEC.[151]":TF=0:CF=0
  79. 340 LN=24:CL=2:GOSUB475:B=B+1:ONBGOTO345,350,355,360,365
  80. 345 B$=" [197]XCELLENT!":GOTO370
  81. 350 B$="  [211]UPER!!  ":GOTO370
  82. 355 B$="  [211]UPERB!! ":GOTO370
  83. 360 B$=" [200]EY! [200]EY! ":GOTO370
  84. 365 B$=" [214]ERY GOOD!":GOTO370
  85. 370 PRINT"  "B$" [215]ANT SOME MORE [217]/[206]   ":IFB=5THENB=0
  86. 375 GETG$:IFG$<>"Y"ANDG$<>"N"THEN375
  87. 380 IFG$="N"THENPRINT"[147]":GOTO60
  88. 385 LN=24:CL=2:GOSUB475:GOSUB250:RESTORE:GOTO255
  89. 390 LN$=""
  90. 395 CL$=""
  91. 400 NQ=0:A=INT(RND(1)*164):FORI=0TOA:READXW$,YW$:NEXT
  92. 405 FORI=1TO8:READQ$(I),A$(I):B$(I)=A$(I):NQ=NQ+1
  93. 410 L$(I)=CHR$(64+I):Q$(I)=LEFT$(Q$(I)+"                  ",13):NEXT
  94. 415 REM         *  *  SCRAMBLE
  95. 420 FORI=1TONQ
  96. 425 K=INT(RND(1)*NQ)+1:IFI=KTHEN425
  97. 430 L=INT(RND(1)*NQ)+1:Q$=Q$(I):Q$(I)=Q$(L):Q$(L)=Q$
  98. 435 A$=A$(I):A$(I)=A$(L):A$(L)=A$
  99. 440 B$=B$(K):B$(K)=B$(I):B$(I)=B$:IFB$(I)=A$(I)THEN430
  100. 445 IFB$(K)=A$(K)THEN430
  101. 450 IFB$(L)=A$(L)THEN430
  102. 455 NEXT:G=0:FORI=1TONQ:IFA$(I)=B$(I)THENG=1
  103. 460 NEXT:IFG=1THEN420
  104. 465 PRINTLEFT$(UD$,24)"     [205]ATCHING [209]UESTIONS  <^> TO QUIT   [146]":GOTO275
  105. 470 REM        *  *  LOCATOR
  106. 475 PRINTLEFT$(LN$,LN)LEFT$(CL$,CL);:RETURN:PRINT"       INPUT ROUTINE #1"
  107. 480 POKE53265,27:GETC$:IFTF=0THENTT=TI
  108. 485 IFC$="^"THENRESTORE:GOTO60
  109. 490 TM=INT(.5+(TI-TT)/60)
  110. 495 LN=4:CL=0:GOSUB475:PRINT" [212]IME:"STR$(TM)" SEC[151]";:IFC$=""THEN480
  111. 500 TF=1:IFC$>="A"ANDC$<=CHR$(64+NQ)THEN510
  112. 505 GOTO480
  113. 510 FORK=1TONQ:IFC$=L$(K)THEN520
  114. 515 NEXT
  115. 520 IFC$=D$ANDA$(I)<>B$(K)THEN480
  116. 525 D$=C$:L$=L$(I):L$(I)=L$(K):L$(K)=L$
  117. 530 B$=B$(I):B$(I)=B$(K):B$(K)=B$
  118. 535 FORK=1TONQ:IFA$(K)<>B$(K)THENI=I+1:RETURN
  119. 540 NEXT:CF=1:RETURN
  120. 545 REM       *  *  SOUND
  121. 550 FORTS=1TO30STEP1:POKES+24,TS:POKES+24,15:NEXT:RETURN
  122. 555 POKES+24,15:FORTS=1TO4
  123. 560 POKES,75:POKES+1,20*RND(1)+50:POKES+5,17:POKES+6,129:POKES+4,17
  124. 565 FORD=1TO40:NEXT:POKES+4,16:NEXT:FORTS=STOS+23:POKETS,0:NEXT:RETURN
  125. 705 REM DATA STATEMENTS
  126. 710 DATA SOLUTION,IS QUITE CLEAR
  127. 715 DATA DISPERSION,SCATTERS LIGHT
  128. 720 DATA SUSPENSION,SETTLES OUT
  129. 725 DATA SOLUTE,IS DISSOLVED
  130. 730 DATA SOLVENT,DOES THE DISSOLVING
  131. 735 DATA SOLUBLE,WILL DISSOLVE
  132. 740 DATA INSOLUBLE,WILL NOT DISSOLVE
  133. 745 DATA EMULSION,A LIQUID IN A LIQUID
  134. 750 DATA PROTON,POSTIVE PARTICLES
  135. 755 DATA ELECTRON,ORBITS THE NUCLEUS
  136. 760 DATA NEUTRON,NEUTRAL PARTICLE
  137. 765 DATA PHOTON,ENERGY PARTICLE
  138. 770 DATA OPERATE,PERFORM WORK,COOPERATE,ACT JOINTLY,DEPOSE,REMOVE FROM OFFICE
  139. 775 DATA SAUTERNE,WHITE WINE,SATURNINE,SARDONIC,HAMMY,LIKE A BAD ACTOR
  140. 780 DATA CLAMMY,DAMP-SOFT & COOL,CHAMOIS,GOATLIKE ANTELOPE,JAGGY,COMPUTER NUT
  141. 785 DATA ARCTURUS,FIRST MAGNITUDE STAR,ARCUS,CLOUD,ARDUOUS,GREAT HARDSHIP
  142. 790 DATA AREOLA,RING OF COLOR,BIBULOUS,ADDICTED TO ALCOHOL,CLOD,STUPID PERSON
  143. 795 DATA CHICORY,COFFEE ADDITIVE,CHILBLAINS,COLD INDUCED SWELLING
  144. 800 DATA CLOISTER,SECLUDED PLACE,DEPRECATE,EXPRESS DISAPPROVAL,LASCIVIOUS,LEWD
  145. 805 DATA DEPREDATE,TO PLUNDER,DERRINGER,SHORT BARREL PISTOL,FIFE,FLUTE
  146. 810 DATA OTOSCOPE,EXAMINE EAR,OUACHITA,RIVER IN NE LA.,UMPTEEN,A WHOLE LOT
  147. 815 DATA UBANGI,BIG LIPPED AFRICAN,UMBRAGE,ANNOYANCE/RESENTMENT
  148. 820 DATA IGNOMINIOUS,HUMILIATING,HENNERY,A FOWL PLACE,FLOPPY,BENDABLE
  149. 825 DATA DUDE,COOL GUY,VERTIGO,DIZZYNESS,TRIVIA,UNIMPORTANT STUFF
  150. 830 DATA HOTSHOT,SMOOTH OPERATOR,COW,MRS O'LEARY,MOON,GREEN CHEESE
  151. 835 DATA PERCOLATE,TRICKLE DOWN,ROCKER,SPASTIC BEING,OCELOT,SPOTTED WILDCAT
  152. 840 DATA OCHER,COLOR,PANDORA,OPENED A BOX,PANOLA,GOOD PEPPER SAUCE
  153. 845 DATA GOULASH,HODGE-PODGE,ZZZZ,A GUY SNORING,ZWIEBACK,HARD BREAD
  154. 850 DATA JERK,GUY WHO MADE THIS,WAETHUR,BAD SPELL OF WEATHER,RUCKUS,RUMPUS
  155. 855 DATA WAHOO,SMALL SHRUB OR TREE,ABACUS,EARLY CALCULATOR,ELSIE,BORDON COW
  156. 860 DATA ZOWIE,KEEN PLEASURE,CONSERVATIVE,RUSH LIMBAUGH,TAURUS,A LOTTA BULL
  157. 865 DATA VERBOSE,WINDBAG,WILLIWAW,BIG WIND,TUTANKHAMEN,SOME EGYPTIAN DUDE
  158. 870 DATA COLORIZER,TED TURNER,THERMODORKUS,AIN'T NO SUCH WORD,SLUB,OH! YEAH!!
  159. 875 DATA SLOTH,HANGS AROUND,SLIP STICK,SLIDE RULE,SLOPPY,JOE,LINUS,TOY PIANIST
  160. 880 DATA OGG,PARDON ME,RUBRIC,NO RELATION TO RUBIC,RAPSCALLION,A RASCAL/ROUGE
  161. 885 DATA PIMPLE,A PAPULE OR PUSTULE,BIKER,A PEDDLER,MASTICATE,CHEW BABY CHEW!
  162. 890 DATA REDOLENT,HAVING A FRAGRANCE,LIVE WIRE,SHOCKING STUFF,FLAGELLATE,WHIP
  163. 895 DATA LOADSTAR,FINE DISK MAGAZINE,LOBOTOMY,HELPS PLAY THIS GAME
  164. 900 DATA MALARKEY,FOOLISHNESS,MALAPROPISM,MISUSE OF WORDS,MISNOMER,WRONG NAME
  165. 905 DATA MONOSYLLABIC,EXAMPLE > NO,NONENTITY,DOES NOT EXIST,NONPARELL,NO =
  166. 910 DATA PEGASUS,HIGH FLYING EQUINE,ENEREVATE,POOPED,FLAPDOODLE,BOSH-NONSENSE
  167. 915 DATA CONVOLUTED,TWISTED - INVOLVED,DOOHICKEY,THINGUMABOB,HORSEY,EQUINE
  168. 920 DATA CATS MEOW,THEY SURE DO,DOODLE BUG,LARVE OF ANTLION,MIGRAINE,BAD-BAD..
  169. 925 DATA MINISKIRT,MAXIMUM SHOW,MINOTAUR,HALF BULL HALF MAN,MOOLA,GREEN STUFF
  170. 930 DATA VINCIBLE,NOT IN...,WHOOSIS,UNKNOWN ENTITY,SMOKER,DUMB STUPID PERSON
  171. 935 DATA CONFUSED,ARN'T WE ALL,CHOLESTEROL,TOO HIGH/YOU DIE,DOOGIE,BOY DOCTOR
  172. 940 DATA INARTICULATE,A BABY'S TALK,HOOPTYDOO,AND THE SAME TO YOU
  173. 945 DATA POOH BAH,BIG/IMPORTANT-HEH!,SEPSIS,BACTERIAL INVASION,SKEPTIC,DOUBTER
  174. 950 DATA WILLIWAW,A VIOLENT SQUALL,VANILLA,ICE,TURNCOAT,REVERSIBLE GARMENT
  175. 955 DATA SQUIRT,DANNY DEVITO,JINRIKISHA,INDIAN TAXI,JIMJAMS,EXESSIVE JITTERS
  176. 960 DATA JOCULARITY,FEELING YOUR OATS,INCOGNITO,DO I KNOW YOU,HULABALOO,UPROAR
  177. 965 DATA HALITOSIS,GET A MOUTHWASH,HALLUCINATION,MENTAL FANTASY,GROUSE,GRUMBLE
  178. 970 DATA GUANO,SEA BIRD'S BUSINESS,GARRULOUS,EXCESSIVE CHATTER,GAUNT,HAGGARD
  179. 975 DATA OBSEQUIOUS,A MILK TOAST,OBFUSCATE,CONFUSE-STUPEFY
  180. 980 DATA JERKWATER,WIDE PLACE IN ROAD,FICTIONAL,MADE UP,FICKLE,CAPRICIOUS
  181. 985 DATA GUZZLE,NEEDS A MUZZLE,MURINE,RAT FAMILY,NIMBLE,NOT CLUMSY
  182. 990 DATA HEARTSORE,GRIEF,HEATHEN,YOUR BROTHER,IDYLL,POEM,INNARDS,GUTS
  183. 995 DATA ISOBAR,WEATHER RELATED,COVERT,CONCEALED OR SECRET,CHARLATAN,A QUACK
  184. 1000 DATA APERITIF,SMALL DRINK,BAGATELLE,A TRIFLE,CATTAIL,END OF CAT
  185. 1005 DATA COUTH,SMOOTH,DEGAUSS,RHYMNS WITH HOUSE,FROMAGE,CHEESE
  186. 1010 DATA GRIEF,PRECEDED BY GOOD,GRIPE,PAIN IN GUT,JAUNT,JOURNEY
  187. 1015 DATA JAYWALK,HIS WING BROKE,JELLYBELLY,MEN OVER 50,MAILMAN,NO! MAILPERSON
  188. 1020 DATA MODE,A LA,PROXIMITY,IN MY SPACE,MASTER,SLAVE,POO BAH,EXALTED LEADER
  189. 1025 DATA ENGLISH,NO SPICKA,RUSHMORE,ESTEEMED LEADERS,LINGUISTIC,TALKS REAL GOOD
  190. 1030 DATA TECHNOLOGY,SCIENCE RUN AMUCK,NORMAL,WHO? WHERE?,CHRONOGRAPH,TIMER
  191. 1035 DATA SNOOZE,ZZZZZZ,MAXWELL,SMART DUDE,CUMULATIVE,ADDED TO,WARRANT,JUSTIFY
  192. 1040 DATA 12345,NUMBERS,67890,MORE
  193.