`converts a shape record from a GF file into locus commands clear all clear vari (string) shape,str vari i,n,L,T,V macro read_offset read T,V /skip if %1=1 then set str="LOCUS @ {L} = {T},{V}" if %1>1 then set str="{str}, {T},{V}" / macro read_station read L,n /skip .read_offset({n},1)1 write (lines) {shape}.txt /append \{str} / macro read_shape if fexist {shape}.txt then erase {shape}.txt set str="`Locus commands for shape: {str}" write (lines) {shape}.txt \{str} read i /skip .read_station({i}) / macro find_shape read str /line if "{str}"<>"*" then if not eof then exit find_shape read str /skip if "{str}"="{shape}" then exit read_shape if eof then error "Shape not found" else exit find_shape / macro convert_shape set shape="%1" .find_shape / read (data) ^^"FV.GF" /delim:"," `note ^^ locates FV.GF in program directory .convert_shape "HULL" `be sure the shape name is in quotes to preserve case .convert_shape "FOCSLE" .convert_shape "SKEG" read (data) off