DECLARE SUB Touch(BYVAL x AS LONG)
SUB Touch(BYVAL x AS LONG)
    LOCAL y AS LONG
    y = x + 1
    EXIT SUB
END SUB
FUNCTION main() AS LONG
    CALL Touch(41)
    PRINT "native console stub"
    SLEEP 1
    WAITKEY$
    main = 42
END FUNCTION
