ZXTape! 0Created with Ramsoft MakeTZX2F Word GamesGriffin Software1983English Educational7.99ROMagranams s  "AGRANAMS" AGRANAMS   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&  QnAAGRANAMS6logo @`  ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file N&NN AGRANAMS  FISHER-MARRIOTT 1983 0"scrap,scrub,spring,strap,strong,splash,squib" ZX Spectrum - 48K y12=0:250 B: BIG LETTERS j=1̱p$ col>7:col-9 *(col9 ):1:p$(j):0:x=x+(lj=999)*(y$(p$(j)-64@))+(lj999)*3:j:x1=x:0:9 : AZy-2,x;"";y-1,x;"";y,x;"";y+1,x;"";y+2,x;"": _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;"": frx=x+(lj999):y-2,x;"";y-1,x;"";y,x;"";y+1,x;"";y+2,x;"":7000X: 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_x=x+(lj999):y-1,x;"";y,x;"";y+1,x;"";y+2,x;"":7000X: 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;"": lpx=x+(lj999):y-2,x;"";y-1,x;"";y,x;"";y+1,x;"";y+2,x;"":7000X: 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;" ": rQx=x+(lj999):y,x;"";y+1,x;" ";y+2,x;" ":7000X: s6y,x;"";y+1,x;"";y+2,x;"": tax=x+(lj999):y-1,x;"";y,x;"";y+1,x;"";y+2,x;"":7000X: 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;"": Ty12=12 :8000@:a=60000`60013m:byte:a,byte:a:60000` \1:1:testno=0:goes=5:u6=0:c$="":nw=0:lj=99c Aefl=1:lfl=1:wfl=1:xfl=1:dfl=1 "(w$="":ch=1:V$="":o$="":A$="" #2l4=0:sp=0:list=0:li=0 &$i$="":e$="":c=0:k=0 'n$="" (4n(12 ):p(12 ):q(12 ):r(12 ) *Ay$="3000000000000000003000000000003333333233123233333232333333" +'z$=" " ,del=6500d:word=500:logo=1000:START=355c:W LIST=2700 :ENTER=2800 :GETTEST=1890b:INPUT=780 :TEST=1030:PROCW=1380d:B=20:DELETE=940 .NO=62008:OK=6000p:box=4244:blot=664:ACTION=5000:RANDOM=540:MIX=4100:BLOT=665:SDOWN=2220:SD=2220 2H$="":START 6MIX @ACTION RPROCW \ :3062 ^ :410 c START hnw=goesi$="":nw=0 i wd=1 j*v$>""testno=goesi$="":testno=0 k(i$="l"i$="L")chȱv$i$="" li$>""423 rx0:a=12 21:a,0;z$:a:e$="":X=4:Y=2+y12:COL=4:lj=999:lj=0 wk$="Agranams":f=1̱k$:6*(f/2=(f/2))+4*(f/2ɺ(f/2)):p$=k$(f):b:.05|L,f+10 :f:1 }Jy12=12 23692\,13 :a=117::a:y12=0 ~u6>0410 u6=1:8,4;"This program is designed";10 ,3;"to help teach spelling by";12 ,3;"use of anagrams." Z15,4;"You can use mystery words";17,3;"in 2 grades of difficulty";19,3;"or your own words - either";21,3;"singly or in lists.":.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 H#0;1,3;"Press ANY key to continue":0 23659k\,16:"" O7,0;"Type:-";10 ,0;"L for your own new list" il=1-(c$="l"c$="L") }13 +il,0;"W for one word at a time";16+2*il,0;"ANY OTHER KEY for a mystery list" =il=021,0;"X for your old list" ui$"l"i$"L"18+2*il,0;" (4 for a mystery list of words with less than 4 letters)" G#0;1,0;"E to end the program " ""419 i$=:i$=""420 ^i$="e"i$="E"#0;1,0;"E to end the program":del:7500L ,(i$="l"i$="L")v$>""chȱv$i$="":v$="" (i$="l"i$="L")c$=i$:10 ,0;("L for your own new list")lfl:lfl=0:del:del:W LIST:440 i$="w"i$="W"13 +il,0;("W for one word at a time"wfl):wfl=0:del:del:word:440*(nwgoes)+start*(nw>goes) i$="l"i$="L"434 (I$="x"I$="X")v$>""il=021,0;("X for your old list"dfl):dfl=0:del:i$="l":ch=1:423 l4=0:i$="4"l4=1:18+2*il,0;(" (4 for a mystery list of words with less than 4 letters)"xfl) c$="" j16+2*il,0;("ANY OTHER KEY for a mystery list"xfl):xfl=0:del:del RANDOM   WORD nwgoesv$="_":520 D:'"Type in your word,followed by"''"the ENTER key." nw=nw+1 input  w$=b$:  wd=0 x3=16-x1/2   RANDOM  testno=testno+1:GETTEST  (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 <w$>10 random D  BLOT l=y-1-((b5=98b)+(b5=100d)+(b5=102f)+(b5=104h)+(b5=107k)+(b5=108l))y+3+(b5=103g)+(b5=106j)+(b5=112p)+(b5=113q)+(b5=121y):l,x;" ";:l:    $.3,5:.5,0 *lj=999 4B$="" > x1=2 HS$=:S$=""840H M.02{# =,36$ PGB$=""S$=13 k>1list=1k=20:list=0: RS$=13 ƱB$>1 \%(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$ u0b$=10 :8150:k$"ok"810* vk$="ok"k$="": 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$):b5=b$(b$):BLOT B$=1B$="":840H B$=B$(̱B$-1)  840H  LOGO  d PROCW n xk$="`_`_`":X=9 yTz=1̱k$:y=2*(z/2=(z/2))+6*(z/2ɺ(z/2)) zTcol=6*(z/2=(z/2))+2*(z/2ɺ(z/2)):p$=k$(z):b {z *10 ,10 ;"WELL DONE!!" lj=999 =p$=w$:X=16-3/2*p$:x<0x=0 Y=15:col=4:B .2~L,10 :.5,6:.1}L,7:.1}L,11 :.3,15:.2~L,11 :.3,7  100d : bGETTEST lEl4=1(2920h +10 *(*30+1)):1920 v-(3220 +10 *(*86V+1)) V$  4J=16:.01z# =,10 +4*J:J  SDOWN .J=34"10 -4:.01z# =,J:J  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 vc1=0::"Type each word followed by the ENTER key."''"To end the list,just press ENTER"'' '"Word number ";k ""2814 !list=1:wd=1:INPUT %o$=o$+(","o$>"")+b$:c1=c1+1 list=0k=20 k x4500:12 ,0;"Is this list OK?"'''"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,shut,shop,shy,mash,rush,fish" '"chip,chop,chess,much,rich,chin,such" %"them,that,they,fat,thin,tank,pony" $"saw,jaw,yawn,howl,loud,hawk,full" %"when,what,why,whip,will,well,sand" '"nine,kite,wine,five,time,side,smile" &"cake,make,game,name,gate,wave,cave" &"bone,home,nose,rose,hole,joke,rope" $"tube,tune,use,rude,good,hold,box" &&"blot,clap,flat,glad,plan,plot,slug" 0&"skid,slip,soap,snap,spot,stop,swim" :&"rain,sail,nail,wait,maid,raid,pain" D$"arm,car,dart,mark,harm,arch,tail" N!"ray,say,play,may,hay,fray,pet" X%"bee,free,need,seed,keep,weep,seat" b$"new,few,chew,stew,slow,newt,seed" l&"boat,coal,road,toad,hook,rook,take" v""die,lie,pie,toe,blue,glue,poet" '"food,tool,pool,root,shoot,moon,roof" %"our,sour,four,hour,door,moor,foot" &"ear,hear,year,clear,pear,wear,tear" 2"brick,crack,prince,princess,grunt,parade,truck" 2"eating,meeting,steam,clean,beast,teacher,eagle" :"header,deduction,bread,leather,meadow,pleasant,instead" /"skill,slept,swell,snarl,sport,stamp,swimmer" 3"kerbs,terminal,herbal,verse,person,under,desert" -"quack,quick,quiet,quilt,twirl,twist,dwell" 2"seize,ceiling,eighty,field,thief,shield,relief" <"blackbird,firewood,birth,third,thirsty,thirteen,birthday" 0"scrap,scrub,spring,strap,strong,splash,squib" /"blaze,shine,bride,stove,amuse,excuse,stones" 0"boiler,foiled,moist,voice,hoist,poison,avoid" 1"shrub,shrink,three,throw,witch,kitchen,school" 4"saucer,pause,haunt,autumn,author,exhaust,because" 7"castle,column,corkscrew,storm,morning,record,memory" *-"shout,about,pound,sound,count,mouse,house" 42"howling,bowler,clown,brown,crown,shower,powder" >3"saucy,snowstorm,crown,autumn,window,elbow,arrow" H8"monday,wednesday,annoy,destroy,cowboy,royal,employer" R8"furrowed,tattoo,church,nurse,turkey,burglar,surprise" \7"crybaby,syrup,crystal,mimicry,whether,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,immediae,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" ;"undercover,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" ~I"effective,attractive,expensive,detective,sensitive,invective,punitive" :"robbing,running,kicking,singing,hating,smoking,cooking" 3"handle,candle,simple,apple,fiddle,bottle,muddle" 8"kindly,slowly,quietly,honestly,loudly,poorly,bravely" G"punishment,asteroid,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"  4"whistle,strange,orange,gentle,magic,ginger,gipsy" 8"calamity,bombastic,frighten,bomber,thumb,climb,doubt" -"gnat,gnash,gnome,gnaw,sign,design,nostril" (;"highland,nightshirt,sighed,thigh,highway,higher,sighing" 2/"right,sight,night,tight,fight,bright,flight" <7"bought,thought,fought,brought,taught,caught,naughty" F:"knotted,knitting,knowledge,knife,kneecap,knock,knuckle" P4"wrapper,strangle,wrist,write,wrong,wriggle,wreck" Z1"hedge,edge,sledge,bridge,midget,stodge,sludge" d8"walker,chalk,talkative,stalk,calming,omelette,hymnal" n7"fasten,listen,castle,rustle,whistle,thistle,wrestle" x1"rogue,tongue,league,plague,vague,guitar,guest" 4"compare,affair,chair,curlers,unfair,stairs,fairy" :"carelessly,share,square,beware,spare,daredevil,prepare" 6"whisky,steer,cheer,queer,tangible,steering,queerly" ;"mackintosh,roaring,glider,hoard,board,aboard,blackboard" 4"saucer,pause,haunt,autumn,author,exhaust,because" 2"score,moorland,shore,store,snore,swore,restore" ="elephant,phone,orphan,telephone,dolphin,alphabet,pheasant" 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" N"stationary,overtaking,machinery,budgerigar,arithmetic,decorator,completion"  MIX  ':8,10 ;"PLEASE WAIT" e=w$  lj=0 23673y\,0 "a$(e) ,i=1e-1 6z=(*e+1) ;a$(z)" "41506 @ a$(z)=w$(i) Ji ^ i=1e ha$(i)=" "a$(i)=w$(e) ri |(a$=w$ƾ23673y\<24130"  xs=16-3*e/2 `y=17:x=xs:xl=8*x+1-4*(e/2=(e/2)):col=6:p$=a$:b box   BOX  6  i=110n17161= xl,i:24*e,0 i i=xlxl+24*e24 i,110n:0,61= i   ':lpt=0:ln=0:cn=0 z=1̱o$ Yo$(z)=","lpt=04;ln,cn;o$(z-1):ln=ln+1:lpt=z:4550 Lo$(z)=","4;ln,cn;o$(lpt+1z-1):lpt=z:ln=ln+1 &ln=11 ln=0:cn=15 z:  ACTION  zx=0 09 ,6;"Press any key to pick" f$(e)  sb=0 k=0e-1 23560\,0 a$(k+1)=" "5100 "sp=123560\,13  .01z# =,0 4x=xs+3*k:y=11 :col=4:p$="`":b 1:20 11 ,0;z$+z$+z$+z$ 523560\>0sb=1:ib=k+1:k=e k sb=05040  >""5115 xp=xs+3*(ib-1) 9 ,0;z$  l$=a$(ib)  a$(ib)=" " (p$=l$ 7Xb5=l$:zx=09 ,6;"Press any key to place":1:10 :zx=zx+1 <y=17:x=x-3:blot F4h=16:.01z# =,10 +4*h:h K9 ,0;z$ Pox=xp:y=11 -((b5=103g)+(b5=106j)+(b5=112p)+(b5=113q)+(b5=121y)):col=5:b Ux=x-3:blot Z sb=0 d>""5220d n4ic=(xp-xs)/3+1:f$(ic)" "5280 s23560\,0 x.01z# =,6 }"sp=123560\,13  x=xp:b 1:10 x=x-3:blot "23560\>0sb=1 2xp=xp+3:xpxs+3*esb=0xp=xs sb=05230n xp=xp-3 4j=16:.01z# =,10 +4*j:j !y=3:col=6:x=xp:b box l$=w$(ic)ok l$w$(ic)no f$w$5030  pOK z f$(ic)=l$ >j=14:.2~L,2*(*8)-12 :j  sp=0 j=1̱f$ f$(j)=" "sp=sp+1 j  8NO B>1:10 :x=x-3:1:l$:0:sdown L7x=xs+3*(ib-1):y=17:col=7:b V a$(ib)=l$ `box j dk=1502:k: Xx=x-(lj999) b L':#0;"Are you sure (Y/N)?"; V""7510V [=""7515[ `z$= j #0;16+6;z$ t[z$="y"z$="Y"23662n\,1:23663o\,0:23664p\,1:10000' ~.z$="n"z$="N":1:1:260 "":7500L @33!,0,88X,17,1,88X,1,255,2,546,13 ,237,176,201 #(x$="n"x$="N")(i$="w"i$="W")  k$="no" d1,0;"'";b$;"' was the last word that you entered."'"Is it correct (Y/N)? ";8; ""8160 =""8165  x$=:x$ x$="y"x$="Y"k$="ok":: M(x$="n"x$="N")(i$="l"i$="L")"Re-type word number ";k:x$="":5: I(x$="n"x$="N")(i$="w"i$="W"):"Re-type the word":x$="":5:  8155 ch>v$i$="" & &LINES TO SAVE & VERIFY &+:"file"9902&:" ""a",168: &""::249 ' "":""  XŀI c?||?>|>|?U