/* bananah.tc - tct - 1/16/2010

/* clone of bananag.tc - asks for characters to scramble

char banana(30),copa(30),mfile(24000)
int l,m

peel int nc [ /* scrambles banana
 int i,j,k,used(30)
 used(0)=j=rnd(0,nc-1)
 copa(0)=banana(j)
 for (i=1;i<=nc-1;++i) [
  while (1) [
   j=rnd(0,nc-1)
   for (k=0;k<i;++k) [
    if (used(k)==j) break
    ]
   if (k==i) [copa(i)=banana(j);used(i)=j;break]
]]]

mains int nc [ /* scramble banana and save the "word"
 int i
 peel nc
 for (i=0;i<=nc;++i) mfile(l+i)=copa(i)
 l=l+nc;++m;mfile(l)=13;++l;mfile(l)=10;++l
]

main [ /* generate 1000 words and put results in a file
 int i,nc
 pl "";ps "bananah.tc - tct - 1/16/2010";pl ""
 ps "enter letters you want to scramble; e.g. AD-LIB";pl "";nc=gs banana
 ps"seed e.g. 101 ? ";last=seed=gn
 for (i=0;i<1000;++i) mains nc
 if (strlen(banana)>8) banana(8)=0
 strcat(banana,".TXT")
 if (writefile(banana,mfile,mfile+1000*nc+2*m-1,1)>0) [
  pl "";ps "see ";ps banana;pl ""
]]

int last,seed

rnd int low,high [
 int range;if(!last)last=seed=99
 range=high-low+1
 int w
 last=last*seed
 if(last<0)last=-last
 w=low+(last/8)%range
 if (w<0) w=-w
 return w
]