macro thumb
 read "%1.GF"
 display status profile:outboard /print:"t.pf" /page%:50
 copy "t.pf" "GFTHUMBS\%1.jpg" /convert /crop:1,1,6.5,2.5 /dpi:30
/
macro gf
 set n={n} plus 1
 variable (str) gf{n}="%1"
 if not fexist "GFTHUMBS\%1.jpg" then .thumb "%1"
 variable (str) title{n}
 read (data) "%1.GF"
 read title{n} /line
 read (data) off
/
variable n=0
dir "*.GF" /macro:gf
macro read
 read "{gf%1}.GF"
/
macro ships1
 "{gf%1}" exit read %1 | @"GFTHUMBS\{gf%1}.jpg" /height:2.0 | "{title%1}"
/
template ships "Our Ships" /bg:15 /size:large /nokey
 expand ships1 ({n},1) 1
 exit
/
.ships