[Options]
Title=54. Nacionalno otvoreno prvenstvo Srbije u vazduhoplovnom jedriličarstvu
Site=AD. Ečka Zrenjanin
PeriodFrom=39634
PeriodTo=39648
Class=Standard
ClassIndex=2
AvtoSaveFlight=True
AvtoSaveTime=60
TakeoffAlt=80m
TaskPicWidth=600
TaskPicHeight=400
TaskPicCompression=90
TaskPicBorder=12
NeedLegs=False
StrictName=True
UseBinFiles=True
CommentPrefix=0
PublishKey=18BBBBF21006F26E5594528E8DA6E2C5ACB75C4D4C05C19A86

[Warnings]
HighEnl=300
AsViolate=True
MinFinAlt=0m
MaxFinAlt=2420m
MaxAlt=0m
AltTimeout=0
StartGsp=0km/h
FixRate=12

[SearchPath]
..Letovi\

[Pilots]
"Jagoš","Banović",*23683,"lfur,","DG 300","YU-4386","ZR","Standard",106,"A.K. ""Zrenjanin""",617,"",1,"",""
"Rok Žunič /","Benjamin Smole",*,"fx8h,","Twin Astir","S5 - 7155","JB","Standard",94,"A.K. ""Novo Mesto""",640,"",1,"",""
"Branko","Blagojević",*20894,"f8ei,lcpx,","LS 7","S5 - 3306","BB","Standard",106,"A.K.""Zrenjanin""",931,"",1,"",""
"Aleksandar","Diklić",*19848,"fx7h,","Std. Cirrus","YU-4313","13","Standard",98,"AK.""Vaja""",685,"",1,"",""
"Ivan","Filko",*17882,"lc5k,","Std. Cirrus","YU-4277","77","Standard",98,"A.K. ""Novi Sad""",872,"",1,"",""
"Zoran","Frenc",*,"lc5r,ljb1,","Discus 2","YU - 4462","ZF","Standard",108,"AK.""Vaja""",917,"",1,"",""
"Živa","Frenc",*13889,"l8xr,lkue,","LS 8","S5 - 3118","EJ","Standard",108,"A.K. "" Vaja """,520,"",1,"",""
"Dragan","Kolaček",*,"l02u,","Std. Cirrus","YU - 4299","99","Standard",98,"A.K. ""Vaja""",539,"",1,"",""
"Miroslav","Milutinović",*22078,"lcrq,","DG 100","YU - 4330","30","Standard",100,"A.K. ""Zrenjanin""",583,"",1,"",""
"Alojz","Novak",*,"f1yr,","Std. Cirrus","S5 - 3031","AN","Standard",98,"A.K. ""Novo Mesto""",715,"",1,"",""
"Vlatko","Rihter",*,"fx78,","Std. Cirrus","YU-4303","03","Standard",98,"A.K. "" Novi Sad """,595,"",1,"",""
"Branko","Stojković",*21641,"lcqk,","DG 100","YU-4347","NS","Standard",100,"AK.""Novi Sad""",1000,"",1,"",""

[Script0]
Program Trke;
const Dm = 100000;      // Minimum Handicapped Distance to validate the Day [meters]
var
  Dt, n1, n2, N, D0, V0, T0, H0,
  Pm, Pdm, Pvm, Pn, F, Day: Double;
  
  D, H, Dh, M, T, Dc, Pd, V, Vh, Pv, S : double;
  
  PmaxDistance, PmaxTime : double;
  
  i : integer;

Function MinValue( a,b,c : double ) : double;
var m : double;
begin
  m := 9999999;
  If a < m Then m := a;
  If b < m Then m := b;
  If c < m Then m := c;
  
  MinValue := m;
end;

begin
  // Calculation of basic parameters
  N := 0;  // Number of pilots having had a competition launch
  N1 := 0;  // Number of pilots with Marking distance greater than Dm - normally 100km
  H0 := 0;  // Highest Handicap of all competitors in the class
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].dis >= Dm Then n1 := n1+1;  // Competitors who have achieved at least Dm
      If Pilots[i].takeoff > 0 Then N := N+1;    // Number of competitors in the class having had a competition launch that Day
      If Pilots[i].Hcap > H0 Then H0 := Pilots[i].Hcap; // Highest Handicap of all competitors in the class
    end;
  end;
  If N=0 Then Exit;
  If H0=0 Then Exit;
  
  D0 := 0;
  T0 := 0;
  V0 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      // Find the highest Corrected distance
      If Pilots[i].dis*H0/Pilots[i].Hcap > D0 Then D0 := Pilots[i].dis*H0/Pilots[i].Hcap;
      
      // Find the highest finisher's speed of the day
      // and corresponding Task Time
      If Pilots[i].speed*H0/Pilots[i].Hcap > V0 Then 
      begin
        V0 := Pilots[i].speed*H0/Pilots[i].Hcap;
        T0 := Pilots[i].finish-Pilots[i].start;
      end;
    end;
  end;
  If D0=0 Then Exit;
  
  // Maximum available points for the Day
  PmaxDistance := (5*D0/1000)-250;
  If T0>0 Then
    PmaxTime := (400*T0/3600.0)-200
  Else
    PmaxTime := 1000;
  Pm := MinValue( PmaxDistance, PmaxTime, 1000.0 );
  
  // Day Factor
  F := 1.25* n1/N;
  If F>1 Then F := 1;
  
  // Number of competitors who have achieved at least 2/3 of best speed for the day V0
  n2 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].speed*H0/Pilots[i].Hcap > (2.0/3.0*V0) Then
      begin
        n2 := n2+1;
      end;
    end;
  end;
  
  Pvm := 2.0/3.0 * (n2/N) * Pm;  // maximum available Speed Points for the Day
  Pdm := Pm-Pvm;                 // maximum available Distance Points for the Day
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    // For any finisher
    If Pilots[i].finish > 0 Then
    begin
      Pv := Pvm * (Pilots[i].speed*H0/Pilots[i].Hcap - 2.0/3.0*V0)/(1.0/3.0*V0);
      If Pilots[i].speed*H0/Pilots[i].Hcap < (2.0/3.0*V0) Then Pv := 0;
      Pd := Pdm;
    end
    Else
    //For any non-finisher
    begin
      Pv := 0;
      Pd := Pdm * (Pilots[i].dis*H0/Pilots[i].Hcap/D0);
    end;
    
    // Pilot's score
    Pilots[i].Points := Round( F*(Pd+Pv) - Pilots[i].Penalty );
  end;
  
  // Data which is presented in the score-sheets
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].sstart:=Pilots[i].start;
    Pilots[i].sfinish:=Pilots[i].finish;
    Pilots[i].sdis:=Pilots[i].dis;
    Pilots[i].sspeed:=Pilots[i].speed;
  end;
  
  // Info fields, also presented on the Score Sheets
  Info1 := 'Maximum Points: '+IntToStr(Round(Pm));
  Info2 := 'Day factor = '+FormatFloat('0.000',F);
end.

[Script1]
Program Assigned_area;
// Version 2.08, Date 13.08.2003
const Dm = 100000;      // Minimum Handicapped Distance to validate the Day [meters]
var
  Dt, n1, n2, N, D0, V0, T0, H0, Td,
  Pm, Pdm, Pvm, Pn, F, Day: Double;
  
  D, H, Dh, M, T, Dc, Pd, V, Vh, Pv, S : double;
  
  PmaxDistance, PmaxTime : double;
  
  i : integer;

Function MinValue( a,b,c : double ) : double;
var m : double;
begin
  m := a;
  If b < m Then m := b;
  If c < m Then m := c;

  MinValue := m;
end;

begin
  // Calculation of basic parameters
  N := 0;  // Number of pilots having had a competition launch
  N1 := 0;  // Number of pilots with Marking distance greater than Dm - normally 100km
  H0 := 0;  // Highest Handicap of all competitors in the class
  Td := 0;  // Designated time
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].Hcap > H0 Then H0 := Pilots[i].Hcap; // Highest Handicap of all competitors in the class
    end;
  end;
  If H0=0 Then Exit;

  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].dis*H0/Pilots[i].Hcap >= Dm Then n1 := n1+1;  // Competitors who have achieved at least Dm
      If Pilots[i].takeoff > 0 Then N := N+1;    // Number of competitors in the class having had a competition launch that Day
      If Pilots[i].tstart > 0 Then Td := Pilots[i].tfinish-Pilots[i].tstart;  // Calculate designated time
    end;
  end;
  If N=0 Then Exit;
  
  // Outlanding Penalty (Distance reduction)
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    if Pilots[i].finish <= 0 Then
    begin
      M := 1.0/2.0 * Pilots[i].DisToGoal*H0/Pilots[i].Hcap;
      // Pilots[i].dis := Pilots[i].dis - M; // Uncomment this line if you wish to use the Outlanding Penalty
    end;
  end;
    
  D0 := 0;
  T0 := 0;
  V0 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      // Find the highest Corrected distance
      If Pilots[i].dis*H0/Pilots[i].Hcap > D0 Then D0 := Pilots[i].dis*H0/Pilots[i].Hcap;
      
      // Find the highest finisher's speed of the day
      // and corresponding Task Time
      If Pilots[i].speed*H0/Pilots[i].Hcap = V0 Then // in case of a tie, lowest Task Time applies
      begin
        If (Pilots[i].finish-Pilots[i].start) < T0 Then
        begin
          V0 := Pilots[i].speed*H0/Pilots[i].Hcap;
          T0 := Pilots[i].finish-Pilots[i].start;
        end;
      end
      Else
      begin
        If Pilots[i].speed*H0/Pilots[i].Hcap > V0 Then 
        begin
          V0 := Pilots[i].speed*H0/Pilots[i].Hcap;
          T0 := Pilots[i].finish-Pilots[i].start;
          If T0 < Td Then  // If marking time is shorter than Designated time, Designated time must be used for computations
            T0 := Td;
        end;
      end;
    end;
  end;
  If D0=0 Then Exit;
  
  // Maximum available points for the Day
  PmaxDistance := (5*D0/1000)-250;
  PmaxTime := (400*T0/3600.0)-200;
  If T0 <= 0 Then PmaxTime := 1000;
  Pm := MinValue( PmaxDistance, PmaxTime, 1000.0 );
  
  // Day Factor
  F := 1.25* n1/N;
  If F>1 Then F := 1;
  
  // Number of competitors who have achieved at least 2/3 of best speed for the day V0
  n2 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].speed*H0/Pilots[i].Hcap > (2.0/3.0*V0) Then
      begin
        n2 := n2+1;
      end;
    end;
  end;
  
  Pvm := 2.0/3.0 * (n2/N) * Pm;  // maximum available Speed Points for the Day
  Pdm := Pm-Pvm;                 // maximum available Distance Points for the Day
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    // For any finisher
    If Pilots[i].finish > 0 Then
    begin
      Pv := Pvm * (Pilots[i].speed*H0/Pilots[i].Hcap - 2.0/3.0*V0)/(1.0/3.0*V0);
      If Pilots[i].speed*H0/Pilots[i].Hcap < (2.0/3.0*V0) Then Pv := 0;
      Pd := Pdm;
      If Pilots[i].dis*H0/Pilots[i].Hcap < (2.0/3.0*D0) Then Pd := Pdm*Pilots[i].dis*H0/Pilots[i].Hcap/(2.0/3.0*D0);
    end
    Else
    //For any non-finisher
    begin
      Pv := 0;
      Pd := Pdm * (Pilots[i].dis*H0/Pilots[i].Hcap/D0);
    end;
    
    // Pilot's score
    Pilots[i].Points := Round( F*(Pd+Pv) - Pilots[i].Penalty );
  end;
  
  // Data which is presented in the score-sheets
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].sstart:=Pilots[i].start;
    Pilots[i].sfinish:=Pilots[i].finish;
    Pilots[i].sdis:=Pilots[i].dis;
    Pilots[i].sspeed:=Pilots[i].speed;
  end;
  
  // Info fields, also presented on the Score Sheets
  Info1 := 'Maximum Points: '+IntToStr(Round(Pm));
  Info2 := 'Day factor = '+FormatFloat('0.000',F);
end.

[Script2]
Program Kec_kredl;
// Version 2.08, Date 11.07.2003
const Dm = 100000;      // Minimum Handicapped Distance to validate the Day [meters]
var
  Dt, n1, n2, N, D0, V0, T0, H0,
  Pm, Pdm, Pvm, Pn, F, Day: Double;
  
  D, H, Dh, M, T, Dc, Pd, V, Vh, Pv, S : double;
  
  PmaxDistance, PmaxTime : double;
  
  i : integer;

Function MinValue( a,b,c : double ) : double;
var m : double;
begin
  m := a;
  If b < m Then m := b;
  If c < m Then m := c;

  MinValue := m;
end;

begin
  N := 0;  // Number of pilots having had a competition launch
  N1 := 0;  // Number of pilots with Marking distance greater than Dm - normally 100km
  H0 := 0;  // Highest Handicap of all competitors in the class
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].Hcap > H0 Then H0 := Pilots[i].Hcap; // Highest Handicap of all competitors in the class
    end;
  end;
  If H0=0 Then Exit;

  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].tdis*H0/Pilots[i].Hcap >= Dm Then n1 := n1+1;  // Competitors who have achieved at least Dm
      If Pilots[i].takeoff > 0 Then N := N+1;    // Number of competitors in the class having had a competition launch that Day
    end;
  end;
  If N=0 Then Exit;
  
  // Outlanding Penalty (Distance reduction)
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    if Pilots[i].finish <= 0 Then
    begin
      M := 0.2*Pilots[i].tdis*H0/Pilots[i].Hcap + 1.0/2.0 * Pilots[i].DisToGoal*H0/Pilots[i].Hcap;
      // Pilots[i].tdis := Pilots[i].tdis - M; // Uncomment this line if you wish to use Outlanding penalty
    end;
  end;

  D0 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      // Find the highest Corrected distance
      If Pilots[i].tdis*H0/Pilots[i].Hcap > D0 Then D0 := Pilots[i].tdis*H0/Pilots[i].Hcap;
    end;
  end;
  If D0 = 0 Then Exit;
  
  // Maximum available points for the Day
  PmaxDistance := (5*D0/1000)-250;
  Pm := MinValue( PmaxDistance, 1000.0, 1000.0 );
  
  // Day Factor
  F := 1.25* n1/N;
  If F>1 Then F := 1;
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].Points := Round( F*Pm*Pilots[i].tdis*H0/Pilots[i].Hcap/D0 - Pilots[i].Penalty );
  end;  
  
  // Data which is presented in the score-sheets
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].sstart:=Pilots[i].tstart;
    Pilots[i].sfinish:=Pilots[i].tfinish;
    Pilots[i].sdis:=Pilots[i].tdis;
    Pilots[i].sspeed:=Pilots[i].tspeed;
  end;
  
  // Info fields, also presented on the Score Sheets
  Info1 := 'Maximum Points: '+IntToStr(Round(Pm));
  Info2 := 'Day factor = '+FormatFloat('0.000',F);
end.

[Script3]
Program Racing_Task_Club;
// Version 3.00, Date 23.07.2006
//
// Version 3.0
// . Added Hmin instead of H0. Score is now calculated using minimum handicap as opposed to maximum handicap as before
// Version 3.01
// . Changed If Pilots[i].takeoff > 0 to If Pilots[i].takeoff >= 0. It is theoretically possible that one takes off at 00:00:00 UTC

const Dm = 100000;      // Minimum Handicapped Distance to validate the Day [meters]
var
  Dt, n1, n2, N, D0, V0, T0, Hmin,
  Pm, Pdm, Pvm, Pn, F, Day: Double;
  
  D, H, Dh, M, T, Dc, Pd, V, Vh, Pv, S : double;
  
  PmaxDistance, PmaxTime : double;
  
  i : integer;

Function MinValue( a,b,c : double ) : double;
var m : double;
begin
  m := a;
  If b < m Then m := b;
  If c < m Then m := c;

  MinValue := m;
end;

begin
  // Calculation of basic parameters
  N := 0;  // Number of pilots having had a competition launch
  N1 := 0;  // Number of pilots with Marking distance greater than Dm - normally 100km
  Hmin := 100000;  // Lowest Handicap of all competitors in the class
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].Hcap < Hmin Then Hmin := Pilots[i].Hcap; // Lowest Handicap of all competitors in the class
    end;
  end;
  If Hmin=0 Then Exit;

  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].dis*Hmin/Pilots[i].Hcap >= Dm Then n1 := n1+1;  // Competitors who have achieved at least Dm
      If Pilots[i].takeoff >= 0 Then N := N+1;    // Number of competitors in the class having had a competition launch that Day
    end;
  end;
  If N=0 Then Exit;
  
  D0 := 0;
  T0 := 0;
  V0 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      // Find the highest Corrected distance
      If Pilots[i].dis*Hmin/Pilots[i].Hcap > D0 Then D0 := Pilots[i].dis*Hmin/Pilots[i].Hcap;
      
      // Find the highest finisher's speed of the day
      // and corresponding Task Time
      If Pilots[i].finish >= 0 Then
      begin
        If Pilots[i].speed*Hmin/Pilots[i].Hcap > V0 Then 
        begin
          V0 := Pilots[i].speed*Hmin/Pilots[i].Hcap;
          T0 := Pilots[i].finish-Pilots[i].start;
        end;
      end;
    end;
  end;
  If D0=0 Then Exit;
  
  // Maximum available points for the Day
  PmaxDistance := (5*D0/1000)-250;
  PmaxTime := (400*T0/3600.0)-200;
  If T0 <= 0 Then PmaxTime := 1000;
  Pm := MinValue( PmaxDistance, PmaxTime, 1000.0 );
  
  // Day Factor
  F := 1.25* n1/N;
  If F>1 Then F := 1;
  
  // Number of competitors who have achieved at least 2/3 of best speed for the day V0
  n2 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].speed*Hmin/Pilots[i].Hcap > (2.0/3.0*V0) Then
      begin
        n2 := n2+1;
      end;
    end;
  end;
  
  Pvm := 2.0/3.0 * (n2/N) * Pm;  // maximum available Speed Points for the Day
  Pdm := Pm-Pvm;                 // maximum available Distance Points for the Day
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    // For any finisher
    If Pilots[i].finish > 0 Then
    begin
      Pv := Pvm * (Pilots[i].speed*Hmin/Pilots[i].Hcap - 2.0/3.0*V0)/(1.0/3.0*V0);
      If Pilots[i].speed*Hmin/Pilots[i].Hcap < (2.0/3.0*V0) Then Pv := 0;
      Pd := Pdm;
    end
    Else
    //For any non-finisher
    begin
      Pv := 0;
      Pd := Pdm * (Pilots[i].dis*Hmin/Pilots[i].Hcap/D0);
    end;
    
    // Pilot's score
    Pilots[i].Points := Round( F*(Pd+Pv) - Pilots[i].Penalty );
  end;
  
  // Data which is presented in the score-sheets
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].sstart:=Pilots[i].start;
    Pilots[i].sfinish:=Pilots[i].finish;
    Pilots[i].sdis:=Pilots[i].dis;
    Pilots[i].sspeed:=Pilots[i].speed;
  end;
  
  // Info fields, also presented on the Score Sheets
  Info1 := 'Maximum Points: '+IntToStr(Round(Pm));
  Info2 := 'Day factor = '+FormatFloat('0.000',F);
end.

[Script4]
Program Distance_Task_Club;
// Version 3.00, Date 23.07.2006
//
// Version 3.0
// . Added Hmin instead of Hmin. Score is now calculated using minimum handicap as opposed to maximum handicap as before
// Version 3.01
// . Changed If Pilots[i].takeoff > 0 to If Pilots[i].takeoff >= 0. It is theoretically possible that one takes off at 00:00:00 UTC

const Dm = 100000;      // Minimum Handicapped Distance to validate the Day [meters]
var
  Dt, n1, n2, N, D0, V0, T0, Hmin,
  Pm, Pdm, Pvm, Pn, F, Day: Double;
  
  D, H, Dh, M, T, Dc, Pd, V, Vh, Pv, S : double;
  
  PmaxDistance, PmaxTime : double;
  
  i : integer;

Function MinValue( a,b,c : double ) : double;
var m : double;
begin
  m := a;
  If b < m Then m := b;
  If c < m Then m := c;

  MinValue := m;
end;

begin
  N := 0;  // Number of pilots having had a competition launch
  N1 := 0;  // Number of pilots with Marking distance greater than Dm - normally 100km
  Hmin := 100000;  // Lowest Handicap of all competitors in the class
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].Hcap < Hmin Then Hmin := Pilots[i].Hcap; // Lowest Handicap of all competitors in the class
    end;
  end;
  If Hmin=0 Then Exit;

  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].tdis*Hmin/Pilots[i].Hcap >= Dm Then n1 := n1+1;  // Competitors who have achieved at least Dm
      If Pilots[i].takeoff >= 0 Then N := N+1;    // Number of competitors in the class having had a competition launch that Day
    end;
  end;
  If N=0 Then Exit;
  
  // Outlanding Penalty (Distance reduction)
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    if Pilots[i].finish <= 0 Then
    begin
      M := 0.2*Pilots[i].tdis*Hmin/Pilots[i].Hcap + 1.0/2.0 * Pilots[i].DisToGoal*Hmin/Pilots[i].Hcap;
      // Pilots[i].tdis := Pilots[i].tdis - M; // Uncomment this line if you wish to use Outlanding penalty
    end;
  end;

  D0 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      // Find the highest Corrected distance
      If Pilots[i].tdis*Hmin/Pilots[i].Hcap > D0 Then D0 := Pilots[i].tdis*Hmin/Pilots[i].Hcap;
    end;
  end;
  If D0 = 0 Then Exit;
  
  // Maximum available points for the Day
  PmaxDistance := (5*D0/1000)-250;
  Pm := MinValue( PmaxDistance, 1000.0, 1000.0 );
  
  // Day Factor
  F := 1.25* n1/N;
  If F>1 Then F := 1;
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].Points := Round( F*Pm*Pilots[i].tdis*Hmin/Pilots[i].Hcap/D0 - Pilots[i].Penalty );
  end;  
  
  // Data which is presented in the score-sheets
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].sstart:=Pilots[i].tstart;
    Pilots[i].sfinish:=Pilots[i].tfinish;
    Pilots[i].sdis:=Pilots[i].tdis;
    Pilots[i].sspeed:=Pilots[i].tspeed;
  end;
  
  // Info fields, also presented on the Score Sheets
  Info1 := 'Maximum Points: '+IntToStr(Round(Pm));
  Info2 := 'Day factor = '+FormatFloat('0.000',F);
end.

[Script5]
Program Speed_Task_Club;
// Version 3.00, Date 23.07.2006
//
// Version 3.0
// . Added Hmin instead of H0. Score is now calculated using minimum handicap as opposed to maximum handicap as before
// Version 3.01
// . Changed If Pilots[i].takeoff > 0 to If Pilots[i].takeoff >= 0. It is theoretically possible that one takes off at 00:00:00 UTC
// . Changed If Pilots[i].start > 0 to If Pilots[i].start >= 0. It is theoretically possible that one starts at 00:00:00 UTC

const Dm = 100000;      // Minimum Handicapped Distance to validate the Day [meters]
var
  Dt, n1, n2, N, D0, V0, T0, Hmin, Td,
  Pm, Pdm, Pvm, Pn, F, Day: Double;
  
  D, H, Dh, M, T, Dc, Pd, V, Vh, Pv, S : double;
  
  PmaxDistance, PmaxTime : double;
  
  i : integer;

Function MinValue( a,b,c : double ) : double;
var m : double;
begin
  m := a;
  If b < m Then m := b;
  If c < m Then m := c;

  MinValue := m;
end;

begin
  // Calculation of basic parameters
  N := 0;  // Number of pilots having had a competition launch
  N1 := 0;  // Number of pilots with Marking distance greater than Dm - normally 100km
  Hmin := 100000;  // Lowest Handicap of all competitors in the class
  Td := 0;  // Designated time
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].Hcap < Hmin Then Hmin := Pilots[i].Hcap; // Lowest Handicap of all competitors in the class
    end;
  end;
  If Hmin=0 Then Exit;

  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].dis*Hmin/Pilots[i].Hcap >= Dm Then n1 := n1+1;  // Competitors who have achieved at least Dm
      If Pilots[i].takeoff >= 0 Then N := N+1;    // Number of competitors in the class having had a competition launch that Day
      If Pilots[i].tstart >= 0 Then Td := Pilots[i].tfinish-Pilots[i].tstart;  // Calculate designated time
    end;
  end;
  If N=0 Then Exit;
  
  // Outlanding Penalty (Distance reduction)
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    if Pilots[i].finish <= 0 Then
    begin
      M := 1.0/2.0 * Pilots[i].DisToGoal*Hmin/Pilots[i].Hcap;
      // Pilots[i].dis := Pilots[i].dis - M; // Uncomment this line if you wish to use the Outlanding Penalty
    end;
  end;
    
  D0 := 0;
  T0 := 0;
  V0 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      // Find the highest Corrected distance
      If Pilots[i].dis*Hmin/Pilots[i].Hcap > D0 Then D0 := Pilots[i].dis*Hmin/Pilots[i].Hcap;
      
      // Find the highest finisher's speed of the day
      // and corresponding Task Time
      If Pilots[i].speed*Hmin/Pilots[i].Hcap = V0 Then // in case of a tie, lowest Task Time applies
      begin
        If (Pilots[i].finish-Pilots[i].start) < T0 Then
        begin
          V0 := Pilots[i].speed*Hmin/Pilots[i].Hcap;
          T0 := Pilots[i].finish-Pilots[i].start;
        end;
      end
      Else
      begin
        If Pilots[i].speed*Hmin/Pilots[i].Hcap > V0 Then 
        begin
          V0 := Pilots[i].speed*Hmin/Pilots[i].Hcap;
          T0 := Pilots[i].finish-Pilots[i].start;
          If T0 < Td Then  // If marking time is shorter than Designated time, Designated time must be used for computations
            T0 := Td;
        end;
      end;
    end;
  end;
  If D0=0 Then Exit;
  
  // Maximum available points for the Day
  PmaxDistance := (5*D0/1000)-250;
  PmaxTime := (400*T0/3600.0)-200;
  If T0 <= 0 Then PmaxTime := 1000;
  Pm := MinValue( PmaxDistance, PmaxTime, 1000.0 );
  
  // Day Factor
  F := 1.25* n1/N;
  If F>1 Then F := 1;
  
  // Number of competitors who have achieved at least 2/3 of best speed for the day V0
  n2 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].speed*Hmin/Pilots[i].Hcap > (2.0/3.0*V0) Then
      begin
        n2 := n2+1;
      end;
    end;
  end;
  
  Pvm := 2.0/3.0 * (n2/N) * Pm;  // maximum available Speed Points for the Day
  Pdm := Pm-Pvm;                 // maximum available Distance Points for the Day
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    // For any finisher
    If Pilots[i].finish > 0 Then
    begin
      Pv := Pvm * (Pilots[i].speed*Hmin/Pilots[i].Hcap - 2.0/3.0*V0)/(1.0/3.0*V0);
      If Pilots[i].speed*Hmin/Pilots[i].Hcap < (2.0/3.0*V0) Then Pv := 0;
      Pd := Pdm;
      If Pilots[i].dis*Hmin/Pilots[i].Hcap < (2.0/3.0*D0) Then Pd := Pdm*Pilots[i].dis*Hmin/Pilots[i].Hcap/(2.0/3.0*D0);
    end
    Else
    //For any non-finisher
    begin
      Pv := 0;
      Pd := Pdm * (Pilots[i].dis*Hmin/Pilots[i].Hcap/D0);
    end;
    
    // Pilot's score
    Pilots[i].Points := Round( F*(Pd+Pv) - Pilots[i].Penalty );
  end;
  
  // Data which is presented in the score-sheets
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].sstart:=Pilots[i].start;
    Pilots[i].sfinish:=Pilots[i].finish;
    Pilots[i].sdis:=Pilots[i].dis;
    Pilots[i].sspeed:=Pilots[i].speed;
  end;
  
  // Info fields, also presented on the Score Sheets
  Info1 := 'Maximum Points: '+IntToStr(Round(Pm));
  Info2 := 'Day factor = '+FormatFloat('0.000',F);
end.

[Script6]
Program Scoring_Script_7;
//Pilots[i] record element description
// sstart    starttime written in results sets in seconds
// sfinish   finishtime written in results sets in seconds (negative values - no finish)
// sdis      distance shown in results in meters (negative values will be shown in parenthesis)
// sspeed    speed shown in results in m/s (negative values will be shown in parenthesis)
// points    points shown in results
// pointString: string; a string representation of points for custom output
// Hcap      handicap factor as declared in pilot setup
// penalty   penalty points defined in Day performance dialog
// start     start time of task (-1 if no start)
// finish    finish time of task (-1 if no finish)
// dis       flown distance
// speed     speed of finished taks (-1 if no finish, takes into account task time)
// tstart    start time of task with time (-1 if no start)
// tfinish   finish time of task with time
// tdis      flown distance in task time
// tspeed    flown distance divided by task time
// takeoff   takeoff time (-1 if no takeoff)
// landing   landing time (-1 if no landing)
// phototime outlanding time (-1 if no outlanding)
// isHc      set to TRUE if not competing is used
// FinishAlt altitude of task finish
// DisToGoal distance between Task landing point and flight landing point
// Tag       string value as defined in Day performace dialog
// Leg,LegT  array of TLeg records; info about each leg, LegT for timeout calculation
// Warning: String;  used to set up a user warning
// CompID: String;  Competition ID
// PilotTag: String; string value as defined in Pilot edit dialog
// user_str1,user_str2,user_str3: String; user strings, which are stored also in XML file
// td1,td2,td3: Double; temprary variables

//TLeg = record; holding leg information
// start,finish,d,crs Double; time in seconds, distance in meters, crs in radians
// td1,td2,td3 Double; variables may be used as temporary variables

//other variables
//info1..info2    informational strings shown on results
//DayTag    string value as defined in Day properties dialog
//
//Task = record; holding basic information about task
// TotalDis: Double; task distance in meters
// TaskTime: Integer; task time in second
// Point: Array of TTaskPoint; description of task
//TTaskPoint = record; holding basic information about taskpoint and leg
// lon,lat: Double; 
// d,crs: Double; distance, course to next point
// td1,td2,td3 Double; variables may be used as temporary variables

begin
end.

[Script7]
Program Scoring_Script_8;
//Pilots[i] record element description
// sstart    starttime written in results sets in seconds
// sfinish   finishtime written in results sets in seconds (negative values - no finish)
// sdis      distance shown in results in meters (negative values will be shown in parenthesis)
// sspeed    speed shown in results in m/s (negative values will be shown in parenthesis)
// points    points shown in results
// pointString: string; a string representation of points for custom output
// Hcap      handicap factor as declared in pilot setup
// penalty   penalty points defined in Day performance dialog
// start     start time of task (-1 if no start)
// finish    finish time of task (-1 if no finish)
// dis       flown distance
// speed     speed of finished taks (-1 if no finish, takes into account task time)
// tstart    start time of task with time (-1 if no start)
// tfinish   finish time of task with time
// tdis      flown distance in task time
// tspeed    flown distance divided by task time
// takeoff   takeoff time (-1 if no takeoff)
// landing   landing time (-1 if no landing)
// phototime outlanding time (-1 if no outlanding)
// isHc      set to TRUE if not competing is used
// FinishAlt altitude of task finish
// DisToGoal distance between Task landing point and flight landing point
// Tag       string value as defined in Day performace dialog
// Leg,LegT  array of TLeg records; info about each leg, LegT for timeout calculation
// Warning: String;  used to set up a user warning
// CompID: String;  Competition ID
// PilotTag: String; string value as defined in Pilot edit dialog
// user_str1,user_str2,user_str3: String; user strings, which are stored also in XML file
// td1,td2,td3: Double; temprary variables

//TLeg = record; holding leg information
// start,finish,d,crs Double; time in seconds, distance in meters, crs in radians
// td1,td2,td3 Double; variables may be used as temporary variables

//other variables
//info1..info2    informational strings shown on results
//DayTag    string value as defined in Day properties dialog
//
//Task = record; holding basic information about task
// TotalDis: Double; task distance in meters
// TaskTime: Integer; task time in second
// Point: Array of TTaskPoint; description of task
//TTaskPoint = record; holding basic information about taskpoint and leg
// lon,lat: Double; 
// d,crs: Double; distance, course to next point
// td1,td2,td3 Double; variables may be used as temporary variables

begin
end.

[Script8]
Program Distance_Task;
// Version 2.08, Date 11.07.2003
const Dm = 100000;      // Minimum Handicapped Distance to validate the Day [meters]
var
  Dt, Td, n1, n2, N, D0, V0, T0, 
  Pm, Pdm, Pvm, Pn, F, Day: Double;
  
  D, H, Dh, Dg, M, T, Dc, Pd, V, Vh, Pv, S : double;
  
  PmaxDistance, PmaxTime : double;
  
  i : integer;

Function MinValue( a,b,c : double ) : double;
var m : double;
begin
  m := a;
  If b < m Then m := b;
  If c < m Then m := c;

  MinValue := m;
end;

begin
  N := 0;  // Number of pilots having had a competition launch
  N1 := 0;  // Number of pilots with Marking distance greater than Dm - normally 100km
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].tdis >= Dm Then N1 := N1+1;  // Competitors who have achieved at least Dm
      If Pilots[i].takeoff > 0 Then N := N+1;    // Number of competitors in the class having had a competition launch that Day
    end;
  end;
  If N=0 Then Exit;
  
  // Outlanding Penalty (Distance reduction)
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    if Pilots[i].finish <= 0 Then
    begin
      M := 0.2*Pilots[i].tdis + 1.0/2.0 * Pilots[i].DisToGoal;
      // Pilots[i].tdis := Pilots[i].tdis - M; // Uncomment this line if you wish to use Outlanding penalty
    end;
  end;

  D0 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      // Find the highest Corrected distance
      If Pilots[i].tdis > D0 Then D0 := Pilots[i].tdis;
    end;
  end;
  If D0 = 0 Then Exit;
  
  // Maximum available points for the Day
  PmaxDistance := (5*D0/1000)-250;
  Pm := MinValue( PmaxDistance, 1000.0, 1000.0 );
  
  // Day Factor
  F := 1.25* n1/N;
  If F>1 Then F := 1;
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].Points := Round( F*Pm*Pilots[i].tdis/D0 - Pilots[i].Penalty );
  end;  
  
  // Data which is presented in the score-sheets
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].sstart:=Pilots[i].tstart;
    Pilots[i].sfinish:=Pilots[i].tfinish;
    Pilots[i].sdis:=Pilots[i].tdis;
    Pilots[i].sspeed:=Pilots[i].tspeed;
  end;
  
  // Info fields, also presented on the Score Sheets
  Info1 := 'Maximum Points: '+IntToStr(Round(Pm));
  Info2 := 'Day factor = '+FormatFloat('0.000',F);
end.

[Script9]
Program Distance_Task;
// Version 2.08, Date 11.07.2003
const Dm = 100000;      // Minimum Handicapped Distance to validate the Day [meters]
var
  Dt, Td, n1, n2, N, D0, V0, T0, 
  Pm, Pdm, Pvm, Pn, F, Day: Double;
  
  D, H, Dh, Dg, M, T, Dc, Pd, V, Vh, Pv, S : double;
  
  PmaxDistance, PmaxTime : double;
  
  i : integer;

Function MinValue( a,b,c : double ) : double;
var m : double;
begin
  m := a;
  If b < m Then m := b;
  If c < m Then m := c;

  MinValue := m;
end;

begin
  N := 0;  // Number of pilots having had a competition launch
  N1 := 0;  // Number of pilots with Marking distance greater than Dm - normally 100km
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].tdis >= Dm Then N1 := N1+1;  // Competitors who have achieved at least Dm
      If Pilots[i].takeoff > 0 Then N := N+1;    // Number of competitors in the class having had a competition launch that Day
    end;
  end;
  If N=0 Then Exit;
  
  // Outlanding Penalty (Distance reduction)
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    if Pilots[i].finish <= 0 Then
    begin
      M := 0.2*Pilots[i].tdis + 1.0/2.0 * Pilots[i].DisToGoal;
      // Pilots[i].tdis := Pilots[i].tdis - M; // Uncomment this line if you wish to use Outlanding penalty
    end;
  end;

  D0 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      // Find the highest Corrected distance
      If Pilots[i].tdis > D0 Then D0 := Pilots[i].tdis;
    end;
  end;
  If D0 = 0 Then Exit;
  
  // Maximum available points for the Day
  PmaxDistance := (5*D0/1000)-250;
  Pm := MinValue( PmaxDistance, 1000.0, 1000.0 );
  
  // Day Factor
  F := 1.25* n1/N;
  If F>1 Then F := 1;
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].Points := Round( F*Pm*Pilots[i].tdis/D0 - Pilots[i].Penalty );
  end;  
  
  // Data which is presented in the score-sheets
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].sstart:=Pilots[i].tstart;
    Pilots[i].sfinish:=Pilots[i].tfinish;
    Pilots[i].sdis:=Pilots[i].tdis;
    Pilots[i].sspeed:=Pilots[i].tspeed;
  end;
  
  // Info fields, also presented on the Score Sheets
  Info1 := 'Maximum Points: '+IntToStr(Round(Pm));
  Info2 := 'Day factor = '+FormatFloat('0.000',F);
end.

[Script10]
Program Speed_Task;
// Version 3.0, Date 27.03.2006
// + All finishers get the same distance points Agenda 12.3.2.k.
// Version 3.01
// . Changed If Pilots[i].takeoff > 0 to If Pilots[i].takeoff >= 0. It is theoretically possible that one takes off at 00:00:00 UTC
// . Changed If Pilots[i].start > 0 to If Pilots[i].start >= 0. It is theoretically possible that one starts at 00:00:00 UTC

const Dm = 100000;      // Minimum Handicapped Distance to validate the Day [meters]
var
  Dt, Td, n1, n2, N, D0, V0, T0, 
  Pm, Pdm, Pvm, Pn, F, Day: Double;
  
  D, H, Dh, Dg, M, T, Dc, Pd, V, Vh, Pv, S : double;
  
  PmaxDistance, PmaxTime : double;
  
  i : integer;

Function MinValue( a,b,c : double ) : double;
var m : double;
begin
  m := a;
  If b < m Then m := b;
  If c < m Then m := c;

  MinValue := m;
end;

begin
  // Calculation of basic parameters
  N := 0;  // Number of pilots having had a competition launch
  N1 := 0;  // Number of pilots with Marking distance greater than Dm - normally 100km
  Td := 0;  // Designated time

  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].dis >= Dm Then N1 := N1+1;    // Competitors who have achieved at least Dm
      If Pilots[i].takeoff >= 0 Then N := N+1;    // Number of competitors in the class having had a competition launch that Day
      If Pilots[i].tstart >= 0 Then Td := Pilots[i].tfinish-Pilots[i].tstart;  // Calculate designated time
    end;
  end;
  If N=0 Then Exit;
  If Td=0 Then Exit;
  
  // Outlanding Penalty (Distance reduction)
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    if Pilots[i].finish <= 0 Then
    begin
      M := 1.0/2.0 * Pilots[i].DisToGoal;
      // Pilots[i].dis := Pilots[i].dis - M; // Uncomment this line if you wish to use the Outlanding Penalty
    end;
  end;
    
  D0 := 0;
  T0 := 0;
  V0 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      // Find the highest Corrected distance
      If Pilots[i].dis > D0 Then D0 := Pilots[i].dis;
      
      // Find the highest finisher's speed of the day
      // and corresponding Task Time
      If Pilots[i].speed = V0 Then // in case of a tie, lowest Task Time applies
      begin
        If (Pilots[i].finish-Pilots[i].start) < T0 Then
        begin
          V0 := Pilots[i].speed;
          T0 := Pilots[i].finish-Pilots[i].start;
        end;
      end
      Else
      begin
        If Pilots[i].speed > V0 Then 
        begin
          V0 := Pilots[i].speed;
          T0 := Pilots[i].finish-Pilots[i].start;
          If T0 < Td Then  // If marking time is shorter than Designated time, Designated time must be used for computations
            T0 := Td;
        end;
      end;
    end;
  end;
  If D0=0 Then Exit;
  
  // Maximum available points for the Day
  PmaxDistance := (5*D0/1000)-250;
  PmaxTime := (400*T0/3600.0)-200;
  If T0 <= 0 Then PmaxTime := 1000;
  Pm := MinValue( PmaxDistance, PmaxTime, 1000.0 );
  
  // Day Factor
  F := 1.25* n1/N;
  If F>1 Then F := 1;
  
  // Number of competitors who have achieved at least 2/3 of best speed for the day V0
  n2 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].speed > (2.0/3.0*V0) Then
      begin
        n2 := n2+1;
      end;
    end;
  end;
  
  Pvm := 2.0/3.0 * (n2/N) * Pm;  // maximum available Speed Points for the Day
  Pdm := Pm-Pvm;                 // maximum available Distance Points for the Day
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    // For any finisher
    If Pilots[i].finish > 0 Then
    begin
      Pv := Pvm * (Pilots[i].speed - 2.0/3.0*V0)/(1.0/3.0*V0);
      If Pilots[i].speed < (2.0/3.0*V0) Then Pv := 0;
      Pd := Pdm;
    end
    Else
    //For any non-finisher
    begin
      Pv := 0;
      Pd := Pdm * (Pilots[i].dis/D0);
    end;
    
    // Pilot's score
    Pilots[i].Points := Round( F*(Pd+Pv) - Pilots[i].Penalty );
  end;
  
  // Data which is presented in the score-sheets
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].sstart:=Pilots[i].start;
    Pilots[i].sfinish:=Pilots[i].finish;
    Pilots[i].sdis:=Pilots[i].dis;
    Pilots[i].sspeed:=Pilots[i].speed;
  end;
  
  // Info fields, also presented on the Score Sheets
  Info1 := 'Maximum Points: '+IntToStr(Round(Pm));
  Info2 := 'Day factor = '+FormatFloat('0.000',F);
end.

[Script11]
Program Racing_Task;
// Version 2.08, Date 13.08.2003
// Version 3.01
// . Changed If Pilots[i].takeoff > 0 to If Pilots[i].takeoff >= 0. It is theoretically possible that one takes off at 00:00:00 UTC

const Dm = 100000;      // Minimum Distance to validate the Day [meters]
var
  Dt, Td, n1, n2, N, D0, V0, T0, 
  Pm, Pdm, Pvm, Pn, F, Day: Double;
  
  D, H, Dh, Dg, M, T, Dc, Pd, V, Vh, Pv, S : double;
  
  PmaxDistance, PmaxTime : double;
  
  i : integer;

Function MinValue( a,b,c : double ) : double;
var m : double;
begin
  m := a;
  If b < m Then m := b;
  If c < m Then m := c;

  MinValue := m;
end;

begin
  // Calculation of basic parameters
  N := 0;  // Number of pilots having had a competition launch
  N1 := 0;  // Number of pilots with Marking distance greater than Dm - normally 100km
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].dis >= Dm Then N1 := N1+1;  // Competitors who have achieved at least Dm
      If Pilots[i].takeoff >= 0 Then N := N+1;    // Number of competitors in the class having had a competition launch that Day
    end;
  end;
  If N=0 Then Exit;
  
  D0 := 0;
  T0 := 0;
  V0 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      // Find the highest Corrected distance
      If Pilots[i].dis > D0 Then D0 := Pilots[i].dis;
      
      // Find the highest finisher's speed of the day
      // and corresponding Task Time
      If Pilots[i].finish >= 0 Then
      begin
        If Pilots[i].speed > V0 Then 
        begin
          V0 := Pilots[i].speed;
          T0 := Pilots[i].finish-Pilots[i].start;
        end;
      end;
    end;
  end;
  If D0=0 Then Exit;
  
  // Maximum available points for the Day
  PmaxDistance := (5*D0/1000)-250;
  PmaxTime := (400*T0/3600.0)-200;
  If T0 <= 0 Then PmaxTime := 1000;
  Pm := MinValue( PmaxDistance, PmaxTime, 1000.0 );
  
  // Day Factor
  F := 1.25* n1/N;
  If F>1 Then F := 1;
  
  // Number of competitors who have achieved at least 2/3 of best speed for the day V0
  n2 := 0;
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    If not Pilots[i].isHC Then
    begin
      If Pilots[i].speed > (2.0/3.0*V0) Then
      begin
        n2 := n2+1;
      end;
    end;
  end;
  
  Pvm := 2.0/3.0 * (n2/N) * Pm;  // maximum available Speed Points for the Day
  Pdm := Pm-Pvm;                 // maximum available Distance Points for the Day
  
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    // For any finisher
    If Pilots[i].finish > 0 Then
    begin
      Pv := Pvm * (Pilots[i].speed - 2.0/3.0*V0)/(1.0/3.0*V0);
      If Pilots[i].speed < (2.0/3.0*V0) Then Pv := 0;
      Pd := Pdm;
    end
    Else
    //For any non-finisher
    begin
      Pv := 0;
      Pd := Pdm * (Pilots[i].dis/D0);
    end;
    
    // Pilot's score
    Pilots[i].Points := Round( F*(Pd+Pv) - Pilots[i].Penalty );
  end;
  
  // Data which is presented in the score-sheets
  for i:=0 to GetArrayLength(Pilots)-1 do
  begin
    Pilots[i].sstart:=Pilots[i].start;
    Pilots[i].sfinish:=Pilots[i].finish;
    Pilots[i].sdis:=Pilots[i].dis;
    Pilots[i].sspeed:=Pilots[i].speed;
  end;
  
  // Info fields, also presented on the Score Sheets
  Info1 := 'Maximum Points: '+IntToStr(Round(Pm));
  Info2 := 'Day factor = '+FormatFloat('0.000',F);
end.

[Starts]

[Day_6.7.2008]
D060720080000400080
V,HighEnl=300,AsViolate=True,MinFinAlt=200m,MaxFinAlt=10000m,MaxAlt=0m,AltTimeout=0,StartGsp=0km/h,FixRate=12
C301299000000301299000006
C4520383N02027233EPoletanje/Sletanje
C4519267N02026017EEčka start
C4556117N02008417EČoka
C4536117N02009150ENovi Bečej
C4555617N01945600EČantavir
C4532433N01947733ESrbobran
C4556050N02005833ESenta
C4538233N02025000EBašaid
C4522167N02026033ECilj 1 vt
C4520383N02027233EPoletanje/Sletanje
OZ=-1,Style=2,R1=2000m,A1=45,Line=1
OZ=0,Style=1,R1=500m,A1=180
OZ=1,Style=1,R1=500m,A1=180
OZ=2,Style=1,R1=500m,A1=180
OZ=3,Style=1,R1=500m,A1=180
OZ=4,Style=1,R1=500m,A1=180
OZ=5,Style=1,R1=500m,A1=180
OZ=6,Style=3,R1=3000m,A1=45
TSK,WpDis=True,MinDis=True,NearDis=0.5km,NearAlt=200.0m,MinFinAlt=0.0km
X1. Postavljanje jedrilica na startu 12:20
X2. Poletanje po redosledu je od 12:30 do 14:00
X3. Linija polaska +15 min. radi 2h
X4. Linija cilja radi do 19:30
X5. Frekvencija 123.50 MHz
X6. Min. visina ciljne linije 200m QNE
X7. Max. visina leta 2500m QNH
X8. Telefon rukovodioca letenja 063/ 73 93 600
X9. Telefon glavnog sudije 063/ 87 94 785
E000,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E001,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E002,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E003,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E004,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E005,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E006,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E007,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E008,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E009,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E010,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E011,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,

[Day_7.7.2008]
D070720080050000080
V,HighEnl=300,AsViolate=True,MinFinAlt=200m,MaxFinAlt=2420m,MaxAlt=2420m,AltTimeout=0,StartGsp=0km/h,FixRate=12
C301299000000301299000004
C4520383N02027233EPoletanje/Sletanje
C4519267N02026017EEčka start
C4523350N02041833ESutjeska
C4546000N02025217EKikinda
C4532433N01947733ESrbobran
C4538233N02025000EBašaid
C4522167N02026033ECilj 1 vt
C4520383N02027233EPoletanje/Sletanje
OZ=-1,Style=2,R1=2000m,A1=45,Line=1
OZ=0,Style=1,R1=5000m,A1=180
OZ=1,Style=1,R1=10000m,A1=180
OZ=2,Style=1,R1=15000m,A1=180
OZ=3,Style=1,R1=1000m,A1=180
OZ=4,Style=3,R1=2000m,A1=45,Line=1
TSK,NoStart=12:00:00,TaskTime=02:00:00,WpDis=False,MinDis=True,NearDis=0.5km,NearAlt=200.0m,MinFinAlt=0.0km
X1. Postavljanje jedrilica na startu 12:50
X2. Poletanje po redosledu je od 13:00 do 14:00
X3. Linija polaska +15 min. radi 2h
X4. Linija cilja radi do 19:30
X5. Frekvencija 123.50 MHz
X6. Min. visina ciljne linije 200m QNE
X7. Max. visina leta 2500m QNH
X8. Telefon rukovodioca letenja 063/ 73 93 600
X9. Telefon glavnog sudije 063/ 87 94 785
E000,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E001,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E002,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E003,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E004,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E005,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E006,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E007,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E008,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E009,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E010,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E011,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,

[Day_9.7.2008]
D090720080030300080
V,HighEnl=300,AsViolate=True,MinFinAlt=200m,MaxFinAlt=2420m,MaxAlt=0m,AltTimeout=0,StartGsp=0km/h,FixRate=12
I1Maximum Points: 1000
I2Day factor = 1,000
C301299000000301299000004
C0000000N00000000E
C4519267N02026017EEčka start
C4548867N01938083EBačka Topola
C4530817N01916517EOdžaci
C4548133N02007267EAda
C4555617N01945600EČantavir
C4522167N02026033ECilj 1 vt
C0000000N00000000E
OZ=-1,Style=2,R1=2000m,A1=45,Line=1
OZ=0,Style=1,R1=500m,A1=180
OZ=1,Style=1,R1=500m,A1=180
OZ=2,Style=1,R1=500m,A1=180
OZ=3,Style=1,R1=500m,A1=180
OZ=4,Style=3,R1=2000m,A1=45,Line=1
TSK,NoStart=10:52:00,WpDis=True,MinDis=True,NearDis=0.5km,NearAlt=200.0m,MinFinAlt=0.0km
X1. Postavljanje jedrilica na startu 11:50
X2. Poletanje po redosledu je od 12:00 do 13:30
X3. Linija polaska +15 min. radi 2h
X4. Linija cilja radi do 19:30
X5. Frekvencija 123.50 MHz
X6. Min. visina ciljne linije 200m QNE
X7. Max. visina leta 2500m QNH
X8. Telefon rukovodioca letenja 063/ 73 93 600
X9. Telefon glavnog sudije 063/ 87 94 785
E000,1,,,617,0,44870,69084,48096,-1,0,267939.375,48096,-1,0,267939.375,-1,-1,0,0,"879\879_ZR.igc",45014,69084,"",67752,,,,,2253C9338D8A96FD03722B6814A679E7,
E001,1,,,640,0,44815,66937,47600,-1,0,246219.046875,47600,-1,0,246219.046875,-1,-1,0,0,"879\879_JB.igc",45258,66937,"",66640,,,,,1CCF2A923C1C999F1590071F3DD1DC04,
E002,1,,,931,0,45863,66356,48023,66151,17.2118148803711,312015.78125,48023,66151,17.2118148803711,312015.78125,-1,-1,0,0,"879\879_BB.igc",46089,66356,"",-1,,,,,280AD6A46821CCD0A2D17A1B72EF421A,
E003,1,,,685,0,43635,68609,46801,-1,0,274774.625,46801,-1,0,274774.625,-1,-1,0,0,"879\879_13.igc",43976,68609,"",68579,,,,,885B9F0279AE1F3F77A24FD1AEFF194C,
E004,1,,,872,0,45743,69376,47467,69242,14.3290824890137,312015.78125,47467,69242,14.3290824890137,312015.78125,-1,-1,0,0,"879\879_77.igc",46061,69376,"",-1,,,,,D3DA76A6A988B59C799AC398F8ED34E0,
E005,1,,,917,0,46313,67126,48757,66990,17.1126956939697,312015.78125,48757,66990,17.1126956939697,312015.78125,-1,-1,0,0,"879\879_ZF.igc",46651,67126,"",-1,,,,,61923A92CF7E8AB31E4A1E2B56E55A0A,
E006,1,,,520,0,44300,63227,48056,-1,0,229792.328125,48056,-1,0,229792.328125,-1,-1,0,0,"879\879_EJ.igc",44741,63227,"",63107,,,,,D802E15EEF00E7F6942BF980A70AB438,
E007,5,,,539,100,47653,68577,49413,-1,0,256478.890625,49413,-1,0,256478.890625,-1,-1,0,0,"879\879_99.igc",47821,68577,"",68461,,,,,F9B00C86BE5E5410DDEFD8B4D192741D,
WTTočke Ada, Čantavir nisu pravilno obletene.
E008,1,,,583,0,44996,67554,46492,-1,0,238837.078125,46492,-1,0,238837.078125,-1,-1,0,0,"879\879_30.igc",45417,67554,"",67457,,,,,521288890591307A27118BCA209D56A5,
E009,1,,,715,0,44235,69936,47593,-1,0,286637,47593,-1,0,286637,-1,-1,0,0,"879\879_AN.igc",44574,69936,"",69702,,,,,3E8BE90666AA9A36839CAABA95F60CD8,
E010,1,,O,595,0,48972,67516,49383,-1,0,238748.796875,49383,-1,0,238748.796875,-1,-1,0,0,"879\879_03.igc",48972,67516,"",67444,,,,,DCDD5026A9054F460E2150E456F50ED6,
E011,5,,,1000,0,45355,67268,49801,67029,18.110969543457,312015.78125,49801,67029,18.110969543457,312015.78125,-1,-1,0,0,"879\879_NS.igc",45517,67268,"",-1,,,,,752BDF634E504F2EFAA91182F0AD08AD,
WTTočke Čantavir nisu pravilno obletene.

[Day_10.7.2008]
D100720080040300080
V,HighEnl=300,AsViolate=True,MinFinAlt=0m,MaxFinAlt=2420m,MaxAlt=0m,AltTimeout=0,StartGsp=0km/h,FixRate=10
I1Maximum Points: 850
I2Day factor = 1,000
C301299000000301299000006
C0000000N00000000E
C4519267N02026017EEčka start
C4536117N02009150ENovi Bečej
C4556567N01940117ENovi Žednik
C4532433N01947733ESrbobran
C4556050N02005833ESenta
C4539733N01926400ECrvenka
C4523350N02041833ESutjeska
C4520067N02029567ECilj 2 luk
C0000000N00000000E
OZ=-1,Style=2,R1=2000m,A1=45,Line=1
OZ=0,Style=1,R1=2000m,A1=180
OZ=1,Style=1,R1=2000m,A1=180
OZ=2,Style=1,R1=2000m,A1=180
OZ=3,Style=1,R1=2000m,A1=180
OZ=4,Style=1,R1=10000m,A1=180
OZ=5,Style=1,R1=2000m,A1=180
OZ=6,Style=3,R1=2000m,A1=45,Line=1
TSK,NoStart=13:43:00,TaskTime=03:00:00,WpDis=True,MinDis=False,NearDis=0.5km,NearAlt=200.0m,MinFinAlt=0.0km,RandomOrder=True,Bonus=10
X1. Postavljanje jedrilica na startu 12:20
X2. Poletanje po redosledu je od 12:30 do 14:00
X3. Linija polaska +15 min. radi 2h
X4. Linija cilja radi do 19:30
X5. Frekvencija 123.50 MHz
X6. Obavezna prva okretna tačka Novi Bečej
X7. Max. visina leta 2500m QNH
X8. Telefon rukovodioca letenja 063/ 73 93 600
X9. Telefon glavnog sudije 063/ 87 94 785
E000,1,,F,425,0,47980,60766,51175,61975,11.4736284722222,123915.1875,51175,60674,11.4736284722222,123915.1875,51175,61975,11.4736284722222,123915.1875,"87A\87A_ZR.igc",48352,60766,"",-1,,,,,1676DC4C7331B905D4D154841CDB556D,
E001,1,,,501,0,47107,60752,50139,60939,11.9965581597222,129562.828125,50139,-1,0,129562.828125,50139,60939,11.9965581597222,129562.828125,"87A\87A_JB.igc",47362,60752,"",60083,,,,,9C3BC673A0645292C5B06004BD5A674D,
E002,1,,,694,0,49561,61770,50902,61702,18.7565668402778,202570.921875,50652,-1,0,203958.46875,50902,61702,18.7565668402778,202570.921875,"87A\87A_BB.igc",49885,61770,"",61746,,,,,E930BFF724849D938776D3DE050C982D,
E003,1,,,429,0,46822,58626,50647,61447,10.7188664641204,115763.7578125,50647,-1,0,115763.7578125,50647,61447,10.7188664641204,115763.7578125,"87A\87A_13.igc",47236,58626,"",58155,,,,,CE5E3E5C473200C7DB3D0F4F9338C133,
E004,1,,,850,0,49379,63396,50898,61701,21.2378477043414,229432.46875,50898,-1,0,280339.53125,50898,61701,21.2378477043414,229432.46875,"87A\87A_77.igc",49700,63396,"",63154,,,,,3F1E92EDDC77E7B5B244ED9D830F0383,
E005,1,,F,616,0,49105,62369,50662,61462,16.9640350115741,183211.578125,50662,-1,0,191444.328125,50662,61462,16.9640350115741,183211.578125,"87A\87A_ZF.igc",49227,62369,"",62336,,,,,ECEE30C05E75D78B66005AAE5DD0833E,
E006,1,,,749,0,48630,62172,50817,61617,20.6275188078704,222777.203125,50817,-1,0,239646.203125,50817,61617,20.6275188078704,222777.203125,"87A\87A_EJ.igc",48967,62172,"",62092,,,,,740EC7C569738A2055B99E4C2321B91B,
E007,1,,,568,0,48792,62676,50742,61542,14.1979803240741,153338.1875,50377,-1,0,184625.84375,50742,61542,14.1979803240741,153338.1875,"87A\87A_99.igc",49152,62676,"",62676,,,,,4B11A8181093D83DE295CCE6340026F8,
E008,1,,,680,0,48093,61874,50982,61782,17.3255671296296,187116.125,50982,-1,0,187116.125,50982,61782,17.3255671296296,187116.125,"87A\87A_30.igc",48153,61874,"",61356,,,,,1E8AD41CD723A48B54B5F23592AC86F4,
E009,1,,,414,0,47039,63879,50751,61551,10.3550636574074,111834.6875,50751,-1,0,122904.828125,50751,61551,10.3550636574074,111834.6875,"87A\87A_AN.igc",47063,63879,"",63879,,,,,CBF9E4319D4226DA572C6B0ECCF2191D,
E010,1,,,697,0,48102,63287,50961,61763,17.4064293649324,188024.25,50961,-1,0,204366.09375,50961,61763,17.4064293649324,188024.25,"87A\87A_03.igc",48414,63287,"",62915,,,,,B16A2544B0A42417E22375F81A7E0753,
E011,1,,F,841,0,48521,61613,50908,61708,21.4434461805556,231589.21875,50908,61104,21.4434461805556,231589.21875,50908,61708,21.4434461805556,231589.21875,"87A\87A_NS.igc",48605,61613,"",-1,,,,,A46B8484144BE09B4D5B8E0EB687263D,

[Day_11.7.2008]
D110720080050300080
V,HighEnl=300,AsViolate=True,MinFinAlt=200m,MaxFinAlt=2420m,MaxAlt=0m,AltTimeout=0,StartGsp=0km/h,FixRate=12
I1Maximum Points: 950
I2Day factor = 1,000
C301299000000301299000005
C0000000N00000000E
C4519267N02026017EEčka start
C4555617N01945600EČantavir
C4523533N01914167EBač
C4556050N02005833ESenta
C4532433N01947733ESrbobran
C4538233N02025000EBašaid
C4522167N02026033ECilj 1 vt
C0000000N00000000E
OZ=-1,Style=2,R1=2000m,A1=45,Line=1
OZ=0,Style=1,R1=10000m,A1=180
OZ=1,Style=1,R1=20000m,A1=180
OZ=2,Style=1,R1=10000m,A1=180
OZ=3,Style=1,R1=10000m,A1=180
OZ=4,Style=1,R1=10000m,A1=180
OZ=5,Style=3,R1=2000m,A1=45,Line=1
TSK,NoStart=13:10:00,TaskTime=03:00:00,WpDis=False,MinDis=True,NearDis=0.5km,NearAlt=200.0m,MinFinAlt=0.0km
X1. Postavljanje jedrilica na startu 11:50
X2. Poletanje po redosledu je od 12:00 do 13:30
X3. Linija polaska +15 min. radi 2h
X4. Linija cilja radi do 19:30
X5. MINIMALNO VERME ZADATKA 3:00h
X5. Frekvencija 123.50 MHz
X6. Max. visina leta 2500m QNH
X7. Telefon rukovodioca letenja 063/ 73 93 600
X8. Telefon glavnog sudije 063/ 87 94 785
E000,1,,,804,0,45503,63872,50334,-1,0,228948.90625,50334,-1,0,228948.90625,50334,-1,17.4967751736111,188965.171875,"87B\87B_ZR.igc",45720,63872,"",63848,,,,,B081763F5F327853FFE5740188466128,
E001,1,,,844,0,45126,66325,50058,-1,0,213290.078125,50058,-1,0,213290.078125,50058,-1,12.6821064814815,136966.75,"87B\87B_JB.igc",45681,66325,"",66223,,,,,FDCC931514FE64DDF6668460DF12A75D,
E002,1,,,614,0,46848,62235,50175,-1,0,175037.625,50175,-1,0,175037.625,50175,-1,15.4785778356481,167168.640625,"87B\87B_BB.igc",47349,62235,"",61255,,,,,26E902D2B754618DEC7503BEEF448B22,
E003,1,,,866,0,47534,65478,48903,-1,0,228045.53125,48903,-1,0,228045.53125,48903,-1,15.1119227430556,163208.765625,"87B\87B_13.igc",47900,65478,"",65177,,,,,CBF247B231FB6472F285F7832D3A3354,
E004,1,,,853,0,46312,66536,50746,-1,0,224693.96875,50746,-1,0,224693.96875,50746,-1,14.8514192708333,160395.328125,"87B\87B_77.igc",46650,66536,"",66426,,,,,53A2A2792A1FBCD73BEDA68FFC0D94D7,
E005,1,,,807,0,47024,64099,50151,-1,0,234180.96875,50151,-1,0,234180.96875,50151,-1,17.5397603674905,189482.03125,"87B\87B_ZF.igc",47362,64099,"",64039,,,,,7407FD12F48C8E224223D70E68148375,
E006,1,,,819,0,45058,63868,50193,-1,0,237853.78125,50193,-1,0,237853.78125,50193,-1,17.8905541087963,193217.984375,"87B\87B_EJ.igc",45217,63868,"",63832,,,,,6585C313D6534368E6EE18DAE555374A,
E007,1,,,950,0,45912,64863,47745,-1,0,250164.984375,47745,-1,0,250164.984375,47745,-1,14.7213179976852,158990.234375,"87B\87B_99.igc",46279,64863,"",64715,,,,,E19BC52F2F39520801888949E0785AAE,
E008,1,,,847,0,46585,63349,47882,-1,0,227706.875,47882,-1,0,227706.875,47882,-1,14.5119907407407,156729.5,"87B\87B_30.igc",46669,63349,"",63349,,,,,C9A88F6F82C60E2DA02F7036195D21EF,
E009,1,,,892,0,45016,64791,49944,-1,0,234867.40625,49944,-1,0,234867.40625,49944,-1,16.4209447337963,177346.203125,"87B\87B_AN.igc",45289,64791,"",64737,,,,,60EB09FBB8925D1A7D2336B0C479C89D,
E010,1,,,744,0,45999,60928,49924,-1,0,196071.6875,49924,-1,0,196071.6875,49924,-1,17.9810358796296,194195.1875,"87B\87B_03.igc",46165,60928,"",60928,,,,,E73FED28C031E5526666B5C4EDB83AC9,
E011,1,,,860,0,45847,63876,50319,-1,0,231082.453125,50319,-1,0,231082.453125,50319,-1,17.7001576967593,191161.703125,"87B\87B_NS.igc",46075,63876,"",63840,,,,,C285CE449AB0D48A28932EF87A6CA55A,

[Day_12.7.2008]
D120720080040000080
V,HighEnl=300,AsViolate=True,MinFinAlt=0m,MaxFinAlt=2420m,MaxAlt=0m,AltTimeout=0,StartGsp=0km/h,FixRate=12
C301299000000301299000007
C0000000N00000000E
C4519267N02026017EEčka start
C4536117N02009150ENovi Bečej
C4556050N02005833ESenta
C4555617N01945600EČantavir
C4539733N01926400ECrvenka
C4522367N02003783EŽabalj
C4538233N02025000EBašaid
C4523350N02041833ESutjeska
C4522167N02026033ECilj 1 vt
C0000000N00000000E
OZ=-1,Style=2,R1=2000m,A1=45,Line=1
OZ=0,Style=1,R1=2500m,A1=180
OZ=1,Style=1,R1=10000m,A1=180
OZ=2,Style=1,R1=10000m,A1=180
OZ=3,Style=1,R1=20000m,A1=180
OZ=4,Style=1,R1=2500m,A1=180
OZ=5,Style=1,R1=2500m,A1=180
OZ=6,Style=1,R1=2500m,A1=180
OZ=7,Style=3,R1=3000m,A1=45
TSK,NoStart=13:00:00,TaskTime=03:00:00,WpDis=True,MinDis=False,NearDis=0.5km,NearAlt=200.0m,MinFinAlt=0.0km,RandomOrder=True,Bonus=10
X1. Postavljanje jedrilica na startu 12:20
X2. Poletanje po redosledu je od 12:30 do 14:00
X3. Linija polaska +15 min. radi 2h
X5. Frekvencija 123.50 MHz
X6. Max. visina leta 2500m QNH
X7. Telefon rukovodioca letenja 063/ 73 93 600
X8. Telefon glavnog sudije 063/ 87 94 785
X9. Ne dozvoljava se prelet 2 puta iste rute uzastopno (cilj - povratak)
E000,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E001,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E002,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E003,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E004,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E005,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E006,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E007,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E008,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E009,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E010,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E011,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,

[Day_13.7.2008]
D130720080000000080
V,HighEnl=300,AsViolate=True,MinFinAlt=0m,MaxFinAlt=2420m,MaxAlt=0m,AltTimeout=0,StartGsp=0km/h,FixRate=12
C301299000000301299000007
C0000000N00000000E
C4519267N02026017EEčka start
C4536117N02009150ENovi Bečej
C4556050N02005833ESenta
C4555617N01945600EČantavir
C4539733N01926400ECrvenka
C4522367N02003783EŽabalj
C4538233N02025000EBašaid
C4523350N02041833ESutjeska
C4522167N02026033ECilj 1 vt
C0000000N00000000E
OZ=-1,Style=2,R1=2000m,A1=45,Line=1
OZ=0,Style=1,R1=2500m,A1=180
OZ=1,Style=1,R1=10000m,A1=180
OZ=2,Style=1,R1=10000m,A1=180
OZ=3,Style=1,R1=20000m,A1=180
OZ=4,Style=1,R1=2500m,A1=180
OZ=5,Style=1,R1=2500m,A1=180
OZ=6,Style=1,R1=2500m,A1=180
OZ=7,Style=3,R1=3000m,A1=45
TSK,NoStart=13:00:00,TaskTime=03:00:00,WpDis=True,MinDis=False,NearDis=0.5km,NearAlt=200.0m,MinFinAlt=0.0km,RandomOrder=True,Bonus=10
X1. Postavljanje jedrilica na startu 12:20
X2. Poletanje po redosledu je od 12:30 do 14:00
X3. Linija polaska +15 min. radi 2h
X5. Frekvencija 123.50 MHz
X6. Max. visina leta 2500m QNH
X7. Telefon rukovodioca letenja 063/ 73 93 600
X8. Telefon glavnog sudije 063/ 87 94 785
X9. Ne dozvoljava se prelet 2 puta iste rute uzastopno (cilj - povratak)
E000,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E001,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E002,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E003,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E004,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E005,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E006,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E007,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E008,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E009,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E010,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,
E011,0,,,0,0,-1,-1,-1,-1,0,0,-1,-1,0,0,-1,-1,0,0,"",-1,-1,"",-1,,,,,,

[Day_16.7.2008]
D160720080040300080
V,HighEnl=300,AsViolate=True,MinFinAlt=0m,MaxFinAlt=2420m,MaxAlt=0m,AltTimeout=0,StartGsp=0km/h,FixRate=12
I1Maximum Points: 835
I2Day factor = 1,000
C301299000000301299000007
C0000000N00000000E
C4519267N02026017EEčka start
C4536117N02009150ENovi Bečej
C4539733N01926400ECrvenka
C4555617N01945600EČantavir
C4556050N02005833ESenta
C4538233N02025000EBašaid
C4522367N02003783EŽabalj
C4523350N02041833ESutjeska
C4520067N02029567ECilj 2 luk
C0000000N00000000E
OZ=-1,Style=2,R1=2000m,A1=45,Line=1
OZ=0,Style=1,R1=2500m,A1=180
OZ=1,Style=1,R1=20000m,A1=180
OZ=2,Style=1,R1=10000m,A1=180
OZ=3,Style=1,R1=10000m,A1=180
OZ=4,Style=1,R1=2500m,A1=180
OZ=5,Style=1,R1=2500m,A1=180
OZ=6,Style=1,R1=2500m,A1=180
OZ=7,Style=3,R1=2000m,A1=45,Line=1
TSK,NoStart=12:36:00,TaskTime=03:00:00,WpDis=True,MinDis=False,NearDis=0.5km,NearAlt=200.0m,MinFinAlt=0.0km,RandomOrder=True,Bonus=10
X1. Postavljanje jedrilica na startu 11:50
X2. Poletanje po redosledu je od 12:00 do 13:30
X3. Linija polaska +15 min. radi 2h
X5. Frekvencija 123.50 MHz
X6. Max. visina leta 2500m QNH
X7. Telefon rukovodioca letenja 063/ 73 93 600
X8. Telefon glavnog sudije 063/ 87 94 785
X9. Ne dozvoljava se prelet 2 puta iste rute uzastopno (cilj - povratak)
X10. Maksimalno vreme zadatka : 3:00h
E000,1,,,576,0,43148,56356,46780,57580,15.623744212963,168736.4375,46780,-1,0,168736.4375,46780,57580,15.623744212963,168736.4375,"87G\87G_ZR.igc",43328,56356,"",56356,,,,,86FE23EE91BA304A0EC282EE841B099C,
E001,1,,,518,0,42986,56347,45570,56370,12.4622902199074,134592.734375,45570,-1,0,134592.734375,45570,56370,12.4622902199074,134592.734375,"87G\87G_JB.igc",43478,56347,"",56269,,,,,6659E4721C49BEE86924ACE70E8E76EA,
E002,1,,,698,0,44734,58513,46767,57567,18.9460083912037,204616.890625,46767,58108,19.2971601931047,218849.09375,46767,57567,18.9460083912037,204616.890625,"87G\87G_BB.igc",45124,58513,"",-1,,,,,15C6CF20A620F7F24DC56A145ED99803,
E003,1,,,687,0,43952,56157,45466,56266,17.2237008101852,186015.96875,45466,-1,0,186015.96875,45466,56266,17.2237008101852,186015.96875,"87G\87G_13.igc",44139,56157,"",55987,,,,,500253DE53D04651507CE7CBBEABAE0B,
E004,1,,,835,0,44206,56777,45664,56467,20.9389492502083,226203.46875,45664,-1,0,235092.75,45664,56467,20.9389492502083,226203.46875,"87G\87G_77.igc",44480,56777,"",56707,,,,,6C53E04CDB49A9C9C51FE8B5A89319E1,
E005,1,,,769,0,44519,56427,45547,56347,21.2693113425926,229708.5625,45547,56282,21.2693113425926,229708.5625,45547,56347,21.2693113425926,229708.5625,"87G\87G_ZF.igc",44619,56427,"",-1,,,,,B6DAFFE722B45B625CA987744073EBA6,
E006,1,,,761,0,44459,56657,45593,56393,21.0492390046296,227331.78125,45593,-1,0,231002.203125,45593,56393,21.0492390046296,227331.78125,"87G\87G_EJ.igc",44724,56657,"",56565,,,,,338F976B74EADB606F1378C9B9073EF6,
E007,1,,,411,0,43709,56546,45439,56239,10.3070529513889,111316.171875,45439,-1,0,114959.03125,45439,56239,10.3070529513889,111316.171875,"87G\87G_99.igc",43978,56546,"",56434,,,,,530C8D1A6C9C413CCA80CFBC4D6C03C0,
E008,1,,,334,0,43110,56880,45522,56322,8.55237340856482,92365.6328125,45522,-1,0,93995.96875,45522,56322,8.55237340856482,92365.6328125,"87G\87G_30.igc",43497,56880,"",56820,,,,,329962A55A14F5EB972FC5D69D0E88A4,
E009,1,,,552,0,45090,57546,46123,56923,13.8555381944444,149639.8125,46123,57276,14.0906706715682,157153.25,46123,56923,13.8555381944444,149639.8125,"87G\87G_AN.igc",45116,57546,"",-1,,,,,B99EF1A3EC419D854ABF417B6EC161E1,
E010,1,,,397,0,43789,55945,46619,57419,9.95312355324074,107493.734375,46619,-1,0,107493.734375,46619,57419,9.95312355324074,107493.734375,"87G\87G_03.igc",44216,55945,"",55849,,,,,559E782D71268FE9D2D49B46A15E7CEB,
E011,1,,,779,0,43586,57622,46759,57562,19.9409191891141,215421.75,46759,-1,0,217778.03125,46759,57562,19.9409191891141,215421.75,"87G\87G_NS.igc",43699,57622,"",57622,,,,,44341C35701A28D68352D21BB1FC56F4,

[Day_17.7.2008]
D170720080050300080
V,HighEnl=300,AsViolate=True,MinFinAlt=200m,MaxFinAlt=2420m,MaxAlt=0m,AltTimeout=0,StartGsp=0km/h,FixRate=12
I1Maximum Points: 1000
I2Day factor = 1,000
C301299000000301299000005
C0000000N00000000E
C4519267N02026017EEčka start
C4555617N01945600EČantavir
C4523533N01914167EBač
C4556050N02005833ESenta
C4532433N01947733ESrbobran
C4538233N02025000EBašaid
C4522167N02026033ECilj 1 vt
C0000000N00000000E
OZ=-1,Style=2,R1=2000m,A1=45,Line=1
OZ=0,Style=1,R1=15000m,A1=180
OZ=1,Style=0,R1=30000m,A1=75,A2=90,A12=220.1
OZ=2,Style=1,R1=3000m,A1=180
OZ=3,Style=1,R1=15000m,A1=180
OZ=4,Style=1,R1=10000m,A1=180
OZ=5,Style=3,R1=2000m,A1=45,Line=1
TSK,NoStart=12:43:00,TaskTime=03:00:00,WpDis=False,MinDis=True,NearDis=0.5km,NearAlt=200.0m,MinFinAlt=0.0km
X1. Postavljanje jedrilica na startu 11:50
X2. Poletanje po redosledu je od 12:00 do 13:30
X3. Linija polaska +15 min. radi 2h
X5. Frekvencija 123.50 MHz
X6. Max. visina leta 2500m QNH
X7. Telefon rukovodioca letenja 063/ 73 93 600
X8. Telefon glavnog sudije 063/ 87 94 785
X9. Minimalno vreme zadatka : 3:00h
E000,1,,,900,0,43731,58338,47080,58154,24.547905002709,271843.5,47080,58154,24.547905002709,271843.5,47080,57880,23.8512022569444,257592.984375,"87H\87H_ZR.igc",44031,58338,"",-1,,,,,0E51AF5D67F51BBA5D345476395EB0BB,
E001,1,,,718,0,44958,61135,46511,60894,19.4799459431273,280180.0625,46511,60894,19.4799459431273,280180.0625,46511,57311,19.543314525463,211067.796875,"87H\87H_JB.igc",45141,61135,"",-1,,,,,E844FE8D5A2A0A334548A545CAD1A7FC,
E002,1,,,896,0,44823,58473,47182,58371,24.4846668603092,273958.9375,47182,58371,24.4846668603092,273958.9375,47182,57982,23.380658275463,252511.109375,"87H\87H_BB.igc",45229,58473,"",-1,,,,,9AC9022F033AA6001EB8EC95E746C540,
E003,1,,,640,0,43248,60493,45914,60347,19.2851235016975,278342.1875,45914,60347,19.2851235016975,278342.1875,45914,56716,19.2722643954823,208179,"87H\87H_13.igc",43550,60493,"",-1,,,,,88CC7F511C89898C8101B44325D90D17,
E004,1,,,995,0,43977,58467,46696,58345,23.9396085500901,278872.5,46696,58345,23.9396085500901,278872.5,46696,57496,23.1789771412037,250332.953125,"87H\87H_77.igc",44047,58467,"",-1,,,,,55CDB6E3B82A0CFB4665C20F5FC1BBD6,
E005,1,,,832,0,44409,58492,46561,58360,24.0212756377659,283427.03125,46561,58360,24.0212756377659,283427.03125,46561,57361,23.0484649884259,248923.421875,"87H\87H_ZF.igc",44663,58492,"",-1,,,,,08EF370458F27A05CFEBD94B1EBCF11A,
E006,1,,,883,0,43780,58158,46579,58015,24.7550962967821,283099.28125,46579,58015,24.7550962967821,283099.28125,46579,57379,23.8978703703704,258097,"87H\87H_EJ.igc",44174,58158,"",-1,,,,,0B5C999D816F3923A77C7E59E8CFBC14,
E007,1,,,666,0,43105,60442,45892,60313,19.6311152139241,283100.3125,45892,60313,19.6311152139241,283100.3125,45892,56692,18.9244401041667,204383.953125,"87H\87H_99.igc",43318,60442,"",-1,,,,,484E2C05B0EFDF845081C3AF51AAEAEC,
E008,1,,,504,0,44321,61169,46051,60900,17.8672616842885,265310.96875,46051,60900,17.8672616842885,265310.96875,46051,56855,19.6116918502406,211884.71875,"87H\87H_30.igc",44684,61169,"",-1,,,,,9E8135C50C0021BA79A7D4DCB22AD896,
E009,1,,,597,0,43526,62255,46805,61928,18.7273813066191,283214.1875,46805,61928,18.7273813066191,283214.1875,46805,57605,19.3622019675926,209111.78125,"87H\87H_AN.igc",43708,62255,"",-1,,,,,036F315F5502BC6592EDD7B8058230D3,
E010,1,,,263,0,43173,57424,46875,-1,0,197507.328125,46875,-1,0,197507.328125,46875,-1,18.2877155671296,197507.328125,"87H\87H_03.igc",43528,57424,"",57376,,,,,CE6A99D8FE258DE145D6D53E7B5FD488,
E011,1,,,1000,0,44646,58374,47064,58253,24.4907275002234,274026.75,47064,58253,24.4907275002234,274026.75,47064,57864,23.7788975694444,256812.09375,"87H\87H_NS.igc",44706,58374,"",-1,,,,,B30441C3DF4AAFAFBF48F60ADC02212D,