home *** CD-ROM | disk | FTP | other *** search
- 100 PRINT"[147]":POKE53248+21,0:POKE53248+23,0:POKE53248+29,0:POKE808,225
- 110 Q1$=""
- 120 Q2$=""
- 130 Q3$=""
- 140 PRINT"[147] P H O N C E N T R A T I O N "
- 150 REM
- 160 REM BY MARIO VELA-MARTINEZ
- 170 REM
- 180 REM ASSISTANCE BY:
- 190 REM CARLOS VELA-MARTINEZ &
- 200 REM RAYMOND PRACHUN
- 210 REM
- 220 REM 1018 LAVENDER CRT.
- 230 REM OSHAWA, ONTARIO (CANADA)
- 240 REM L1G 3H1
- 250 REM
- 260 REM
- 270 DIMWD$(14),L1(14),C1$(124),C2(124):DIMB1(14):DIMS4(14),EE$(7)
- 280 DIMB2(14):DIMSP(14):DIMCH(36):MA=2
- 290 DIMI1(30),I2(30),I3(30),I4(30),I5(30):DIMW1(20),W2(20),W3(20):RESTORE
- 300 DIMS1(14),S2(14),S3(14),Y1$(15),Y2$(15)
- 310 MA=2:PRINTCHR$(8):GOSUB320:GOTO400
- 320 RESTORE
- 330 FORI=1TO82:READA$:READA:C1$(I)=A$:C2(I)=A:NEXTI
- 340 REM
- 350 REM
- 360 REM
- 370 RETURN
- 380 CL=CL+2:POKE53280,CL:POKE53281,CL+2
- 390 RETURN
- 400 GOSUB3180
- 410 FORI=1TO27:READA,B,C,D,E:I1(I)=A:I2(I)=B:I3(I)=C:I4(I)=D:I5(I)=E:NEXTI
- 420 FORI=1TO14:READA,B,C:W1(I)=A:W2(I)=B:W3(I)=C:NEXTI
- 430 GOSUB2490
- 440 REM
- 450 GOSUB3930
- 460 POKEV+21,0:PRINT"[147]":POKE53280,6:POKE53281,0
- 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]"
- 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]"
- 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]"
- 500 FORI=1TO3:PRINTG1$:PRINTG2$:PRINTG3$:PRINT"":NEXT
- 510 PRINT"[154] [146]"
- 520 PRINT" [146]"
- 530 PRINT" [146][159]"
- 540 FORT=1784TO1810:POKET,160:POKET+54272,14:NEXT
- 550 FORT=1770TO1024STEP-40:POKET,160:POKET+54272,14:NEXT
- 560 FORT=1051TO1063:POKET,160:POKET+54272,14:NEXT
- 570 FORT=1063TO1743STEP40:POKET,160:POKE54272+T,14:NEXT
- 580 FORT=1783TO1771STEP-1:POKET,160:POKET+54272,14:NEXT
- 590 FORT=1811TO1823:POKET,160:POKET+54272,14:NEXTT
- 600 G4$=""
- 610 PRINT"";G4$;"WORD LIST":D1=30
- 620 PRINT"";G4$;"[157]1. ";WD$(1):XY=1:GOSUB700
- 630 PRINT"";G4$;"[157]2. ";WD$(2):XY=2:GOSUB700
- 640 PRINT"";G4$;"[157]3. ";WD$(3):XY=3:GOSUB700
- 650 PRINT"";G4$;"[157]4. ";WD$(4):XY=4:GOSUB700
- 660 PRINT"";G4$;"[157]5. ";WD$(5):XY=5:GOSUB700
- 670 PRINT"";G4$;"[157]6. ";WD$(6):XY=6:GOSUB700
- 680 PRINT"";G4$;"[157]7. ";WD$(7):XY=7:GOSUB700
- 690 GOTO1190
- 700 D=L1(XY):PRINT"[145]";TAB(D1+D);"--":RETURN
- 710 RESTORE
- 720 PRINTQ3$" ONE MOMENT PLEASE "
- 725 FORI=1TO36:CH(I)=0:NEXT
- 730 FORT=1TO7
- 740 A=INT(RND(1)*D1+1)
- 750 IFCH(A)=50THEN740
- 760 IFC1$(A+D)=""THEN740
- 770 WD$(T)=C1$(A+D):WD$(T+7)=C1$(A+D)
- 780 IFWD$(T)=""THEN740
- 790 IFWD$(T+7)=""THEN740
- 800 L1(T)=C2(A+D):L1(T+7)=C2(A+D)
- 810 CH(A)=50
- 820 NEXTT
- 830 GOSUB960:RETURN
- 840 DATA"UNTRUE",5,"BLUEJAY",6,"STUDIO",5,"YOU",2,"GLUE",3,"BLUE",3,"RADIO",4
- 850 DATA"STAY",3,"WAY",2,"FRIDAY",5,"PRAY",3,"SPRAY",4,"AWAY",3,"TODAY",4
- 860 DATA"OUNCE",1,"EASY",1,"EAGER",1,"EARRING",1,"OATS",1,"OAK",1,"OAF",1
- 870 DATA"EAGLE",1,"EAST",1,"AIRPLANE",1,"AIM",1,"AID",1,"OUTSIDE",1,"EARMUFF",1
- 880 DATA "TAIL",2,"PAIN",2,"RAIN",2,"TOAST",2,"ROAST",2
- 890 DATA "FOAM",2,"VIOLENT",2,"SOAP",2,"COAT",2,"MEAT",2
- 900 DATA "HEAT",2,"BREADBOX",3,"PEANUT",2,"BREATH",3,"VIOLIN",2
- 910 DATA "VOICE",2,"TREAD",3,"CHOICE",3,"JOINT",2,"COIN",2
- 920 DATA"GREEN",3,"STREET",4,"SHEEP",3,"DEEP",2,"PEEP",2,"WEEPING",2,"ROOSTER",2
- 930 DATA"SPOON",3,"SCHOOL",4,"QUEEN",3,"MOON",2,"BROOM",3,"COOL",2,"BALLOON",5
- 940 DATA"THRONE",1,"THIRSTY",1,"THRILL",1,"AUTHOR",3,"CLOTHES",4
- 950 DATA"SHADOW",1,"SHOOT",1,"FLUSH",4,"SHELF",1,"CASH",3
- 960 DATA"CHOKE",1,"CHISEL",1,"CATCH",4,"CHURCH",5,"PATCH",4
- 965 DATA"WHOLE",1,"WHEEL",1,"WHISPER",1,"WHARF",1,"WHIRL",1
- 970 FORI=1TO14
- 980 F=0:IS=INT(RND(1)*14+1)
- 990 F=F+1:IFSP(F)=ISTHEN980
- 1000 IFF=14THEN1020
- 1010 GOTO990
- 1020 F=0
- 1030 IFIS=1THENS1(I)=1106:S2(I)=49:S3(I)=48:S4(I)=10:B1(I)=81:B2(I)=36
- 1040 IFIS=2THENS1(I)=1111:S2(I)=49:S3(I)=49:S4(I)=11:B1(I)=81:B2(I)=77
- 1050 IFIS=3THENS1(I)=1116:S2(I)=49:S3(I)=50:S4(I)=12:B1(I)=81:B2(I)=116
- 1060 IFIS=4THENS1(I)=1121:S2(I)=49:S3(I)=51:S4(I)=13:B1(I)=81:B2(I)=155
- 1070 IFIS=5THENS1(I)=1126:S2(I)=49:S3(I)=52:S4(I)=14:B1(I)=81:B2(I)=195
- 1080 IFIS=6THENS1(I)=1346:S2(I)=49:S3(I)=53:S4(I)=15:B1(I)=129:B2(I)=36
- 1090 IFIS=7THENS1(I)=1351:S2(I)=49:S3(I)=54:S4(I)=16:B1(I)=129:B2(I)=77
- 1100 IFIS=8THENS1(I)=1361:S2(I)=49:S3(I)=55:S4(I)=17:B1(I)=129:B2(I)=155
- 1110 IFIS=9THENS1(I)=1366:S2(I)=49:S3(I)=56:S4(I)=18:B1(I)=129:B2(I)=195
- 1120 IFIS=10THENS1(I)=1586:S2(I)=49:S3(I)=57:S4(I)=19:B1(I)=177:B2(I)=36
- 1130 IFIS=11THENS1(I)=1591:S2(I)=50:S3(I)=48:S4(I)=20:B1(I)=177:B2(I)=77
- 1140 IFIS=12THENS1(I)=1596:S2(I)=50:S3(I)=49:S4(I)=21:B1(I)=177:B2(I)=116
- 1150 IFIS=13THENS1(I)=1601:S2(I)=50:S3(I)=50:S4(I)=22:B1(I)=177:B2(I)=155
- 1160 IFIS=14THENS1(I)=1606:S2(I)=50:S3(I)=51:S4(I)=23:B1(I)=177:B2(I)=195
- 1170 SP(I)=IS
- 1180 NEXT:RETURN
- 1190 FORI=1TO14
- 1200 POKES1(I),S2(I):POKE54272+S1(I),1:POKES1(I)+1,S3(I):POKE54272+S1(I)+1,1
- 1210 NEXTI:GOSUB4130:GOTO1560
- 1220 A$=""
- 1230 PRINTQ1$;" "
- 1240 PRINTQ1$;ZZ$(MA);" ";U$
- 1250 A$=""
- 1260 GETB$:IFB$=""THEN1260
- 1270 IFB$="[133]"THEN2480
- 1280 JW=0:FORI=48TO57:IFB$=CHR$(I)THENJX=I
- 1290 IFB$<>CHR$(I)THENJW=JW+1
- 1300 NEXTI:IFJW=10THEN1260
- 1310 X1=JX-48:IFX1<0ORX1>2THEN1260
- 1320 PRINTA$;B$
- 1330 GETB$:IFB$=""THEN1330
- 1340 IFB$="[133]"THEN2480
- 1350 JW=0:FORI=48TO57:IFB$=CHR$(I)THENJX=I
- 1360 IFB$<>CHR$(I)THENJW=JW+1
- 1370 NEXTI:IFB$=CHR$(20)THENPRINTA$;" ":GOTO1260
- 1380 IFJW=10THEN1330
- 1390 X2=JX-48
- 1400 A8=X1*10:A9=A8+X2:IFA9>23THEN1330
- 1410 PRINTA$;"";B$
- 1420 GETB$:IFB$=""THEN1420
- 1430 IFB$="[133]"THEN2480
- 1440 X1=X1*10:X=X1+X2:IFX>23THEN1330
- 1450 IFB$=CHR$(20)THENPRINTA$;" ":B$="":GOTO1260
- 1460 IFB$=CHR$(13)THENA$="":RETURN
- 1470 B$="":GOTO1420
- 1480 POKE198,0:GOSUB1530:PRINTQ1$;WR$
- 1490 PRINTQ3$;" PRESS THE [146] RETURN KEY TO CONTINUE [146]"
- 1500 GETB$:IFB$=""THEN1500
- 1510 IFB$<>CHR$(13)THEN1500
- 1520 GOSUB1530:RETURN
- 1530 PRINTQ1$;" "
- 1540 PRINTQ2$;" "
- 1550 PRINTQ3$;" ":RETURN
- 1560 GOSUB2410
- 1570 A$=""
- 1580 GOSUB1220:W=0
- 1590 W=W+1:IFS4(W)=XTHENA=W:GOTO1610
- 1600 GOTO1590
- 1610 W=0
- 1620 IFC1$(A)<>"NIL"THEN1660
- 1630 PRINTQ1$;" "
- 1640 PRINTQ1$;"SORRY, CARD";X;"HAS ALREADY BEEN PICKED.":GOSUB4860
- 1650 XC=2:GOTO1560
- 1660 GOSUB3510
- 1670 U$="NOW CHOOSE A SECOND CARD":GOSUB1220
- 1680 IFS4(A)<>XTHEN1720
- 1690 PRINTQ1$;" "
- 1700 PRINTQ1$;" PLEASE DO NOT PICK THE SAME CARD TWICE!":GOSUB4860
- 1710 GOTO1670
- 1720 W=0
- 1730 W=W+1:IFS4(W)=XTHENA1=W:GOTO1750
- 1740 GOTO1730
- 1750 W=0:IFC1$(A1)<>"NIL"THEN1790
- 1760 PRINTQ1$;" "
- 1770 PRINTQ1$;"SORRY, CARD";X;"HAS ALREADY BEEN PICKED.":GOSUB4860
- 1780 GOTO1670
- 1790 REM
- 1800 GOSUB3650
- 1810 D$=WD$(A):E$=WD$(A1):D=L1(A):E=L1(A1):D1$=MID$(D$,D):E1$=MID$(E$,E)
- 1820 IFLEFT$(D1$,2)=LEFT$(E1$,2)THEN1870
- 1830 PRINTQ1$;" "
- 1840 POKES+6,9:FORI=255TO0STEP-10
- 1850 POKES+4,17:POKES,20:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
- 1860 WR$=" SORRY, THAT IS NOT A MATCH [146] ":GOSUB1480:GOTO2170
- 1870 REM
- 1880 POKES+6,9:POKES,40:POKES+1,2:FORI=1TO10:NEXTI:FORI=0TO255STEP10
- 1890 POKES+4,17:POKES,200:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
- 1900 WR$=" THAT'S RIGHT WE HAVE A MATCH! "
- 1910 FORQ=1TO10:POKE53280,Q:POKE53281,Q+1
- 1920 FORDY=1TO30:NEXTDY:NEXTQ:POKE53280,6:POKE53281,0
- 1930 GOSUB1480
- 1940 D$=MID$(WD$(A),L1(A)):D1$=LEFT$(D$,2)
- 1950 PRINTQ2$;" WHICH WORD CAN YOU COMPLETE[160]WITH ";D1$;"[146]? "
- 1960 GETB$:IFB$=""THEN1960
- 1970 IFB$="1"THENNM=1:GOSUB2070:GOTO2080
- 1980 IFB$="2"THENNM=2:GOSUB2070:GOTO2080
- 1990 IFB$="3"THENNM=3:GOSUB2070:GOTO2080
- 2000 IFB$="4"THENNM=4:GOSUB2070:GOTO2080
- 2010 IFB$="5"THENNM=5:GOSUB2070:GOTO2080
- 2020 IFB$="6"THENNM=6:GOSUB2070:GOTO2080
- 2030 IFB$="7"THENNM=7:GOSUB2070:GOTO2080
- 2040 IFB$="[133]"THEN2480
- 2050 GOTO1960
- 2060 GOTO2080
- 2070 D$=MID$(WD$(NM),L1(NM)):AN$=LEFT$(D$,2):RETURN
- 2080 IFEE$(NM)<>"NIL"THEN2120
- 2090 PRINTQ2$;" "
- 2100 PRINTQ1$;" SORRY ";B$;" HAS ALREADY BEEN PICKED.":GOSUB4860
- 2110 GOTO1940
- 2120 D$=MID$(WD$(A),L1(A)):D1$=LEFT$(D$,2):IFD1$=AN$THEN2210
- 2130 POKES+6,9:POKES,40:POKES+1,255:FORI=1TO10:NEXTI:FORI=255TO0STEP-10
- 2140 POKES+4,17:POKES,40:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
- 2150 PRINTQ2$;" "
- 2160 PRINTQ1$;" I AM VERY SORRY, BUT YOU ARE WRONG. ":GOSUB4860
- 2170 POKES1(A)+54272,1:POKES1(A)+54273,1
- 2180 POKES1(A),S2(A):POKES1(A)+1,S3(A)
- 2190 POKES1(A1)+54272,1:POKES1(A1)+54273,1
- 2200 POKES1(A1),S2(A1):POKES1(A1)+1,S3(A1):POKEV+21,0:GOTO1560
- 2210 PRINTQ1$;" "
- 2220 POKES+6,9:POKES,40:POKES+1,2:FORI=1TO10:NEXTI:FORI=0TO255STEP10
- 2230 POKES+4,17:POKES,40:POKES+1,I:POKES+4,16:NEXTI:POKES+6,0:POKES+1,0:POKES,0
- 2240 FORI=1TO10:POKE53280,I:POKE53281,I+1:NEXTI:POKE53280,6:POKE53281,0
- 2250 WR$=" WOW!! WOW!! WOW!!":GOSUB1480
- 2260 IFMA=1THENT1=T1+1
- 2270 IFMA=2THENT2=T2+1
- 2280 IFT1+T2<>7THEN2300
- 2290 GOSUB3790:GOSUB4170:POKEV+21,0:GOTO4230
- 2300 REM
- 2310 PRINTQ1$;" "
- 2320 PRINTQ1$;" YOU MAY NOW HAVE ANOTHER TURN. "
- 2330 FORDY=1TO1000:NEXTDY
- 2340 IFMA=1THENT1=T1-1
- 2350 IFMA=2THENT2=T2-1
- 2360 GOSUB3790:C1$(A)="NIL":C1$(A1)="NIL"
- 2370 IFMA=1THENT1=T1+1:U$="WHICH CARD WOULD YOU LIKE? ":Z=36:RX=37
- 2380 IFMA=2THENT2=T2+1:U$="WHICH CARD WOULD YOU LIKE? ":Z=36:RX=37
- 2390 GOSUB4130:POKEV+21,0
- 2400 GOTO1580
- 2410 IFXC=2THENXC=0:GOTO2440
- 2420 IFMA=2THENMA=1:GOTO2440
- 2430 IFMA=1THENMA=2:GOTO2460
- 2440 U$="WHICH CARD WOULD YOU LIKE? "
- 2450 Z=26:RX=27:RETURN
- 2460 U$="WHICH CARD WOULD YOU LIKE? "
- 2470 Z=26:RX=27:RETURN
- 2480 V=53248:POKEV+21,0:GOSUB2880:GOTO4640
- 2490 POKE53280,14:POKE53281,0:PRINT"[147]"
- 2500 A$="":PRINTCHR$(142)
- 2510 PRINT"[156]EA"
- 2520 PRINT"[153]EE"
- 2530 PRINT"";TAB(32);"[129]UE"
- 2540 PRINT"";TAB(35);"TH"
- 2550 PRINT"[158]OI"
- 2560 PRINT"[154]OU"
- 2570 PRINT"";TAB(30);"[158]OA"
- 2580 PRINT"";TAB(16);"[159]CH"
- 2600 FORI=1TO14
- 2610 PRINTA$;TAB(11);"[158][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160]"
- 2620 PRINTTAB(11);" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][209]"
- 2630 PRINTTAB(11);"[209][180]PHONCENTRATION[158][170] "
- 2640 PRINTTAB(11);" [204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186][209]"
- 2650 PRINTTAB(11);"[209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209] "
- 2660 PRINTTAB(11)" A PHONIC DRILL &"
- 2670 PRINTTAB(11)" PRACTICE GAME "
- 2680 PRINTTAB(09)"[159]BY MARIO VELA-MARTINEZ"
- 2690 PRINTTAB(09)"[159] AND"
- 2700 PRINTTAB(09)"[159] CARLOS VELA-MARTINEZ"
- 2710 PRINTTAB(08)"[159]ASSISTANCE BY RAY PRACHUN"
- 2730 PRINTA$;TAB(11);" [209][160][209][160][209][160][209][160][209][160][209][160][209][160][209][160][209]"
- 2740 PRINTTAB(11);"[209][158][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208] "
- 2750 PRINTTAB(11);" [180]PHONCENTRATION[158][170][209]"
- 2760 PRINTTAB(11);"[209][158][204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186] "
- 2770 PRINTTAB(11);" [209][160][209][160][209][160][209][160][209][160][209][160][209][160][209] [209]"
- 2780 POKES+24,15
- 2790 POKES+4,65:POKES+1,W1(I):POKES+0,W2(I):FORKK=1TOW3(I):NEXTKK:POKES+4,64
- 2800 NEXTI:FORKK=1TO1500:NEXT:POKES+1,0:POKES,0
- 2810 POKES+24,15
- 2820 GOSUB4900
- 2830 GOSUB710
- 2840 POKEV+21,0:PRINT"[147] DO YOU WISH INSTRUCTIONS (Y/N)? "
- 2850 GETZ$:IFZ$=""THEN2850
- 2860 IFZ$="N"THENRETURN
- 2870 IFZ$<>"Y"THEN2850
- 2880 PRINT"[147] [155] -[201][206][211][212][210][213][195][212][201][207][206][211]- ":POKE53280,6:POKE53281,12:PRINTCHR$(14)
- 2890 PRINT" [212]HE OBJECT OF THE GAME IS TO TRY TO"
- 2900 PRINT" COMPLETE THE WORD LIST, SHOWN ON THE"
- 2910 PRINT" RIGHT-HAND SIDE OF THE SCREEN."
- 2920 PRINT" [207]N A TURN, A PLAYER IS ALLOWED TO "
- 2930 PRINT" CHOOSE TWO CARDS. [212]HE AIM IS TO PICK "
- 2940 PRINT" TWO VOWEL COMBINATIONS THAT MATCH. [198]OR EXAMPLE..."
- 2950 PRINT" [144][197][193] AND [144][197][193]"
- 2960 PRINT" [201]F THE TWO CARDS MATCH, THE PLAYER"
- 2970 PRINT" IS ALLOWED TO TRY TO DECIDE WHICH"
- 2980 PRINT" WORD WILL BE PROPERLY COMPLETED WITH"
- 2990 PRINT" THAT VOWEL COMBINATION.[160] [198]OR EXAMPLE..."
- 3000 PRINT" [160] [144][204]--[210][206] + [144][197][193] = [144][204][197][193][210][206]"
- 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]";
- 3020 GETB$:IFB$<>CHR$(13)THEN3020
- 3030 PRINT"[147] [155] -[201][206][211][212][210][213][195][212][201][207][206][211]- "
- 3040 PRINT" [215]HEN THE ANSWER IS CORRECT, THE"
- 3050 PRINT" PLAYER IS AWARDED 1 POINT AND IS THEN"
- 3060 PRINT" GIVEN ANOTHER TURN. [207]NCE ALL THE CARDS"
- 3070 PRINT" HAVE BEEN DRAWN, THE PLAYER WITH THE"
- 3080 PRINT" HIGHEST SCORE WINS!!"
- 3090 PRINT" [211]O THAT YOU DON'T HAVE TO DO ALL THE"
- 3100 PRINT" WORK, TWO FRIENDLY [194]UGABOOS HAVE BEEN"
- 3110 PRINT" HIRED TO HELP YOU. [193]S YOU PICK A CARD,"
- 3120 PRINT" A [194]UGABOO WILL POP OUT AND FLIP THAT"
- 3130 PRINT" CARD OVER SO THAT YOU ARE ABLE TO SEE"
- 3140 PRINT" IT!"
- 3142 PRINT" [201]F YOU NEED SEE THE INSTRUCTIONS "
- 3143 PRINT" AGAIN, JUST HIT THE '[198]1' KEY. [194]UT"
- 3144 PRINT" REMEMBER THAT THIS WILL END THE GAME"
- 3145 PRINT" IN PROGRESS."
- 3150 PRINT"[144] [208][210][197][211][211][160][210][197][212][213][210][206][160][212][207][160][194][197][199][201][206]";
- 3160 GETB$:IFB$<>CHR$(13)THEN3160
- 3170 PRINT"[147]":PRINTCHR$(142):RETURN
- 3180 V=53248:POKE2040,13:POKE2041,14:POKE2042,15:POKE2043,15
- 3190 POKEV+28,255:POKEV+37,5:POKEV+38,0
- 3200 REM
- 3210 FORSP=832TO894:READA:POKESP,A:NEXT:GOSUB380
- 3220 FORSP=896TO958:READA:POKESP,A:NEXT:GOSUB380
- 3230 FORSP=960TO1022:READA:POKESP,A:NEXT:GOSUB380
- 3240 POKEV+21,0:POKEV+39,1:POKEV+40,1:POKEV+41,1:POKEV+42,1
- 3250 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,9:POKES+6,11:POKES+2,0
- 3260 POKES+3,4
- 3270 RETURN
- 3280 REM
- 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
- 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
- 3310 DATA85,85,80,85,85,80,21,85,64,0,0,0,0,0,0
- 3320 REM
- 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
- 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
- 3350 DATA5,85,85,5,85,85,1,85,84,0,0,0,0,0,0
- 3360 REM
- 3370 DATA17,0,17,21,0,21,16,0,1,16,128,129,18,162,161,18,162,161,18,251,225
- 3380 DATA18,251,225,22,251,229,21,149,149,5,85,84,7,213,244,5,127,84,5,85,84
- 3390 DATA1,85,80,0,85,64,0,0,0,1,81,80,5,85,84,5,85,84,1,81,80
- 3400 DATA8,97,0,0,100
- 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
- 3420 DATA8,97,0,0,50,10,143,0,0,100,8,97,0,0,100,8,97,0,0,200:REM ***
- 3430 DATA8,97,10,143,100,8,97,10,143,50,8,97,10,143,50,8,97,10,143,100
- 3440 DATA 8,97,10,143,50,8,97,10,143,50,10,143,12,143,100,8,97,10,143,100
- 3450 DATA 8,97,10,143,200,10,143,12,143,100,10,143,12,143,50,10,143,12,143,50
- 3460 DATA 10,143,12,143,100,10,143,12,143,100,12,143,16,195,100
- 3470 DATA 8,97,4,48,100,8,97,4,48,400
- 3480 REM ***
- 3490 DATA 7,12,100,8,97,25,8,97,100,8,97,100,9,104,100,8,97,25,7,12,100
- 3500 DATA 5,152,120,7,119,40,7,119,5,8,97,70,7,12,100,6,71,25,5,152,100
- 3510 POKES+5,0:POKES+6,0:FORJ=0TO7:POKEV+J,0:NEXT
- 3520 Y=B1(A):X=B2(A):POKES+24,15
- 3530 FORO=4TOXSTEP4:POKEV+21,1:POKEV+0,O:POKEV+1,Y
- 3540 POKES+4,33:POKES+1,40:POKES,100:POKES+4,32
- 3550 POKEV+21,2:POKEV+2,O+1
- 3560 POKEV+3,Y:POKES+4,129:POKES+1,100:POKES,100:POKES+4,128:NEXT
- 3570 POKEV+21,4:POKEV+4,O-5:POKEV+5,Y-2:POKES+1,0:POKES,0
- 3580 POKES1(A)+54272,1:POKES1(A)+54273,1
- 3590 REM
- 3600 D$=WD$(A):D=L1(A):D1$=MID$(D$,D)
- 3610 D2$=LEFT$(D1$,1):D3$=MID$(D1$,2)
- 3620 D=ASC(D2$):D1=ASC(D3$)
- 3630 POKES1(A),D-64:POKES1(A)+1,D1-64
- 3640 RETURN
- 3650 Y=B1(A1):X=B2(A1)
- 3660 FORO=4TOXSTEP4:POKEV+21,5:POKEV+0,O:POKEV+1,Y
- 3670 POKES+4,33:POKES+1,60:POKES,100:POKES+4,32
- 3680 POKEV+21,6:POKEV+2,O+1
- 3690 POKEV+3,Y:POKES+4,129:POKES+1,150:POKES,100:POKES+4,128:NEXT
- 3700 POKEV+42,1:POKEV+21,12:POKE2043,15:POKEV+6,O-5:POKEV+7,Y-2:POKES+1,0
- 3710 POKES,0:POKES1(A1)+54272,1:POKES1(A1)+54273,1
- 3720 REM
- 3730 D$=WD$(A1):D=L1(A1):D1$=MID$(D$,D)
- 3740 D2$=LEFT$(D1$,1):D3$=MID$(D1$,2)
- 3750 D=ASC(D2$):D1=ASC(D3$)
- 3760 POKES1(A1),D-64:POKES1(A1)+1,D1-64
- 3770 RETURN
- 3780 STOP
- 3790 REM
- 3800 IFNM=1THENAV$="":GOTO3870
- 3810 IFNM=2THENAV$="":GOTO3870
- 3820 IFNM=3THENAV$="":GOTO3870
- 3830 IFNM=4THENAV$="":GOTO3870
- 3840 IFNM=5THENAV$="":GOTO3870
- 3850 IFNM=6THENAV$="":GOTO3870
- 3860 IFNM=7THENAV$=""
- 3870 PRINTAV$;"[158][153]";TAB(31);WD$(NM)
- 3880 EE$(NM)="NIL"
- 3890 POKES1(A)+54272,2:POKES1(A)+54273,2
- 3900 POKES1(A),160:POKES1(A)+1,160
- 3910 POKES1(A1)+54272,2:POKES1(A1)+54273,2
- 3920 POKES1(A1),160:POKES1(A1)+1,160:RETURN
- 3930 PRINT"[147]":PRINTCHR$(142):POKE53280,6:POKE53281,12
- 3940 CC=CC+1:IFCC=3THENCC=0:RETURN
- 3950 PRINT"[147] PLAYER # ";CC
- 3960 PRINT" NAME: ";
- 3970 REM
- 3980 IU=9
- 3990 ZZ$(CC)="":POKE204,1
- 4000 GETZA$:IFZA$=""THEN4000
- 4010 IFASC(ZA$)=13THENPRINT" ":POKE204,1:SN$=ZZ$:GOTO4090
- 4020 IFASC(ZA$)=20THENGOTO4070
- 4030 IFIU+1=>18THEN4000
- 4040 IFASC(ZA$)<65ORASC(ZA$)>90THEN4000
- 4050 IU=IU+1:ZZ$(CC)=ZZ$(CC)+ZA$
- 4060 PRINT;TAB(IU);ZA$;:GOTO4000
- 4070 IFIU=9THENGOTO4000
- 4080 ZZ$(CC)=LEFT$(ZZ$(CC),LEN(ZZ$(CC))-1):IU=IU-1:GOTO4060
- 4090 IFZZ$(CC)=""THEN3950
- 4100 GOTO3940
- 4110 :
- 4120 :
- 4130 EZ$=""
- 4140 PRINTEZ$;"[145][154][175][175][175][175][175][175][175][175][175][175][175][175]"
- 4150 PRINT" "
- 4160 PRINT" "
- 4170 FORI=1TOCC:PRINTEZ$;TAB(I+26);"";ZZ$(1);:NEXT:PRINT":";T1
- 4180 EZ$=""
- 4190 FORI=1TOYY:PRINTEZ$;TAB(I+26);ZZ$(2);:NEXT:PRINT":";T2
- 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]";
- 4210 IFT1+T2=7THEN4230
- 4220 RETURN
- 4230 PRINTA$;" "
- 4240 POKEV+21,0:FORI=1TO1000:NEXT
- 4250 A1$=""
- 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]"
- 4270 AA$="[157][157][157][158] [157][157][157][157][157] [157][157][157][157] [157][157] [157][157] "
- 4280 PRINT"[147]":IFT1>T2THEN PRINT" ";ZZ$(1)
- 4290 IFT2>T1THEN PRINT" ";ZZ$(2)
- 4300 PRINT" IS THE WINNER!!"
- 4310 GOSUB4750
- 4320 PRINT"[145][145][145][145][145][145]":PRINTA1$;A$
- 4330 PRINT"[155] [146]"
- 4340 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
- 4350 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146]"
- 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]"
- 4370 FORT=VTOV+5:POKET,0:NEXT:POKES+24,15
- 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]";
- 4390 POKES+12,9:POKES+13,11:POKES+11,129:POKES+7,100:POKES+8,40:POKES+11,128
- 4400 POKEV+21,1:POKEV+1,206:POKEV+3,206:A=32:H=206
- 4410 FORTH=10TO32STEP4:POKEV+21,1:POKES+4,33:POKES,40:POKES+1,100:POKES+4,32
- 4420 POKEV+21,2:POKES+4,129:POKES,150:POKEV+0,TH:POKEV+2,TH
- 4430 POKES+1,200:POKES+4,128:NEXTTH
- 4440 FORTT=1TO5:FORTH=ATOA+24STEP4:POKEV+0,TH:POKEV+1,H:POKEV+21,1
- 4450 POKES+4,33:POKES,40:POKES+1,100:POKES+4,32
- 4460 POKEV+2,TH:POKEV+3,H
- 4470 POKEV+21,2:POKES+4,129:POKES,150:POKES+1,200:POKEV+4,128:NEXTTH:H=H-8
- 4480 A=A+24:NEXTTT:PRINT"";TAB(20);AA$
- 4490 POKEV+21,4:POKEV+4,166:POKEV+5,172:PRINT"";TAB(20);A$;""
- 4500 POKE1601,100:POKE1605,100:POKE1601+54272,1:POKE1605+54272,1
- 4510 POKES+2,0:POKES+3,5:POKES+5,6:POKES+6,10
- 4520 POKES+9,1:POKES+10,15:POKES+12,6:POKES+13,10:POKES+24,15
- 4530 FORI=1TO27:POKES+4,65:POKES+11,65:POKES,I2(I):POKES+7,I4(I)
- 4540 POKES+1,I1(I):POKES+8,I3(I):POKES+11,64:POKES+4,64
- 4550 FORK=1TOI5(I):NEXTK:NEXTI
- 4560 FORH=1TO500:NEXT:POKES,0:POKES+1,0:POKES+7,0:POKES+8,0
- 4570 PRINT"[155] DO YOU WISH TO PLAY AGAIN?[160](Y/N) ";
- 4580 REM
- 4590 GETB$:IFB$=""THEN4590
- 4600 IFLEFT$(B$,1)="Y"THEN4640
- 4610 IFLEFT$(B$,1)<>"N"THEN4590
- 4620 PRINT"[147][146]BYE!":POKEV+4,24:POKEV+5,59:POKES+4,21
- 4630 POKES,20:POKES+1,100:POKES+4,20:END
- 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
- 4650 FORI=1TO7:EE$(I)="":NEXT
- 4660 POKEV+21,0:PRINT"[147] SAME PLAYERS AGAIN (Y/N) ?"
- 4670 GETB$:IFB$=""THEN4670
- 4680 IFLEFT$(B$,1)="Y"THEN4730
- 4690 IFLEFT$(B$,1)<>"N"THEN4670
- 4700 PRINT"[147]"
- 4710 FORI=1TO15:Y1$(I)="":Y2$(I)="":NEXTI:FORI=1TO14:SP(I)=0:NEXT
- 4720 FORI=1TO7:EE$(I)="":NEXT:GOSUB320:GOSUB4900:GOSUB710:GOTO450
- 4730 PRINT"[147]":FORI=1TO14:SP(I)=0:NEXT:GOSUB320:GOSUB4900:GOSUB710
- 4740 GOTO460
- 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]"
- 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]"
- 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]"
- 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]"
- 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]"
- 4800 PRINT" "
- 4810 PRINT" "
- 4820 PRINT" "
- 4830 PRINT" "
- 4840 REM PRINT"[154] "
- 4850 RETURN
- 4860 PRINTQ3$;" PRESS THE [146] RETURN KEY TO CONTINUE [146]"
- 4870 GETZ$:IFZ$=""THEN4870
- 4880 IFZ$<>CHR$(13)THEN4870
- 4890 GOSUB1530:RETURN
- 4900 PRINT"[147] COMBINATION LIST"
- 4910 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
- 4920 PRINT" 1) VOWELS AT THE BEGINNING. ([158]EACH)"
- 4930 PRINT" 2) VOWELS IN THE MIDDLE. (S[158]AIL)"
- 4940 PRINT" 3) VOWELS AT THE END. (GL[158]UE)"
- 4950 PRINT" 4) DOUBLE VOWELS. (SL[158]EEP)"
- 4955 PRINT" 5) CONSONANT BLENDS ([158]SHORT)
- 4960 [153]" CHOOSE ONE OF THE ABOVE:"
- 4970 [161]D$:[139]D$[178]""[167]4970
- 4980 [139][198](D$)[179]49[176][198](D$)[177]53[167]4970
- 4990 [153]"";[163]31);D$
- 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
- 5010 [151]S[170]24,15:[151]S[170]4,21:[151]S,120:[151]S[170]1,60:[151]S[170]4,20
- 5020 D[178][198](D$):D[178]D[171]48
- 5030 [145]D[137]5050,5070,5040,5060,5080
- 5040 D[178]00:D1[178]14:[142]
- 5050 D[178]14:D1[178]14:[142]
- 5060 D[178]28:D1[178]20:[142]
- 5070 D[178]49:D1[178]14:[142]
- 5080 D[178]62:D1[178]20:[142]
-