definer
{

"text_subj" "Subject Path and Text Extension Read"
"Exec" % "fileroot --> data"
"subjtext read"
newdef

"subjtext" "Format Filename with Subject Path and Text Extension"
"Exec" % "fileroot --> file-spec"
"ofsubj text"
newdef

"psd" "Add or Change to Psd Extension"
"Exec" % "filename --> psd-ext-filename"
'&".psd"'
newdef

"jpg" "Add or Change to Jpg Extension"
"Exec" % "filename --> jpg-ext-filename"
'&".jpg"'
newdef

"png" "Add or Change to Png Extension"
"Exec" % "filename --> jpg-ext-filename"
'&".png"'
newdef

"repsd" "Add or Change to Psd Extension"
"Exec" % "filename --> psd-ext-filename"
'".psd" reextend'
newdef

"rejpg" "Add or Change to Jpg Extension"
"Exec" % "filename --> jpg-ext-filename"
'".jpg" reextend'
newdef

"repng" "Add or Change to Png Extension"
"Exec" % "filename --> png-ext-filename"
'".png" reextend'
newdef

"chuuter!" "Set Shooter Venue and Shooter Number From Chuuter Form"
"Exec" % "chuuter-id -->"
"dup 2 right !Shooter.Number -2 right !Shooter.Venue"
newdef

"ofincom" "Prefix Path of Incoming Images"
"Exec" % "filename --> pathed-filename"
"^_Arching.Incoming"
newdef

"oftem" "Prefix Path of Template Area"
"Exec" % "filename --> pathed-filename"
'
^"Templates\" ofsnap
/*
_Arching.Vm
{
*/
% always in c, even for vm
 -1 left ^"c"
/*
} if
*/
'
newdef

"chuuter" "Shooter Venue Combined With Shooter Number"
"Exec" % "--> chuuter-id"
"_Shooter.Venue &_Shooter.Number"
newdef

"chuuter?" "Does String Have Trailing Shooter Number"
"Exec" % "test-string --> has-shooter-number"
"dup -2 right 1 right
numeric
{
%
% stack: test-string
%
 pop false
}
{
%
% stack: test-string
%
 2 right numeric
} ifelse
"
newdef

} if