’ TSAMPLEFORM0ń TPF0 TSampleForm SampleFormLeftvTopC BorderStylebsDialogCaptionWindows 95/NT 8255 Test/Sample ClientHeight ClientWidthšColor clBtnFace Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Heightõ Font.Name MS Sans Serif Font.Style OldCreateOrder PositionpoScreenCenter OnActivate FormActivateOnCreate FormCreate PixelsPerInch` TextHeight TLabel TitleLabelLeftTopWidth–HeightCaption Windows 95/NT P104-DIO-96 Sample Font.CharsetDEFAULT_CHARSET Font.ColorclBlack Font.Heightč Font.Name MS Sans Serif Font.Style ParentFontTLabelCardNameLeft Top*WidthLHeightCaptionCardName Font.CharsetDEFAULT_CHARSET Font.Color clWindowText Font.Heightš Font.Name MS Sans Serif Font.Style ParentFontTLabel PortLabelLeftTopHWidth€Height CaptionPlease select a port to use:TLabel PortAOutLabelLeftTopxWidthyHeight AlignmenttaCenterAutoSizeCaption Port A OutputTLabel PortAInLabelLeftTopxWidthyHeight AlignmenttaCenterAutoSizeCaption Port A InputTLabel PortBInLabelLeftTopxWidthyHeight AlignmenttaCenterAutoSizeCaption Port B InputTLabelIsaLabelLeft Top`WidthæHeight Caption(Base Address for ISA DIO cards (in hex):Visible TGroupBoxStatusGroupBoxLeftTop Width‰HeightQCaptionStatusTabOrderTMemo StatusMemoLeft TopWidthyHeight> Lines.StringsKThis sample outputs a walking bit on Port A of the selected group. It then Jreads back the value from Port A. This should be identical to the output Lvalue due to on-chip readback. It also displays the Input from Port B. If a Gwrap plug is installed, Port B should read the same value. Otherwise, Hground individual bits on Port B to see them show zeroes on the display.ReadOnly ScrollBars ssVerticalTabOrderTBitBtn ExitButtonLeftTopłWidthŠHeightCaption EXIT PROGRAMTabOrderOnClickExitButtonClick Glyph.Data zvBMvv( €€€€€€€€€æææ’’’’’’’’’’’’33333333333’’ó33339™™33333÷ww’ó339™™™™3337w37w’33™333™“33w’337ó9™“339™37wó33wó99™333™37÷w’337’™3™“339“wówó37™39™339“wó7w’37™33™“39“wó3wó7™339™39“wó37w’7™333™“9“w’33w÷s9“339™937?ó37w÷ó9™333™™37s’33ww33™“339“33w?’’÷s339™™™™3337w37w33339™™333337ww333 NumGlyphs TComboBox AddressListLeft–TopFWidth‘HeightStylecsDropDownList ItemHeight TabOrderOnChangeAddressListChangeTButton BeginSampleLeft TopłWidthYHeightCaption Perform I/OTabOrderOnClickBeginSampleClickTPanelPortAOutLeftTop‡WidthyHeight BevelOuter bvLoweredCaption00000000TabOrderTPanelPortAInLeftTop‡WidthyHeight BevelOuter bvLoweredCaption00000000TabOrderTPanelPortBInLeftTop‡WidthyHeight BevelOuter bvLoweredCaption00000000TabOrderTEditIsaEditLeftŠTop^Width'HeightTabOrderText300VisibleTTimerRunTimerEnabledOnTimer RunTimerTimerLeftpTop