%
% stack:
%
empty !Tem.NextFile

*xlinkiot

&_Arching.OrigLock &".nam" exec$

0 !Tem.Counter
*xlinkiot &"Elf\"

"fontndir" log)(
_Tem.NextFile

"nextseed" log)(
{
 "*.png" !wilder
 prevfile ?
"nxtpng" log)(
 dup !Tem.NextFile
 empty
 "Tem.NextFile" sval

 *xlinkiot

 &_Arching.OrigLock &".nam" write
 
/*
 "Bamboo" !Tem.FontName
 1 *makercol
 2 *makercol
 4 *makercol
 6 *makercol
 7 *makercol
 8 *makercol
 9 *makercol
 "Clown" !Tem.FontName
 1 *makercol
 2 *makercol
 4 *makercol
 6 *makercol
 7 *makercol
 8 *makercol
 9 *makercol
*/
 "Dolphin" !Tem.FontName
 1 *makercol
 2 *makercol
 4 *makercol
 6 *makercol
 7 *makercol
 8 *makercol
 9 *makercol
/*
 "Bear" !Tem.FontName
 1 *makercol
 2 *makercol
 4 *makercol
 6 *makercol
 7 *makercol
 8 *makercol
 9 *makercol
 "Elf" !Tem.FontName
 1 *makercol
 2 *makercol
 4 *makercol
 6 *makercol
 7 *makercol
 8 *makercol
 9 *makercol
*/
"temc" log)(
 _Tem.Counter
 80 gt ?
} loop

isnull !Tem.Ended

filing)