Sub CmdDone_Click ()
    Unload FrmMain
    End
End Sub

Sub CmdGo_Click ()
    If DosAp(1).Compiler = "" Then
        MsgBox "Choose A Compiler From the First Compiler List"
    ElseIf DosAp(2).Compiler = "" Then
        MsgBox "Choose A Compiler From the Second Compiler List"
    ElseIf IntOrFloat = "" Then
        MsgBox "Choose A Type Of Benchmark"
    Else
'        Hide
        BuildMessage (1)
        FrmWaiting.Show
        FrmWaiting.Refresh
        FrmChart.Show
    End If
End Sub

Sub Form_Load ()
    ChartColor(1) = 13  'light magenta
    ChartColor(2) = 11  'light cyan
    DosAp(1).Compiler = "vc16"
    DosAp(1).Axis = "16-bit Microsoft"
    DosAp(2).Compiler = "vc32"
    DosAp(2).Axis = "32-bit Microsoft"
    IntOrFloat = "int"
End Sub

Sub OptBorA_Click ()
    DosAp(1).Compiler = "bc32"
    DosAp(1).Axis = "32-Bit Borland"
End Sub

Sub OptBorB_Click ()
    DosAp(2).Compiler = "bc32"
    DosAp(2).Axis = "32-Bit Borland"
End Sub

Sub OptFloat_Click ()
    IntOrFloat = "flt"
End Sub

Sub OptInteger_Click ()
    IntOrFloat = "int"
End Sub

Sub OptMetaA_Click ()
    DosAp(1).Compiler = "mw32"
    DosAp(1).Axis = "32-Bit MetaWare"
End Sub

Sub OptMetaB_Click ()
    DosAp(2).Compiler = "mw32"
    DosAp(2).Axis = "32-Bit MetaWare"
End Sub

Sub OptMS16A_Click ()
    DosAp(1).Compiler = "vc16"
    DosAp(1).Axis = "16-Bit Microsoft"
End Sub

Sub OptMS16B_Click ()
    DosAp(2).Compiler = "vc16"
    DosAp(2).Axis = "16-Bit Microsoft"
End Sub

Sub OptMS32A_Click ()
    DosAp(1).Compiler = "vc32"
    DosAp(1).Axis = "32-Bit Microsoft"
End Sub

Sub OptMS32B_Click ()
    DosAp(2).Compiler = "vc32"
    DosAp(2).Axis = "32-Bit Microsoft"
End Sub

Sub OptWatA_Click ()
    DosAp(1).Compiler = "wc32"
    DosAp(1).Axis = "32-Bit WATCOM"
End Sub

Sub OptWatB_Click ()
    DosAp(2).Compiler = "wc32"
    DosAp(2).Axis = "32-Bit WATCOM"
End Sub

