home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / RHYME-CONCEN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  6.5 KB  |  187 lines
  1. 1 POKE808,225:GOSUB83:GOTO63
  2. 2 POKEUO,.:UR$="":UI$="":IFUL=.THENUL=80
  3. 3 POKEUC,.
  4. 4 GETUI$:IFUI$=""THEN4
  5. 5 POKES+4,33:POKES+1,ASC(UI$):FORWV=1TO10:NEXT:POKES+1,.
  6. 6 IFUI$=CHR$(13)ANDLEN(UR$)>=1THENPOKEUC,1:PRINT" [157]":RETURN
  7. 7 IFUI$=CHR$(20)THEN10
  8. 8 IFLEN(UR$)=>ULTHEN4
  9. 9 GOSUB12:UR$=UR$+UI$:PRINTUI$;:GOTO4
  10. 10 IFLEN(UR$)<1THEN4
  11. 11 UR$=LEFT$(UR$,LEN(UR$)-1):PRINT"[157]  [157][157]";:GOTO4
  12. 12 IFLEN(US$)=.THEN15
  13. 13 FORUS=1TOLEN(US$):IFUI$<>MID$(US$,US,1)THENNEXT:UI$=""
  14. 14 RETURN
  15. 15 IFASC(UI$)=46THENRETURN
  16. 16 IFUI$=CHR$(32)THENRETURN
  17. 17 IFASC(UI$)<48ORASC(UI$)>57THEN19
  18. 18 RETURN
  19. 19 IFASC(UI$)<65ORASC(UI$)>90THEN21
  20. 20 RETURN
  21. 21 IFASC(UI$)<193ORASC(UI$)>218THENUI$="":RETURN
  22. 22 IFPEEK(UT)=UU%THENUI$=CHR$(ASC(UI$)-128):RETURN
  23. 23 RETURN
  24. 24 PRINT"[147]":POKEUT,UU%:POKE53281,9:POKE53280,8
  25. 25 PRINT""SPC(16)"MENU"
  26. 26 PRINT" --------------------------------------"
  27. 27 PRINTSPC(7)"1.   BEGIN RHYME CONCENTRATION"
  28. 28 PRINTSPC(7)"2.   STUDENT INSTRUCTIONS"
  29. 29 PRINTSPC(7)"3.   TEACHER INSTRUCTIONS"
  30. 30 PRINTSPC(7)"4.   QUIT"
  31. 31 PRINT" --------------------------------------"
  32. 32 PRINTSPC(7)"PRESS A NUMBER KEY (1-4) ";
  33. 33 UL=1:US$="1234":GOSUB2:US$="":ONVAL(UR$)GOSUB89,35,47,34:GOTO24
  34. 34 POKE53281,.:POKE53280,.:PRINT"[147]";:POKE808,237:END
  35. 35 PRINT"[147]":POKEUT,UL%:POKE53281,.:POKE53280,.
  36. 36 UP=.:UG$="[211]TUDENT [201]NST":GOSUB81
  37. 37 PRINT" [215]HEN THE COMPUTER ASKS YOU TO CHOOSE A"
  38. 38 PRINT" SQUARE, ENTER THE NUMBER OF THE SQUARE"
  39. 39 PRINT" YOU WISH TO BE REVEALED. [212]RY TO MATCH"
  40. 40 PRINT" THE SOUND OF THE FIRST WORD THAT IS "
  41. 41 PRINT" REVEALED WITH ANOTHER WORD UNDER"
  42. 42 PRINT" ANOTHER SQUARE."
  43. 43 PRINT" [201]F YOU DONT MATCH THEN DON'T FORGET"
  44. 44 PRINT" WHERE THAT WORD WAS BECAUSE YOU'LL HAVE";
  45. 45 PRINT" ANOTHER TURN."
  46. 46 PRINT" [212]O LEAVE THE GAME, PRESS [153][209] [210][197][212][213][210][206]":GOTO78
  47. 47 PRINT"[147]":POKEUT,UL%:POKE53281,2:POKE53280,10
  48. 48 UP=.:UG$="[212]EACHER [201]NST":GOSUB81
  49. 49 PRINTSPC(6)"[212]O THE BEST OF OUR KNOWLEDGE,"
  50. 50 PRINT"   THIS PROGRAM IS IN THE PUBLIC"
  51. 51 PRINT"   DOMAIN.  [201]F THIS IS NOT THE CASE"
  52. 52 PRINT"   PLEASE CONTACT:"
  53. 53 PRINTSPC(6)"[195]OMMODORE [194]USINESS [205]ACHINES"
  54. 54 PRINTSPC(10)"3370 [208]HARMACY [193]VE.
  55. 55 [153][166]10)"ATNGINCOURT, (null)NTARIO"
  56. 56 [153][166]10)"LENANADA   (null)1(null) 2(null)4"
  57. 57 [153][166]10)"(416) 499-4292":UP[178]1:[141]78:[141]81
  58. 58 [153][166]5)"(null)ROGRAM (null)AME: (null)HYME LENONCENTRATION"
  59. 59 [153][166]5)"(null)RITTEN PEEKY  : (null)NKNOWN
  60. 60 PRINTSPC(5)"[213]PGRADED [194]Y : [211]EAN [215]INSTEAD
  61. 61 [153][166]5)"(null)HIS PROGRAM WILL RUN ON ANY
  62. 62 PRINTSPC(9)"[195][207][205][205][207][196][207][210][197] 64 [195][207][205][208][213][212][197][210]":GOTO78
  63. 63 PRINT"[147]";:POKEUT,UU%:POKE53280,14:POKE53281,6
  64. 64 FORI=1TO38:PRINT"[166][146]";:NEXT
  65. 65 FORI=1TO22:PRINT"[157][166][146]";:NEXT
  66. 66 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
  67. 67 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
  68. 68 PRINT""SPC(18)"[169]  [146]
  69. 69 [153][166]18)" WAIT   WAITSTEP
  70. 70 PRINTSPC(18)" [146]  [163][223]
  71. 71 [153][166]18)"(null)  WAIT
  72. 72 PRINTSPC(12)"C O M M O D O R E
  73. 73 [153][166]15)"EDUCATIONAL
  74. 74 PRINTSPC(16)"SOFTWARE
  75. 75 [153][200](UD$,24)[166]9)"PRESS SPACE BAR OR WAITWAIT":I[178].:[151]UO,.
  76. 76 [161]A$:[139]A$[179][177]" "[167]I[178]I[170]1:[139]I[179]250[167]76
  77. 77 T1$[178]"":T2$[178]"":T3$[178]"":T4$[178]"":I[178].:[141]172:[137]24
  78. 78 [153][200](UD$,24)[166]6)"PRESS SPACE BAR TO CONTINUEWAIT":[151]UO,.
  79. 79 [161]UI$:[139]UI$[179][177]" "[167]79
  80. 80 [151]S[170]4,17:[151]S[170]1,35:[129]WV[178]1[164]10:[130]:[151]S[170]1,.:[142]
  81. 81 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,22);[201](UP$[170]UG$[170][196](UP),17)
  82. 82 [153]" --------------------------------------":[142]
  83. 83 UB[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UU[178]2048
  84. 84 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2139:UM[178]1024:UO[178]198
  85. 85 UD$[178]""
  86. 86 UP$[178]"                                       "
  87. 87 UT$[178]" (null)HYME LENONCENTRATION"
  88. 88 S[178]54272:[129]X[178]S[164]S[170]23:[151]X,.:[130]:[151]S[170]24,15:[151]S[170]6,240:[142]
  89. 89 [153]"LOAD";:[140]:[151]53281,.:[151]53280,.:[151]UT,UL%:[141]153
  90. 90 [139]V[178].[167][134]W$(20):V[178]1
  91. 91 [139]VV[178].[167][134]Y$(20):VV[178]1
  92. 92 A[178]8:B$[178]"YYYYYYYYYYYYYYYY":[153]"LOAD";
  93. 93 [153][166]32)"SYS(null)ATCHCMDCMDCMDCMDCMD(null)HECMDCMDCMD(null)HYMINGCMDCMDCMDCMDCMDCMDCMD(null)ORDS":[140]
  94. 94 [129]N[178]1[164]([181]([187](0)[172]6)[170]1)[172]2:[135]Y$:[130]
  95. 95 [129]N[178]1[164]16:X[178][181]([187](0)[172]16)[170]1
  96. 96 [139][202](B$,X,1)[178]"Y"[167]99
  97. 97 X[178]X[170]1:[139]X[179]17[167]96
  98. 98 X[178]1:[137]96
  99. 99 B$[178][200](B$,X[171]1)[170]"N"[170][201](B$,16[171]X):[135]W$(X)
  100. 100 [153]"OPEN       CMD CMD CMDCMD CMDCMD CMDCMD CMDCMD CMDCMD CMDCMD CMDON   CMD"N"CMD ";:[139]N[177]9[167]102
  101. 101 [153]" ";
  102. 102 [153]"ON";
  103. 103 [139]N[173]4[179][177][181](N[173]4)[167]105
  104. 104 [153]""
  105. 105 [130]:[153]"WAIT":B$[178]"YYYYYYYYYYYYYYYY":D(1)[178].:DD(2)[178].
  106. 106 [129]P[178]1[164]2:[153]"SYS";:S(1)[178].:S(2)[178].:[153]P$(P)":      "
  107. 107 [129]N[178]1[164]2
  108. 108 [153]"SYSLENHOOSE A SQUARE (1-16)?   CMDCMDCMD ";
  109. 109 [153]""[166]24);:[141]138:S(N)[178]Y:[139]Z$[178]"Q"[167][142]
  110. 110 [139]S(N)[172](17[171]S(N))[179][178].[167]108
  111. 111 [139][202](B$,S(N),1)[178]"Y"[167]113
  112. 112 [153]"ONONFOR(null)HAT ONE IS OUT OF PLAY. ":[141]156:[129]WV[178]1[164]1500:[130]:[137]108
  113. 113 [141]140:[130]:[140]
  114. 114 [153]"     ";:N[178].
  115. 115 [135]M$:N[178]N[170]1:[139]M$[179][177]W$(S(1))[167]115
  116. 116 [139]N[173]2[178][181](N[173]2)[167]N[178]N[171]2
  117. 117 [140]:[129]C[178]1[164]N[170]1:[135]M$:[130]:[139]M$[178]W$(S(2))[167]122
  118. 118 [153]"FOR(null)O MATCH.":[141]162:[129]WV[178]1[164]500:[130]:[141]139
  119. 119 [129]N[178]1[164]2:Y$(S(N))[178]W$(S(N)):W$(S(N))[178]"  "[170][196](S(N))[170]"  "
  120. 120 [139]S(N)[179][178]9[167]W$(S(N))[178]W$(S(N))[170]" "
  121. 121 [153]"OPEN";:[141]140:W$(S(N))[178]Y$(S(N)):[130]:[153]"WAIT":[137]126
  122. 122 [153]"PRINT(null)HAT'S A (null)ATN(null)LENLEFT$!!":[141]165:A[178]A[171]1:D(P)[178]D(P)[170]1:[129]WV[178]1[164]500:[130]
  123. 123 [141]139:[129]N[178]1[164]2:B$[178][200](B$,S(N)[171]1)[170]"N"[170][201](B$,16[171]S(N)):[130]
  124. 124 W$(S(1))[178]P$(1):W$(S(2))[178]P$(1):[139]P[179][177]1[167]W$(S(1))[178]P$(2):W$(S(2))[178]P$(2)
  125. 125 [129]N[178]1[164]2:[141]140:[130]
  126. 126 [139]A[178].[167]130
  127. 127 [153]"";
  128. 128 [129]N[178]1[164]5:[153]"                          ":[130]
  129. 129 [153]"";:[153]:[153]:[130]:[137]106
  130. 130 [153]"";
  131. 131 [129]N[178]1[164]5:[153]"                                ":[130]:[153]"ONONON";
  132. 132 [153][166]10)"LOAD(null)HAT'S THE GAME."
  133. 133 P[178]1:[139]D(1)[177]D(2)[167]136
  134. 134 P[178]2:[139]D(1)[179][177]D(2)[137]136
  135. 135 [153]" (null)OU BOTH HAVE 4 MATCHES, YOU'VE TIED.":[141]159:[137]78
  136. 136 [153]" "P$(P)" WINS WITH"D(P)"MATCHES."
  137. 137 [153]" (null)ELL PLAYED, "P$(P)".":[141]168:[137]78
  138. 138 Z$[178]"":[151]UO,.:US$[178]"":UL[178]2:[141]2:Z$[178]UR$:Y[178][197](Z$):[153]:[142]
  139. 139 [153]"";:[142]
  140. 140 X[178]S(N)[171][181](S(N)[173]4)[172]4:[139]X[178].[167]X[178]4
  141. 141 X[178](X[171]1)[172]8:L[178][195](W$(S(N))):[153]"";:[139]X[179][177]0[167][153][166]X);
  142. 142 Y[178][181]((S(N)[171]1)[173]4):Y[178]Y[172]4[170]1:[129]C[178]1[164]Y:[153]"";:[130]:F[178].
  143. 143 [153][166]7)"CMDCMDCMDCMDCMDCMDCMD";:[139]L[177]5[167]145
  144. 144 F[178][181]((7[171]L)[173]2):[129]C[178]1[164]F:[153]" ";:[130]
  145. 145 [153]W$(S(N));:[139]F[170]L[178]7[167]147
  146. 146 [129]C[178]1[164]7[171]L[171]F:[153]" ";:[130]
  147. 147 [153]"CMDCMDCMDCMDCMDCMDCMD"[166]7);:[142]
  148. 148 [131] SIGN,STEIN,WAIT,FREIGHT,THOUGHT,CAUGHT
  149. 149 [131] REIGN,STAIN,DAWN,GONE,THOUGH,BOW
  150. 150 [131] STAID,WEIGHED,CHAFE,WAIF
  151. 151 [131] GLOAT,ROTE,PEAK,CHIC,LAIR,WEAR
  152. 152 [131] FIGHT,HEIGHT,GAUGE,RAGE,LEAN,KEEN
  153. 153 UH[178]1:[141]81:[153]"(null)HAT IS THE NAME OF PLAYER 1?":[153]" ";
  154. 154 UL[178]7:[141]2:P$(1)[178]UR$:[153]"(null)HAT IS THE NAME OF PLAYER 2?"
  155. 155 [153]" ";:UL[178]7:[141]2:P$(2)[178]UR$:[142]
  156. 156 [141]88:[151]S[170]4,33:[129]EZ[178]1[164]5
  157. 157 [129]DV[178]25[164]35[169]2:[151]S[170]1,DV:[130]:[129]DV[178]35[164]15[169][171]4:[151]S[170]1,DV
  158. 158 [130]:[130]:[151]S[170]1,.:[137]88
  159. 159 [141]88:[151]S[170]4,129:[129]EZ[178]1[164]3:[129]DD[178]1[164]2
  160. 160 [129]DV[178](60[171]EZ[172]10)[164](50[171]EZ[172]10)[169][171]1:[151]S[170]1,DV:[130]:[151]S[170]1,.
  161. 161 [129]WV[178]1[164]5:[130]:[130]:[151]S[170]1,.:[129]WV[178]1[164]10:[130]:[130]:[137]88
  162. 162 [141]88:[151]S[170]15,6:[151]S[170]4,39:[129]DV[178]20[164]50:[151]S[170]1,DV:[130]
  163. 163 [129]DV[178]50[164]20[169][171]1:[151]S[170]1,DV:[130]:[129]EZ[178]1[164]3:[129]DV[178]50[164]20[169][171]3
  164. 164 [151]S[170]1,DV:[130]:[130]:[151]S[170]1,.:[151]S[170]15,.:[137]88
  165. 165 [141]88:[151]S[170]5,8:[151]S[170]6,255:[151]S[170]4,23
  166. 166 [151]S[170]15,10:[129]EZ[178]1[164]5:[129]DV[178]30[164]10[169][171](EZ[172]2):[151]S[170]1,DV:[130]
  167. 167 [129]DV[178]40[164]60:[151]S[170]1,DV:[130]:[130]:[151]S[170]6,.:[137]88
  168. 168 [141]88:[151]S[170]4,17:[129]EZ[178]1[164]3:[129]DV[178]1[164]3
  169. 169 [129]DD[178](10[170]DV[172]2[170]EZ[172]2)[164](100[170]DV[172]2.5[170]EZ[172]3)[169]10:[151]S[170]1,DD:[130]:[130]:[130]
  170. 170 [151]S[170]4,17:[129]EZ[178]10[164]1[169][171]1
  171. 171 [129]DV[178]EZ[172]10[164]EZ[172]3[169][171]10:[151]S[170]1,DV[170]EZ[172]1.5:[130]:[130]:[151]S[170]1,.:[137]88
  172. 172 [141]88
  173. 173 [153]"LOAD";:[151]53280,.:[151]53281,.:[153][166]13)"FOR              "
  174. 174 [153][166]13)"              "
  175. 175 [153][166]13)"LENOMPLIMENTS OF"
  176. 176 [153][166]7)"SYS                         "
  177. 177 [153][166]7)"                         "
  178. 178 [153][166]7)"VALVANSVILLE (null)RINTING LENORP."
  179. 179 [153][166]7)"FOR             SYS             "
  180. 180 [153][166]7)"FOR             SYS             "
  181. 181 [153][166]7)"FOR(null)ODIFIED BY: SYS(null)EAN (null)INSTEAD":[151]S[170]4,129
  182. 182 A[178]1317:B[178]1333:[141]183:A[178]1431:B[178]1458:[141]183:A[178]1631:B[178]1659:[137]183
  183. 183 [129]X[178]A[164]B:[151]S[170]1,30:[151]X[171]3,[194](X[171]43):[151]X[171]43,32
  184. 184 [151]S[170]1,25:[151]X[171]42,[194](X[171]82):[151]X[171]82,32:[151]S[170]1,20:[151]X[171]81,[194](X[171]41)
  185. 185 [151]X[171]41,32:[151]S[170]1,.:[151]X[171]40,[194](X):[151]X,32:[130]:[129]WV[178]1[164]200:[130]
  186. 186 [142]
  187.