1 PRINT"[147][155]":POKE53280,0:POKE53281,0:POKE19,64
2 INPUT"ANZAHL DER UNBEKANNTEN/GLEICHUNGEN: ";N:DIMGL(N+1,N):POKE19,0
3 PRINT"":GOSUB15:FORA=1TON:IFGL(A,A)=0THENGOSUB7:IFS=0THEN5
4 GOSUB9:GOSUB13:NEXTA
5 GOSUB13:PRINT"LOESUNG:":GOSUB6:PRINT:END
6 FORI=1TON:FORJ=1TON:PRINTGL(J,I);:NEXTJ:PRINT"[194]"GL(J,I):NEXTI:RETURN
7 FORI=ATON:IFGL(A,I)=0THENNEXTI:IFI>NTHENS=0:RETURN
8 S=1:FORJ=1TON+1:H=GL(J,A):GL(J,A)=GL(J,I):GL(J,I)=H:NEXTJ:RETURN
9 FORI=1TON:IFI=ATHEN12
10 F1=GL(A,A):F2=GL(A,I):FORJ=1TON+1
11 GL(J,I)=F2*GL(J,A)-F1*GL(J,I):NEXTJ
12 NEXTI:RETURN
13 FORI=1TON:KF=GL(I,I):FORJ=1TON+1:IFKF<>0THENGL(J,I)=GL(J,I)/KF
14 NEXTJ:NEXTI:RETURN
15 FORI=1TON:PRINTI"[157].GL.: ";:FORJ=1TON+1:IFJ=N+1THENPRINT"[194] ";
16 POKE19,64:INPUTH$:POKE19,0:IFPOS(0)=40ANDJ<>N+1THENPRINT
17 FORL=1TOLEN(H$):IFMID$(H$,L,1)<>"/"THENNEXTL
18 H=VAL(H$):IFL<LEN(H$)THENH=VAL(LEFT$(H$,L-1))/VAL(RIGHT$(H$,LEN(H$)-L))
19 GL(J,I)=H:IFJ<>N+1THENPRINT" ";
20 NEXTJ:PRINT:NEXTI:RETURN