3dI1:S1(53280):S2(53281):53280,0:53281,0MiJI50:BL$BL$" ":|n" "x" SPELLING CHALLENGE "" ":" CREATED BY" " MICHAEL BROUSSARD"F " PLEASE WAIT WHILE THE PROGRAM READS"f 10)"ITS VOCABULARY WORDS" MW750:ML20:W$(MW):N.:NLI:L(ML):L(I)I N$:N$"END"200 N$"*"NLMLINLNLI:L(NL)NI:170 NNI:NMW"TOO MANY WORDS--CAN'T SAVE MORE THAN"MW:NNI:200/ W$(N)N$:170D L(NL)NNLNLIZ L(NL1)NI:1000  RETURN INDEX OF P1$ IN PA$ AS PR, STARTING AS PS. IF PE IS TRUE, ONLY  MATCH AT END, IF PN IS TRUE, DON'T MATCH AT END. IF PB IS TRUE, DON'T  MATCH AT BEGINNING9 PR.:P1(P1$):P2(PA$):PIPS:PE.415i P1P2P1P2P1I:(PA$,P1)P1$PRP1:445o  PIP2P1I (PA$,PI,P1)P1$PIPII:415 PNPIP1IP2 PBPIIPIPII:415 PRPI STARTING AT PR,REPLACE P1$ WITH P2$ IN PA$, CREATING PB$( PFQ PB$(PA$,PRI)P2$(PA$,PR(P1$))_ NTNTI: NT.:P1$"^":PSI:PE.:PN.:PFI:400 PR.515 PB$(PA$,PRI,(PA$)PR):PA$(PA$,PRI):NTI: PF.:PB.:PSI:PN.:PE.: MATCH ANYWHERE P1$"NN":P2$"N":400:NT: P1$"MM":P2$"M":400:NTZ P1$"ZZ":P2$"Z":400:NT PBI:PN.:PEI: MATCH AT END NOT AT BEGINNING P1$"LE":P2$"EL":400:NT P1$"OR":P2$"ER":400:NT P1$"ENCE":P2$"ANCE":400:NTP1$"ANCE":P2$"ENCE":400:NT:!P1$"AR":P2$"ER":400:NT]&P1$"ARY":P2$"ERY":400:NT+P1$"ENT":P2$"ANT":400:NT0P1$"ANT":P2$"ENT":400:NT5P1$"ABLE":P2$"IBLE":400:NT:P1$"IBLE":P2$"ABLE":400:NT?P1$"IOUS":P2$"UOUS":400:NT6AP1$"UOUS":P2$"OUS":400:NTdDPN.:PE.:PBI: DON'T MATCH AT BEGINNINGIP1$"EI":P2$"IE":400:NTNP1$"SC":P2$"C":400:NTSP1$"Z":P2$"ZZ":400:NTXPE.:PNI:PB.: DON'T MATCH AT END ]P1$"SS":P2$"S":400:NT.bP1$"IE":P2$"EI":400:NTOgP1$"LY":P2$"LI":400:NTrlPE. : PN. : MATCH ANYWHEREqP1$"MO":P2$"MA":400:NTvP1$"LL":P2$"L":400:NT{P1$"BB":P2$"B":400:NTP1$"CC":P2$"C":400:NTP1$"TT":P2$"T":400:NT3P1$"FF":P2$"F":400:NTSP1$"RR":P2$"R":400:NTsP1$"PP":P2$"P":400:NTP1$"YL":P2$"IL":400:NTP1$"CQ":P2$"Q":400:NTP1$"UOUS":P2$"OUS":400:NTP1$"YS":P2$"IS":400:NT NT.PB$PA$6 RETURN A WORD IN PA$ AT RANDOMWHILOLOL(L1):HIL(L2I)IPILO((HILOI)(.)):PA$W$(PI):W$(PI)W$(HI):W$(HI)PA$HIHII:"":"HOW MANY PLAYERS (1-10)";NP:NP.NP1110201850:1000%::"THERE ARE"N"SPELLING WORDS,":"DIVIDED INTO";ANLI" 1 LEVEL":1040QNL"LEVELS"w:L1.:L2.:NLIL1I:L2I:1080"WHICH LEVEL WOULD YOU LIKE THE"T$((NL),2):"EASIEST WORDS TO COME FROM (1-"T$")";: L1L11L1NL"":1050$L1NLL2NL:10807):"WHICH LEVEL WOULD YOU LIKE THE"t."HARDEST WORDS TO COME FROM ("((L1),2)"-"T$")";: L23L2L1L2NL"":10508LOI:HI.B:"HOW MANY WORDS FOR THIS GAME";:NWLNW1"":1090eNPI1500jCT.tFF.:"":2000:5000#~FFSCSCI;CTCTI:2000:6000N CTNW 1140X3000`P.tPPI:PNPPI"":6)"PLAYER"P" SCORE:"SS(P);"OUT OF"NWFF.:5000 6000:FFSS(P)SS(P)ISS(P)NW1600FF1520"15107@""12)"PLAYER"P"WINS!":JI4:1800::4000kP1I2:54296,15:54277,0:54278,247:54276,33 54273,34:54272,0:P2I150::54276,32P2I50:P2:P1::54296,15:54277,45:54278,165:54276,33 ?54273,8:54272,5:P2I250::54276,16:?""9)"SCORE:";SC" OUT OF"CT;:CT.X.:2010WX(SC(CT)100.5)s" ("((X),2)"%)": "":2000::: (X20)I3030,3040,3050,3060,3070,3080 1850:"MAYBE YOU OUGHT TO BUY A DICTIONARY!":4000 "WHO CARES ABOUT SPELLING ANYWAY?":4000B "NOT BAD, KEEP PRACTICING.":4000 "GREAT! YOU ARE ON YOUR WAY TO BEING A GOOD SPELLER!":4000 1800:"EXCELLENT! YOU ARE A SUPER SPELLER!":4000 XI3:1800:X:"FANTASTIC! YOU GOT THEM ALL!":4000JI4000::53280,S1:53281,S2:SFF.:XF0:900:(PA$,1,1)"<"XF1:PA$(PA$,2)v500:XFT$PA$:PA$PB$:PB$T$(.).25PB$PA$:5020""15)"TEST WORD"" ":W8((22(PB$))2)(BL$,I,W);PB$%" "O""7)"GUESS THE CORRECT SPELLING:"x" "(BL$,I,W);PB$" """10):X$:JJI :X$PA$""16)"CORRECT":1800:FFI:5150/""5)"SORRY, THE CORRECT SPELLING IS:":1850X" "l((BL$,I,W);PA$2" ":p XX1 1500::""zIXI21:"";::" *** PRESS ANY KEY TO CONTINUE ***"T$"":T$:T$""6020 MЄI1:KK.:" VOCABULARY CHECK"::"OUTPUT TO PRINTER (P)"{ڄT$"":" OR SCREEN (S) P";:T$߄T$"P"T$"S"34000F3:T$"P"F4MW1000:W$(MW):N.N$:N$"END"35000N$"*"34040 NN1:W$(N)N$:34040 =4,F:4,"CORRECT WORD INCORRECT WORD"i4,"------- ---- --------- ----"ˆJ1N:PA$W$(J):XF0:(PA$,1,1)"<"XF1:PA$(PA$,2)̈500:XFT$PA$:PA$PB$:PB$T$ֈ4,PA$;(" ",1,20(PA$));PB$;T$"":PA$PB$T$"***"Cꈘ4," "T$:KKKK1:KK23F435090v"PAUSING--HIT ANY KEY TO CONTINUE":T$"":KK.T$:T$""35070" "J:4:XF0:I1:"TEST WORD";PA$:PA$"STOP"(PA$,1,1)"<"PA$(PA$,2):XF17500:XFT$PA$:PA$PB$:PB$T$T" CORRECT WORD: ";PA$sȌT$" ":PA$PB$T$"***"ҌT$" INCORRECT: ";PB$܌:36000PÃOPERATOR,TIGER^TIGGER,MOTOR,CARPET^CARPIT,0x׃MATHEMATICS^MATHAMATICS,MISCELLANEOUS,MOLASSES^MOLLASES,MONITORq0}׃PILGRIM^PILGRUM,:FIRREVERSIBLE,JACKKNIFE^JACKNIFE,JETTISON,PRETENTIOUS^PRETENSIOUS,PROPAGANDA^PROPEGANDA,PROTOCOL^PROTACOLO>QUADRUPED^QUADROPED,QUARANTINE^QUARENTINE,PROSCENIUM,TITILLATE>TABERNACLE^TABARNACLE,TACITURN^TACITERN,TAFFETA^TAFFATA>TEETOTALER^TEETOTELER,TENABLE^TENIBLE,TENDENCY^TENDANCY?TENEMENT^TENAMENT,TENTACLE^TENTICLE,TETANUS^TETENUS,TOCCATA,TORPOR[?TETRACYCLINE^TETRACYCALINE,THERAPEUTIC^THEREPEUTIC,TOBOGGAN^TOBAGGAN?TOURNIQUET^TOURNEQUET,TRAJECTORY^TRAJECTERY,TRAMPOLINE^TRAMPALINE?TRANSCEIVER,TRANSCEND^TRANSEND,TRANSISTOR,TRANSLUCENT^TRANSLUSCENT@TROUBADOUR^TROUBEDOUR@END