bcount.bas

Parallel port interfacing

 DECLARE SUB delay (duration!)
 baseaddress = 888
 FOR x = 0 TO 255
 OUT baseaddress, x
 delay (1)
 NEXT x

 SUB delay (duration AS SINGLE)
tim = TIMER
DO
LOOP UNTIL (TIMER - tim + 86400) - (INT((TIMER - tim + 86400) / 86400) * 86400) > duration
END SUB