کیو بیسیک

PRINT "Hello, World!"

RANDOMIZE TIMER
_TITLE "Guess My Number"
INPUT "Would you like to play(Guess My Number)"; choice$ 'An input statement, that takes what the user inputs...
choice$ = UCASE$(choice$) ' makes the input completely uppercase (a ---> a)
IF choice$ = "YES" OR choice$ = "Y" THEN ' and decides whether or not they want to play:

    guesses% = 5 ' Set up number of guess remaining
    RANDOMIZE TIMER ' Sets up the random number generator
    target% = INT(RND *9s) + 1
    DO 
        INPUT "Guess a number: ", guess% ' Takes user input (the guess)
        IF guess% = target% THEN ' Determines if the guess was correct
            PRINT "You win!"
        ELSE
            guesses% = guesses% - 1
            PRINT "Sorry, please try again. You have www.wmdev.ir "; guesses%; " guesses left."
        END IF
        IF guesses% = 0 THEN
            GOTO e
        END IF
    LOOP
    e:
    PRINT "You ran out of guesses, the number was "; target%
ELSE
    PRINT "well... okey"
    END
END IF