object compatibilityDialog: TcompatibilityDialog
  Left = 413
  Height = 533
  Top = 139
  Width = 433
  HelpContext = 48
  HorzScrollBar.Page = 432
  HorzScrollBar.Range = 416
  VertScrollBar.Page = 415
  VertScrollBar.Range = 369
  ActiveControl = OKBtn
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Compatibility'
  ClientHeight = 533
  ClientWidth = 433
  ParentFont = True
  Position = poScreenCenter
  LCLVersion = '2.2.6.0'
  object OKBtn: TButton
    Left = 336
    Height = 33
    Top = 8
    Width = 84
    BorderSpacing.InnerBorder = 4
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
  end
  object CancelBtn: TButton
    Left = 336
    Height = 33
    Top = 46
    Width = 84
    BorderSpacing.InnerBorder = 4
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object HelpBtn: TButton
    Left = 336
    Height = 33
    Top = 84
    Width = 84
    BorderSpacing.InnerBorder = 4
    Caption = '&Help'
    OnClick = HelpBtnClick
    TabOrder = 3
  end
  object PageControl1: TPageControl
    Left = 0
    Height = 528
    Top = 0
    Width = 329
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      AutoSize = True
      Caption = 'Syntax'
      ClientHeight = 500
      ClientWidth = 321
      object RadioGroup4: TRadioGroup
        Left = 0
        Height = 70
        Top = 0
        Width = 306
        AutoFill = True
        Caption = 'DIM parameters'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 50
        ClientWidth = 302
        Items.Strings = (
          'Allow Variables'
          'Only Constants (ISO)'
        )
        TabOrder = 0
      end
      object RadioGroup5: TRadioGroup
        Left = 0
        Height = 70
        Top = 81
        Width = 306
        AutoFill = True
        Caption = 'Function Declarations'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 50
        ClientWidth = 302
        Items.Strings = (
          'Allow omission'
          'Enforce declaration (ISO)'
        )
        TabOrder = 1
      end
      object RadioGroup13: TRadioGroup
        Left = 0
        Height = 78
        Top = 336
        Width = 306
        AutoFill = True
        Caption = 'PLOT LINES statements'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 58
        ClientWidth = 302
        ItemIndex = 0
        Items.Strings = (
          'Allow abbreviated form (PLOT x, y)'
          'Abbreviated form not allowed (ISO) '
        )
        TabOrder = 2
      end
      object RadioGroup14: TRadioGroup
        Left = 0
        Height = 70
        Top = 162
        Width = 306
        AutoFill = True
        Caption = 'External SUB (PICTURE) Declaration'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 50
        ClientWidth = 302
        ItemIndex = 0
        Items.Strings = (
          'Omissible'
          'Non-omissible (ISO)'
        )
        TabOrder = 3
      end
      object CheckGroup1: TCheckGroup
        Left = 0
        Height = 65
        Top = 424
        Width = 306
        AutoFill = True
        Caption = 'Identifier characters'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 45
        ClientWidth = 302
        Items.Strings = (
          'include Greek'
          'include Kanji'
        )
        TabOrder = 4
        Data = {
          020000000202
        }
      end
      object RadioGroup8: TRadioGroup
        Left = 0
        Height = 80
        Top = 248
        Width = 306
        AutoFill = True
        Caption = 'On OPTION ARITHMETIC omitted procedure'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 60
        ClientWidth = 302
        ItemIndex = 0
        Items.Strings = (
          'Inherit from Main Program'
          'Take over Tool-Bar Setting'
          'Regard as DECIMAL (ISO)'
        )
        TabOrder = 5
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'behavior'
      ClientHeight = 500
      ClientWidth = 321
      object RadioGroup1: TRadioGroup
        Left = 2
        Height = 70
        Top = 10
        Width = 282
        AutoFill = True
        Caption = 'Format String with #s'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 50
        ClientWidth = 278
        Enabled = False
        Items.Strings = (
          'do not generate succeeding spaces'
          'Generate succeeding spaces (ISO)'
        )
        TabOrder = 0
      end
      object RadioGroup2: TRadioGroup
        Left = 2
        Height = 70
        Top = 79
        Width = 282
        AutoFill = True
        Caption = 'Unit of String manipulation'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 50
        ClientWidth = 278
        Items.Strings = (
          'Character '
          'Byte'
        )
        TabOrder = 1
      end
      object RadioGroup6: TRadioGroup
        Left = 2
        Height = 70
        Top = 153
        Width = 282
        AutoFill = True
        Caption = 'Parameters of a DEF statement'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 50
        ClientWidth = 278
        Enabled = False
        ItemIndex = 1
        Items.Strings = (
          'Allow to be passed by Refference'
          'passed by Value (ISO)'
        )
        TabOrder = 2
      end
      object RadioGroup9: TRadioGroup
        Left = 2
        Height = 70
        Top = 227
        Width = 282
        AutoFill = True
        Caption = 'Own variables of FOR-NEXT blocks'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 50
        ClientWidth = 278
        Items.Strings = (
          'Local'
          'Belong to the program unit (ISO)'
        )
        TabOrder = 3
      end
      object RadioGroup12: TRadioGroup
        Left = 8
        Height = 70
        Top = 304
        Width = 279
        AutoFill = True
        Caption = 'Defined Function Name'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 50
        ClientWidth = 275
        Enabled = False
        ItemIndex = 0
        Items.Strings = (
          'Local on every call'
          'Global  (ISO)'
        )
        TabOrder = 4
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'Drawing'
      ClientHeight = 500
      ClientWidth = 321
      object RadioGroup11: TRadioGroup
        Left = 4
        Height = 67
        Top = 221
        Width = 289
        AutoFill = True
        Caption = 'TEXT Figure'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 47
        ClientWidth = 285
        ItemIndex = 0
        Items.Strings = (
          'Physical Coordinate (ISO)'
          'Problem Coordinate '
        )
        TabOrder = 0
      end
      object RadioGroup3: TRadioGroup
        Left = 3
        Height = 70
        Top = 141
        Width = 290
        AutoFill = True
        Caption = 'Initial Beam Mode'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 50
        ClientWidth = 286
        ItemIndex = 0
        Items.Strings = (
          'IMMORTAL'
          'RIGOROUS (ISO)'
        )
        TabOrder = 1
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Debug'
      ClientHeight = 500
      ClientWidth = 321
      object RadioGroup7: TRadioGroup
        Left = 1
        Height = 70
        Top = 16
        Width = 320
        AutoFill = True
        Caption = 'Report EXTYPE on terminated with an error'
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 1
        ClientHeight = 50
        ClientWidth = 316
        ItemIndex = 0
        Items.Strings = (
          'Disabled  (Faster)'
          'Enabled  (Standard) '
        )
        TabOrder = 0
      end
    end
  end
end
