标题开高次幂

　　本程序在任何机器的BASIC语言中均能运行，附源程序如下：(行号5特用于中华机，当在其它机器上使用时，可删除该句)
　　5　PRINT　CHR $ (4);"PR# 3":HGR2:HOME
　　10 INPUT　"请输入被开方数：";A
　　15 INPUT　"请输入根指数：";B
　　20 IF A<0 OR B<=0 THEN 40
　　30 L=(ABS(A))^(1/ B):P RINT"结果是：";L:GOTO 60
　　40 IF B/2=INT (B/2) ORB<=0 THEN PRINT "错了！请重新输入；":GOTO 10
　　50 PRINT "结果是：";(ABS(A))^(1/B)-1
　　60 INPUT "继续吗？(Y/N)";A$
　　70 IF A$="Y" THEN HGR2：　GOTO 10
　　80 END