"Dolphin" !Tem.FontName

false !Tem.Ended
empty !Tem.NextFile

0 !Tem.Index
{

*locks720
countup
{
 pop
"nextlock" log)(
 !Tem.NextLock

empty !Tem.Collect

_Tem.Ended ?

0 !Tem.Counter

/*
"c:\___Work\_____Names\"
*/

*xlinkiot

 &_Tem.FontName &"\"
"fontndir" log)(
_Tem.NextFile
"nextseed" log)(
{
"*.png" !wilder
 nextfile ?
"nxtpng" log)(
 dup !Tem.NextFile

 dup quoter &" *makerrez" catcr
 ^:Tem.Collect

 +Tem.Counter
"temc" log)(
 80 gt ?
} loop

isnull !Tem.Ended

filing)

_Tem.Collect any?
"temcol" log)(
{
 +:Tem.Index
 "Guide_" &_Tem.NextLock &"_" _Tem.Index 3 prezero & &".lst"
 ^"c:\___Work\_____Names\Guides\"
"wrtr" log)(
 write
} if

"endfor" log#

} for
 _Tem.Ended
"endloop" log)(
 ?
} loop