P0 10 PRINT "PRIME-I" 20 INPUT "A=",Z:A=Z:IF A=1 THEN 20 30 I=2:GOSUB 50:I=3:GOTO P 40 GOSUB 50:I=I+2:GOTO P 50 M=0:B=INT ((SQR A)/2)*2+1:IF I>B THEN 100 60 S=SGN (A-INT (A/I)*I)-1:M=M-S:A=A*I^S:GOTO (70+S*10) 70 IF M<>0 THEN 120 80 P=40:IF A=1;P=20 90 RETURN 100 IF A=Z THEN 130 110 I=A:M=1:A=1 120 PRINT "N=";I;"^";M:PRINT "QUO=";A:GOTO 80 130 PRINT Z;" IS PRIME NO.":P=20:RETURN