Pete's QBASIC Site

Thanks to Burger2227 and Codemss. Your suggestions were essential. I re-wrote the code and it works: DO IF -((INP(&3HFE) AND 128) = 128 THEN CT=CT+1 DO LOOP UNTIL -((INP(&H3FE) AND 128) = 0 END IF LOOP UNTIL CT = L My project is a wire cutting machine. A DC motor with an optical encoder outp...

Hi, I am new to this board and I am not a very experienced Basic programmer. I am trying to read and count a pulse train from the serial port. The code looks like this: INPUT "ENTER PULSE COUNT"; P% PIN = &H3F8: REM COM1 PORT ADDRESS DO IN1=-((INP(PIN + 6) AND 128) = 128): REM READ INP...