//SkipSetup.psc
//Script to skip 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;
GotoLine(line_num);

// 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;
    DNCSetting(2,1);// supress going back to line 1 when send
    // go to next line for start
    GotoLine(line_num+1);
    line_num:=num_lines;  
  end;
until line_num >= num_lines;


// if not found then go to top
if found=false then
begin
   GotoLine(1);
end;