%
% process transaction for pshop demo
%

empty
"*.jpg" ^_ImageDir
"Forward" File.List
"flist " log()
execstr
empty !builder
0 !counter
9 countup
{
%
% stack: empty [ image1 . . . . ] index
%
 dup 10 from ^"|" ^_builder !builder
 dup ^"Im" rot
 isnull
 {
  tuck
  empty exch !
  _builder catcr !builder 
 }
 {
  dup quoter ^" " &" *showslkd" catcr ^_builder !builder 
  exch !
  +:counter
 } ifelse
 empty exch ^"Text" !
} for

poplist

_builder "showslik_nav click slideshow.txt" ofbin write

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

*tranzact