%
% stack: raw-caption post-space pre-space
%
 asc 0x1F and
%
% stack: raw-caption post-space num
%
 dup dup 1 ge exch 9 le and
%
% stack: raw-caption post-space num in-range
%
"singlechar" log)(
 {
%
% is valid single character, this is tem
%
%
% stack: raw-caption post-space num
%
  !Shooter.Tem
  pop2nd trim
%
% stack: post-space
%
 }
 {
%
% stack: raw-caption post-space num
%
% not proper letter, send a menu
%
  pop2
  _Arching.Ptype !Shooter.Tem
  trim length positive
  {
   true !Shooter.ValidCap
  }
  {
   pop "Need Caption"
   false !Shooter.ValidCap
  } ifelse
%
% stack: adj-or-need
%
 } ifelse