Type Ariel_settings
    numChannels As Integer
    initChannel As Integer
    lastChannel As Integer
    trigger_chan As Integer
    datalen As Long
    duration As Single
    trigger_level As Single
    total_rate As Single
    pretrigger As Single
    rate As Single
    initSavedChannel As Integer
    lastSavedChannel As Integer
    usPerChannel As Integer
    factor As Single
    iOffset As Integer
    scaling(1 To 16) As Single
    offset(1 To 16) As Single
    gainIndex As Integer
    gain As Single
    label(1 To 16) As String * 10
    units(1 To 16) As String * 6
    display(1 To 16, 1 To 3) As Integer
    initPlateChannel As Integer
    unused(1 To 15) As Integer
    plateUnits As Integer
    plateFlags(1 To 3, 1 To 4) As Integer
    plateType As Integer
    plateSorM(1 To 3) As Integer
    plateEnvCnst(1 To 3) As Single
    plateZero(1 To 4) As Integer
    nFPs As Integer
    plateDimensions(1 To 2, 1 To 6) As Single
    plateAngle As Single
    plateXdist As Single
    plateYdist As Single
    free(1 To 6) As Integer
    boardType As Integer
    endRecord1 As Integer
    endRecord2 As Integer
End Type

Type Ariel_data
    environment As Long
    title As String * 20
    date As String * 8
    maxChannels As Integer
    initChannel As Integer
    lastChannel As Integer
    trigChannel As Integer
    nData As Long
    duration As Single
    trigger_level As Single
    total_rate As Single
    pretrigger As Single
    rate As Single
    initSavedChannel As Integer
    lastSavedChannel As Integer
    usPerChannel As Integer
    initSample As Integer
    lastSample As Integer
    defaultXrange As Single
    curveList As Integer
    secondSave As Long
    free(1 To 16) As Integer
End Type

Type Ariel_extension
    scope(1 To 2) As Integer
    minmax(1 To 22, 1 To 2) As Single
    free(1 To 9) As Integer
    units As Integer '1=N 2=kg 3=lbs
    timeConstant As Integer
    rangeXY As Integer
    rangeZ As Integer
    resetFlag As Integer
    sensitivity(1 To 6, 1 To 2) As Integer
    model As Integer '1=9861 2=9863 3=9865
    autocalc As Integer '1=yes, 2=no
    ranges(1 To 5) As Integer '*10
    ampUnits As Integer '1=pC 2=N
    scaling(1 To 6, 1 To 2) As Integer '*1000
    excitationAMTI As Integer '*100
    gainAMTI As Integer '*100
    free2(1 To 12) As Integer
    cofp As Single
    flags(1 To 3) As Integer
    free3(1 To 283) As Integer
    free4(1 To 10) As Integer
End Type