5 DIM A(9,9),X(8)
10 PRINT "INPUT NO. OF UNKNOWNS, MAX. NO. OF ITERATIONS, DELTA" 
15 INPUT N,M,D 
20 PRINT "INPUT COEFF. MATRIX A AND THEN COLUMN MATRIX B" 
100 FOR I=1 TO N+1  
120 INPUT A(I,1),A(I,2),A(I,3),A(I,4),A(I,5),A(I,6),A(I,7),                    A(I,8),A(I,9)
140 NEXT I  
170 FOR I=1 TO N  
210 X(I)=A(N+1,I) 
220 NEXT I  
230 FOR K=1 TO M  
310 T=0 
320 FOR I=1 TO N  
330 S=0 
340 FOR J=1 TO N  
350 S=S+A(I,J)*X(J) 
360 NEXT J  
370 B=X(I)  
380 X(I)=(-S+A(I,I)*X(I)+A(N+1,I))/A(I,I)
390 IF ABS(X(I))<=ABS(B) THEN 420
400 IF ABS(B/X(I))<D THEN 440
410 GOTO 440  
420 IF ABS(X(I)/B)<D THEN 440
430 T=T+1
440 NEXT I  
450 IF T=N THEN 480 
460 NEXT K  
470 PRINT "CONVERGENCE TOO SLOW. LAST VALUES COMPUTED ARE:" 
480 PRINT 
485 FOR I=1 TO N  
490 PRINT "X(";I;") =";X(I)
500 NEXT I  
999 END 

