//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include <stdlib.h>       // Provides EXIT_FAILURE, EXIT_SUCCESS, atoi
#include <fstream.h>      // Provides external file streams
#include <iostream.h>     // Provides cin, cout, cerr
#include <stdio.h>        // Provides feof
#include <VCL\printers.hpp>     // Provides TPrinter
#include <VCL\sysutils.hpp>  // Provides TFloatFormat
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.H"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
int i;  char ch;

for(i=0;i<8;i++)
    score[i]=0;
max = 15;
ScrollBar1->Position = 0;
currace = 0;

OpenDialog1->Execute();
 // Open input and output file, exit on any error

//ins.open(OpenDialog1->FileName.c_str());
 ins = fopen(OpenDialog1->FileName.c_str(),"r");
  if (ins==NULL)
     Edit1->Text = "Cannot Open File";
  else
     Edit1->Text = "Ready";

//   remove whitespace from head of file...
   do
        ch = (char)fgetc(ins);
  while ((isspace(ch))||(ch =='-'));

  ungetc(ch,ins);

  start();

}
//---------------------------------------------------------------------------
// presumably, ins is a FILE stream opened and at its start
void TForm1::start(void)
{
int count;

/// Fill all races... (15 presumably)
for (count = 0;count < max;count++)
    {
    //  Fill the dogs with information
    dograce[count] = new Dograce(ins);
    dograce[count]->filldogs(ins);
    }

currace = 0;
show(currace);

fclose(ins);
}
//--------------------------------------------------------------------------
void TForm1::show(int racenum)
{
int ordered[8];
int ctr;

    dograce[racenum]->getscore(score);
    dograce[racenum]->getname(names);
    dograce[racenum]->getinout(inout);
    dograce[racenum]->getstyle(style);
    dograce[racenum]->getspeed(speed);
    dograce[racenum]->getclosing(close);
    dograce[racenum]->geteffgrade(grade);
    dograce[racenum]->getform(form);
    Label10->Caption = dograce[racenum]->getheader();

    Label2->Caption = score[0];
    Label3->Caption = score[1];
    Label4->Caption = score[2];
    Label5->Caption = score[3];
    Label6->Caption = score[4];
    Label7->Caption = score[5];
    Label8->Caption = score[6];
    Label9->Caption = score[7];

    Label12->Caption = names[0];
    Label13->Caption = names[1];
    Label14->Caption = names[2];
    Label15->Caption = names[3];
    Label16->Caption = names[4];
    Label17->Caption = names[5];
    Label18->Caption = names[6];
    Label19->Caption = names[7];

    Label1->Caption = inout[0];
    Label29->Caption = inout[1];
    Label30->Caption = inout[2];
    Label31->Caption = inout[3];
    Label32->Caption = inout[4];
    Label33->Caption = inout[5];
    Label34->Caption = inout[6];
    Label35->Caption = inout[7];

    Label36->Caption = FloatToStrF(close[0],ffFixed,4,1);
    Label37->Caption = FloatToStrF(close[1],ffFixed,4,1);
    Label38->Caption = FloatToStrF(close[2],ffFixed,4,1);
    Label39->Caption = FloatToStrF(close[3],ffFixed,4,1);
    Label40->Caption = FloatToStrF(close[4],ffFixed,4,1);
    Label41->Caption = FloatToStrF(close[5],ffFixed,4,1);
    Label42->Caption = FloatToStrF(close[6],ffFixed,4,1);
    Label43->Caption = FloatToStrF(close[7],ffFixed,4,1);

    Label44->Caption = FloatToStrF(speed[0],ffFixed,4,1);
    Label45->Caption = FloatToStrF(speed[1],ffFixed,4,1);
    Label46->Caption = FloatToStrF(speed[2],ffFixed,4,1);
    Label47->Caption = FloatToStrF(speed[3],ffFixed,4,1);
    Label48->Caption = FloatToStrF(speed[4],ffFixed,4,1);
    Label49->Caption = FloatToStrF(speed[5],ffFixed,4,1);
    Label50->Caption = FloatToStrF(speed[6],ffFixed,4,1);
    Label51->Caption = FloatToStrF(speed[7],ffFixed,4,1);

    Label52->Caption = style[0];
    Label53->Caption = style[1];
    Label54->Caption = style[2];
    Label55->Caption = style[3];
    Label56->Caption = style[4];
    Label57->Caption = style[5];
    Label58->Caption = style[6];
    Label59->Caption = style[7];

    Label28->Caption = grade[0];
    Label60->Caption = grade[1];
    Label61->Caption = grade[2];
    Label62->Caption = grade[3];
    Label63->Caption = grade[4];
    Label64->Caption = grade[5];
    Label65->Caption = grade[6];
    Label66->Caption = grade[7];

    if(form[0]=='g')
    { Image1->Visible = true;       // Up arrow
       Image2->Visible = false;      // Side arrow
       Image3->Visible = false;        // Down arrow
       Image25->Visible = false; }     // ??
    else if(form[0]=='i')
    { Image1->Visible = false;       // Up arrow
       Image2->Visible = true;      // Side arrow
       Image3->Visible = false;        // Down arrow
       Image25->Visible = false; }     // ??
    else if(form[0]=='o')
    { Image1->Visible = false;       // Up arrow
       Image2->Visible = false;      // Side arrow
       Image3->Visible = true;         // Down arrow
       Image25->Visible = false; }     //  ??
    else
    { Image1->Visible = false;       // Up arrow
       Image2->Visible = false;      // Side arrow
       Image3->Visible = false;         // Down arrow
       Image25->Visible = true; }     //  ??

    if(form[1]=='g')
    { Image4->Visible = true;       // Up arrow   1,4,7,...
       Image5->Visible = false;      // Side arrow   2,5,8,...
       Image6->Visible = false;        // Down arrow   3,6,9,...
       Image26->Visible = false; }     // ??   (25-32)
    else if(form[1]=='i')
    { Image4->Visible = false;       // Up arrow
       Image5->Visible = true;      // Side arrow
       Image6->Visible = false;        // Down arrow
       Image26->Visible = false; }     // ??
    else if(form[1]=='o')
    { Image4->Visible = false;       // Up arrow
       Image5->Visible = false;      // Side arrow
       Image6->Visible = true;         // Down arrow
       Image26->Visible = false; }     //  ??
    else
    { Image4->Visible = false;       // Up arrow
       Image5->Visible = false;      // Side arrow
       Image6->Visible = false;         // Down arrow
       Image26->Visible = true; }     //  ??

    if(form[2]=='g')
    { Image7->Visible = true;       // Up arrow   1,4,7,...
       Image8->Visible = false;      // Side arrow   2,5,8,...
       Image9->Visible = false;        // Down arrow   3,6,9,...
       Image27->Visible = false; }     // ??   (25-32)
    else if(form[2]=='i')
    { Image7->Visible = false;       // Up arrow
       Image8->Visible = true;      // Side arrow
       Image9->Visible = false;        // Down arrow
       Image27->Visible = false; }     // ??
    else if(form[2]=='o')
    { Image7->Visible = false;       // Up arrow
       Image8->Visible = false;      // Side arrow
       Image9->Visible = true;         // Down arrow
       Image27->Visible = false; }     //  ??
    else
    { Image7->Visible = false;       // Up arrow
       Image8->Visible = false;      // Side arrow
       Image9->Visible = false;         // Down arrow
       Image27->Visible = true; }     //  ??

    if(form[3]=='g')
    { Image10->Visible = true;       // Up arrow   1,4,7,...
       Image11->Visible = false;      // Side arrow   2,5,8,...
       Image12->Visible = false;        // Down arrow   3,6,9,...
       Image28->Visible = false; }     // ??   (25-32)
    else if(form[3]=='i')
    { Image10->Visible = false;       // Up arrow
       Image11->Visible = true;      // Side arrow
       Image12->Visible = false;        // Down arrow
       Image28->Visible = false; }     // ??
    else if(form[3]=='o')
    { Image10->Visible = false;       // Up arrow
       Image11->Visible = false;      // Side arrow
       Image12->Visible = true;         // Down arrow
       Image28->Visible = false; }     //  ??
    else
    { Image10->Visible = false;       // Up arrow
       Image11->Visible = false;      // Side arrow
       Image12->Visible = false;         // Down arrow
       Image28->Visible = true; }     //  ??

    if(form[4]=='g')
    { Image13->Visible = true;       // Up arrow   1,4,7,...
       Image14->Visible = false;      // Side arrow   2,5,8,...
       Image15->Visible = false;        // Down arrow   3,6,9,...
       Image29->Visible = false; }     // ??   (25-32)
    else if(form[4]=='i')
    { Image13->Visible = false;       // Up arrow
       Image14->Visible = true;      // Side arrow
       Image15->Visible = false;        // Down arrow
       Image29->Visible = false; }     // ??
    else if(form[4]=='o')
    { Image13->Visible = false;       // Up arrow
       Image14->Visible = false;      // Side arrow
       Image15->Visible = true;         // Down arrow
       Image29->Visible = false; }     //  ??
    else
    { Image13->Visible = false;       // Up arrow
       Image14->Visible = false;      // Side arrow
       Image15->Visible = false;         // Down arrow
       Image29->Visible = true; }     //  ??

    if(form[5]=='g')
    { Image16->Visible = true;       // Up arrow   1,4,7,...
       Image17->Visible = false;      // Side arrow   2,5,8,...
       Image18->Visible = false;        // Down arrow   3,6,9,...
       Image30->Visible = false; }     // ??   (25-32)
    else if(form[5]=='i')
    { Image16->Visible = false;       // Up arrow
       Image17->Visible = true;      // Side arrow
       Image18->Visible = false;        // Down arrow
       Image30->Visible = false; }     // ??
    else if(form[5]=='o')
    { Image16->Visible = false;       // Up arrow
       Image17->Visible = false;      // Side arrow
       Image18->Visible = true;         // Down arrow
       Image30->Visible = false; }     //  ??
    else
    { Image16->Visible = false;       // Up arrow
       Image17->Visible = false;      // Side arrow
       Image18->Visible = false;         // Down arrow
       Image30->Visible = true; }     //  ??

    if(form[6]=='g')
    { Image19->Visible = true;       // Up arrow   1,4,7,...
       Image20->Visible = false;      // Side arrow   2,5,8,...
       Image21->Visible = false;        // Down arrow   3,6,9,...
       Image31->Visible = false; }     // ??   (25-32)
    else if(form[6]=='i')
    { Image19->Visible = false;       // Up arrow
       Image20->Visible = true;      // Side arrow
       Image21->Visible = false;        // Down arrow
       Image31->Visible = false; }     // ??
    else if(form[6]=='o')
    { Image19->Visible = false;       // Up arrow
       Image20->Visible = false;      // Side arrow
       Image21->Visible = true;         // Down arrow
       Image31->Visible = false; }     //  ??
    else
    { Image19->Visible = false;       // Up arrow
       Image20->Visible = false;      // Side arrow
       Image21->Visible = false;         // Down arrow
       Image31->Visible = true; }     //  ??

    if(form[7]=='g')
    { Image22->Visible = true;       // Up arrow   1,4,7,...
       Image23->Visible = false;      // Side arrow   2,5,8,...
       Image24->Visible = false;        // Down arrow   3,6,9,...
       Image32->Visible = false; }     // ??   (25-32)
    else if(form[7]=='i')
    { Image22->Visible = false;       // Up arrow
       Image23->Visible = true;      // Side arrow
       Image24->Visible = false;        // Down arrow
       Image32->Visible = false; }     // ??
    else if(form[7]=='o')
    { Image22->Visible = false;       // Up arrow
       Image23->Visible = false;      // Side arrow
       Image24->Visible = true;         // Down arrow
       Image32->Visible = false; }     //  ??
    else
    { Image22->Visible = false;       // Up arrow
       Image23->Visible = false;      // Side arrow
       Image24->Visible = false;         // Down arrow
       Image32->Visible = true; }     //  ??


    // insertion-sorts the array from 100 to smallest score in 'ordered' array
    for(ctr=0;ctr < 8;ctr++)
        ordered_insert(ordered,ctr,score[ctr]);

    Edit1->Text = AnsiString(1 + getindex(ordered[0],score)) + AnsiString(" - ");
    Edit1->Text = Edit1->Text +
            AnsiString(1 + getindexL(ordered[1],score)) + AnsiString(" - ");
    Edit1->Text = Edit1->Text +
            AnsiString(1 + getindex(ordered[2],score)) + AnsiString(" - ");
    Edit1->Text = Edit1->Text +
            AnsiString(1 + getindexL(ordered[3],score));

    for (ctr=0;ctr<8;ctr++)
        score[ctr] = 0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Exit1Click(TObject *Sender)
{
int i;
for(i=0;i<max;i++)
    delete dograce[i];
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Open1Click(TObject *Sender)
{
int i;    char ch;

ScrollBar1->Position = 0;
currace = 0;

for(i=0;i<8;i++)
    score[i]=0;

for(i=0;i<max;i++)
    delete dograce[i];

OpenDialog1->Execute();
 // Open input and output file, exit on any error

//ins.open(OpenDialog1->FileName.c_str());
 ins = fopen(OpenDialog1->FileName.c_str(),"r");
  if (ins==NULL)
     Edit1->Text = "Cannot Open File";
  else
     Edit1->Text = "Bingo";

  //   remove whitespace from head of file...
    do
        ch = (char)fgetc(ins);
  while ((isspace(ch))||(ch =='-'));

  ungetc(ch,ins);

  start();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::About1Click(TObject *Sender)
{
AboutBox->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
//Color = clWhite;
//Print();
//Color = clBtnFace;
int top = 20;
int space = 40;
int i = 0;
TPrinter *Prntr = Printer();

Prntr->BeginDoc();

ScrollBar1->Position = 0;
show(ScrollBar1->Position);

for (i=0;i<5;i++)
{
Prntr->Canvas->TextOut(0,top,Label10->Caption.SubString(0,65));
top+=40;
Prntr->Canvas->TextOut(0,top,Label10->Caption.SubString(65,65));
top+=40;
Prntr->Canvas->TextOut(0,top,Label10->Caption.SubString(130,65));
top+=40;
Prntr->Canvas->TextOut(0,top,Label10->Caption.SubString(195,65));
top+=40;
Prntr->Canvas->TextOut(0,top,Label10->Caption.SubString(260,65));
top+=40;
Prntr->Canvas->TextOut(0,top,Label10->Caption.SubString(325,65));
top+=40;
Prntr->Canvas->TextOut(0,top,"-----" + Edit1->Text +
        "----------------------------------Fm--St---Chg------Sp---f/b--EfG---------");
top+=40;

Prntr->Canvas->TextOut(0,top,Label20->Caption);
Prntr->Canvas->TextOut(60,top,Label12->Caption);
Prntr->Canvas->TextOut(500,top,Label2->Caption);
Prntr->Canvas->TextOut(620,top,form[0]);
Prntr->Canvas->TextOut(680,top,Label1->Caption);
Prntr->Canvas->TextOut(740,top,Label36->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[0],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label52->Caption);
Prntr->Canvas->TextOut(1020,top,Label28->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label21->Caption);
Prntr->Canvas->TextOut(60,top,Label13->Caption);
Prntr->Canvas->TextOut(500,top,Label3->Caption);
Prntr->Canvas->TextOut(620,top,form[1]);
Prntr->Canvas->TextOut(680,top,Label29->Caption);
Prntr->Canvas->TextOut(740,top,Label37->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[1],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label53->Caption);
Prntr->Canvas->TextOut(1020,top,Label60->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label22->Caption);
Prntr->Canvas->TextOut(60,top,Label14->Caption);
Prntr->Canvas->TextOut(500,top,Label4->Caption);
Prntr->Canvas->TextOut(620,top,form[2]);
Prntr->Canvas->TextOut(680,top,Label30->Caption);
Prntr->Canvas->TextOut(740,top,Label38->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[2],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label54->Caption);
Prntr->Canvas->TextOut(1020,top,Label61->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label23->Caption);
Prntr->Canvas->TextOut(60,top,Label15->Caption);
Prntr->Canvas->TextOut(500,top,Label5->Caption);
Prntr->Canvas->TextOut(620,top,form[3]);
Prntr->Canvas->TextOut(680,top,Label31->Caption);
Prntr->Canvas->TextOut(740,top,Label39->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[3],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label55->Caption);
Prntr->Canvas->TextOut(1020,top,Label62->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label24->Caption);
Prntr->Canvas->TextOut(60,top,Label16->Caption);
Prntr->Canvas->TextOut(500,top,Label6->Caption);
Prntr->Canvas->TextOut(620,top,form[4]);
Prntr->Canvas->TextOut(680,top,Label32->Caption);
Prntr->Canvas->TextOut(740,top,Label40->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[4],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label56->Caption);
Prntr->Canvas->TextOut(1020,top,Label63->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label25->Caption);
Prntr->Canvas->TextOut(60,top,Label17->Caption);
Prntr->Canvas->TextOut(500,top,Label7->Caption);
Prntr->Canvas->TextOut(620,top,form[5]);
Prntr->Canvas->TextOut(680,top,Label33->Caption);
Prntr->Canvas->TextOut(740,top,Label41->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[5],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label57->Caption);
Prntr->Canvas->TextOut(1020,top,Label64->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label26->Caption);
Prntr->Canvas->TextOut(60,top,Label18->Caption);
Prntr->Canvas->TextOut(500,top,Label8->Caption);
Prntr->Canvas->TextOut(620,top,form[6]);
Prntr->Canvas->TextOut(680,top,Label34->Caption);
Prntr->Canvas->TextOut(740,top,Label42->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[6],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label58->Caption);
Prntr->Canvas->TextOut(1020,top,Label65->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label27->Caption);
Prntr->Canvas->TextOut(60,top,Label19->Caption);
Prntr->Canvas->TextOut(500,top,Label9->Caption);
Prntr->Canvas->TextOut(620,top,form[7]);
Prntr->Canvas->TextOut(680,top,Label35->Caption);
Prntr->Canvas->TextOut(740,top,Label43->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[7],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label59->Caption);
Prntr->Canvas->TextOut(1020,top,Label66->Caption);
top+=40;

// here is the second bit....

ScrollBar1->Position++;
show(ScrollBar1->Position);
top -= 580;

Prntr->Canvas->TextOut(1200,top,Label10->Caption.SubString(0,70));
top+=40;
Prntr->Canvas->TextOut(1200,top,Label10->Caption.SubString(70,70));
top+=40;
Prntr->Canvas->TextOut(1200,top,Label10->Caption.SubString(140,70));
top+=40;
Prntr->Canvas->TextOut(1200,top,Label10->Caption.SubString(210,70));
top+=40;
Prntr->Canvas->TextOut(1200,top,Label10->Caption.SubString(280,70));
top+=40;
Prntr->Canvas->TextOut(1200,top,Label10->Caption.SubString(350,70));
top+=40;
//Prntr->Canvas->TextOut(1200,top,"--------------------------------------------------------------------------------------------------------");
Prntr->Canvas->TextOut(1200,top,"-----" + Edit1->Text +
        "----------------------------------Fm--St--Chg------Sp----f/b--EfG---------");
top+=40;

Prntr->Canvas->TextOut(1200,top,Label20->Caption);
Prntr->Canvas->TextOut(1260,top,Label12->Caption);
Prntr->Canvas->TextOut(1700,top,Label2->Caption);
Prntr->Canvas->TextOut(1820,top,form[0]);
Prntr->Canvas->TextOut(1880,top,Label1->Caption);
Prntr->Canvas->TextOut(1940,top,Label36->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[0],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label52->Caption);
Prntr->Canvas->TextOut(2220,top,Label28->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label21->Caption);
Prntr->Canvas->TextOut(1260,top,Label13->Caption);
Prntr->Canvas->TextOut(1700,top,Label3->Caption);
Prntr->Canvas->TextOut(1820,top,form[1]);
Prntr->Canvas->TextOut(1880,top,Label29->Caption);
Prntr->Canvas->TextOut(1940,top,Label37->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[1],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label53->Caption);
Prntr->Canvas->TextOut(2220,top,Label60->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label22->Caption);
Prntr->Canvas->TextOut(1260,top,Label14->Caption);
Prntr->Canvas->TextOut(1700,top,Label4->Caption);
Prntr->Canvas->TextOut(1820,top,form[2]);
Prntr->Canvas->TextOut(1880,top,Label30->Caption);
Prntr->Canvas->TextOut(1940,top,Label38->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[2],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label54->Caption);
Prntr->Canvas->TextOut(2220,top,Label61->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label23->Caption);
Prntr->Canvas->TextOut(1260,top,Label15->Caption);
Prntr->Canvas->TextOut(1700,top,Label5->Caption);
Prntr->Canvas->TextOut(1820,top,form[3]);
Prntr->Canvas->TextOut(1880,top,Label31->Caption);
Prntr->Canvas->TextOut(1940,top,Label39->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[3],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label55->Caption);
Prntr->Canvas->TextOut(2220,top,Label62->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label24->Caption);
Prntr->Canvas->TextOut(1260,top,Label16->Caption);
Prntr->Canvas->TextOut(1700,top,Label6->Caption);
Prntr->Canvas->TextOut(1820,top,form[4]);
Prntr->Canvas->TextOut(1880,top,Label32->Caption);
Prntr->Canvas->TextOut(1940,top,Label40->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[4],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label56->Caption);
Prntr->Canvas->TextOut(2220,top,Label63->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label25->Caption);
Prntr->Canvas->TextOut(1260,top,Label17->Caption);
Prntr->Canvas->TextOut(1700,top,Label7->Caption);
Prntr->Canvas->TextOut(1820,top,form[5]);
Prntr->Canvas->TextOut(1880,top,Label33->Caption);
Prntr->Canvas->TextOut(1940,top,Label41->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[5],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label57->Caption);
Prntr->Canvas->TextOut(2220,top,Label64->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label26->Caption);
Prntr->Canvas->TextOut(1260,top,Label18->Caption);
Prntr->Canvas->TextOut(1700,top,Label8->Caption);
Prntr->Canvas->TextOut(1820,top,form[6]);
Prntr->Canvas->TextOut(1880,top,Label34->Caption);
Prntr->Canvas->TextOut(1940,top,Label42->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[6],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label58->Caption);
Prntr->Canvas->TextOut(2220,top,Label65->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label27->Caption);
Prntr->Canvas->TextOut(1260,top,Label19->Caption);
Prntr->Canvas->TextOut(1700,top,Label9->Caption);
Prntr->Canvas->TextOut(1820,top,form[7]);
Prntr->Canvas->TextOut(1880,top,Label35->Caption);
Prntr->Canvas->TextOut(1940,top,Label43->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[7],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label59->Caption);
Prntr->Canvas->TextOut(2220,top,Label66->Caption);

top+=40;
ScrollBar1->Position++;
show(ScrollBar1->Position);

}
Prntr->EndDoc();

top = 20;

////////////////////  SECOND PAGE ////////////////////////////
Prntr->BeginDoc();

ScrollBar1->Position=10;
show(ScrollBar1->Position);

for (i=0;i<3;i++)
{
Prntr->Canvas->TextOut(0,top,Label10->Caption.SubString(0,65));
top+=40;
Prntr->Canvas->TextOut(0,top,Label10->Caption.SubString(65,65));
top+=40;
Prntr->Canvas->TextOut(0,top,Label10->Caption.SubString(130,65));
top+=40;
Prntr->Canvas->TextOut(0,top,Label10->Caption.SubString(195,65));
top+=40;
Prntr->Canvas->TextOut(0,top,Label10->Caption.SubString(260,65));
top+=40;
Prntr->Canvas->TextOut(0,top,Label10->Caption.SubString(325,65));
top+=40;
Prntr->Canvas->TextOut(0,top,"-----" + Edit1->Text +
        "----------------------------------Fm--St--Chg------Sp----f/b--EfG---------");
top+=40;

Prntr->Canvas->TextOut(0,top,Label20->Caption);
Prntr->Canvas->TextOut(60,top,Label12->Caption);
Prntr->Canvas->TextOut(500,top,Label2->Caption);
Prntr->Canvas->TextOut(620,top,form[0]);
Prntr->Canvas->TextOut(680,top,Label1->Caption);
Prntr->Canvas->TextOut(740,top,Label36->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[0],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label52->Caption);
Prntr->Canvas->TextOut(1020,top,Label28->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label21->Caption);
Prntr->Canvas->TextOut(60,top,Label13->Caption);
Prntr->Canvas->TextOut(500,top,Label3->Caption);
Prntr->Canvas->TextOut(620,top,form[1]);
Prntr->Canvas->TextOut(680,top,Label29->Caption);
Prntr->Canvas->TextOut(740,top,Label37->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[1],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label53->Caption);
Prntr->Canvas->TextOut(1020,top,Label60->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label22->Caption);
Prntr->Canvas->TextOut(60,top,Label14->Caption);
Prntr->Canvas->TextOut(500,top,Label4->Caption);
Prntr->Canvas->TextOut(620,top,form[2]);
Prntr->Canvas->TextOut(680,top,Label30->Caption);
Prntr->Canvas->TextOut(740,top,Label38->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[2],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label54->Caption);
Prntr->Canvas->TextOut(1020,top,Label61->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label23->Caption);
Prntr->Canvas->TextOut(60,top,Label15->Caption);
Prntr->Canvas->TextOut(500,top,Label5->Caption);
Prntr->Canvas->TextOut(620,top,form[3]);
Prntr->Canvas->TextOut(680,top,Label31->Caption);
Prntr->Canvas->TextOut(740,top,Label39->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[3],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label55->Caption);
Prntr->Canvas->TextOut(1020,top,Label62->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label24->Caption);
Prntr->Canvas->TextOut(60,top,Label16->Caption);
Prntr->Canvas->TextOut(500,top,Label6->Caption);
Prntr->Canvas->TextOut(620,top,form[4]);
Prntr->Canvas->TextOut(680,top,Label32->Caption);
Prntr->Canvas->TextOut(740,top,Label40->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[4],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label56->Caption);
Prntr->Canvas->TextOut(1020,top,Label63->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label25->Caption);
Prntr->Canvas->TextOut(60,top,Label17->Caption);
Prntr->Canvas->TextOut(500,top,Label7->Caption);
Prntr->Canvas->TextOut(620,top,form[5]);
Prntr->Canvas->TextOut(680,top,Label33->Caption);
Prntr->Canvas->TextOut(740,top,Label41->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[5],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label57->Caption);
Prntr->Canvas->TextOut(1020,top,Label64->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label26->Caption);
Prntr->Canvas->TextOut(60,top,Label18->Caption);
Prntr->Canvas->TextOut(500,top,Label8->Caption);
Prntr->Canvas->TextOut(620,top,form[6]);
Prntr->Canvas->TextOut(680,top,Label34->Caption);
Prntr->Canvas->TextOut(740,top,Label42->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[6],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label58->Caption);
Prntr->Canvas->TextOut(1020,top,Label65->Caption);
top += space;
Prntr->Canvas->TextOut(0,top,Label27->Caption);
Prntr->Canvas->TextOut(60,top,Label19->Caption);
Prntr->Canvas->TextOut(500,top,Label9->Caption);
Prntr->Canvas->TextOut(620,top,form[7]);
Prntr->Canvas->TextOut(680,top,Label35->Caption);
Prntr->Canvas->TextOut(740,top,Label43->Caption);
Prntr->Canvas->TextOut(860,top,FloatToStrF(speed[7],ffFixed,4,1));
Prntr->Canvas->TextOut(960,top,Label59->Caption);
Prntr->Canvas->TextOut(1020,top,Label66->Caption);
top+=40;

// here is the second bit....

ScrollBar1->Position++;
show(ScrollBar1->Position);
top -= 580;

Prntr->Canvas->TextOut(1200,top,Label10->Caption.SubString(0,70));
top+=40;
Prntr->Canvas->TextOut(1200,top,Label10->Caption.SubString(70,70));
top+=40;
Prntr->Canvas->TextOut(1200,top,Label10->Caption.SubString(140,70));
top+=40;
Prntr->Canvas->TextOut(1200,top,Label10->Caption.SubString(210,70));
top+=40;
Prntr->Canvas->TextOut(1200,top,Label10->Caption.SubString(280,70));
top+=40;
Prntr->Canvas->TextOut(1200,top,Label10->Caption.SubString(350,70));
top+=40;
//Prntr->Canvas->TextOut(1200,top,"--------------------------------------------------------------------------------------------------------");
Prntr->Canvas->TextOut(1200,top,"-----" + Edit1->Text +
        "----------------------------------Fm--St--Chg------Sp----f/b--EfG---------");
top+=40;

Prntr->Canvas->TextOut(1200,top,Label20->Caption);
Prntr->Canvas->TextOut(1260,top,Label12->Caption);
Prntr->Canvas->TextOut(1700,top,Label2->Caption);
Prntr->Canvas->TextOut(1820,top,form[0]);
Prntr->Canvas->TextOut(1880,top,Label1->Caption);
Prntr->Canvas->TextOut(1940,top,Label36->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[0],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label52->Caption);
Prntr->Canvas->TextOut(2220,top,Label28->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label21->Caption);
Prntr->Canvas->TextOut(1260,top,Label13->Caption);
Prntr->Canvas->TextOut(1700,top,Label3->Caption);
Prntr->Canvas->TextOut(1820,top,form[1]);
Prntr->Canvas->TextOut(1880,top,Label29->Caption);
Prntr->Canvas->TextOut(1940,top,Label37->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[1],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label53->Caption);
Prntr->Canvas->TextOut(2220,top,Label60->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label22->Caption);
Prntr->Canvas->TextOut(1260,top,Label14->Caption);
Prntr->Canvas->TextOut(1700,top,Label4->Caption);
Prntr->Canvas->TextOut(1820,top,form[2]);
Prntr->Canvas->TextOut(1880,top,Label30->Caption);
Prntr->Canvas->TextOut(1940,top,Label38->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[2],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label54->Caption);
Prntr->Canvas->TextOut(2220,top,Label61->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label23->Caption);
Prntr->Canvas->TextOut(1260,top,Label15->Caption);
Prntr->Canvas->TextOut(1700,top,Label5->Caption);
Prntr->Canvas->TextOut(1820,top,form[3]);
Prntr->Canvas->TextOut(1880,top,Label31->Caption);
Prntr->Canvas->TextOut(1940,top,Label39->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[3],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label55->Caption);
Prntr->Canvas->TextOut(2220,top,Label62->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label24->Caption);
Prntr->Canvas->TextOut(1260,top,Label16->Caption);
Prntr->Canvas->TextOut(1700,top,Label6->Caption);
Prntr->Canvas->TextOut(1820,top,form[4]);
Prntr->Canvas->TextOut(1880,top,Label32->Caption);
Prntr->Canvas->TextOut(1940,top,Label40->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[4],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label56->Caption);
Prntr->Canvas->TextOut(2220,top,Label63->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label25->Caption);
Prntr->Canvas->TextOut(1260,top,Label17->Caption);
Prntr->Canvas->TextOut(1700,top,Label7->Caption);
Prntr->Canvas->TextOut(1820,top,form[5]);
Prntr->Canvas->TextOut(1880,top,Label33->Caption);
Prntr->Canvas->TextOut(1940,top,Label41->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[5],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label57->Caption);
Prntr->Canvas->TextOut(2220,top,Label64->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label26->Caption);
Prntr->Canvas->TextOut(1260,top,Label18->Caption);
Prntr->Canvas->TextOut(1700,top,Label8->Caption);
Prntr->Canvas->TextOut(1820,top,form[6]);
Prntr->Canvas->TextOut(1880,top,Label34->Caption);
Prntr->Canvas->TextOut(1940,top,Label42->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[6],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label58->Caption);
Prntr->Canvas->TextOut(2220,top,Label65->Caption);
top += space;
Prntr->Canvas->TextOut(1200,top,Label27->Caption);
Prntr->Canvas->TextOut(1260,top,Label19->Caption);
Prntr->Canvas->TextOut(1700,top,Label9->Caption);
Prntr->Canvas->TextOut(1820,top,form[7]);
Prntr->Canvas->TextOut(1880,top,Label35->Caption);
Prntr->Canvas->TextOut(1940,top,Label43->Caption);
Prntr->Canvas->TextOut(2060,top,FloatToStrF(speed[7],ffFixed,4,1));
Prntr->Canvas->TextOut(2160,top,Label59->Caption);
Prntr->Canvas->TextOut(2220,top,Label66->Caption);

top+=40;
ScrollBar1->Position++;
show(ScrollBar1->Position);

}
Prntr->EndDoc();


// finally done !!
ScrollBar1->Position=0;
show(ScrollBar1->Position);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::BackBoxClick(TObject *Sender)
{
if ((FrontBox->Checked == false) && (BackBox->Checked == false))
    BackBox->Checked = true;

if (BackBox->Checked == true)
    ChargeBox->Checked = true;
else
    ChargeBox->Checked = false;

if (FrontBox->Checked == true)
    RunPrefBox->Checked = true;
else
    RunPrefBox->Checked = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FrontBoxClick(TObject *Sender)
{
if ((BackBox->Checked == false) && (FrontBox->Checked == false))
    FrontBox->Checked = true;

if (FrontBox->Checked == true)
    RunPrefBox->Checked = true;
else
    RunPrefBox->Checked = false;

if (BackBox->Checked == true)
    ChargeBox->Checked = true;
else
    ChargeBox->Checked = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RunPrefBoxClick(TObject *Sender)
{
if (FrontBox->Checked == false)
    RunPrefBox->Checked = false;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ChargeBoxClick(TObject *Sender)
{
if (BackBox->Checked == false)
    ChargeBox->Checked = false;
}
//---------------------------------------------------------------------------
void TForm1::ordered_insert(int data[ ], int n, int entry)
{
int i;

for (i = n; (i > 0) && (data[i-1] < entry); i--)
    data[i] = data[i-1];
data[i] = entry;
}
//------------------------------------------------------------------------
int TForm1::getindex(int value, int data[ ])
{
int i;

for (i = 0; i < 8;i++)
    if (data[i] == value)
       return i;

return 0;
}
//------------------------------------------------------------------------
int TForm1::getindexL(int value, int data[ ])
{
int i;

for (i = 7; i >= 0; i--)
    if (data[i] == value)
       return i;

return 0;
}
//-------------------------------------------------------------------------

void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
{
currace = ScrollBar1->Position;
show(currace);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Options1Click(TObject *Sender)
{
Form3->ShowModal();
Open1->Click();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i;
int nums[8];

for (i=0;i<8;i++)
    {
    nums[i] = (int)names[i][1];
    nums[i] +=  (score[i] % 10)* 7;
    nums[i] += (int)form[i];
    nums[i] = (int)(nums[i] * (close[i]) * (close[i]));
    nums[i] /= (int)sqrt(speed[i]);
    nums[i] +=  (score[i] % 10) + 5;
    }

Label67->Caption = nums[0];
Label68->Caption = nums[1];
Label69->Caption = nums[2];
Label70->Caption = nums[3];
Label71->Caption = nums[4];
Label72->Caption = nums[5];
Label73->Caption = nums[6];
Label74->Caption = nums[7];
}
//---------------------------------------------------------------------------