GUI Calculator [QBASIC]

_FULLSCREEN
DIM x AS INTEGER
DIM y AS INTEGER
DIM keypress AS STRING
CONST size = 4
x = 159
y = 99
main:
SCREEN 13
CLS

DO
    COLOR , 7
    'Making the cursor move
    keypress = UCASE$(INKEY$)

    IF keypress = "W" THEN
        CLS
        y = y - 5
    ELSEIF keypress = "S" THEN
        CLS
        y = y + 5
    ELSEIF keypress = "A" THEN
        CLS
        x = x - 5
    ELSEIF keypress = "D" THEN
        CLS
        x = x + 5
    ELSEIF keypress = "E" THEN
        CLS
        GOTO calculator
    END IF
    CIRCLE (x, y), size, 3
    LINE (74, 44)-(204, 69), 1, B
    LOCATE 8, 12
    PRINT "GUI Calculator"
    LOCATE 15, 2
    PRINT "Press E to Go"
LOOP UNTIL keypress = "Q"

calculator:
CLS
LOCATE 1, 1
PRINT "GUI CALCULATOR"
DO
    sizee = 4
    keypress$ = UCASE$(INKEY$)

    IF keypress$ = "W" THEN
        CLS
        y = y - 5
    ELSEIF keypress$ = "S" THEN
        CLS
        y = y + 5
    ELSEIF keypress$ = "A" THEN
        CLS
        x = x - 5
    ELSEIF keypress$ = "D" THEN
        CLS
        x = x + 5
    ELSEIF keypress$ = "H" THEN
        CLS
        GOTO help
    END IF
    CIRCLE (x, y), sizee, 3
    LINE (194, -1)-(194, 199), 1, BF
    LOCATE 3, 28
    PRINT "Number 1"
    LOCATE 12, 28
    PRINT "Number 2"
    LOCATE 19, 28
    PRINT "What to do?"
    LOCATE 7, 1
    PRINT "Press H for help"
    LINE (214, 109)-(289, 129), 3, B
    LINE (214, 39)-(284, 59), 2, B
    LINE (214, 164)-(289, 184), 4, B
    LINE (4, 24)-(59, 40), 5, B
    FOR xs% = 209 TO 274
        FOR ys% = 49 TO 59
            IF x = xs% AND y = ys% AND keypress$ = "E" THEN
                LOCATE 7, 28
                INPUT a
            END IF
        NEXT
    NEXT
    FOR xs1% = 224 TO 279
        FOR ys1% = 114 TO 124
            IF x = xs1% AND y = ys1% AND keypress$ = "E" THEN
                LOCATE 16, 28
                INPUT b
            END IF
        NEXT
    NEXT
    FOR xs2% = 219 TO 279
        FOR ys2% = 169 TO 179
            IF x = xs2% AND y = ys2% AND keypress$ = "E" THEN
                LOCATE 22, 28
                INPUT operator$
            END IF
        NEXT
    NEXT

    LOCATE 7, 28
    PRINT a
    LOCATE 16, 28
    PRINT b
    LOCATE 2, 1
    PRINT "Result"
    LOCATE 22, 28
    PRINT operator$
    LOCATE 23, 1
    PRINT "Press Q to quit"
    SELECT CASE operator$
        CASE "+"
            result = a + b
            LOCATE 5, 2
            PRINT result
        CASE "-"
            result = a - b
            LOCATE 5, 2
            PRINT result
        CASE "*"
            result = a * b
            LOCATE 5, 2
            PRINT result
        CASE "/"
            result = a / b
            LOCATE 5, 2
            PRINT result
        CASE "MOD"
            result = a MOD b
            LOCATE 5, 2
            PRINT result
        CASE "^"
            result = a ^ b
            LOCATE 5, 2
            PRINT result
    END SELECT
LOOP UNTIL keypress = "Q"
END
help:
CLS
PRINT "On the section ''What to do'' enter +,-,*,/,MOD and ^"
PRINT
PRINT "How do I even use this?"
PRINT "The small circle is your cursor. The rectangles are the fields to enter a value or see the result! Move your cursor with W,A,S and D then take it to the middle of Number 1 field, and press E you will see what happens"
PRINT
PRINT "Thank you"
PRINT "Press any key to continue"
SLEEP
GOTO main