//DeleteSTART.psc
//Script to delete SETUP lines at beginning

// first look through the whole file to see if there is START
if global1>0 then exit;

num_lines:=linecount
found:=false;
line_num := 0;

// skip lines until find "START"
repeat
  inc(line_num);
  if line_num>20 then exit;// if not within 20 lines forget it
  GotoLine(line_num);
  s2 := CurrentLine;
   found:=hasaddress_s('START',s2);
  if found then
  begin
   global1:=1;
   // delete this and previous lines
   for i:=line_num downto 1 do 
     DeleteLine(i);
   
   GotoLine(1);
   exit;
  end;
until line_num >= num_lines;