home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / RHYME-MATCH (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.3 KB  |  164 lines
  1. 10 :::::  ::::: (null) TO 30 :::::  :::::       :::::  :::::        :::::  :::::
  2. 11 "[141][145] [150]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""
  3. 12 "GOSUBON ""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""
  4. 13 "[141][145] ""[184]""  THIS IS AN OLD COMMODORE[150]  ""[184]""
  5. 14 "GOSUBON ""FRE""                            ""FRE""
  6. 15 "[141][145] ""[184]""  EDUCATIONAL PROGRAM THAT[150]  ""[184]""
  7. 16 "GOSUBON ""FRE""                            ""FRE""
  8. 17 "[141][145] ""[184]""  WAS MADE TO RUN ON MANY[150]   ""[184]""
  9. 18 "GOSUBON ""FRE""                            ""FRE""
  10. 19 "[141][145] ""[184]""     TYPES OF COMMODORE[150]     ""[184]""
  11. 20 "GOSUBON ""FRE""                            ""FRE""
  12. 21 "[141][145] ""[184]""   COMPUTERS.  EVERYTHING[150]   ""[184]""
  13. 22 "GOSUBON ""FRE""                            ""FRE""
  14. 23 "[141][145] ""[184]""   NOT NEEDED WAS REMOVED[150]   ""[184]""
  15. 24 "GOSUBON ""FRE""                            ""FRE""
  16. 26 "[141][145] ""[184]""   AND IMPROVEMENTS MADE.[150]   ""[184]""
  17. 27 "GOSUBON ""FRE""                            ""FRE""
  18. 28 "[141][145] ""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""[184]""
  19. 29 "GOSUBON ""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""FRE""CONT.
  20. 30 PRINT"[147][142]";:POKE53280,10:POKE53281,10:POKE53265,11
  21. 35 FORT=1TO5:PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";:NEXT
  22. 40 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  23. 45 PRINT"[158]   [146][183][208]    [146] [167]    [146] [167][188]   [146][208][208]    [146][183][208]"
  24. 50 PRINT"[159]   [146] [158][167] [159]   [146] [158][167] [159]   [146] [158][167] [159]   [146][158][167][167] [159]   [146]       [156][209][209]"
  25. 55 PRINT"[159]   [146][158][175][186] [159]   [146][158][175][186] [159]   [146][158][175][186] [159]   [146][158][167][167] [159]   [146][158][183]     [156][209][153][215][215][156][209]"
  26. 60 PRINT"[158]   [146] [205]    [146] [167]    [160][146]     [146][167][167]    [146][175][186]     [156][209][209]"
  27. 65 PRINT"[158]  [146][208]  [146][208][188] [146][208]  [146][208]  [146][208][188] [146][208] [207] [146][208]  [146][208]  [146][208] [207] [146][208]  [146]  [146][208][188] [146][208]";
  28. 70 PRINT"[159]  [146]   [146][158][167] [159] [146][158][167] [159] [146]   [146][158][192] [159] [146][158][167]";
  29. 75 PRINT"  [159] [146]   [146][158][186] [159] [146][158][186]  [159] [146]   [146]  [146][158][167] [159] [146][158][167]";
  30. 80 PRINT"  [146][186]  [146][186]  [146][167]  [146][186]  [146][186]  [146][167]   [146]   [146][205]  [146][167]   [146]   [146]  [146][186]  [146][167]"
  31. 85 FORT=1TO5:PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";:NEXT
  32. 90 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":POKE53265,27:S=54272
  33. 95 FORD=1TO1E3:NEXT:E=4:GOSUB 695:FORD=1TO1E3:NEXT:GOSUB 695
  34. 100 FORD=1TO2E3:NEXT:SC=53281:BO=53280
  35. 105 PRINT"[147][142][151]":POKEBO,15:POKESC,15:PRINT"                M E N U"
  36. 110 PRINT"    --------------------------------"
  37. 115 PRINT"     1.   BEGIN RHYME CONCENTRATION"
  38. 120 PRINT"     2.   INSTRUCTIONS"
  39. 125 PRINT"     3.   QUIT"
  40. 130 PRINT"    --------------------------------"
  41. 135 PRINT"       PRESS A NUMBER KEY (1-3)":E=3:GOSUB 695
  42. 140 GETG$:IFG$<"1"ORG$>"3"THEN140
  43. 145 E=1:GOSUB 695:ONVAL(G$)GOSUB250,160,155:GOTO105
  44. 150 RETURN
  45. 155 PRINT"[154][147]":POKESC,6:POKEBO,14:END
  46. 160 PRINT"[147]":POKEBO,15:POKESC,15
  47. 165 PRINT"  [210]HYME [195]ONCENTRATION  -  [201]NSTRUCTIONS"
  48. 170 PRINT"[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][192][192][192][192][192][192][192][192][192][192]"
  49. 175 PRINT"[151] [215]HEN THE COMPUTER ASKS YOU TO CHOOSE A"
  50. 180 PRINT" SQUARE, ENTER THE NUMBER OF THE SQUARE"
  51. 185 PRINT" YOU WISH TO BE REVEALED.  [212]RY TO MATCH"
  52. 190 PRINT" THE SOUND OF THE FIRST WORD THAT IS "
  53. 195 PRINT" REVEALED WITH ANOTHER WORD UNDER"
  54. 200 PRINT" ANOTHER SQUARE."
  55. 205 PRINT" [201]F YOU DON'T MATCH THEN DON'T FORGET"
  56. 210 PRINT" WHERE THAT WORD WAS BECAUSE YOU'LL     ";
  57. 215 PRINT" HAVE ANOTHER TURN.":GOSUB220:RETURN:RETURN:GOSUB240
  58. 220 POKE198,0:PRINT"";:FORT=0TO20:PRINT:NEXT
  59. 225 PRINT" [208]RESS <[211][208][193][195][197]> TO CONTINUE [146]"
  60. 230 GETG$:IFG$<>" "THEN230
  61. 235 RETURN
  62. 240 U=U+1:PRINT"[147]  [210]HYME [195]ONCENTRATION"TAB(37)STR$(U)
  63. 245 PRINT" --------------------------------------":PRINT"":RETURN
  64. 250 PRINT"[147][151]";:RESTORE:POKEBO,15:POKESC,15:GOSUB 710:DIMW$(20):V=1:DIMY$(20)
  65. 255 A=8:B$="YYYYYYYYYYYYYYYY":PRINT"[147]"
  66. 260 PRINT"[158][205]ATCH [212]HE [210]HYMING [215]ORD":PRINT"":RESTORE
  67. 265 FORN=1TO(INT(RND(1)*122)+1)*2:READY$:NEXT:FORN=1TO16:X=INT(RND(1)*16)+1
  68. 270 IFMID$(B$,X,1)="Y"THEN285
  69. 275 X=X+1:IFX<17THEN270
  70. 280 X=1:GOTO270
  71. 285 B$=LEFT$(B$,X-1)+"N"+RIGHT$(B$,16-X):READW$(X)
  72. 290 IFN=1ORN=5ORN=9ORN=13THENPRINT"  ";
  73. 295 PRINT"       [157] [157] [157][157] [157][157] [157][157] [157][157] [157][157] [157][157] [157][145]   [157]"N"[157] ";:IFN>9THEN305
  74. 300 PRINT" ";
  75. 305 PRINT"[145]";:IFN/4<>INT(N/4)THEN315
  76. 310 PRINT""
  77. 315 NEXT:PRINT"[146]":B$="YYYYYYYYYYYYYYYY":D(1)=0
  78. 320 FORP=1TO2:PRINT"":FORN=1TO16:PRINT:NEXT:S(1)=S(2)=0
  79. 325 PRINT"   "P$(P)":       [157][157][157][157][157][157][157]":FORN=1TO2
  80. 330 PRINT"":FORC=1TO18:PRINT"";:NEXT
  81. 335 PRINT"   [195]HOOSE A SQUARE (1-16)   [157][157][157]     [157][157][157][157]";
  82. 340 GOSUB515:E=1:GOSUB 695:S(N)=Y:IFS(N)*(17-S(N))>0THEN350
  83. 345 GOTO330
  84. 350 IFMID$(B$,S(N),1)="Y"THEN360
  85. 355 PRINT"[145][145]  [212]HAT ONE IS OUT OF PLAY.      ":FORI=1TO1500:NEXT:GOTO330
  86. 360 GOSUB525:NEXTN:RESTORE:PRINT"";:FORN=1TO21:PRINT"";:NEXT:PRINT"     ";:N=0
  87. 365 READM$:N=N+1:IFM$<>W$(S(1))THEN365
  88. 370 IFN/2<>INT(N/2)THEN380
  89. 375 N=N-2
  90. 380 RESTORE:FORC=1TON+1:READM$:NEXT:IFM$=W$(S(2))THEND=D+1:GOTO410
  91. 385 PRINT"[157][157][206]O MATCH.":GOSUB 705:FORI=1TO500:NEXT:GOSUB520:FORN=1TO2
  92. 390 Y$(S(N))=W$(S(N)):W$(S(N))="  "+STR$(S(N))+"  "
  93. 395 IFS(N)>9THEN405
  94. 400 W$(S(N))=W$(S(N))+" "
  95. 405 PRINT"";:GOSUB525:W$(S(N))=Y$(S(N)):NEXT:PRINT"[146]":GOTO455
  96. 410 IFD>3THEND=1
  97. 415 IFD=1THENPRINT"[157][157][212]HAT'S A [205][193][212][195][200]!!"
  98. 420 IFD=2THENPRINT"[157][157][214]ERY WELL DONE !!"
  99. 425 IFD=3THENPRINT"[157][157][206]ICE WORK !!"
  100. 430 E=2:GOSUB 695:A=A-1:D(P)=D(P)+1:FORI=1TO500:NEXT:GOSUB520:FORN=1TO2
  101. 435 B$=LEFT$(B$,S(N)-1)+"N"+RIGHT$(B$,16-S(N)):NEXT
  102. 440 W$(S(1))=P$(1):W$(S(2))=P$(1):PRINT"[150]";:IFP=1THEN450
  103. 445 W$(S(1))=P$(2):W$(S(2))=P$(2):PRINT"[154]";
  104. 450 FORN=1TO2:GOSUB525:NEXT
  105. 455 IFA=0THEN470
  106. 460 PRINT"";:FORN=1TO18:PRINT:NEXT:FORN=1TO5:PRINT"                          "
  107. 465 NEXT:PRINT"":FORN=1TO15:PRINT:NEXT:PRINT:PRINT:PRINT:NEXTP:GOTO320
  108. 470 PRINT"";:FORN=1TO17:PRINT:NEXT
  109. 475 FORN=1TO6:PRINT"                                 ":NEXT
  110. 480 PRINT"[145][145][145][145][145][145]";:PRINT"[151][212]HAT'S THE GAME"
  111. 485 P=1:IFD(1)>D(2)THEN500
  112. 490 P=2:IFD(1)<>D(2)THEN500
  113. 495 PRINT" [217]OU BOTH HAVE 4 MATCHES, YOU'VE TIED.":GOTO510
  114. 500 PRINT" "P$(P)" WINS WITH"D(P)"MATCHES."
  115. 505 PRINT" [215]ELL PLAYED, "P$(P)".[153]"
  116. 510 GOSUB220:RETURN
  117. 515 Z$="":POKE631,150:POKE198,1:INPUT"[155]";Z$:Y=0:Y=VAL(Z$):PRINT"":RETURN
  118. 520 PRINT"[153]":FORN=1TO20:PRINT"";:NEXT:RETURN
  119. 525 X=S(N)-INT(S(N)/4)*4:IFX<>0THEN535
  120. 530 X=4
  121. 535 X=(X-1)*8:L=LEN(W$(S(N))):PRINT"";:IFX=0THEN545
  122. 540 FORC=1TOX+INT(X/8):PRINT"";:NEXT
  123. 545 Y=INT((S(N)-1)/4):Y=Y*4+1:FORC=1TOY:PRINT"";:NEXT:F=0
  124. 550 PRINT"       [157][157][157][157][157][157][157]";:IFL>5THEN560
  125. 555 F=INT((7-L)/2):FORC=1TOF:PRINT" ";:NEXT
  126. 560 PRINTW$(S(N));:IFF+L=7THEN570
  127. 565 FORC=1TO7-L-F:PRINT" ";:NEXT
  128. 570 PRINT"[157][157][157][157][157][157][157]       ";:RETURN
  129. 575 DATASIGN,STEIN,WAIT,FREIGHT,THOUGHT,CAUGHT,KILLER,DILLER,DENNIS,MENACE
  130. 580 DATAREIGN,STAIN,DAWN,GONE,THOUGH,KNOW,ROSEY,POSEY,SCOOBY,DOOBY,STUFF,PUFF
  131. 585 DATASTAID,WEIGHED,CHAFE,WAIF,LONER,BONER,FLOPPY,MOPPY,ROCKY,JOCKEY
  132. 590 DATAGLOAT,ROTE,PEAK,SNEAK,LIAR,CRYER,SPLURG,DIRGE,FLOP,PLOP,RULE,POOL
  133. 595 DATAFIGHT,HEIGHT,GAUGE,RAGE,LEAN,MEAN,FILE,WHILE,ERROR,TERROR,QUITE,RIOT
  134. 600 DATAMOUSE,HOUSE,TREET,CLEAT,UPPER,TUPPER,SUPER,DUPER,WHAT,KNOT,PEEK,SEEK
  135. 605 DATABEGIN,RESCEND,QUIT,KNIT,SWITCH,TWITCH,HELP,KELP,LINE,NINE,CAPS,RAPS
  136. 610 DATAENTER,CENTER,PORT,SPORT,MOVE,GROOVE,DUDE,PRUDE,FLED,DEAD,THIS,BLISS
  137. 615 DATAREND,SEND,BEST,CREST,WELL,TELL,CHILL,THRILL,CHANGE,RANGE,JAGGY,MAGGIE
  138. 620 DATACOUNT,MOUNT,NODE,TOAD,REACHED,BEACHED,MAP,SLAP,JUNE,MOON,MARCH,STARCH
  139. 625 DATASPOON,CROON,SCREEN,SPLEEN,ERASE,DEFACE,COVER,SMOTHER,UNDER,BLUNDER
  140. 630 DATANERD,BIRD,TIED,SPIED,SLURP,BURP,CHARGE,LARGE,LINE,MINE,BUBBLE,RUBBLE
  141. 635 DATATRACE,LACE,MOON,JUNE,STERN,DURN,POWER,SOUR,CRACKS,STACKS,TODAY,WEIGH
  142. 640 DATADOUBLE,TROUBLE,SECTOR,VECTOR,MATH,BATH,CLAN,PLAN,COLLECT,REJECT
  143. 645 DATAPOO,MOO,STOOP,TROOP,CROW,BLOW,LABEL,STABLE,SPRITE,MIGHT,ERASER,CHASER
  144. 650 DATALIST,MISSED,CHECK,SPECK,CURSOR,NURSER,DAIRY,MERRY,BOTTOM,SHOTUM
  145. 655 DATAFAMOUS,AMOS,CHROME,DOME,MARK,SPARK,PARTY,MARTY,BATHER,SHAVER,MOP,TOP
  146. 660 DATACHER,SCARE,MAUDE,CLAUDE,TWINKLE,TINKLE,JAZZ,RAZZ,LASSIE,CLASSY,PO,JO
  147. 665 DATASISKEL,FISCAL,GAME,SHAME,SPIDER,RIDER,BUNNY,FUNNY,BUGS,DRUGS,PIG,RIG
  148. 670 DATAMAGIC,TRAGIC,CAROL,BARREL,WHITE,UPTIGHT,AFFAIR,DECLARE,ROOTS,BOOTS
  149. 675 DATADREAMER,STEAMER,RANGER,DANGER,BEACH,REACH,KNIGHT,SPITE,FORT,COURT
  150. 680 DATAHUNT,BUNT,STAR,AFAR,HIDDEN,RIDDEN,EDDIE,BETTY,WING,DING,STRETCH,CATCH
  151. 685 DATARIGHT,MIGHT,HANDY,DANDY,BARRY,LARRY,KNIFE,WIFE,ARSENIO,TALLYHO,SO,MO
  152. 690 DATA:DATA:DATA
  153. 695 POKES+24,15:FORT=1TOE:POKES+5,1:POKES+6,248:POKES+1,25:POKES,244:POKES+4,17
  154. 700 FORD=1TO130:NEXT:POKES+4,16:NEXT:FORT=STOS+23:POKET,0:NEXT:RETURN
  155. 705 FORT=30TO0STEP-1:POKES+24,T:POKES+24,0:NEXT:RETURN
  156. 710 P$(1)="[206]URDHED":P$(2)="[211]NOOKUM":GOSUB240
  157. 715 IFK=1THENPRINT"        [206]O MORE THAN 7 LETTERS.[151]
  158. 720 [151]631,150:[151]198,1:[133]"(null)HAT IS THE NAME OF PLAYER 1 LIST";P$(1)
  159. 725 [139][195](P$(1))[177]7[167]K[178]1:U[178]0:[137]250
  160. 730 [153]"(null)ICE TO MEET YOU "P$(1)".PRINT#":[141] 695
  161. 735 [151]631,150:[151]198,1:[133]"(null)HAT IS THE NAME OF PLAYER 2 LIST";P$(2)
  162. 740 [139][195](P$(2))[177]7[167]K[178]1:U[178]0:[137]250
  163. 745 [153]"(null)ICE TO MEET YOU ALSO, "P$(2)".DEF":[141] 695:[141]220:[142]
  164.