I sure hope this is cool, coz it took its time

[Nemesis]

Try this delay routine...

Might work for you

Code:

SUB V13hDLY (seconds!) STATIC
'
IF seconds! THEN
  FOR inc& = 1 TO (SYS& * (seconds! * 18.2065)): NEXT
ELSE
  DEF SEG = &H40
  DO: LOOP UNTIL PEEK(&H6C) <> PEEK(&H6C)
  t = PEEK(&H6C)
  DO
   FOR clc& = clc& TO clc& * 2: NEXT
  LOOP UNTIL t <> PEEK(&H6C)
  SYS& = clc&
  I& = 1
  DO
   I& = I& * 2
   d& = clc& \ I&
   DO: LOOP UNTIL PEEK(&H6C) <> PEEK(&H6C)
   t = PEEK(&H6C)
   FOR inc& = 1 TO SYS&: NEXT
   IF t <> PEEK(&H6C) THEN
    SYS& = SYS& - d&
   ELSE
    SYS& = SYS& + d&
   END IF
  LOOP UNTIL I& >= clc&
END IF
'
END SUB

And switching to FB is your best bet to solve the win XP & QB compatibility
problem or wait until DOSforever is released
(DOSforever is a DOS emulator for WinXP. Guess what it's being programmed in?)
Also check your WinXP help files for compatibility options, that will usually let you run good old 16 bit applications. (If you have service pack2 winXP; NT version than your out of luck, unless you know your stuff.)

Cya,

Nemesis