Bywater BASIC Interpreter

REM Bug in Function :-}

PRINT "Bug in Function :-}"
x = 2
y = 5

PRINT
power = PowerFunc(x, y)
PRINT
PRINT x; "^"; y; " ="; power
PRINT ":-{ ???"
END

FUNCTION PowerFunc(bVar, eVar)
PRINT " Arg1 ="; bVar; " Arg2 ="; eVar
resp = 1
FOR i = 1 TO eVar
LET resp = resp * bVar
PRINT " Arg1 ="; bVar; " Arg2 ="; eVar
NEXT i
PRINT " Arg1 ="; bVar; " Arg2 ="; eVar
TestFunc = resp
END FUNCTION