Hallo Alle,

before going off line for 2 weeks, here's a little batch I did for
recreation. It produces anagrams from whatever you throw to it on the
command line. Try your name, for example.

ANAGRAM.BTM

 *setlocal
 *unalias *
 do while "%ink" == ""
     unset *
     set inpstr=%{at}repeat[%{at}char[255],10]%{at}replace[ ,%{at}char[255],%&]
     set l=%{at}len[%inpstr]
     do c=11 to %l
         do until "%[%r]" == ""
             set r=%{at}random[11,%l]
         enddo
         set %r=%{at}instr[%{at}dec[%r],1,%inpstr]
         set outpstr=%[outpstr]%{at}instr[%{at}dec[%r],1,%inpstr]
     enddo
     echo %outpstr
     inkey /w0 %%ink
 enddo

Ostrhauderfehn, 7. Oktober 1998, 10:21:54

*Klaus Meinhard*

--- WP/95 Release 1.3A (184.0) Reg.