ZXTape!Anagram ddm$(30) ' 1000 6:20,1;1;1;5;0;m$ @ 400 J""330J Ok$=:k$=""335O Q#k$"A"k$"Z"k$=(k$-32 ) T420,1;" " Y h120,1;1;6;0;m$  i=12 .05|L,502:2 i  $1,16:1,12 J.5,25:x=2317-.5:.1}L,x:2:x ! + 570: 0*n,p:n*.25~,p:n>05600 :X1,12 ,1,14,1,16,2,17,2.5 ,12 Y1,14,1,16,1,17,1.5@,21,.5,19 @x1,19,1,17,1,17,1,16,1,14,1,16,3,17 D0,0 S 0:7:0: 1,0;  8000@ $i$:i$""i$:1060$ L.m$="Press any key to continue...":300,  nwords=502  u(nwords) wn=(*nwords)+1  u(wn)=12070 *u(wn)=1 4 8600! >i=1wn:w$:i Hi=1̱w$ Rci=w$(i)-10 \ci<65Aci=ci+26 f w$(i)=ci pi x$=w$:a$="" ch=(*x$)+1 a$=a$+x$(ch) $x$=x$(ch-1)+x$(ch+1) x$>""2220 a$=w$2200 0:0: i=71-1 j=13 i,, j &i 8bl=1:bc=0:nl=1:nc=a$:ch=1 bl,bc;8;9 ;a$ bl,bc;8;" " !nl,nc;8;9 ;a$(ch) 7nc=nc+1:nc>31nc=0:nl=nl+3 nl>20nl=1 7bc=bc+1:bc>31bc=0:bl=bl+3 bl>20bl=1 #ch=ch+1:ch>a$ch=1 =""3250 Hb$(32 ) \(8;bl,0;b$;nl,0;b$ '.25~,12 :.5,17 -m$="OK - what's the word, then?":350^  ">>";r$ 0m$=" ":350^  ch=0 i=1̱r$ r$(i)=" "41506 ch=ch+1:r$(ch)=r$(i) " xc=r$(ch) ,$xc>90Zr$(ch)=(xc-32 ) 6i J r$=r$(ch) Iw$r$m$=" WRONG - you can't catch it!":350^:500:0 Iw$=r$m$=" WELL CAUGHT - you're right!":350^:550&:0 +m$="Will you try again (Y/N)?":300, *k$="n"10000' 4k$"y"4600 >w$=r$2000 H 3000 J" ANAGRAMS","","" T "Here is that good old puzzle" ^"where you have to sort out" h&"the letters of a mixed-up word.","" r$"All the words are plain English," |!"so you should have nothing to" "worry about.","" "Except the fact that they" "won't keep still..." "" !)"OXDOB","NBSFO","VYMKV","ZKCDO","WYXOI" !)"WYXDR","KBQEO","VSWSD","CDENI","QBKCC" !."VKGIOB","BOQKBN","MOXDBO","ROKVDR","YLDKSX" !."MYVYEB","ZYVSMO","MYWWYX","KDDKMU","WECMVO" !3"VSMOXMO","ZBSFKDO","CDKDSYX","FORSMVO","ZEBZYCO" !3"PSDXOCC","OWYDSYX","BOFOBCO","ZKDSOXD","LKBQKSX" !8"SXDOBOCD","BOVKDSYX","KDDSDENO","MYXDBKBI","ZYVSDSMC" !8"OWZVYIOB","PBOAEOXD","LECSXOCC","NYMEWOXD","MROWSMKV" !="NSBOMDSYX","OWOBQOXMI","COXDSWOXD","SWWONSKDO","RKZZSXOCC" !="FOQODKLVO","OXOBQODSM","SWZYBDKXD","CELCDKXMO","MRKBKMDOB"