Need professional help

[Bertv100]

Hi, I've got some source code in QBasic I would like to translate to Delphi 4 (Object Pascal). I would be glad if someone could help me out.<br>I've got the same source for Turbo Pascal, Visual Basic 3.0 & 4.0, C and QBasic.<br>You'll think: he's got it in Turbo Pascal, why not use it in Delphi directly. Well I tried but it makes use or TPs PORT array, which doesn't exist in Delphi.<br><br>Here's one of the most important procedures. If you really want to help me, I could send you one of the units.<br>Mind that I've never programmed in this language before, so there could be some missing things.<br><br><FONT FACE=monospace><br>SUB ReadIOchip (ChipNo%)<br>&nbsp;&nbsp;&nbsp;&nbsp;I2Cstart<br><br>&nbsp;&nbsp;&nbsp;&nbsp;DataVar% = IOChipCode%(ChipNo%) OR 1<br>&nbsp;&nbsp;&nbsp;&nbsp;I2Coutput DataVar%<br><br>&nbsp;&nbsp;&nbsp;&nbsp;I2Cclockpulse<br><br>&nbsp;&nbsp;&nbsp;&nbsp;IOdata%(ChipNo%) = I2Cinput<br>&nbsp;&nbsp;&nbsp;&nbsp;IOdata%(ChipNo%) = BINNOT(IOdata%(ChipNo%))<br>&nbsp;&nbsp;&nbsp;&nbsp;I2Cclockpulse<br><br>&nbsp;&nbsp;&nbsp;&nbsp;I2Cstop<br><br>&nbsp;&nbsp;&nbsp;&nbsp;StartChannel% = ChipNo% * 8 + 1<br>&nbsp;&nbsp;&nbsp;&nbsp;Temp% = IOdata%(ChipNo%)<br>&nbsp;&nbsp;&nbsp;&nbsp;DataVar$ = DecToBin(Temp%)<br>&nbsp;&nbsp;&nbsp;&nbsp;FOR Channel% = 0 TO 7<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;IF MID$(DataVar$, 8 - Channel%, 1) = &quot;1&quot; THEN<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IO%(StartChannel% + Channel%) = 1<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ELSE<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IO%(StartChannel% + Channel%) = 0<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; END IF<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;NEXT<br>END SUB<br></font><br><br>Thanks in advance, <p>Bert Vingerhoets<br><a href=mailto:vingerhoetsbert@hotmail.com>vingerhoetsbert@hotmail.com</a><br><a href= > </a><br>