给改了下，看看行不
IF R10==0 GOTOF N10
IF R10==1 GOTOF N20
IF R10==2 GOTOF N30
ENDIF
ENDIF
ENDIF
N10 R11=$AA_IM[X]
N15 R12=$AA_IM[Y]
R10=R10+1
GOTOF AAA

N20 R21=$AA_IM[X]
N25 R22=$AA_IM[Y]
R10=R10+1
GOTOF AAA

R31=$AA_IM[X]
R32=$AA_IM[Y]

R1=R11*(R22-R32)+R21*(R32-R12)+R31*(R12-R22)

IF R1==0 GOTOF AAA

R2=(POT(R11)+POT(R12)-POT(R21)-POT(R22))/2

R3=(POT(R11)+POT(R12)-POT(R31)-POT(R32))/2

R4=R1*(R12-R32)-R3*(R12-R22)

R5=R3*(R11-R21)-R2*(R11-R31)

R97=SQRT(POT(R4/R1-R11)+POT(R5/R1-R12))

R98=R4/R1

R99=R5/R1

N50 R10=0
AAA:M2


再要不就取消自动回断点