POWER   *ver. 2.2 copywrite Christopher Browne, 1995*

(Christopher_Browne@brown.edu)
-------------------------------------------------------------

Mcl
"X^"?->A
Lbl 0
Isz q
Int (A/10q) <> *not equal to* 0=>Goto 0
10(11-q)->P
"^Y"?->B~E
A< *less than or equal to* 20=>B< *less than or equal to* 20=>Goto 3
" "
"WORKING"
" "
Frac (B/2) <> *not equal to* 0=>1->Q
Q=1=>Dsz B
B/2->B
P*Frac (A^2/P)->C~D
Dsz B
Lbl 1
P*Frac (CD/P)
Dsz B
Goto 1
Q=1=>P*Frac (AD/P)->D
D>0=>"...LAST DIGITS"
D=0=>"ERROR, X IS TOO BIG"
D
Goto 4
Lbl 3
"NUMBERS NEED TO"
"BE ABOVE 20"
Lbl 4