Henrik,

That was it! I had my GOTO Mainloop after the dat: subroutine. I moved it up like you
mentioned and it works.

GOSUB dat 'last gosub dat

GOTO MAINLOOP
dat:
RD = 1
For i = 0 to 65535
RD = 0 ' Pull pin low
PAUSEUS 10 ' Wait 10us
RD = 1 ' Pull pin high
PAUSEUS 10 ' Wait 10us
NEXT
RETURN

END

Thanks a ton! If you were here, I'd buy you a beer.
Instead, I'm taking a vacation day tomorrow and goin' fishing.

Jim