/* */ m.1='0';m.2='0.5';m.3='1';m.4='2';m.5='3' do j= 1 to 20 temp=linein("redis.dir") parse var temp . f.j '.'. if lines("redis.dir") = 0 Then Leave end j=j Say j 'fonts to be processed.' do i=1 to 5 do jf=1 to j 'mf &cm \mode=epson;mag=magstep' m.i ';input' f.j '/a=99/t' 'mf &cm \mode=epslo;mag=magstep' m.i ';input' f.j '/a=99/t' end end Exit