')
do max
if number-(perpage*(p-1))>pagefiles then iterate
comm=GFXCON||' >T:thumbinfo "'||directory||dest||names.number||'" info'
address command comm
call OPEN("fileinfo","T:thumbinfo","r")
do 4
info=READLN("fileinfo")
end
parse var info "input size: " thumbx "x" thumby .
thumbx=strip(thumbx,,' ')
call CLOSE("fileinfo")
filenames=GetFilename(filenames.number)
if picpage then call WRITELN("out",'  ')
else call WRITELN("out",' | ')
underpicture='
'
if LINEFEED=1 then underpicture=underpicture||"
"
if FNAMEUPIC=1 then do
underpicture=underpicture||filenames||" "
end
if SIZEUPIC=1 then do
picsize=SUBWORD(STATEF(filenames.number),2,1)
if SIZEKB="Bytes" then picsize=picsize||" bytes"
if SIZEKB="KiloBytes" then do
picsize=picsize/1024
parse var picsize picsize "." .
picsize=picsize||" KB"
end
underpicture=underpicture||"("||picsize||")"
end
underpicture=underpicture||" | "
call WRITELN("out",underpicture)
if picpage then do
line1=''
if open(picfile,filenames.number||".html","W") then do
line1=line1||''||R||''||R||GetPercent(PHEADER,"2",filenames.number)||''||R||'
'||R
comm=GFXCON||' >T:thumbinfo "'||filenames.number||'" info'
address command comm
call open("fileinfo","T:thumbinfo","r")
do 4
info=READLN("fileinfo")
end
parse var info "input size: " thumbx "x" thumby .
call close("fileinfo")
line1=line1||'
'||R
prev=number-1; next=number+1
filenamesprev=GetFilename(filenames.prev)
filenamesnext=GetFilename(filenames.next)
if number>1 then line1=line1||'Previous '
if numberNext'
call WRITELN(picfile,line1||'
'||R||line||R||''||R||GetPercent(PFOOTER,"2",filenames.number)||R||''||R||'')
call close(picfile)
end
else call AddList("\033bError: Cannot create picture page file for "||filenames||"!")
end
nownum=nownum+1
gauge ID STAPI ATTRS MUIA_Gauge_Current nownum
number=number+1
check ID STABO
if result=1 then call abort
end
check ID STABO
if result=1 then call abort
call WRITELN("out","
")
end
call WRITELN("out","