_Shooter.Tem *fontname

/*
_Shooter.Tem letter
<
|A "Bamboo"
|B "Bear"
|C "Clown"
|D "Dolphin"
|E "Elf"
> not
{
 "Dolphin"
} if
!Tem.FontName
*/

%%% "..\images\kiosk\"

*xlinkios

&_Arching.Vtype &"\" &_Tem.FontName &"\"

%%% ofsnap

"%^&%^&%^&%^&" &2 &"))))" logs

/*
*xlinkios

&_Arching.Vtype &"\" &_Tem.FontName &"\"
*/


!Tem.NameSrc

_Shooter.Caption " " left$ trim
dup !Tem.NameSup
dup 1 left upper !Tem.NameLetter
^_Tem.NameSrc &"_2.jpg"

dup exists
{

}
{
%
% send the first letter only version of product
% with "your name" on it
%
 pop
 "yourname" ^_Tem.NameLetter
 ^_Tem.NameSrc &"_2.jpg"
} ifelse
dup logs
!Tem.NameFile