blob: e3955a40cf6c94f5d0760e8c2bb00d29c06e3e00 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
/* */
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
|
