El siguiente programa resuelve un sistema de n ecuaciones con n incognitas. Parece compatible con Fx-702p, PB-700, etc.:

10 CLEAR:CLS
20 INPUT "Numero de incognitas";I
30 DIM I,(I+1)) : DIM Y(I+1)
40 FOR J=1 TO I
50 FOR K=1 TO I+1
60 PRINT "X(";J;",";K;")";:INPUT J,K)
70 NEXT K
75 CLS
80 NEXT J
90 CLS:PRINT "Su operacion se esta calculando,espere un momento, por avor";
100 FOR L=1 TO I-1
105 IF L,L)=0 THEN GOSUB 1000
109 FOR J=L+1 TO I
110 IF J,L)=0 THEN IF L=I-1 THEN 400 ELSE 150
115 A=X(J,L)
120 FOR K=L TO I+1
130 J,K)=X(J,K)*X(L,L)-X(L,K)*A
140 NEXT K
150 NEXT J
160 NEXT L
400 FOR K=1 TO I
410 Y(K)=1
420 NEXT K
500 FOR J=1 TO 1 STEP-1
505 A=0
510 FOR K=1 TO I
520 A=X(J,K)*Y(K)+A
530 NEXT K
535 IF J,J)=0 THEN CLS:PRINT"El sistema no es compatible determinado":END
540 Y(J)=(X(J,I+1)+X(J,J)-A)/X(J,J)
550 NEXT J
560 CLS
570 FOR K=1 TO I
580 PRINT "X(";K;")=";Y(K);
585 IF INKEY$="" THEN 585
590 NEXT K
600 END
1000 REM BUSCAR PIVOTE DISTINTO DE 0
1015 A=1
1020 FOR K=1 TO I+1
1025 Y(K)=X(L,K)
1030 NEXT K
1040 FOR K=1 TO I+1
1047 ON ERROR GOTO 5000
1050 L,K)=X(L+A,K)
1060 NEXT K
1070 FOR K=1 TO I+1
1080 L+A,K)=Y(K)
1092 NEXT K
1095 IF L,L)<>0 THEN RETURN ELSE A=A+1:GOTO 1020
5000 PRINT "Alguna de estas ecuaciones son combinacion lineal de las otras":END