*** THE 64 SPELLER ***I 53281,1:53280,1:(144);(14);(147)OcS54272:V53248i}1 *** TITLE ***2X16::X713)"HE 64 PELLER"<:13)"BY ARY IELDS"F::: K(18)" TO PARENT/TEACHER "1 P:4)"O CHANGE / - 1"O UX140:(183);:X:2000p W PR062:PQ:832PR,PQ:PR~ Z X1100 \F1$:F1$""95 ]F1$(133)2500 _X c *** DISPLAY WORDS *** d(147) i:(18)"ERE ARE THE WORDS YOU WILL BE SPELLING":(146) nA1$/ xA1$"-1"150@ }B1$,A2$,B2$O A1$:2000i (145);20)A2$:2000r 110 :(18)" ANY KEY TO BEGIN " ::3)"O CHANGE / - 1" X140:(183);:X:2000 F1$:F1$""160 F1$(133)25006 :PR062:PQ:PRB (147)S A$,B$:CC0g A$"-1" 1500 *** DISPLAY OF B$ 220-245 X16::X : "HIS DEFINES A WORD YOU KNOW." X140:(183);:X:: I0(B$)" S24,6:S1,126:S,6:S5,120:S6,30:S4,339 (B$,I1):S24,0W (145);(145):X140:X S1,0:S,0:S5,0:S6,0:S4,0:I ::X1100:X "AN YOU SPELL THE WORD";C$ "X150:X ,C$A$600 6C$A$800 W *** WINNING ROUTINE *** X(147):X19::X@ ]SM24: *** START SMOKE LOCATION ** bV4,200:V21,4:2042,13:V29,4: EXPAND AND POSITION SPRITE dV41,0: MAKES TRAIN (SPRITE 2)BLACK l;A$:X1200:X n(152);:X17:(178);:Xo"OU'RE ON THE RIGHT TRACK";:X16:(178);:X#p(144)OqTN200248: SPRITE MOVEMENT COUNTERS24,15:S1,145:S,0:S5,0:S6,240:S4,129V4,TN:V5,120: ** SPRITEMOVER X AND Y LOCATIONSM1SM1SMSM1: *** MOVES SMOKE RIGHT TO LEFT750PU140: PUAS24,0:S1,0:S,0:S5,0:S6,0:S4,0:TN}S24,15:S1,155:S,255:S5,0:S6,240:S4,17: TOOT(19):X16::X:14)"OU GOT IT!!"X1500:XS24,0:S1,0:S,0:S5,0:S6,0:S4,0 X1300:X: PAUSE BETWEEN TOOTSGS24,15:S1,155:S,255:S5,0:S6,240:S4,17: TOOTWX1500:XzV21,0: *** TURNS SPRITE OFFS24,0:S1,0:S,0:S5,0:S6,0:S4,0(147):X16::X(18)A$;(146);" IS THE CORRECT SPELLING"2000X11000:X:(147):X16::%200B **** SMOKE ROUTINE ***u(19);:X18::X: MOVES SMOKE DOWN 6 LINESSM);(31);(42);(32);(42): PRINTS SMOKE (144) *** INCORRECT ROUTINE *** (147)!X16::X)""OUR ANSWER ";(18);C$;(146);" IS INCORRECT."B% *** BUZZ SOUND ***u*S24,15:S1,3:S,255:S5,0:S6,240:S4,334X1600:X9S24,15:S1,34:S,75:S5,128:S6,128:S4,39>X1600:XHS24,0:S1,0:S,0:S5,0:S6,0:S4,0 a:"RY AGAIN"fX1800:X2p(147):X16::XHzB$::X1500:Xv|(18);"OULD YOU LIKE A CLUE? RESS 1 "}CL$:CL$""893~CL$(133)900CCCC1:::15);(A$,CC):X1500:X(147):X16::XB$::"LEASE SPELL THE WORD ";C$2903 *** END ROUTINE ***FX1500::C0^(147):X16::XS24,15:S1,130:S,0:S5,9:S6,240:S4,21" YOU GOT THEM ALL !!":CC1X1600:X:(147)S24,0:S1,0:S,0:S5,0:S6,0:S4,0X16::X C41790?&(147)::PR062:PQ:PRq0(18)" ERE ARE YOUR SPELLING WORDS AGAIN. "z:A1$?A1$"-1"DB1$,A2$,B2$XA1$;:20)A2$b1850 **** BEEP SOUND ****S24,15:S1,45:S,0:S5,9:S6,0:S4,17X1400:X@S24,0:S1,0:S,0:S5,0:S6,0:S4,0Ff **** ADD DATA ROUTINE ***r (147)| :: "ORDS AND DEFINITIONS ARE STORED IN ATA LINES" "HESE ARE LINES 2999-4999" :"HEN REPLACING, BE SURE TO ENTER:") :" LINE FOLLOWED BY 'DATA'"S " THEN THE FOLLOWED BY ACOMMA"x " THEN THE NO COMMA" :"EMEMBER- THE DEFINITON CAN NOT BE OVER 39 CHARACTERS LONG"( :(18)"RESS ETURN TO LIST DATA LINES";:F2$T 299949997 0,0,0,25,191,255,31,191,255,31,156,6,15,12,244, 15z 45,244,95,252,180,127,252,116,255,252,52,255,255,252,127, 255 254,95,255,255,3,255,255,3,255,255,15,254,0,31,252, 254 63,253,131,120,61,57,243,157,57,246,193,131,3,128,254  *** DATA LINES ***6 "DOG"," FOUR LEGGED PET THAT BARKS"e "PENCIL","OU USE IT TO WRITE AT SCHOOL" "ELEPHANT","HE BIGGEST ANIMAL ON LAND" "ALPHABET","HAT ALL THE A,B,C'S ARE CALLED" "MORNING","IME OF DAY WHEN YOU FIRST WAKE UP"' "FRIEND","OMEONE YOU LIKE VERY MUCH"A "-1","-1","-1","-1"