%
% assemble the images into phon-ordered directory
%
empty !builder
"Twid\" ofconn
empty
{
 "MMS_*.jpg" !wilder
 nextfile ?
".,.,.,.," log)(
%%%  MMS_5594928743_20230722_082732_416C667265642042656C6C5F.jpg
 dup !F.Image
 dup term2 !F.Phone
 dup term3 !F.Date
 dup term4 !F.Time
 dup term5 noext hex2asc !F.Info
`
<tr>
	<td><img height="100" src="/Work/Twid/___image___" /> </td>
	<td>___phone___</td>
<td >&nbsp;</td>
	<td>___body___</td>
	<td>___date___ / ___time___</td>
</tr>
`
"___image___" _F.Image replall
"___phone___" _F.Phone replall
"___date___" _F.Date replall
"___time___" _F.Time replall
"___body___" _F.Info replall

^:builder

} loop
filing)

"wwwroot\Frost.html" ofapp read
"{{js}}" _builder replall
"Roster.aaa" oflocal
dup tuck
write
".html" overext