Guess It in Qbasic

' Guess what number for QBASIC
' E.K.virtanen. 2007, public domain

RANDOMIZE TIMER
CONST MIN = 1
CONST MAX = 100

' Main module of program.
DO
    COLOR 15, 0: CLS
    Randomed% = INT(RND * ((MAX + 1) - MIN) + MIN)
    Rounds% = 0
    PRINT "Ok, i think random number between "; MIN; MAX; "."
    PRINT "Your job is to guess what it is in as minimal tries as possible."
    PRINT ""
    PRINT "After your every guess, ill give you hint is my number higher or lower than your guess."
    PRINT "You can exit by 'guessing' 0."
    PRINT "Press any key to start game."; : SLEEP

    ' From here starts the gaming loop itself. This is looped until guess it right one.
    CLS
    DO
        Rounds% = (Rounds% + 1)
        PRINT "This is round number: "; Rounds%; "."
        INPUT "Give your guess: "; PlrGuess%
        PRINT

        COLOR 14, 0
        IF PlrGuess% > Randomed% THEN
            PRINT "My number is smaller..."
        END IF

        IF PlrGuess% < Randomed% THEN
            PRINT "My number is higher..."
        END IF
        COLOR 15, 0
        IF PlrGuess% = Randomed% THEN EXIT DO
    LOOP WHILE PlrGuess% <> 0

    IF Randomed% <> PlrGuess% THEN EXIT DO
    PRINT "You got it!!!"
    PRINT "It took "; Rounds%; " to guess right number."
    PRINT ""
    PRINT "Press 'y' to play again. Any other key to quit."
    DO UNTIL INKEY$ <> "": LOOP
    IF INKEY$ <> "y" AND INKEY$ <> "Y" THEN EXIT DO
LOOP

END