24 lines
424 B
Plaintext
24 lines
424 B
Plaintext
PRINT "11^5 = " ; FNipow(11, 5)
|
|
PRINT "PI^3 = " ; FNfpow(PI, 3)
|
|
END
|
|
|
|
DEF FNipow(A%, B%)
|
|
LOCAL I%, P%
|
|
P% = 1
|
|
FOR I% = 1 TO 32
|
|
P% *= P%
|
|
IF B% < 0 THEN P% *= A%
|
|
B% = B% << 1
|
|
NEXT
|
|
= P%
|
|
|
|
DEF FNfpow(A, B%)
|
|
LOCAL I%, P
|
|
P = 1
|
|
FOR I% = 1 TO 32
|
|
P *= P
|
|
IF B% < 0 THEN P *= A
|
|
B% = B% << 1
|
|
NEXT
|
|
= P
|