RosettaCodeData/Task/Exponentiation-operator/IS-BASIC/exponentiation-operator.basic

100 DEF POW(X,Y)
110   IF X=0 THEN LET POW=0:EXIT DEF
120   LET POW=EXP(Y*LOG(X))
130 END DEF
140 PRINT POW(PI,3)
150 PRINT PI^3
Initial data commit 2023-07-01 11:58:00 -04:00			`100 DEF POW(X,Y)`
			`110 IF X=0 THEN LET POW=0:EXIT DEF`
			`120 LET POW=EXP(Y*LOG(X))`
			`130 END DEF`
			`140 PRINT POW(PI,3)`
			`150 PRINT PI^3`