home *** CD-ROM | disk | FTP | other *** search
- 2 POKE53280,14:POKE53281,6
- 5 LP=0
- 10 PRINTCHR$(142):PRINTCHR$(8):PRINTCHR$(154):PRINTCHR$(147)
- 20 POKE53281,6:POKE53280,14
- 30 PRINT"SPELLING LEARNING "
- 40 PRINT"GAME!!!!"
- 50 POKE54296,15
- 60 POKE54277,9
- 70 POKE54276,65
- 75 POKE54275,0:POKE54274,255
- 80 FORS=1TOC:NEXT
- 85 POKE54273,0:POKE54272,0
- 87 POKE54276,0
- 90 IFC=751THEN150
- 100 READA,B,C
- 105 POKE54273,A:POKE54272,B
- 110 GOTO60
- 120 DATA 20,100,375,20,100,375,20,100,250,22,227,125,25,177,375,25,177,250
- 125 DATA 22,227,125,25,177,250,27,56,125,30,141,750
- 130 DATA 40,200,125,40,200,125,40,200,125,30,141,125,30,141,125,30,141,125
- 135 DATA 25,177,125,25,177,125,25,177,125,20,100,125,20,100,125,20,100,125
- 140 DATA 30,141,250,27,56,125,25,177,250,22,227,125
- 145 DATA 20,100,751
- 150 POKE54296,0:PRINTCHR$(153)
- 155 PRINTCHR$(147)
- 160 PRINT"HELLO,THERE."
- 165 PRINT"WELCOME TO THE WORLD OF SPELLING!"
- 170 PRINT"(TYPE IN YOUR NAME,THEN HIT RETURN[146])"
- 175 INPUT"[145][145]WHAT'S YOUR NAME";A$
- 180 PRINT""A$",DO YOU WANT INSTRUCTIONS?"
- 185 PRINT"PUSH EITHER Y[146] FOR YES,OR N[146] FOR NO."
- 190 GETS$:IFS$<>"Y"ANDS$<>"N"THEN190
- 195 IFS$="N"THEN305
- 200 PRINT"[147]OKAY,"A$",IT IS NICE TO MEET"
- 205 PRINT"YOU."
- 210 PRINT"I AM GOING TO FLASH A WORD ON THE"
- 215 PRINT"SCREEN.THEN,I WILL ERASE THE WORD,AND"
- 220 PRINT"ASK YOU TO SPELL IT.SO,YOU WILL TYPE IN THE WORD,THEN HIT RETURN[146]"
- 225 PRINT"I WILL KEEP TRACK OF HOW MANY WORDS"
- 230 PRINT"YOU SPELL CORRECTLY."
- 235 PRINT"IF YOU SPELL THE WORD CORRECTLY,I WILL"
- 240 PRINT"TELL YOU YOU'RE RIGHT BY PUTTING THE"
- 245 PRINT"WORD RIGHT[146] ON THE SCREEN.I WILL HOLD"
- 250 PRINT"IT FOR A BIT,THEN GIVE YOU ANOTHER"
- 255 PRINT"WORD."
- 260 PRINT"IF YOU MISSPELL THE WORD,I WILL SHOW"
- 265 PRINT"YOU THE CORRECT SPELLING OF THE WORD,"
- 270 PRINT"HOLD IT,THEN GIVE YOU ANOTHER WORD."
- 275 PRINT"PUSH F1[146] TO CONTINUE.(ONE OF THE GREY KEYS)
- 280 [161]D$:[139]D$[179][177][199](133)[167]280
- 285 [153]"LOADTHERE WILL BE TEN WORDS IN ALL."
- 290 [153]"THE WORDS WILL BE PICKED AT RANDOM."
- 295 [153]"IF YOU GET 9 OR 10 WORDS RIGHT,THERE "
- 300 [153]"WILL BE A GAME FOR YOU TO PLAY!"
- 305 [153]"WHEN YOU WANT TO START,PUSH F1WAIT"
- 310 [161]W$:[139]W$[179][177][199](133)[167]310
- 311 [133]"ENTER SPEED(1-10)";SP
- 312 K[178]SP[172]100
- 315 [134]C$(150)
- 320 [129]Q[178]1[164]130:[135]C$(Q):[130]Q
- 325 [129]E[178]1[164]10
- 330 Y[178][181](1[170][187](1)[172]260)
- 332 [139]Y[177]130[167]Y[178]Y[171]130
- 335 [153]"LOAD";C$(Y)
- 340 [129]R[178]1[164]K:[130]R
- 345 [133]"LOADNOW,SPELL THE WORD:";Z$
- 350 [139]Z$[178]C$(Y)[167]360
- 355 [153]"SORRY.THE CORRECT SPELLING IS:";C$(Y)
- 356 [129]F[178]1[164]1000:[130]F
- 357 [137]365
- 360 [141]500
- 365 [130]E
- 370 [153]"LOAD"A$",YOU GOT"X"OUT OF 10 WORDS RIGHT."
- 375 [139]X[177][178]9[167]400
- 380 [153]"SORRY,BUT THERE IS NO GAME THIS TIME!"
- 385 [153]"DO YOU WANT TO PLAY AGAIN?(Y/N)"
- 390 [161]O$:[139]O$[179][177]"Y"[175]O$[179][177]"N"[167]390
- 395 [139]O$[178][199](89)[167][138]
- 396 [153]"LOADRUN"
- 397 [153]"":[128]
- 400 [137]550
- 500 X[178]X[170]1
- 505 [153]"RIGHT!!"
- 510 [129]F[178]1[164]700:[130]F
- 515 [142]
- 550 [153]"LOADCONGRATULATIONS!, "A$", YOU MADE IT"
- 552 [153]"TO THE GAME!!"
- 555 [153]"IN THIS GAME,I WILL DISPLAY A BOX"
- 560 [153]"WHICH WILL CONSIST OF 4 SMALLER BOXES."
- 565 [153]"ONE BY ONE,I WILL COLOUR IN ONE OF THE"
- 570 [153]"BOXES.A TOTAL OF 4 WILL BE COLOURED,BUT"
- 575 [153]"ONE AT A TIME.WHEN I FINISH COLOURING"
- 580 [153]"THEM,YOU WILL TELL ME WHICH ONES I"
- 585 [153]"COLOURED BY PRESSING THE FUNCTION KEYS."
- 590 [153]"F1WAIT IS FOR THE TOP BOX,F3WAIT IS FOR"
- 595 [153]"THE SECOND BOX,F5WAIT IS FOR THE THIRD"
- 600 [153]"BOX,AND F7WAIT IS FOR THE BOTTOM BOX."
- 605 [153]"YOU WILL UNDERSTAND IT BETTER AS WE GO"
- 610 [153]"ALONG."
- 615 [153]"PRESS F1WAIT TO BEGIN."
- 620 [161]R$:[139]R$[179][177][199](133)[167]620
- 630 [153][199](147):[153][199](8):[153][199](150)
- 635 [151]53281,2:[151]53280,10
- 640 [153]" WAIT"
- 645 [153]" WAIT WAIT F1 "
- 650 [153]" WAIT
- 655 PRINT" [146] [146] F3 "
- 660 PRINT" [146]"
- 665 PRINT" [146] [146] F5 "
- 670 PRINT" [146]
- 675 [153]" WAIT WAIT F7 "
- 680 [153]" WAIT
- 682 PRINT"ONE MOMENT,PLEASE."
- 685 FORH=1TO4
- 690 L=INT(1+RND(1)*4)
- 700 J(H)=L
- 705 NEXTH
- 710 FORU=1TO4
- 715 IFJ(U)=1THENN$(U)=CHR$(133)
- 720 IFJ(U)=2THENN$(U)=CHR$(134)
- 725 IFJ(U)=3THENN$(U)=CHR$(135)
- 730 IFJ(U)=4THENN$(U)=CHR$(136)
- 735 NEXTU
- 740 FORM=1TO500:NEXTM
- 745 PRINT"[145] "
- 747 PRINTCHR$(5)
- 750 FORW=1TO4
- 755 IFN$(W)=CHR$(133)THENPRINT" [146]"
- 760 IFN$(W)=CHR$(134)THENPRINT" [146]"
- 765 IFN$(W)=CHR$(135)THENPRINT" [146]"
- 770 IFN$(W)=CHR$(136)THENPRINT" [146]"
- 772 PRINTCHR$(10)
- 775 FORT=1TO250:NEXTT
- 780 PRINT" "
- 785 PRINT" "
- 790 PRINT" "
- 792 PRINT" "
- 793 FORSE=1TO200:NEXTSE
- 794 NEXTW
- 796 GOTO900
- 800 DATA MATH,FUN,SPELLING,BOOK,PLUG,TAPE,DIAL,PHONE,SONGS,CODE,COLOUR,STOP
- 805 DATA PLAY,RECORD,DATA,TERMS,BOX,BUS,JOYSTICK,CHAIR,TABLE,DRAW,PICTURE
- 810 DATA CRAYON,PEN,PENCIL,PILLOW,BED,PAINT,PASTEL,LEVEL,STAIRS,CARPET
- 815 DATA FLOOR,SPORTS,BASEBALL,HOCKEY,FOOTBALL,SUN,MOON,TENNIS,HELLO
- 820 DATA GOOD,BAD,FUNNY,CURIOUS,GREAT,TERRIBLE,WIRES,HOUSE,HOME,PATTERN
- 825 DATA HORSE,GALLOP,TROT,COUCH,MOUSE,MOUTH,POUCH,POCKET,JEANS,PANTS
- 830 DATA CLOTHES,SUIT,TIE,JACKET,TIRE,WHEEL,CAR,ENGINE,SEAT,BELT,OPEN,CLOSE
- 835 DATA HUT,MOVE,SPACE,PLANT,VIOLET,EARTH,MACHINE,FILE,UNDER,TOP,SIDE,BEHIND
- 840 DATA FRONT,BACK,BLUE,GREEN,RED,BLACK,BEIGE,WHITE,YELLOW,PURPLE,KITE
- 845 DATA PADDLE,DOG,PET,FISH,CAT,BIRD,PARROT,PEANUT,TODAY,BYE,BY,BUY,STORE
- 850 DATA SHOP,CENTRE,PLAZA,MONEY,CHOCOLATE,CANDY,FREEZE,FOOD,MERRY,MARRY
- 855 DATA WHO,WHAT,WHEN,WHY,WHERE,HOW,MAGIC,TRICKS,TABLE,CARDS
- 900 FORRE=1TO4
- 905 GETQ$
- 906 IFQ$<>CHR$(133)ANDQ$<>CHR$(134)ANDQ$<>CHR$(135)ANDQ$<>CHR$(136)THEN905
- 910 IFQ$=N$(RE)THENLP=LP+1
- 915 NEXTRE
- 917 PRINT"THE ORDER WAS:"
- 918 FORLO=1TO4
- 919 IFN$(LO)=CHR$(133)THENPRINT"";"F1"
- 920 IFN$(LO)=CHR$(134)THENPRINT"";"F3"
- 921 IFN$(LO)=CHR$(135)THENPRINT"";"F5"
- 922 IFN$(LO)=CHR$(136)THENPRINT"";"F7"
- 923 NEXTLO
- 924 FORYOU=1TO2500:NEXTYOU
- 926 POKE53281,6:POKE53280,14:PRINTCHR$(154)
- 930 PRINT"[147]WELL,"A$",AS YOU SAW,YOU GOT "
- 935 PRINTLP"OUT OF A POSSIBLE 4 POINTS IN THIS GAME."
- 937 IFLP=4THENY$="AMAZING!"
- 938 IFLP=3THENY$="PRETTY GOOD!"
- 940 IFLP=2THENY$="AVERAGE!"
- 943 IFLP=1THENY$="WELL,NOT GREAT!"
- 944 PRINTA$",I'D SAY YOU DID ";Y$
- 945 PRINT"THANK YOU FOR PLAYING!"
- 950 PRINT"PLAY AGAIN?"
- 955 GETR$:IFR$<>"Y"ANDR$<>"N"THEN955
- 960 IFR$="Y"THENRUN
- 965 PRINT"BYE,BYE!!"
- 970 PRINT"[147]RUN"
- 975 PRINT"":END
-