P0 10 PRINT "SQUARE ROOT-CAL":E=.5 20 GOSUB#6:PRINT "SQUARE ROOT(";X;")=",Y:GOTO 20 P1 10 PRINT "CUBE ROOT-CAL":E=1/3 20 GOSUB#6:PRINT "CUBE ROOT(";X;")=",Y:GOTO 20 P2 10 PRINT "SQUARE-CAL":E=2 20 GOSUB#5:GOTO 20 P4 10 PRINT "P-CAL" 20 INPUT "KEY IN EXP ",E 30 INPUT "KEY IN X",X 40 IF X<=0 THEN 30 50 Y=X^E 60 PRINT X;" ^";E;"=";Y 70 GOTO 30 P6 10 INPUT "X=",X:IF X<=0 THEN 10 20 Y=X^E:RETURN