screen white

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
clear
macro read
 read "{gf%1}.GF"
/
macro display
 display "{gf%1}.GF"
/
template look
@"gfthumbs\{gf%1}.jpg" /height:3.0 .display %1 /persist /bg:15 | "<-- click here for Display"
 break
  vari @"{gf%1}.GF" /height:10 /read /bg:0 /color:2
/
macro ships1
 "{gf%1}" exit read %1 |,
 @"gfthumbs\{gf%1}.jpg" .look %1 /persist /bg:15 /height:1.75 |,
 "{title%1}"
/
template ships "Our Ships" /size:large /nokey
 expand ships1 ({n},1) 1
 exit
/
.ships