d ANAGRAM n 1100L x"HOW MANY WORDS? " :21004 2900T 3000 L(K)  "NOW ENTER THE WORDS ": N=1 K 2200 W$(N)=K$ L(N)=K$ N J=1 K 1200  K$=W$(J) P=L(J) 1 -1  2600( " V$(P)=P$ ,P 6#N=L(J)-1 2 -1 @ 1300 JT$=V$(L(J)-N) TV$(L(J)-N)=V$(L(J)-R+1) ^V$(L(J)-R+1)=T$ hN rP=1 L(J) |V$(P); P " " " " "ENTER YOUR ANSWER " :2200:W$(26)=K$ " "  W$(26)=W$(J) 490 "TRY AGAIN " #T=2:1400x:1200  :370r "CORRECT - WELL DONE "  1500 J  SPECTRUM SUBROUTINES L1W=32 :D=22:F=8:1200: :8,0;: R=(N*+1): xZ=1 200*T:Z: ""1500 =""1510 G$=: @K$=:  Y,X;:  (X);: l(11 );: (9 );: 42200:K=("0"+K$): K$="" !1500:(G$)=13 : ,(G$)12 K$=K$+G$:G$;:2210 (K$)=0 2210 @(8);" ";(8);:K$=K$( ̱(K$)-1):2210 : `.1}L,Z/10 -6: R$=(R+64@): ( P$=K$(P): 2600( :A=(P$): : TV$(26): W$(60<,26):  GG=(G$):