%
% stack: image-file
%
9 countup
{
%
% stack: image-file index
%
 second fileroot &"\_" &2 jpg ^"Incoming\" photon
%
% stack: image-file index 9up-filespec
%
 dup quoter ^" " ^3 ^"|" &" *showslkd" catcr
%
% stack: image-file index 9up-filespec lookup-entry
%
 ^_builder !builder
%
% stack: image-file index 9up-filespec
%
 dup exists
 {
  dup
 }
 {
  third
 } ifelse
 "Im" &4
%
% stack: image-file index 9up-filespec img-to-insert js-img-var
%
 !
%
% stack: image-file index 9up-filespec
%
 pop
 empty "Text" &3) !
%
% stack: image-file
%
} for

_builder "showclik_nav click 9up.txt" ofbin write

"Nav"
empty
%
% stack: template result
%
!Result
!Template
*finsures
!Xact

9 !counter

*tranzact