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