%
% stack: robot-file-root
%

"*.png" !wilder

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

*xlinkiot &"Dolphin\"


empty
{
 nextfile ?
 dup noext

 "a" found? exch "A" found)? or
 {

  filing ".gnp" overext
 }
 {

 } ifelse

} loop
filing)



/*
empty oftem
-1 left ^"p"
&"Names" folder !Font.Folder
"Tem0.jpg" oftem
dup logs
_Arching.ServLock &"\incoming.jpg" ^_Font.Folder
dup logs
copyfile

"Names_" &_Arching.ServLock text ^_Font.Folder
dup logs

read
dup logs
0x0D char empty replall
0x0A char
'" *nextofnt
"'
replall
^'"' &'" pop
'
dup logs
execstr

empty *donelact
*/