MAIN:
GOSUB INIT

GOTO INIT

INIT:
CLS
N = 0

S1:
PRINT "WELCOME"
INPUT "DO YOU WANT TO PLAY? (Y/R/N) ", WORD$
IF WORD$ = "Y" THEN GOTO S2 ELSE IF WORD$ = "N" THEN END ELSE IF WORD$ = "R" THEN GOTO MAIN
RETURN

S2:
INPUT "PICK THE  HIGHEST NUMBER", HT%
INPUT "PICK THE LOWEST NUMBER", LT%
RANDNUM% = (RND * HT%) + LT%
GOTO S3

S3:
INPUT "GUESS THE NUMBER ", GUESS%
N = N + 1
IF GUESS% = RANDNUM% THEN PRINT "WELL DONE! GAME RESTARTS IN 3 SECONDS": SLEEP 3: GOTO S1
IF GUESS% > RANDNUM% THEN PRINT "TOO HIGH": GOTO S3
IF GUESS% < RANDNUM% THEN PRINT "TOO LOW": GOTO S3