Re-seeding issue in FB

[kawageo]

I am attempting to implement re-seeding technigue. I posted the same at QB in General section. Mac suggested the code as below:

Code:

CLS
DO
  RANDOMIZE TIMER
  seed = RND * 999999
  y = RND(-seed)
  FOR i = 1 TO 5: PRINT RND; : NEXT i: PRINT
  y = RND(-seed)
  FOR i = 1 TO 5: PRINT RND; : NEXT i: PRINT
  INPUT "Again"; a$
LOOP WHILE LEFT$(UCASE$(a$ + " "), 1) = "Y"
CLS
SYSTEM

It works in QB but not so in FB. Any suggestion?

TIA

Geo