10 REM RECURSIVE INTEGERAL POWER
20 PRINT "ENTER A NUMBER TO RAISE TO A POWER:";
30 INPUT X
40 PRINT "ENTER A POWER (INTEGER > 0):";
50 INPUT Y
60 A=1
70 GOSUB 100
80 PRINT "ANSWER="A
90 END
100 REM POWER ROUTINE
110 A=A*X
120 Y=Y-1
130 IF Y > 0 THEN GOSUB 100
140 RETURN
