home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / PHONCENTRATION (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  17.1 KB  |  505 lines
  1. 100 PRINT"[147]":POKE53248+21,0:POKE53248+23,0:POKE53248+29,0:POKE808,225
  2. 110 Q1$=""
  3. 120 Q2$=""
  4. 130 Q3$=""
  5. 140 PRINT"[147]      P H O N C E N T R A T I O N "
  6. 150 REM
  7. 160 REM BY MARIO VELA-MARTINEZ
  8. 170 REM
  9. 180 REM ASSISTANCE BY:
  10. 190 REM CARLOS VELA-MARTINEZ &
  11. 200 REM RAYMOND PRACHUN
  12. 210 REM
  13. 220 REM  1018 LAVENDER CRT.
  14. 230 REM  OSHAWA, ONTARIO (CANADA)
  15. 240 REM  L1G 3H1
  16. 250 REM
  17. 260 REM
  18. 270 DIMWD$(14),L1(14),C1$(124),C2(124):DIMB1(14):DIMS4(14),EE$(7)
  19. 280 DIMB2(14):DIMSP(14):DIMCH(36):MA=2
  20. 290 DIMI1(30),I2(30),I3(30),I4(30),I5(30):DIMW1(20),W2(20),W3(20):RESTORE
  21. 300 DIMS1(14),S2(14),S3(14),Y1$(15),Y2$(15)
  22. 310 MA=2:PRINTCHR$(8):GOSUB320:GOTO400
  23. 320 RESTORE
  24. 330 FORI=1TO82:READA$:READA:C1$(I)=A$:C2(I)=A:NEXTI
  25. 340 REM
  26. 350 REM
  27. 360 REM
  28. 370 RETURN
  29. 380 CL=CL+2:POKE53280,CL:POKE53281,CL+2
  30. 390 RETURN
  31. 400 GOSUB3180
  32. 410 FORI=1TO27:READA,B,C,D,E:I1(I)=A:I2(I)=B:I3(I)=C:I4(I)=D:I5(I)=E:NEXTI
  33. 420 FORI=1TO14:READA,B,C:W1(I)=A:W2(I)=B:W3(I)=C:NEXTI
  34. 430 GOSUB2490
  35. 440 REM
  36. 450 GOSUB3930
  37. 460 POKEV+21,0:PRINT"[147]":POKE53280,6:POKE53281,0
  38. 470 G1$="[159] [213][195][195][201][160][213][195][195][201][160][213][195][195][201] [213][195][195][201][160][213][195][195][201]"
  39. 480 G2$="[159] [194][160][160][194][160][194][160][160][194][160][194][160][160][194][160][194][160][160][194][160][194][160][160][194]"
  40. 490 G3$="[159] [202][195][195][203][160][202][195][195][203][160][202][195][195][203][160][202][195][195][203][160][202][195][195][203]"
  41. 500 FORI=1TO3:PRINTG1$:PRINTG2$:PRINTG3$:PRINT"":NEXT
  42. 510 PRINT"[154]    [146]"
  43. 520 PRINT"    [146]"
  44. 530 PRINT"    [146][159]"
  45. 540 FORT=1784TO1810:POKET,160:POKET+54272,14:NEXT
  46. 550 FORT=1770TO1024STEP-40:POKET,160:POKET+54272,14:NEXT
  47. 560 FORT=1051TO1063:POKET,160:POKET+54272,14:NEXT
  48. 570 FORT=1063TO1743STEP40:POKET,160:POKE54272+T,14:NEXT
  49. 580 FORT=1783TO1771STEP-1:POKET,160:POKET+54272,14:NEXT
  50. 590 FORT=1811TO1823:POKET,160:POKET+54272,14:NEXTT
  51. 600 G4$=""
  52. 610 PRINT"";G4$;"WORD LIST":D1=30
  53. 620 PRINT"";G4$;"[157]1. ";WD$(1):XY=1:GOSUB700
  54. 630 PRINT"";G4$;"[157]2. ";WD$(2):XY=2:GOSUB700
  55. 640 PRINT"";G4$;"[157]3. ";WD$(3):XY=3:GOSUB700
  56. 650 PRINT"";G4$;"[157]4. ";WD$(4):XY=4:GOSUB700
  57. 660 PRINT"";G4$;"[157]5. ";WD$(5):XY=5:GOSUB700
  58. 670 PRINT"";G4$;"[157]6. ";WD$(6):XY=6:GOSUB700
  59. 680 PRINT"";G4$;"[157]7. ";WD$(7):XY=7:GOSUB700
  60. 690 GOTO1190
  61. 700 D=L1(XY):PRINT"[145]";TAB(D1+D);"--":RETURN
  62. 710 RESTORE
  63. 720 PRINTQ3$"            ONE MOMENT PLEASE "
  64. 725 FORI=1TO36:CH(I)=0:NEXT
  65. 730 FORT=1TO7
  66. 740 A=INT(RND(1)*D1+1)
  67. 750 IFCH(A)=50THEN740
  68. 760 IFC1$(A+D)=""THEN740
  69. 770 WD$(T)=C1$(A+D):WD$(T+7)=C1$(A+D)
  70. 780 IFWD$(T)=""THEN740
  71. 790 IFWD$(T+7)=""THEN740
  72. 800 L1(T)=C2(A+D):L1(T+7)=C2(A+D)
  73. 810 CH(A)=50
  74. 820 NEXTT
  75. 830 GOSUB960:RETURN
  76. 840 DATA"UNTRUE",5,"BLUEJAY",6,"STUDIO",5,"YOU",2,"GLUE",3,"BLUE",3,"RADIO",4
  77. 850 DATA"STAY",3,"WAY",2,"FRIDAY",5,"PRAY",3,"SPRAY",4,"AWAY",3,"TODAY",4
  78. 860 DATA"OUNCE",1,"EASY",1,"EAGER",1,"EARRING",1,"OATS",1,"OAK",1,"OAF",1
  79. 870 DATA"EAGLE",1,"EAST",1,"AIRPLANE",1,"AIM",1,"AID",1,"OUTSIDE",1,"EARMUFF",1
  80. 880 DATA "TAIL",2,"PAIN",2,"RAIN",2,"TOAST",2,"ROAST",2
  81. 890 DATA "FOAM",2,"VIOLENT",2,"SOAP",2,"COAT",2,"MEAT",2
  82. 900 DATA "HEAT",2,"BREADBOX",3,"PEANUT",2,"BREATH",3,"VIOLIN",2
  83. 910 DATA "VOICE",2,"TREAD",3,"CHOICE",3,"JOINT",2,"COIN",2
  84. 920 DATA"GREEN",3,"STREET",4,"SHEEP",3,"DEEP",2,"PEEP",2,"WEEPING",2,"ROOSTER",2
  85. 930 DATA"SPOON",3,"SCHOOL",4,"QUEEN",3,"MOON",2,"BROOM",3,"COOL",2,"BALLOON",5
  86. 940 DATA"THRONE",1,"THIRSTY",1,"THRILL",1,"AUTHOR",3,"CLOTHES",4
  87. 950 DATA"SHADOW",1,"SHOOT",1,"FLUSH",4,"SHELF",1,"CASH",3
  88. 960 DATA"CHOKE",1,"CHISEL",1,"CATCH",4,"CHURCH",5,"PATCH",4
  89. 965 DATA"WHOLE",1,"WHEEL",1,"WHISPER",1,"WHARF",1,"WHIRL",1
  90. 970 FORI=1TO14
  91. 980 F=0:IS=INT(RND(1)*14+1)
  92. 990 F=F+1:IFSP(F)=ISTHEN980
  93. 1000 IFF=14THEN1020
  94. 1010 GOTO990
  95. 1020 F=0
  96. 1030 IFIS=1THENS1(I)=1106:S2(I)=49:S3(I)=48:S4(I)=10:B1(I)=81:B2(I)=36
  97. 1040 IFIS=2THENS1(I)=1111:S2(I)=49:S3(I)=49:S4(I)=11:B1(I)=81:B2(I)=77
  98. 1050 IFIS=3THENS1(I)=1116:S2(I)=49:S3(I)=50:S4(I)=12:B1(I)=81:B2(I)=116
  99. 1060 IFIS=4THENS1(I)=1121:S2(I)=49:S3(I)=51:S4(I)=13:B1(I)=81:B2(I)=155
  100. 1070 IFIS=5THENS1(I)=1126:S2(I)=49:S3(I)=52:S4(I)=14:B1(I)=81:B2(I)=195
  101. 1080 IFIS=6THENS1(I)=1346:S2(I)=49:S3(I)=53:S4(I)=15:B1(I)=129:B2(I)=36
  102. 1090 IFIS=7THENS1(I)=1351:S2(I)=49:S3(I)=54:S4(I)=16:B1(I)=129:B2(I)=77
  103. 1100 IFIS=8THENS1(I)=1361:S2(I)=49:S3(I)=55:S4(I)=17:B1(I)=129:B2(I)=155
  104. 1110 IFIS=9THENS1(I)=1366:S2(I)=49:S3(I)=56:S4(I)=18:B1(I)=129:B2(I)=195
  105. 1120 IFIS=10THENS1(I)=1586:S2(I)=49:S3(I)=57:S4(I)=19:B1(I)=177:B2(I)=36
  106. 1130 IFIS=11THENS1(I)=1591:S2(I)=50:S3(I)=48:S4(I)=20:B1(I)=177:B2(I)=77
  107. 1140 IFIS=12THENS1(I)=1596:S2(I)=50:S3(I)=49:S4(I)=21:B1(I)=177:B2(I)=116
  108. 1150 IFIS=13THENS1(I)=1601:S2(I)=50:S3(I)=50:S4(I)=22:B1(I)=177:B2(I)=155
  109. 1160 IFIS=14THENS1(I)=1606:S2(I)=50:S3(I)=51:S4(I)=23:B1(I)=177:B2(I)=195
  110. 1170 SP(I)=IS
  111. 1180 NEXT:RETURN
  112. 1190 FORI=1TO14
  113. 1200 POKES1(I),S2(I):POKE54272+S1(I),1:POKES1(I)+1,S3(I):POKE54272+S1(I)+1,1
  114. 1210 NEXTI:GOSUB4130:GOTO1560
  115. 1220 A$=""
  116. 1230 PRINTQ1$;"                                       "
  117. 1240 PRINTQ1$;ZZ$(MA);" ";U$
  118. 1250 A$=""
  119. 1260 GETB$:IFB$=""THEN1260
  120. 1270 IFB$="[133]"THEN2480
  121. 1280 JW=0:FORI=48TO57:IFB$=CHR$(I)THENJX=I
  122. 1290 IFB$<>CHR$(I)THENJW=JW+1
  123. 1300 NEXTI:IFJW=10THEN1260
  124. 1310 X1=JX-48:IFX1<0ORX1>2THEN1260
  125. 1320 PRINTA$;B$
  126. 1330 GETB$:IFB$=""THEN1330
  127. 1340 IFB$="[133]"THEN2480
  128. 1350 JW=0:FORI=48TO57:IFB$=CHR$(I)THENJX=I
  129. 1360 IFB$<>CHR$(I)THENJW=JW+1
  130. 1370 NEXTI:IFB$=CHR$(20)THENPRINTA$;"  ":GOTO1260
  131. 1380 IFJW=10THEN1330
  132. 1390 X2=JX-48
  133. 1400 A8=X1*10:A9=A8+X2:IFA9>23THEN1330
  134. 1410 PRINTA$;"";B$
  135. 1420 GETB$:IFB$=""THEN1420
  136. 1430 IFB$="[133]"THEN2480
  137. 1440 X1=X1*10:X=X1+X2:IFX>23THEN1330
  138. 1450 IFB$=CHR$(20)THENPRINTA$;"  ":B$="":GOTO1260
  139. 1460 IFB$=CHR$(13)THENA$="":RETURN
  140. 1470 B$="":GOTO1420
  141. 1480 POKE198,0:GOSUB1530:PRINTQ1$;WR$
  142. 1490 PRINTQ3$;"   PRESS THE [146] RETURN KEY  TO CONTINUE [146]"
  143. 1500 GETB$:IFB$=""THEN1500
  144. 1510 IFB$<>CHR$(13)THEN1500
  145. 1520 GOSUB1530:RETURN
  146. 1530 PRINTQ1$;"                                       "
  147. 1540 PRINTQ2$;"                                       "
  148. 1550 PRINTQ3$;"                                      ":RETURN
  149. 1560 GOSUB2410
  150. 1570 A$=""
  151. 1580 GOSUB1220:W=0
  152. 1590 W=W+1:IFS4(W)=XTHENA=W:GOTO1610
  153. 1600 GOTO1590
  154. 1610 W=0
  155. 1620 IFC1$(A)<>"NIL"THEN1660
  156. 1630 PRINTQ1$;"                                        "
  157. 1640 PRINTQ1$;"SORRY, CARD";X;"HAS ALREADY BEEN PICKED.":GOSUB4860
  158. 1650 XC=2:GOTO1560
  159. 1660 GOSUB3510
  160. 1670 U$="NOW CHOOSE A SECOND CARD":GOSUB1220
  161. 1680 IFS4(A)<>XTHEN1720
  162. 1690 PRINTQ1$;"                                        "
  163. 1700 PRINTQ1$;" PLEASE DO NOT PICK THE SAME CARD TWICE!":GOSUB4860
  164. 1710 GOTO1670
  165. 1720 W=0
  166. 1730 W=W+1:IFS4(W)=XTHENA1=W:GOTO1750
  167. 1740 GOTO1730
  168. 1750 W=0:IFC1$(A1)<>"NIL"THEN1790
  169. 1760 PRINTQ1$;"                                       "
  170. 1770 PRINTQ1$;"SORRY, CARD";X;"HAS ALREADY BEEN PICKED.":GOSUB4860
  171. 1780 GOTO1670
  172. 1790 REM
  173. 1800 GOSUB3650
  174. 1810 D$=WD$(A):E$=WD$(A1):D=L1(A):E=L1(A1):D1$=MID$(D$,D):E1$=MID$(E$,E)
  175. 1820 IFLEFT$(D1$,2)=LEFT$(E1$,2)THEN1870
  176. 1830 PRINTQ1$;"                                      "
  177. 1840 POKES+6,9:FORI=255TO0STEP-10
  178. 1850 POKES+4,17:POKES,20:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
  179. 1860 WR$="       SORRY, THAT IS NOT A MATCH [146] ":GOSUB1480:GOTO2170
  180. 1870 REM
  181. 1880 POKES+6,9:POKES,40:POKES+1,2:FORI=1TO10:NEXTI:FORI=0TO255STEP10
  182. 1890 POKES+4,17:POKES,200:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
  183. 1900 WR$="     THAT'S RIGHT WE HAVE A MATCH! "
  184. 1910 FORQ=1TO10:POKE53280,Q:POKE53281,Q+1
  185. 1920 FORDY=1TO30:NEXTDY:NEXTQ:POKE53280,6:POKE53281,0
  186. 1930 GOSUB1480
  187. 1940 D$=MID$(WD$(A),L1(A)):D1$=LEFT$(D$,2)
  188. 1950 PRINTQ2$;" WHICH WORD CAN YOU COMPLETE[160]WITH ";D1$;"[146]?   "
  189. 1960 GETB$:IFB$=""THEN1960
  190. 1970 IFB$="1"THENNM=1:GOSUB2070:GOTO2080
  191. 1980 IFB$="2"THENNM=2:GOSUB2070:GOTO2080
  192. 1990 IFB$="3"THENNM=3:GOSUB2070:GOTO2080
  193. 2000 IFB$="4"THENNM=4:GOSUB2070:GOTO2080
  194. 2010 IFB$="5"THENNM=5:GOSUB2070:GOTO2080
  195. 2020 IFB$="6"THENNM=6:GOSUB2070:GOTO2080
  196. 2030 IFB$="7"THENNM=7:GOSUB2070:GOTO2080
  197. 2040 IFB$="[133]"THEN2480
  198. 2050 GOTO1960
  199. 2060 GOTO2080
  200. 2070 D$=MID$(WD$(NM),L1(NM)):AN$=LEFT$(D$,2):RETURN
  201. 2080 IFEE$(NM)<>"NIL"THEN2120
  202. 2090 PRINTQ2$;"                                       "
  203. 2100 PRINTQ1$;"    SORRY ";B$;" HAS ALREADY BEEN PICKED.":GOSUB4860
  204. 2110 GOTO1940
  205. 2120 D$=MID$(WD$(A),L1(A)):D1$=LEFT$(D$,2):IFD1$=AN$THEN2210
  206. 2130 POKES+6,9:POKES,40:POKES+1,255:FORI=1TO10:NEXTI:FORI=255TO0STEP-10
  207. 2140 POKES+4,17:POKES,40:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
  208. 2150 PRINTQ2$;"                                      "
  209. 2160 PRINTQ1$;" I AM VERY SORRY, BUT YOU ARE WRONG.     ":GOSUB4860
  210. 2170 POKES1(A)+54272,1:POKES1(A)+54273,1
  211. 2180 POKES1(A),S2(A):POKES1(A)+1,S3(A)
  212. 2190 POKES1(A1)+54272,1:POKES1(A1)+54273,1
  213. 2200 POKES1(A1),S2(A1):POKES1(A1)+1,S3(A1):POKEV+21,0:GOTO1560
  214. 2210 PRINTQ1$;"                                        "
  215. 2220 POKES+6,9:POKES,40:POKES+1,2:FORI=1TO10:NEXTI:FORI=0TO255STEP10
  216. 2230 POKES+4,17:POKES,40:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
  217. 2240 FORI=1TO10:POKE53280,I:POKE53281,I+1:NEXTI:POKE53280,6:POKE53281,0
  218. 2250 WR$="          WOW!! WOW!! WOW!!":GOSUB1480
  219. 2260 IFMA=1THENT1=T1+1
  220. 2270 IFMA=2THENT2=T2+1
  221. 2280 IFT1+T2<>7THEN2300
  222. 2290 GOSUB3790:GOSUB4170:POKEV+21,0:GOTO4230
  223. 2300 REM
  224. 2310 PRINTQ1$;"                                        "
  225. 2320 PRINTQ1$;"    YOU MAY NOW HAVE ANOTHER TURN.      "
  226. 2330 FORDY=1TO1000:NEXTDY
  227. 2340 IFMA=1THENT1=T1-1
  228. 2350 IFMA=2THENT2=T2-1
  229. 2360 GOSUB3790:C1$(A)="NIL":C1$(A1)="NIL"
  230. 2370 IFMA=1THENT1=T1+1:U$="WHICH CARD WOULD YOU LIKE?     ":Z=36:RX=37
  231. 2380 IFMA=2THENT2=T2+1:U$="WHICH CARD WOULD YOU LIKE?     ":Z=36:RX=37
  232. 2390 GOSUB4130:POKEV+21,0
  233. 2400 GOTO1580
  234. 2410 IFXC=2THENXC=0:GOTO2440
  235. 2420 IFMA=2THENMA=1:GOTO2440
  236. 2430 IFMA=1THENMA=2:GOTO2460
  237. 2440 U$="WHICH CARD WOULD YOU LIKE?     "
  238. 2450 Z=26:RX=27:RETURN
  239. 2460 U$="WHICH CARD WOULD YOU LIKE?     "
  240. 2470 Z=26:RX=27:RETURN
  241. 2480 V=53248:POKEV+21,0:GOSUB2880:GOTO4640
  242. 2490 POKE53280,14:POKE53281,0:PRINT"[147]"
  243. 2500 A$="":PRINTCHR$(142)
  244. 2510 PRINT"[156]EA"
  245. 2520 PRINT"[153]EE"
  246. 2530 PRINT"";TAB(32);"[129]UE"
  247. 2540 PRINT"";TAB(35);"TH"
  248. 2550 PRINT"[158]OI"
  249. 2560 PRINT"[154]OU"
  250. 2570 PRINT"";TAB(30);"[158]OA"
  251. 2580 PRINT"";TAB(16);"[159]CH"
  252. 2600 FORI=1TO14
  253. 2610 PRINTA$;TAB(11);"[158][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160]"
  254. 2620 PRINTTAB(11);" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][209]"
  255. 2630 PRINTTAB(11);"[209][180]PHONCENTRATION[158][170] "
  256. 2640 PRINTTAB(11);" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][209]"
  257. 2650 PRINTTAB(11);"[209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209] "
  258. 2660 PRINTTAB(11)" A PHONIC DRILL &"
  259. 2670 PRINTTAB(11)"   PRACTICE GAME  "
  260. 2680 PRINTTAB(09)"[159]BY MARIO VELA-MARTINEZ"
  261. 2690 PRINTTAB(09)"[159]          AND"
  262. 2700 PRINTTAB(09)"[159] CARLOS VELA-MARTINEZ"
  263. 2710 PRINTTAB(08)"[159]ASSISTANCE BY RAY PRACHUN"
  264. 2730 PRINTA$;TAB(11);" [209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209]"
  265. 2740 PRINTTAB(11);"[209][158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208] "
  266. 2750 PRINTTAB(11);" [180]PHONCENTRATION[158][170][209]"
  267. 2760 PRINTTAB(11);"[209][158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
  268. 2770 PRINTTAB(11);" [209][160][209][160][209][160][209][160][209][160][209][160][209][160][209] [209]"
  269. 2780 POKES+24,15
  270. 2790 POKES+4,65:POKES+1,W1(I):POKES+0,W2(I):FORKK=1TOW3(I):NEXTKK:POKES+4,64
  271. 2800 NEXTI:FORKK=1TO1500:NEXT:POKES+1,0:POKES,0
  272. 2810 POKES+24,15
  273. 2820 GOSUB4900
  274. 2830 GOSUB710
  275. 2840 POKEV+21,0:PRINT"[147]    DO YOU WISH INSTRUCTIONS (Y/N)? "
  276. 2850 GETZ$:IFZ$=""THEN2850
  277. 2860 IFZ$="N"THENRETURN
  278. 2870 IFZ$<>"Y"THEN2850
  279. 2880 PRINT"[147]          [155] -[201][206][211][212][210][213][195][212][201][207][206][211]- ":POKE53280,6:POKE53281,12:PRINTCHR$(14)
  280. 2890 PRINT"  [212]HE OBJECT OF THE GAME IS TO TRY TO"
  281. 2900 PRINT" COMPLETE THE WORD LIST, SHOWN ON THE"
  282. 2910 PRINT" RIGHT-HAND SIDE OF THE SCREEN."
  283. 2920 PRINT"  [207]N A TURN, A PLAYER IS ALLOWED TO "
  284. 2930 PRINT" CHOOSE TWO CARDS. [212]HE AIM IS TO PICK "
  285. 2940 PRINT" TWO VOWEL COMBINATIONS THAT MATCH.       [198]OR EXAMPLE..."
  286. 2950 PRINT"             [144][197][193] AND [144][197][193]"
  287. 2960 PRINT"  [201]F THE TWO CARDS MATCH, THE PLAYER"
  288. 2970 PRINT" IS ALLOWED TO TRY TO DECIDE WHICH"
  289. 2980 PRINT" WORD WILL BE PROPERLY COMPLETED WITH"
  290. 2990 PRINT" THAT VOWEL COMBINATION.[160]                 [198]OR EXAMPLE..."
  291. 3000 PRINT"   [160]    [144][204]--[210][206] + [144][197][193] = [144][204][197][193][210][206]"
  292. 3010 PRINT"[144]       [208][210][197][211][211][160][210][197][212][213][210][206][160][212][207][160][195][207][206][212][201][206][213][197]";
  293. 3020 GETB$:IFB$<>CHR$(13)THEN3020
  294. 3030 PRINT"[147]          [155] -[201][206][211][212][210][213][195][212][201][207][206][211]- "
  295. 3040 PRINT"  [215]HEN THE ANSWER IS CORRECT, THE"
  296. 3050 PRINT" PLAYER IS AWARDED 1 POINT AND IS THEN"
  297. 3060 PRINT" GIVEN ANOTHER TURN. [207]NCE ALL THE CARDS"
  298. 3070 PRINT" HAVE BEEN DRAWN, THE PLAYER WITH THE"
  299. 3080 PRINT" HIGHEST SCORE WINS!!"
  300. 3090 PRINT"  [211]O THAT YOU DON'T HAVE TO DO ALL THE"
  301. 3100 PRINT" WORK, TWO FRIENDLY [194]UGABOOS HAVE BEEN"
  302. 3110 PRINT" HIRED TO HELP YOU. [193]S YOU PICK A CARD,"
  303. 3120 PRINT" A [194]UGABOO WILL POP OUT AND FLIP THAT"
  304. 3130 PRINT" CARD OVER SO THAT YOU ARE ABLE TO SEE"
  305. 3140 PRINT" IT!"
  306. 3142 PRINT"  [201]F YOU NEED SEE THE INSTRUCTIONS "
  307. 3143 PRINT" AGAIN, JUST HIT THE '[198]1' KEY. [194]UT"
  308. 3144 PRINT" REMEMBER THAT THIS WILL END THE GAME"
  309. 3145 PRINT" IN PROGRESS."
  310. 3150 PRINT"[144]          [208][210][197][211][211][160][210][197][212][213][210][206][160][212][207][160][194][197][199][201][206]";
  311. 3160 GETB$:IFB$<>CHR$(13)THEN3160
  312. 3170 PRINT"[147]":PRINTCHR$(142):RETURN
  313. 3180 V=53248:POKE2040,13:POKE2041,14:POKE2042,15:POKE2043,15
  314. 3190 POKEV+28,255:POKEV+37,5:POKEV+38,0
  315. 3200 REM
  316. 3210 FORSP=832TO894:READA:POKESP,A:NEXT:GOSUB380
  317. 3220 FORSP=896TO958:READA:POKESP,A:NEXT:GOSUB380
  318. 3230 FORSP=960TO1022:READA:POKESP,A:NEXT:GOSUB380
  319. 3240 POKEV+21,0:POKEV+39,1:POKEV+40,1:POKEV+41,1:POKEV+42,1
  320. 3250 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,9:POKES+6,11:POKES+2,0
  321. 3260 POKES+3,4
  322. 3270 RETURN
  323. 3280 REM
  324. 3290 DATA0,0,0,0,10,0,0,42,128,0,42,128,0,43,192,0,43,192,0,43,192,5,107,192
  325. 3300 DATA21,90,80,85,85,84,85,95,84,85,85,252,85,85,84,21,85,80,5,85,64,80,0,0
  326. 3310 DATA85,85,80,85,85,80,21,85,64,0,0,0,0,0,0
  327. 3320 REM
  328. 3330 DATA0,0,0,0,10,0,0,42,128,0,42,128,0,43,192,0,43,192,0,43,192,5,107,192
  329. 3340 DATA21,90,80,85,85,84,85,95,84,85,85,252,85,85,84,21,85,80,5,85,64,0,0,5
  330. 3350 DATA5,85,85,5,85,85,1,85,84,0,0,0,0,0,0
  331. 3360 REM
  332. 3370 DATA17,0,17,21,0,21,16,0,1,16,128,129,18,162,161,18,162,161,18,251,225
  333. 3380 DATA18,251,225,22,251,229,21,149,149,5,85,84,7,213,244,5,127,84,5,85,84
  334. 3390 DATA1,85,80,0,85,64,0,0,0,1,81,80,5,85,84,5,85,84,1,81,80
  335. 3400 DATA8,97,0,0,100
  336. 3410 DATA8,97,0,0,100,8,97,0,0,50,8,97,0,0,50,8,97,0,0,100,8,97,0,0,50
  337. 3420 DATA8,97,0,0,50,10,143,0,0,100,8,97,0,0,100,8,97,0,0,200:REM    ***
  338. 3430 DATA8,97,10,143,100,8,97,10,143,50,8,97,10,143,50,8,97,10,143,100
  339. 3440 DATA 8,97,10,143,50,8,97,10,143,50,10,143,12,143,100,8,97,10,143,100
  340. 3450 DATA 8,97,10,143,200,10,143,12,143,100,10,143,12,143,50,10,143,12,143,50
  341. 3460 DATA 10,143,12,143,100,10,143,12,143,100,12,143,16,195,100
  342. 3470 DATA 8,97,4,48,100,8,97,4,48,400
  343. 3480 REM ***
  344. 3490 DATA 7,12,100,8,97,25,8,97,100,8,97,100,9,104,100,8,97,25,7,12,100
  345. 3500 DATA 5,152,120,7,119,40,7,119,5,8,97,70,7,12,100,6,71,25,5,152,100
  346. 3510 POKES+5,0:POKES+6,0:FORJ=0TO7:POKEV+J,0:NEXT
  347. 3520 Y=B1(A):X=B2(A):POKES+24,15
  348. 3530 FORO=4TOXSTEP4:POKEV+21,1:POKEV+0,O:POKEV+1,Y
  349. 3540 POKES+4,33:POKES+1,40:POKES,100:POKES+4,32
  350. 3550 POKEV+21,2:POKEV+2,O+1
  351. 3560 POKEV+3,Y:POKES+4,129:POKES+1,100:POKES,100:POKES+4,128:NEXT
  352. 3570 POKEV+21,4:POKEV+4,O-5:POKEV+5,Y-2:POKES+1,0:POKES,0
  353. 3580 POKES1(A)+54272,1:POKES1(A)+54273,1
  354. 3590 REM
  355. 3600 D$=WD$(A):D=L1(A):D1$=MID$(D$,D)
  356. 3610 D2$=LEFT$(D1$,1):D3$=MID$(D1$,2)
  357. 3620 D=ASC(D2$):D1=ASC(D3$)
  358. 3630 POKES1(A),D-64:POKES1(A)+1,D1-64
  359. 3640 RETURN
  360. 3650 Y=B1(A1):X=B2(A1)
  361. 3660 FORO=4TOXSTEP4:POKEV+21,5:POKEV+0,O:POKEV+1,Y
  362. 3670 POKES+4,33:POKES+1,60:POKES,100:POKES+4,32
  363. 3680 POKEV+21,6:POKEV+2,O+1
  364. 3690 POKEV+3,Y:POKES+4,129:POKES+1,150:POKES,100:POKES+4,128:NEXT
  365. 3700 POKEV+42,1:POKEV+21,12:POKE2043,15:POKEV+6,O-5:POKEV+7,Y-2:POKES+1,0
  366. 3710 POKES,0:POKES1(A1)+54272,1:POKES1(A1)+54273,1
  367. 3720 REM
  368. 3730 D$=WD$(A1):D=L1(A1):D1$=MID$(D$,D)
  369. 3740 D2$=LEFT$(D1$,1):D3$=MID$(D1$,2)
  370. 3750 D=ASC(D2$):D1=ASC(D3$)
  371. 3760 POKES1(A1),D-64:POKES1(A1)+1,D1-64
  372. 3770 RETURN
  373. 3780 STOP
  374. 3790 REM
  375. 3800 IFNM=1THENAV$="":GOTO3870
  376. 3810 IFNM=2THENAV$="":GOTO3870
  377. 3820 IFNM=3THENAV$="":GOTO3870
  378. 3830 IFNM=4THENAV$="":GOTO3870
  379. 3840 IFNM=5THENAV$="":GOTO3870
  380. 3850 IFNM=6THENAV$="":GOTO3870
  381. 3860 IFNM=7THENAV$=""
  382. 3870 PRINTAV$;"[158][153]";TAB(31);WD$(NM)
  383. 3880 EE$(NM)="NIL"
  384. 3890 POKES1(A)+54272,2:POKES1(A)+54273,2
  385. 3900 POKES1(A),160:POKES1(A)+1,160
  386. 3910 POKES1(A1)+54272,2:POKES1(A1)+54273,2
  387. 3920 POKES1(A1),160:POKES1(A1)+1,160:RETURN
  388. 3930 PRINT"[147]":PRINTCHR$(142):POKE53280,6:POKE53281,12
  389. 3940 CC=CC+1:IFCC=3THENCC=0:RETURN
  390. 3950 PRINT"[147]    PLAYER # ";CC
  391. 3960 PRINT"   NAME: ";
  392. 3970 REM
  393. 3980 IU=9
  394. 3990 ZZ$(CC)="":POKE204,1
  395. 4000 GETZA$:IFZA$=""THEN4000
  396. 4010 IFASC(ZA$)=13THENPRINT" ":POKE204,1:SN$=ZZ$:GOTO4090
  397. 4020 IFASC(ZA$)=20THENGOTO4070
  398. 4030 IFIU+1=>18THEN4000
  399. 4040 IFASC(ZA$)<65ORASC(ZA$)>90THEN4000
  400. 4050 IU=IU+1:ZZ$(CC)=ZZ$(CC)+ZA$
  401. 4060 PRINT;TAB(IU);ZA$;:GOTO4000
  402. 4070 IFIU=9THENGOTO4000
  403. 4080 ZZ$(CC)=LEFT$(ZZ$(CC),LEN(ZZ$(CC))-1):IU=IU-1:GOTO4060
  404. 4090 IFZZ$(CC)=""THEN3950
  405. 4100 GOTO3940
  406. 4110 :
  407. 4120 :
  408. 4130 EZ$=""
  409. 4140 PRINTEZ$;"[145][154][175][175][175][175][175][175][175][175][175][175][175][175]"
  410. 4150 PRINT"            "
  411. 4160 PRINT"            "
  412. 4170 FORI=1TOCC:PRINTEZ$;TAB(I+26);"";ZZ$(1);:NEXT:PRINT":";T1
  413. 4180 EZ$=""
  414. 4190 FORI=1TOYY:PRINTEZ$;TAB(I+26);ZZ$(2);:NEXT:PRINT":";T2
  415. 4200 PRINT"[154][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]";
  416. 4210 IFT1+T2=7THEN4230
  417. 4220 RETURN
  418. 4230 PRINTA$;"                                        "
  419. 4240 POKEV+21,0:FORI=1TO1000:NEXT
  420. 4250 A1$=""
  421. 4260 A$="[157][157][157][158][213]   [146][201][157][157][157][157][157][202]   [146][203][157][157][157][157][223] [146][169][157][157] [146][157][157][185] [146][185]"
  422. 4270 AA$="[157][157][157][158]     [157][157][157][157][157]     [157][157][157][157]   [157][157] [157][157]    "
  423. 4280 PRINT"[147]":IFT1>T2THEN PRINT"      ";ZZ$(1)
  424. 4290 IFT2>T1THEN PRINT"      ";ZZ$(2)
  425. 4300 PRINT"      IS THE WINNER!!"
  426. 4310 GOSUB4750
  427. 4320 PRINT"[145][145][145][145][145][145]":PRINTA1$;A$
  428. 4330 PRINT"[155]       [146]"
  429. 4340 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
  430. 4350 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
  431. 4360 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
  432. 4370 FORT=VTOV+5:POKET,0:NEXT:POKES+24,15
  433. 4380 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]";
  434. 4390 POKES+12,9:POKES+13,11:POKES+11,129:POKES+7,100:POKES+8,40:POKES+11,128
  435. 4400 POKEV+21,1:POKEV+1,206:POKEV+3,206:A=32:H=206
  436. 4410 FORTH=10TO32STEP4:POKEV+21,1:POKES+4,33:POKES,40:POKES+1,100:POKES+4,32
  437. 4420 POKEV+21,2:POKES+4,129:POKES,150:POKEV+0,TH:POKEV+2,TH
  438. 4430 POKES+1,200:POKES+4,128:NEXTTH
  439. 4440 FORTT=1TO5:FORTH=ATOA+24STEP4:POKEV+0,TH:POKEV+1,H:POKEV+21,1
  440. 4450 POKES+4,33:POKES,40:POKES+1,100:POKES+4,32
  441. 4460 POKEV+2,TH:POKEV+3,H
  442. 4470 POKEV+21,2:POKES+4,129:POKES,150:POKES+1,200:POKEV+4,128:NEXTTH:H=H-8
  443. 4480 A=A+24:NEXTTT:PRINT"";TAB(20);AA$
  444. 4490 POKEV+21,4:POKEV+4,166:POKEV+5,172:PRINT"";TAB(20);A$;""
  445. 4500 POKE1601,100:POKE1605,100:POKE1601+54272,1:POKE1605+54272,1
  446. 4510 POKES+2,0:POKES+3,5:POKES+5,6:POKES+6,10
  447. 4520 POKES+9,1:POKES+10,15:POKES+12,6:POKES+13,10:POKES+24,15
  448. 4530 FORI=1TO27:POKES+4,65:POKES+11,65:POKES,I2(I):POKES+7,I4(I)
  449. 4540 POKES+1,I1(I):POKES+8,I3(I):POKES+11,64:POKES+4,64
  450. 4550 FORK=1TOI5(I):NEXTK:NEXTI
  451. 4560 FORH=1TO500:NEXT:POKES,0:POKES+1,0:POKES+7,0:POKES+8,0
  452. 4570 PRINT"[155]    DO YOU WISH TO PLAY AGAIN?[160](Y/N)   ";
  453. 4580 REM
  454. 4590 GETB$:IFB$=""THEN4590
  455. 4600 IFLEFT$(B$,1)="Y"THEN4640
  456. 4610 IFLEFT$(B$,1)<>"N"THEN4590
  457. 4620 PRINT"[147][146]BYE!":POKEV+4,24:POKEV+5,59:POKES+4,21
  458. 4630 POKES,20:POKES+1,100:POKES+4,20:END
  459. 4640 JX=0:JW=0:A9=0:A8=0:X1=0:X2=0:X=0:A=0:A1=0:W=0:T1=0:T2=0
  460. 4650 FORI=1TO7:EE$(I)="":NEXT
  461. 4660 POKEV+21,0:PRINT"[147]      SAME PLAYERS AGAIN  (Y/N) ?"
  462. 4670 GETB$:IFB$=""THEN4670
  463. 4680 IFLEFT$(B$,1)="Y"THEN4730
  464. 4690 IFLEFT$(B$,1)<>"N"THEN4670
  465. 4700 PRINT"[147]"
  466. 4710 FORI=1TO15:Y1$(I)="":Y2$(I)="":NEXTI:FORI=1TO14:SP(I)=0:NEXT
  467. 4720 FORI=1TO7:EE$(I)="":NEXT:GOSUB320:GOSUB4900:GOSUB710:GOTO450
  468. 4730 PRINT"[147]":FORI=1TO14:SP(I)=0:NEXT:GOSUB320:GOSUB4900:GOSUB710
  469. 4740 GOTO460
  470. 4750 POKE53280,0:PRINT"    [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  471. 4760 PRINT"   [206][209] [156][209] [158][209][209] [209][209][129] [209][209][155][209][209][209][209][209] [209][158] [209][155][209][209] [209][209][209][153][209][209] [209][205]"
  472. 4770 PRINT"  [206][209][209][209][159][209][158][209][209]   [209][154][209][209][155][209][158][209][209]  [159][209][150][209][209][156][209] [209][209][158][209]  [209] [209][209]  [205]"
  473. 4780 PRINT" [206] [209][159][209] [209][209][209]  [158][209][209][209] [209][153][209][209]  [150][209][209][156][209][209][209][155][209][209][209][158][209]  [209][151][209][158][209] [159][209] [205]"
  474. 4790 PRINT"[206][209][209][159][209][209][209][158][209]  [156][209] [129][209][209][153] [209][209][158][209] [209]  [150][209][209][159][209][209][209] [209][153][209]  [209][209][209][209][129][209]  [205]"
  475. 4800 PRINT"                                       "
  476. 4810 PRINT"                                       "
  477. 4820 PRINT"                                       "
  478. 4830 PRINT"                                       "
  479. 4840 REM  PRINT"[154]                                       "
  480. 4850 RETURN
  481. 4860 PRINTQ3$;"   PRESS THE [146] RETURN KEY  TO CONTINUE [146]"
  482. 4870 GETZ$:IFZ$=""THEN4870
  483. 4880 IFZ$<>CHR$(13)THEN4870
  484. 4890 GOSUB1530:RETURN
  485. 4900 PRINT"[147]           COMBINATION LIST"
  486. 4910 PRINT"           [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  487. 4920 PRINT"   1) VOWELS AT THE BEGINNING. ([158]EACH)"
  488. 4930 PRINT"   2) VOWELS IN THE MIDDLE. (S[158]AIL)"
  489. 4940 PRINT"   3) VOWELS AT THE END. (GL[158]UE)"
  490. 4950 PRINT"   4) DOUBLE VOWELS. (SL[158]EEP)"
  491. 4955 PRINT"   5) CONSONANT BLENDS ([158]SHORT)
  492. 4960 [153]"      CHOOSE ONE OF THE ABOVE:"
  493. 4970 [161]D$:[139]D$[178]""[167]4970
  494. 4980 [139][198](D$)[179]49[176][198](D$)[177]53[167]4970
  495. 4990 [153]"";[163]31);D$
  496. 5000 [151]V[170]21,12:[151]V[170]4,100:[151]V[170]5,200:[151]V[170]6,250:[151]V[170]7,200
  497. 5010 [151]S[170]24,15:[151]S[170]4,21:[151]S,120:[151]S[170]1,60:[151]S[170]4,20
  498. 5020 D[178][198](D$):D[178]D[171]48
  499. 5030 [145]D[137]5050,5070,5040,5060,5080
  500. 5040 D[178]00:D1[178]14:[142]
  501. 5050 D[178]14:D1[178]14:[142]
  502. 5060 D[178]28:D1[178]20:[142]
  503. 5070 D[178]49:D1[178]14:[142]
  504. 5080 D[178]62:D1[178]20:[142]
  505.