$SET DEF 2507
$FOR/LIS GHIK
$TYPE GHIK
$LINK GHIK
$ASSIGN K1B:GF2507.LINES FOR001
$ASSIGN K1B:GF2507.GHIK FOR002
$RUN GHIK