object Sample1Form: TSample1Form
  Left = 226
  Top = 121
  AutoScroll = False
  Caption = 'Sample 1'
  ClientHeight = 273
  ClientWidth = 441
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object CardName: TLabel
    Left = 0
    Top = 0
    Width = 441
    Height = 20
    Align = alTop
    Alignment = taCenter
    Caption = 'IDI-48'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Memo1: TMemo
    Left = 8
    Top = 24
    Width = 425
    Height = 113
    TabStop = False
    Color = clBtnFace
    Lines.Strings = (
      'Sample 1'
      
        'This sample reads each of the IDI-48'#39's input ports'#39' 16 input cha' +
        'nnels and displays '
      'on/off status of those channels.'
      ''
      
        'Please enter the base address (in hex) in the text box below, an' +
        'd click the '#39'Start Test'#39' '
      'button to begin.'
      ''
      
        'With nothing connected to the card'#39's I/O pin headers, each port ' +
        'below should '
      
        'indicate zeroes (0000000000000000). If so, the card is successfu' +
        'lly installed at the '
      
        'base address you entered. Apply a voltage source (a 9V battery w' +
        'orks great) to any '
      
        'pair of I/O pins (3 to 4, 9 to 10, etc, pins 1 and 2 are not con' +
        'nected on either header) '
      
        'and you should see the data display change to a 1 for that pair ' +
        'of pins. If the ports '
      
        'indicate all ones(1111111111111111), that probably means the car' +
        'd is not properly '
      
        'configured for that address. (On some embedded CPUs, CMOS settin' +
        'gs for I/O space '
      'must be configured as well.)')
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object ExitButton: TButton
    Left = 325
    Top = 234
    Width = 98
    Height = 25
    Hint = 
      'Click here to exit this program.  The DACs will remain at their ' +
      'current output values after the program closes.'
    Caption = 'E&xit Program'
    TabOrder = 2
    OnClick = ExitButtonClick
  end
  object ISAPanel: TGroupBox
    Left = 20
    Top = 215
    Width = 153
    Height = 52
    Hint = 
      'Set the Base Address of the ISA board you want to use this sampl' +
      'e with, in Hexadecimal.'
    Caption = 'Base Address for ISA Card'
    TabOrder = 3
    object HexLabel: TLabel
      Left = 6
      Top = 28
      Width = 68
      Height = 13
      Caption = 'Base Address:'
    end
    object BaseEdit: TEdit
      Left = 80
      Top = 24
      Width = 57
      Height = 21
      TabOrder = 0
      Text = '300'
    end
  end
  object TestButton: TButton
    Left = 195
    Top = 234
    Width = 98
    Height = 25
    Caption = 'Start Test'
    TabOrder = 1
    OnClick = TestButtonClick
  end
  object ChannelBox: TGroupBox
    Left = 8
    Top = 144
    Width = 425
    Height = 65
    Caption = 'Input'
    TabOrder = 4
    object Label2: TLabel
      Left = 15
      Top = 18
      Width = 121
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'Port 0'
    end
    object Label3: TLabel
      Left = 156
      Top = 18
      Width = 121
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'Port 1'
    end
    object Label4: TLabel
      Left = 289
      Top = 18
      Width = 121
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'Port 2'
    end
    object Port0Text: TPanel
      Left = 15
      Top = 33
      Width = 121
      Height = 21
      BevelOuter = bvLowered
      Caption = '0000000000000000'
      TabOrder = 0
    end
    object Port1Text: TPanel
      Left = 156
      Top = 33
      Width = 121
      Height = 21
      BevelOuter = bvLowered
      Caption = '0000000000000000'
      TabOrder = 1
    end
    object Port2Text: TPanel
      Left = 289
      Top = 33
      Width = 121
      Height = 21
      BevelOuter = bvLowered
      Caption = '0000000000000000'
      TabOrder = 2
    end
  end
  object TestTimer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = TestTimerTimer
    Left = 336
  end
end