ZXTape! 0Created with Ramsoft MakeTZX2F Word GamesGriffin Software1983English Educational7.99ROMwordguess X "WORDGUESS" HWORDGUESS  a N0:0:0::236099\,502:0:0:0 q$="y"x -z$="  " K12 ,10 ;1;4;"PLEASE WAIT";0;0 "" .a=07:a,0;1;z$:a (H12 ,6;4;1;" LOADING PROGRAM ";:0 -*18,5;" " .13 ,0; / 0 2 "file" <*:15,0;"Leave tape running" F"" P*15,0;"Stop and rewind tape" R"clear (y/n) ?";q$ Tq$="y""address ? ";x ZJ17,0;"Type in file name in ";1;"UPPER CASE";0 n"Filename",a$ o015,0;"Recording " p517,0;" " x a$10 "logo"16384@,2304  '10 ,5;"Load main program" )12 ,5;"SAVE""file"" LINE 2" Z&  QnA WORDGUESSjlogo @_  ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file 8M&8M8:M  WORDGUESS ZX Spectrum - 48K  *y12=0:k$="":q=1:250 B: BIG LETTERS j=1̱p$ Zcol-9 *(col9 ):p$(j):x=x+y$(p$(j)-64@):j:x1=x:0:9 : SZy-2,x;"";y-1,x;" ";y,x;"";y+1,x;" ";y+2,x;"": Wzy-2,x;"";y-1,x;"";y,x;"";y+1,x;"";y+2,x;21+1+""+8+"": _4y,x;"";y+1,x;"";y+2,x;" ": `4y,x;"";y+1,x;"";y+2,x;"": a4y,x;"";y+1,x;" ";y+2,x;"": bZy-2,x;" ";y-1,x;" ";y,x;"";y+1,x;" ";y+2,x;"": c4y,x;"";y+1,x;" ";y+2,x;"": dZy-2,x;" ";y-1,x;" ";y,x;"";y+1,x;" ";y+2,x;"": e4y,x;"";y+1,x;"";y+2,x;"": fUy-2,x;"";y-1,x;" ";y,x;"";y+1,x;" ";y+2,x;" ": gZy,x;"";y+1,x;" ";y+2,x;"";y+3,x;" ";y+4,x;"": hZy-2,x;" ";y-1,x;" ";y,x;"";y+1,x;" ";y+2,x;" ": i?y-1,x;"";y,x;"";y+1,x;"";y+2,x;"": jgy-1,x;" ";y,x;" ";y+1,x;" ";y+2,x;" ";y+3,x;" ";y+4,x;"": kYy-2,x;" ";y-1,x;" ";y,x;"";y+1,x;"";y+2,x;"": lPy-2,x;"";y-1,x;"";y,x;"";y+1,x;"";y+2,x;"": may,x;21+1+""+8+""+8+"";y+1,x;"";y+2,x;"": n4y,x;"";y+1,x;" ";y+2,x;" ": o4y,x;"";y+1,x;" ";y+2,x;"": pZy,x;"";y+1,x;" ";y+2,x;"";y+3,x;" ";y+4,x;" ": qZy,x;"";y+1,x;" ";y+2,x;"";y+3,x;" ";y+4,x;" ": r1y,x;"";y+1,x;" ";y+2,x;" ": s6y,x;"";y+1,x;"";y+2,x;"": tCy-1,x;" ";y,x;"";y+1,x;" ";y+2,x;"": u4y,x;" ";y+1,x;" ";y+2,x;"": vy,x;" ";y+1,x;""+21+1+8+""+8+"";y+2,x;" "+8+20+1+"": wTy,x;"";y+1,x;"";y+2,x;21+1+""+8+"": xy,x;""+21+1+8+""+8+"";y+1,x;" ";y+2,x;""+21+1+8+""+8+"": yZy,x;" ";y+1,x;" ";y+2,x;"";y+3,x;" ";y+4,x;"": zZy,x;""+21+1+8+"";y+1,x;" ";y+2,x;"": p=12 162:p,0;31:p:y12=11 :5000:a=60000`60013m:byte:a,byte:a:60000`:1:0 &nw=0:st=1:goes=5 k$="" "(w$="":ch=1:V$="":o$="":A$="" #list=0:li=0 &$i$="":e$="":c=0:k=0 'n$="" (4n(12 ):p(12 ):q(12 ):r(12 ) *Ay$="0000000000000000003000300000003333333233123233333232333333" +'z$=" " ,CLUE=670:word=500:logo=1000:START=360h:W LIST=2700 :ENTER=2800 :GETTEST=1890b:INPUT=780 :TEST=1030:PROCW=1380d:B=20:DELETE=940 .GIVEUP=2300:RANDOM=539:seetest=8000@:BLOT=665:LONG=2580 :SDOWN=2220:DROP=1540:BIN=1820:LIFT=2000:DOWN=2160p:BOX=2280:SD=2220 /;onef=1:ownl=1:mysl=1:g$="__________" 01:7:logo 2H$="":START 6 co=0 J910 ,2;"Your word is ";w$;" letter";"s"Ʊw$>1;" long.":.3,0:.1}L,5:.05|L,7:.2~L,10 :.4L,4:.2~L,5:.1}L,6:.2~L,5:.1}L,4:.2~L,3:.3,2:z=1502:z: LBINPUT:co=co+1:q$="":b$ɱw$co=co-1::332L MgTEST:b$w$x=0:y=9 :q=1̱k$:k$(q)="_"7;y+2,x;"":x=x+3 N2qDZk$b$w$k$(q)"_"col=6:p$=k$(q):b O b$w$q Pco=5b$w$GIVEUP Qb$=w$procw RTB$W$#0;"Press ANY key to continue.":0::332L \ :3062 ^ h START i& wd=1:(i$="l"i$="L")v$="" j#chȱv$(i$="l"i$="L")370r knwgoes370r li$>""423 r>e$="":j$="Wordguess":X=3:Y=2+y12:Col=4 sz=1̱j$:p$=j$(z):b:.05|L,z+10 :4*(z/2=(z/2))+6*(z/2ɺ(z/2)):z:1 tz=140(:z |p=125:p ~ rpt=0 Jy12=11 23692\,14:q=117::q:y12=0 st=0400 st=0:8,5;"This program helps teach";10 ,2;"spelling by means of a word-";12 ,2;"guessing game." E15,5;"You can use the mystery";17,2;"word table,or your own words,";19,2;"either singly, or in lists.":rpt=0.2~L,10 :.1}L,6:.1}L,4:.1}L,3:.4L,5:.2~L,8:.2~L,11 :.1}L,14:.4L,18 1-rpt:rpt=0#0;0,2;"Press any key to continue":rpt=rpt+1:0:387 #0;0,0;z$ :7,0;"Type:-" 310 ,0;"L to enter a new list" 14+2*((i$="l")(i$="L")),0;"W for one word at a time";18+((i$="l")(i$="L")),0;"ANY OTHER KEY for a mystery list" B(i$="l"i$="L")13 ,0;"O for your old list" :#0;0,0;"E to end the program"  1 i$=:i$=""420  nw=0 ci$="e"i$="E"#0;0,0;"E to end the program":502:7000X (i$="l"i$="L")c$=i$:10 ,0;("L to enter a new list"ownl):ownl=0:z=1100d:z:W LIST:440 i$="w"i$="W"14+2*((i$="l")(i$="L")),0;("W for one word at a time"onef):onef=0:z=1100d:z:word:440*(nwgoes)+start*(nw>goes) i$="l"i$="L"434 (I$="o"I$="O")v$>""13 ,0;"O for your old list":ch=1:c$=i$:z=1100d:z:w list:440 18+((i$="l")(i$="L")),0;("ANY OTHER KEY for a mystery list"mysl):mysl=0:z=1100d:z:RANDOM:nw>goesstart   WORD nwgoes520 :nw=nw+1 C'''"Type in your word and then pressthe ENTER key." input  w$=b$:  wd=0 x3=16-x1/2   RANDOM /nw=nw+1:nwgoes::GETTEST:544   572<  (w$="":x2=0:ch=1+(*v$) "#ch=1ch=0:556, $v$(ch)=","556, (ch=ch-1:546" ,$ch=ch+1:ch>(v$)5688 -v$(ch)=","5688 0x2=x2+y$(v$(ch)-64@) 4w$=w$+v$(ch):556, 8x3=16-x2/2 :WD=0: <  BLOT wid=y$(p$-64@) ,l=y-2y+4:l,x;z$(wid);:l:  CLUE T2,0;"Do you want a clue?";4,0;"- If so, press C" Q1:250:q$=:q$="c"q$="C"i=2̱w$:r(i)=0710 i  >y=9 :col=3:x=p(i-1):p$=w$(i):b:i=w$:   7wd=01,10 ;"+++GUESS+++"  .2~L,10 4B$="" > X1=0 HS$=:S$=""840H M.01z# =,36$ PGB$=""S$=13 k>1list=1k=20:list=0: RS$=13 B$>"" \%(S$=12 S$="0")B$>""DELETE a#S$"A"S$"Z"S$=(S$+32 ) fS$<"a"s$>"z"840H k-S$=13 S$=12 S$="0"840H p B$=B$+S$ z N(B$)=X1 (P$=S$:X=X1:Y=9 :COL=6:B $X1>29(b$=w$wd=0) >""920  840H  DELETE  X1=N(B$) x=x1:P$=b$(b$):BLOT B$=1B$="":840H B$=B$(̱B$-1)  840H  LOGO   TEST()  B$=W$  6000p  1,0;Z$ E$DZW$E$=E$+W$+" " %E$((E$-W$))W$+" "E$=E$+W$+" " .D$=W$ 8I=1̱B$ <J=D$1-1 @i=jB$(I)=D$(J)Q(I)=J AKb$(i)=d$(j)b$(i)(d$+" ")(i)(b$+" ")(j)d$(j)q(i)=j DJ LQ(I)=0DROP QtQ(I)0D$=(D$(Q(I)-1)Q(I)>1)+(-32 +(D$(Q(I))))+(D$(Q(I)+1)Q(I)1X=P(I-1) ;R(I)Iwid=y$(p$-64@):blot:x1=x+wid:1200 5n(i)=xp$=b$(i)x1=x+y$(p$-64@):1200  wid=y$(p$-64@):blot:B  P(I)=X1 I ,k=y-2y+4:k,x1; 32 :k I=1̱B$ Q(I)0Q(I)IDOWN i ,co=3b$(2)w$(2)CLUE  I=112 8N(I)=0:P(I)=0:Q(I)=0:R(I)=0 <I P: d PROCW x$:q$="`_`_`":X=6:Y=4 y=z=1̱q$:y=2:Z/2=(z/2)y=6 zp$=q$(z):b:x=x+1 {z *10 ,10 ;"WELL DONE!!" #p$=w$:X=x3:x<0x=0 Y=15:COL=2:B .2~L,10 :.5,6:.1}L,7:.1}L,11 :.3,15:.2~L,11 :.3,7  100d :  DROP  j$=B$(I) +P$="`":X=N(I):Y=2:COL=2:B P$=j$:X=N(I):Y=9 :B "?J=16:.02{# =,10 :.02{# =,-480:J hBIN |x=n(i):blot:sdown *Y=13 :COL=2:B:x=n(i):blot SDOWN :X=14+(>.5)+(<.5):Y=17:B:bin 0x=n(i):y=2:wid=3:blot+1:  BIN &-16,11 ;"" 0$17,12 ; "" :$18,12 ; "" ?*19,12 ; "BIN" D,20,12 ; "" N(21,12 ; "" X bGETTEST l.(2920h +10 *(*116t+1)) V$   LIFT p=n(i) (COL=4:X=P:Y=2:P$="_":B @J=16:.05|L,-12 :.01z# =,-480:J X=P:Y=9 :P$=B$(I):B  x=p:p$=b$(i):blot &y=0:wid=3:blot+1 4J=16:.01z# =,10 +4*J:J Y=2:COL=4:B   p DOWN #X=N(I):Y=2:p$=b$(i):BLOT sdown ,X=0:Q(I)>1X=P(Q(I)-1) Y=9 :COL=4:B   SDOWN .J=34"10 -4:.01z# =,J:J   GIVEUP  co=1 2,0;"Do you want to give up?"''"- If so, press G":1:250:q$=:Q$="g"q$="G":2,0;"The Word is...":x=x3:y=9 :col=4:p$=w$:b:j=1502:j:348\  :336P W LIST v$=""ENTER +x2=0:w$="":ch=1ch=0 ch=ch+1 ch>v$2750 v$(ch)=","2750 x2=x2+y$(v$(ch)-64@) w$=w$+v$(ch) 2720 &wd=0:x3=16-x2/2:  ENTER %23692\,255:o$="":v$="" k=120 c1=0::"Type in each word followed by the ENTER key."''"To end the list just type the "'"ENTER key on its own."' '"Word Number ";k ""2814 !list=1:wd=1:INPUT %o$=o$+(","o$>"")+b$:c1=c1+1 list=0k=20 k  5100 h12 ,0;"Is this list O.K?"''"Press Y to continue"''" N to start again" "!j$=:j$="n"j$="N"2800 ,j$="y"j$="Y"2875; 6 2850" ;)ch=1:V$=O$:wd=0:H$="a": S hTEST DATA r"bat,cat,man,bag,map,sad,jam" |"red,bed,hen,wet,pet,leg,yes" "pin,big,is,fit,mix,kid,zip" "dog,hot,pot,fox,hop,rob,cod" "sun,gun,jug,mug,hut,cup,bus" "ham,box,pop,six,wet,sum,us" "bat,dad,bad,tab,did,rob,rod" #"back,sack,add,egg,mess,bell,off" &"held,self,milk,belt,pond,sing,pink" %"ant,hunt,nest,lost,desk,camp,jump" &"ship,shell,shop,shy,mash,rush,fish" )"chip,chop,chess,much,rich,lunch,bench" +"them,these,they,father,thin,thank,cloth" )"when,what,why,whip,white,whale,whisky" ="elephant,phone,orphan,telephone,dolphin,alphabet,pheasant" 1"shrub,shrink,three,throw,witch,kitchen,school" &"cake,make,game,name,gate,wave,cave" '"nine,kite,wine,five,time,side,smile" &&"bone,home,nose,rose,hole,joke,rope" 0("tube,tune,use,rude,brute,crude,flute" :/"blaze,shine,bride,stove,amuse,excuse,stones" D'"blot,clap,flat,glad,plan,plank,slug" N*"brick,crack,drip,from,grunt,pram,truck" X)"skid,slept,swell,snap,spot,stamp,swim" b*"quack,quick,quid,quit,twig,twist,dwell" l0"scrap,scrub,spring,strap,strong,splash,squib" v-"rain,sail,nail,wait,maiden,afraid,explain" +"arm,car,dart,march,farmer,archer,garden" 4"saucer,pause,haunt,autumn,author,exhaust,because" '"saw,jaw,yawn,straw,crawl,hawk,awful" #"ray,say,play,may,hay,fray,delay" ,"eat,meat,steam,clean,beast,teacher,eagle" 3"head,dead,bread,leather,meadow,pleasant,instead" &"bee,free,need,seed,keep,weep,sweet" ,"kerb,term,herb,verse,person,under,desert" &"new,few,chew,stew,screw,newt,sewer" 2"seize,ceiling,eighty,field,thief,shield,relief" 2"bird,fir,birth,third,thirsty,thirteen,birthday" *"boat,coal,road,toad,toast,coach,throat" %"die,lie,pie,toe,blue,glue,tuesday" +"boil,oil,moist,voice,hoist,poison,avoid" '"food,tool,pool,root,shoot,moon,roof" ("look,rook,shook,cook,foot,good,blood" ."horn,corn,cork,storm,morning,record,memory" *-"shout,about,pound,sound,count,mouse,house" 4+"how,owl,clown,brown,crown,shower,powder" >)"bowl,own,crow,snow,window,elbow,arrow" H/"boy,toy,annoy,destroy,cowboy,royal,employer" R1"fur,burn,church,nurse,turkey,burglar,surprise" \,"baby,syrup,crystal,cry,why,myself,python" f2"along,asleep,abroad,across,ashamed,again,alive" p5"became,below,behind,because,before,beneath,become" z7"depart,delay,deflate,defeat,deserve,depress,destroy" ="conduct,confess,conflict,concrete,conceal,contain,connect" @"dismay,disable,disagree,dishonest,discover,disorder,distrust" :"enlist,enrich,endear,enforce,enslave,entrust,enlighten" 6"export,exclaim,expand,extract,expect,explain,exact" ;"forbid,forget,forgive,forgave,forsake,forward,forgotten" F"foremost,forehead,forecast,foreman,foreground,forefinger,foresight" ="image,imitate,imagine,immense,immediate,immerse,immovable" :"income,indoors,inform,inflame,indeed,inhuman,invisible" ?"permit,perfect,perhaps,persist,permission,perfume,perpetual" ;"prevent,present,prefer,pretend,preserve,presume,prepare" ?"prolong,proceed,proclaim,professor,progress,project,protest" 6"recall,return,remove,remind,regain,replace,request" 5"undo,uncover,unfasten,unload,unpack,unfair,unwell" E"capable,reliable,noticeable,valuable,probable,suitable,abominable" >"aerial,artificial,hospital,dismal,central,general,national" I"centrally,musically,naturally,generally,usually,vertically,nationally" $7"sugar,collar,beggar,vinegar,nuclear,similar,regular" .6"planted,landed,fitted,nodded,thanked,jumped,kicked" 81"towel,label,weasel,model,tunnel,shovel,travel" B4"summer,rubber,fatter,wetter,after,faster,thunder" L:"thinnest,fattest,oldest,saddest,fastest,poorest,lowest" V3"monkey,donkey,honey,chimney,valley,turkey,abbey" `D"useful,truthful,useful,careful,painful,awful,carefully,painfully" jB"possible,sensible,visible,invisible,terrible,flexible,horrible" t7"pencil,fossil,daffodil,stencil,council,until,lentil" ~L"effective,attractive,expensive,detective,sensitive,invective,insensitive" :"robbing,running,kicking,singing,hating,smoking,cooking" 3"handle,candle,simple,apple,fiddle,bottle,muddle" 8"kindly,slowly,quietly,honestly,loudly,poorly,bravely" J"punishment,involvement,merriment,oddment,comment,instrument,resentment" A"hopeless,restless,speechless,endless,illness,fitness,darkness" 3"doctor,actor,razor,motor,mirror,tractor,visitor" 9"rumour,flavour,harbour,honour,colour,splendour,armour" <"famous,nervous,enormous,precious,envious,furious,nervous" D"pension,vision,television,collision,admission,explosion,invasion" ?"mention,portion,relation,station,position,addition,question" ;"capture,torture,future,picture,nature,puncture,treasure" -"foggy,funny,hobby,sunny,baggy,kinky,runny" 7"slice,cigarette,police,pencil,circus,bicycle,cement"  1"wage,strange,orange,gentle,magic,ginger,gipsy" +"lamb,bomb,comb,bomber,thumb,climb,doubt" )"gnat,gnash,gnome,gnaw,sign,design,gnu" (/"high,nigh,sigh,thigh,highway,higher,sighing" 2/"right,sight,night,tight,fight,bright,flight" <7"bought,thought,fought,brought,taught,caught,naughty" F+"knot,knit,know,knife,knee,knock,knuckle" P-"wrap,wren,wrist,write,wrong,wriggle,wreck" Z1"hedge,edge,sledge,bridge,midget,stodge,sludge" d("walk,chalk,talk,stalk,calm,yolk,folk" n7"fasten,listen,castle,rustle,whistle,thistle,wrestle" x1"rogue,tongue,league,plague,vague,guitar,guest" ,"pair,fair,chair,hair,unfair,stairs,fairy" /"care,share,square,beware,spare,dare,prepare" 0"beer,steer,cheer,queer,jeer,steering,queerly" /"oar,roar,soar,hoard,board,aboard,blackboard" '"our,sour,flour,hour,door,moor,floor" ."score,more,shore,store,snore,swore,restore" &"ear,hear,year,clear,pear,wear,tear" C"grandstand,dishcloth,airport,footstep,somehow,yourself,midnight" I"fisherman,policeman,motorway,blackberry,dinnertime,timetable,everyone" ;"competition,magnet,cushion,panic,tablet,lullaby,traffic" C"animal,prisoner,lemonade,conductor,astronaut,hospital,expensive" P"stationary,overtaking,machinery,budgerigar,arithmetic,accelerator,completion" 33!,0,88X,17,1,88X,1,255,2,546,13 ,237,176,201  word list >4::cl=0:ct=0:lp=0:k=1̱o$  ct,cl;  &ct=10 cl=15:ct=0 Ho$(k)=","lp=0lp=k:o$(lp-1):ct=ct+1:5160( :o$(k)=","o$(lp+1k-1):ct=ct+1:lp=k (k: p81,10 ;" ":k$="__________"(̱w$) zlength=w$:v=1length o=1length w$(v)=b$(o)k$(v)=w$(v) o:v: X b.20,0;"Are you sure (Y/N)?"; l""7020l v=""7030v q$=:6;q$;8; q$="n"q$="N":400  q$"y"q$"Y"" ":7010b N23662n\,1:23663o\,0:23664p\,1::10000' ? &+:"file"9902&:" ""a",168: &"":1::249 ' "":""  X8cw?||?>|>|?U