

In this task, the goal is to input a string and the integer 75000, from graphical user interface.



See also: User input/Text

FUNCTION PBMAIN () AS LONG
    result$ = INPUTBOX$("Enter a string.")
    MSGBOX result$
    DO
        'This assumes that 75000 is the ONLY valid input.
        result$ = INPUTBOX$("Enter the number 75000.")
        IF VAL(result$) <> 75000 THEN
            MSGBOX "You need to enter 75000!"
        ELSE
            MSGBOX "You entered the right number."
            EXIT DO
        END IF
    LOOP
END FUNCTION