hoby, still getting down a bit...
theoretically to even 800...
like
for each $B in $
$B=open(1,$B)
do
$C=$C+ReadLine(1)+"`"
until @error
$B=close(1)
next

can be
for each $ in $
$=open(1,$)
do
$C=$C+ReadLine(1)+"`"
until @error
$=close(1)
next

just teaching some golf rules...
_________________________
!

download KiXnet